/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_toolbarable_command.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_toolbarable_command.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 62170 by manus, Sun Jul 30 06:18:37 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 23  feature -- Access Line 23  feature -- Access
23                  deferred                  deferred
24                  end                  end
25    
26            pixel_buffer: EV_PIXEL_BUFFER is
27                            -- Pixel buffer which representing the command.
28                    deferred
29                    end
30    
31          mini_pixmap: EV_PIXMAP is          mini_pixmap: EV_PIXMAP is
32                          -- Pixmap representing the command for mini toolbars.                          -- Pixmap representing the command for mini toolbars.
33                  do                  do
# Line 129  feature -- Basic operations Line 134  feature -- Basic operations
134                          Result.select_actions.extend (agent execute)                          Result.select_actions.extend (agent execute)
135                  end                  end
136    
137            new_sd_toolbar_item (display_text: BOOLEAN): EB_SD_COMMAND_TOOL_BAR_BUTTON is
138                            --
139                    do
140                            create Result.make (Current)
141                            initialize_sd_toolbar_item (Result, display_text)
142                            Result.select_actions.extend (agent execute)
143                    end
144    
145          new_mini_toolbar_item: EB_COMMAND_TOOL_BAR_BUTTON is          new_mini_toolbar_item: EB_COMMAND_TOOL_BAR_BUTTON is
146                          -- Create a new mini toolbar button for this command.                          -- Create a new mini toolbar button for this command.
147                  require                  require
# Line 150  feature {NONE} -- Implementation Line 163  feature {NONE} -- Implementation
163          initialize_toolbar_item (a_item: EB_COMMAND_TOOL_BAR_BUTTON; display_text: BOOLEAN) is          initialize_toolbar_item (a_item: EB_COMMAND_TOOL_BAR_BUTTON; display_text: BOOLEAN) is
164                          -- Initialize `a_item'                          -- Initialize `a_item'
165                  local                  local
166                          tt: STRING                          l_tt: STRING
167                    do
168                            if display_text and then has_text then
169                                    a_item.set_text (tooltext)
170                            end
171                            a_item.set_pixmap (pixmap)
172                            if is_sensitive then
173                                    a_item.enable_sensitive
174                            else
175                                    a_item.disable_sensitive
176                            end
177                            l_tt := tooltip.twin
178                            if accelerator /= Void then
179                                    l_tt.append (opening_parenthesis)
180                                    l_tt.append (accelerator.out)
181                                    l_tt.append (closing_parenthesis)
182                            end
183                            a_item.set_tooltip (l_tt)
184                    end
185    
186            initialize_sd_toolbar_item (a_item: EB_SD_COMMAND_TOOL_BAR_BUTTON; display_text: BOOLEAN) is
187                            -- Initialize `a_item'
188                    local
189                            l_tt: STRING
190                  do                  do
191                          if display_text and then has_text then                          if display_text and then has_text then
192                                  a_item.set_text (tooltext)                                  a_item.set_text (tooltext)
193                          end                          end
194                          a_item.set_pixmap (pixmap)                          a_item.set_pixmap (pixmap)
195                            if pixel_buffer /= Void then
196                                    a_item.set_pixel_buffer (pixel_buffer)
197                            end
198                            a_item.set_tooltip (tooltip)
199                            a_item.set_description (description)
200                          if is_sensitive then                          if is_sensitive then
201                                  a_item.enable_sensitive                                  a_item.enable_sensitive
202                          else                          else
203                                  a_item.disable_sensitive                                  a_item.disable_sensitive
204                          end                          end
205                          tt := tooltip.twin                          l_tt := tooltip.twin
206                          if accelerator /= Void then                          if accelerator /= Void then
207                                  tt.append (opening_parenthesis)                                  l_tt.append (opening_parenthesis)
208                                  tt.append (accelerator.out)                                  l_tt.append (accelerator.out)
209                                  tt.append (closing_parenthesis)                                  l_tt.append (closing_parenthesis)
210                          end                          end
211                          a_item.set_tooltip (tt)                          a_item.set_tooltip (l_tt)
212                  end                  end
213    
214  feature {EB_COMMAND_TOOL_BAR_BUTTON} -- Implementation  feature {EB_COMMAND_TOOL_BAR_BUTTON, EB_SD_COMMAND_TOOL_BAR_BUTTON} -- Implementation
215    
216          internal_managed_toolbar_items: ARRAYED_LIST [like new_toolbar_item]          internal_managed_toolbar_items: ARRAYED_LIST [like new_toolbar_item]
217    
218            internal_managed_sd_toolbar_items: ARRAYED_LIST [like new_sd_toolbar_item]
219    
220          managed_toolbar_items: ARRAYED_LIST [like new_toolbar_item] is          managed_toolbar_items: ARRAYED_LIST [like new_toolbar_item] is
221                          -- Toolbar items associated with this command.                          -- Toolbar items associated with this command.
222                  do                  do
# Line 183  feature {EB_COMMAND_TOOL_BAR_BUTTON} -- Line 226  feature {EB_COMMAND_TOOL_BAR_BUTTON} --
226                          Result := internal_managed_toolbar_items                          Result := internal_managed_toolbar_items
227                  end                  end
228    
229            managed_sd_toolbar_items: ARRAYED_LIST [like new_sd_toolbar_item] is
230                            --
231                    do
232                            if internal_managed_sd_toolbar_items = Void then
233                                    create internal_managed_sd_toolbar_items.make (1)
234                            end
235                            Result := internal_managed_sd_toolbar_items
236                    end
237    
238          Opening_parenthesis: STRING is " ("          Opening_parenthesis: STRING is " ("
239          Closing_parenthesis: STRING is ")";          Closing_parenthesis: STRING is ")";
240  indexing  indexing

Legend:
Removed from v.62170  
changed lines
  Added in v.62171

  ViewVC Help
Powered by ViewVC 1.1.23