/[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 56535 by manus, Tue Jan 17 01:37:10 2006 UTC revision 56753 by king, Thu Jan 26 23:09:56 2006 UTC
# Line 15  inherit Line 15  inherit
15                          description,                          description,
16                          initialize                          initialize
17                  end                  end
18                    
19          EB_CONTEXT_DIAGRAM_TOGGLE_COMMAND          EB_CONTEXT_DIAGRAM_TOGGLE_COMMAND
20    
21  create  create
22          make          make
23            
24  feature {NONE} -- Initialization  feature {NONE} -- Initialization
25                    
26          initialize is          initialize is
27                          -- Initialize default values.                          -- Initialize default values.
28                  do                  do
29                          create accelerator.make_with_key_combination (                          create accelerator.make_with_key_combination (
30                                  create {EV_KEY}.make_with_code (key_constants.key_l),                                  create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.key_l),
31                                  True, False, False)                                  True, False, False)
32                          accelerator.actions.extend (agent execute)                          accelerator.actions.extend (agent execute)
33                  end                  end
# Line 49  feature -- Basic operations Line 49  feature -- Basic operations
49                          end                          end
50                  end                  end
51    
52          new_toolbar_item (display_text: BOOLEAN; use_gray_icons: BOOLEAN): EB_COMMAND_TOGGLE_TOOL_BAR_BUTTON is          new_toolbar_item (display_text: BOOLEAN): EB_COMMAND_TOGGLE_TOOL_BAR_BUTTON is
53                          -- Create a new toolbar button for this command.                          -- Create a new toolbar button for this command.
54                          --                          --
55                          -- 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
# Line 60  feature -- Basic operations Line 60  feature -- Basic operations
60                          if tool.world.is_labels_shown then                          if tool.world.is_labels_shown then
61                                  Result.toggle                                  Result.toggle
62                          end                          end
63                          initialize_toolbar_item (Result, display_text, use_gray_icons)                          initialize_toolbar_item (Result, display_text)
64                          Result.select_actions.extend (agent execute)                          Result.select_actions.extend (agent execute)
65                  end                  end
66                    
67  feature -- Access  feature -- Access
68    
69          tooltip: STRING is          tooltip: STRING is
# Line 78  feature -- Access Line 78  feature -- Access
78    
79  feature {NONE} -- Implementation  feature {NONE} -- Implementation
80    
81          pixmap: ARRAY [EV_PIXMAP] is          pixmap: EV_PIXMAP is
82                          -- Pixmaps representing the command (one for the                          -- Pixmap representing the command.
                         -- gray version, one for the color version).  
83                  do                  do
84                          Result := Pixmaps.Icon_display_labels                          Result := Pixmaps.Icon_display_labels
85                  end                  end

Legend:
Removed from v.56535  
changed lines
  Added in v.56753

  ViewVC Help
Powered by ViewVC 1.1.23