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

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

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

revision 40748 by manus, Thu Dec 11 20:26:31 2003 UTC revision 46332 by king, Fri Nov 5 18:15:34 2004 UTC
# Line 44  feature -- Basic operations Line 44  feature -- Basic operations
44                          --                          --
45                          -- Call `recycle' on the result when you don't need it anymore otherwise                          -- Call `recycle' on the result when you don't need it anymore otherwise
46                          -- it will never be garbage collected.                          -- it will never be garbage collected.
                 local  
                         tt: STRING  
47                  do                  do
                                 -- Add it to the managed toolbar items  
                         if managed_toolbar_items = Void then  
                                 create managed_toolbar_items.make (1)  
                         end  
48                          create Result.make (Current)                          create Result.make (Current)
                         if display_text and pixmap.count >= 2 then  
                                 Result.set_pixmap (pixmap @ 2)  
                         else  
                                 Result.set_pixmap (pixmap @ 1)  
                         end  
                         if is_sensitive then  
                                 Result.enable_sensitive  
                         else  
                                 Result.disable_sensitive  
                         end  
49                          current_button := Result                          current_button := Result
50                            initialize_toolbar_item (Result, display_text, use_gray_icons)
51                          Result.toggle                          Result.toggle
                         tt := tooltip.twin  
                         if accelerator /= Void then  
                                 tt.append (Opening_parenthesis)  
                                 tt.append (accelerator.out)  
                                 tt.append (Closing_parenthesis)  
                         end  
                         Result.set_tooltip (tt)  
52                          Result.select_actions.extend (agent execute)                          Result.select_actions.extend (agent execute)
53                  end                  end
54    

Legend:
Removed from v.40748  
changed lines
  Added in v.46332

  ViewVC Help
Powered by ViewVC 1.1.23