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

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

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

revision 62170 by manus, Sun Jul 30 06:16:19 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 6  indexing Line 6  indexing
6          revision        : "$Revision$"          revision        : "$Revision$"
7    
8  deferred class  deferred class
9          EB_MENUABLE_COMMAND          EB_MENUABLE_COMMAND
10    
11  inherit  inherit
12          EB_GRAPHICAL_COMMAND          EB_GRAPHICAL_COMMAND
13            
14          EB_SHARED_WINDOW_MANAGER          EB_SHARED_WINDOW_MANAGER
15                  export                  export
16                          {NONE} all                          {NONE} all
# Line 25  feature -- Access Line 25  feature -- Access
25                          valid_result: Result /= Void                          valid_result: Result /= Void
26                  end                  end
27    
28            pixmap: EV_PIXMAP is
29                            -- Pixmap
30                    deferred
31                    end
32    
33  feature -- Status setting  feature -- Status setting
34    
35          enable_sensitive is          enable_sensitive is
# Line 72  feature -- Status setting Line 77  feature -- Status setting
77  feature -- Basic operations  feature -- Basic operations
78    
79          new_menu_item: EB_COMMAND_MENU_ITEM is          new_menu_item: EB_COMMAND_MENU_ITEM is
80                          --                          --
81                  do                  do
82                          create Result.make (Current)                          create Result.make (Current)
83                          initialize_menu_item (Result)                          initialize_menu_item (Result)
84                            if pixmap /= Void then
85                                    Result.set_pixmap (pixmap)
86                            end
87                          Result.select_actions.extend (agent execute)                          Result.select_actions.extend (agent execute)
88                  end                  end
89    
# Line 107  feature --{EB_COMMAND_MENU_ITEM} -- Impl Line 115  feature --{EB_COMMAND_MENU_ITEM} -- Impl
115                          end                          end
116                          Result := internal_managed_menu_items                          Result := internal_managed_menu_items
117                  end                  end
118            
119          internal_managed_menu_items: ARRAYED_LIST [like new_menu_item]          internal_managed_menu_items: ARRAYED_LIST [like new_menu_item]
120                  -- Menu items associated with this command.                  -- Menu items associated with this command.
121            
122          Tabulation: STRING is "%T";          Tabulation: STRING is "%T";
123    
124  indexing  indexing

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

  ViewVC Help
Powered by ViewVC 1.1.23