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

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

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

revision 62170 by manus, Sun Jul 30 06:16:05 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 13  inherit Line 13  inherit
13          EB_TOOLBARABLE_AND_MENUABLE_COMMAND          EB_TOOLBARABLE_AND_MENUABLE_COMMAND
14                  redefine                  redefine
15                          new_toolbar_item,                          new_toolbar_item,
16                          tooltext                          new_sd_toolbar_item,
17                            tooltext,
18                            pixel_buffer
19                  end                  end
20    
21          EB_SHARED_WINDOW_MANAGER          EB_SHARED_WINDOW_MANAGER
# Line 33  feature {NONE} -- Initialization Line 35  feature {NONE} -- Initialization
35                          is_sensitive := True                          is_sensitive := True
36                          style := s                          style := s
37                          if s = default_style then                          if s = default_style then
38                                  create accelerator.make_with_key_combination (                          create accelerator.make_with_key_combination (
39                                          create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.Key_n),                                  create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.Key_n),
40                                          True, False, False)                                  True, False, False)
41                                  accelerator.actions.extend (agent execute)                          accelerator.actions.extend (agent execute)
42                          end                          end
43                  end                  end
44    
# Line 79  feature -- Basic operations Line 81  feature -- Basic operations
81                          Result.drop_actions.set_veto_pebble_function (agent is_storable)                          Result.drop_actions.set_veto_pebble_function (agent is_storable)
82                  end                  end
83    
84            new_sd_toolbar_item (display_text: BOOLEAN): EB_SD_COMMAND_TOOL_BAR_BUTTON is
85                            -- Create a new toolbar button for this command.
86                    do
87                            Result := Precursor (display_text)
88                            Result.drop_actions.extend (agent execute_with_stone (?))
89                            Result.drop_actions.set_veto_pebble_function (agent is_storable)
90                    end
91    
92  feature -- Access  feature -- Access
93    
94          style: INTEGER          style: INTEGER
# Line 119  feature {NONE} -- Implementation Line 129  feature {NONE} -- Implementation
129                          end                          end
130                  end                  end
131    
132            pixel_buffer: EV_PIXEL_BUFFER is
133                            -- Pixel buffer representing the command.
134                    do
135                            inspect style
136                            when default_style then
137                                    Result := pixmaps.icon_pixmaps.new_window_icon_buffer
138                            when editor_style then
139                                    Result := pixmaps.icon_pixmaps.new_editor_icon_buffer
140                            when context_style then
141    --                              Result := Pixmaps.icon_new_context_icon_buffer
142                            end
143                    end
144    
145          tooltip: STRING is          tooltip: STRING is
146                          -- Tooltip for the toolbar button.                          -- Tooltip for the toolbar button.
147                  do                  do

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

  ViewVC Help
Powered by ViewVC 1.1.23