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

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_show_toolbar_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 46373 by king, Tue Nov 9 20:20:25 2004 UTC
# Line 99  feature -- Basic operations Line 99  feature -- Basic operations
99                  local                  local
100                          mname: STRING                          mname: STRING
101                  do                  do
                                 -- Add it to the managed menu items  
                         if managed_menu_items = Void then  
                                 create managed_menu_items.make (1)  
                         end  
102                                  -- Create the menu item                                  -- Create the menu item
103                          create Result.make (Current)                          create Result.make (Current)
104                          mname := menu_name.twin                          initialize_menu_item (Result)
                         if accelerator /= Void then  
                                 mname.append (Tabulation)  
                                 mname.append (accelerator.out)  
                         end  
                         Result.set_text (mname)  
                         Result.enable_sensitive  
                         if is_visible then  
                                 Result.enable_select  
                         else  
                                 Result.disable_select  
                         end  
105                          Result.select_actions.extend (agent execute)                          Result.select_actions.extend (agent execute)
106                  end                  end
107    

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

  ViewVC Help
Powered by ViewVC 1.1.23