/[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 46332 by king, Fri Nov 5 18:15:34 2004 UTC revision 47280 by bennob, Tue Dec 28 19:29:19 2004 UTC
# Line 20  feature -- Basic operations Line 20  feature -- Basic operations
20    
21          execute is          execute is
22                          -- Perform operation.                          -- Perform operation.
                 local  
                         world: CONTEXT_DIAGRAM  
23                  do                  do
24                          if tool.class_view /= Void then                          if tool.world.is_labels_shown and then not current_button.is_selected then
25                                  world := tool.class_view                                  tool.world.hide_labels
26                          elseif tool.cluster_view /= Void then                          elseif not tool.world.is_labels_shown and then current_button.is_selected then
27                                  world := tool.cluster_view                                  tool.world.show_labels
                         end  
                         if world /= Void then  
                                 if world.labels_shown then  
                                         world.hide_labels  
                                 else  
                                         world.show_labels  
                                 end  
                                 current_button.set_tooltip (tooltip)  
                                 tool.projector.full_project  
28                          end                          end
29                            current_button.set_tooltip (tooltip)
30                            tool.projector.full_project
31                  end                  end
32    
33          new_toolbar_item (display_text: BOOLEAN; use_gray_icons: BOOLEAN): EB_COMMAND_TOGGLE_TOOL_BAR_BUTTON is          new_toolbar_item (display_text: BOOLEAN; use_gray_icons: BOOLEAN): EB_COMMAND_TOGGLE_TOOL_BAR_BUTTON is
# Line 47  feature -- Basic operations Line 38  feature -- Basic operations
38                  do                  do
39                          create Result.make (Current)                          create Result.make (Current)
40                          current_button := Result                          current_button := Result
41                            if tool.world.is_labels_shown then
42                                    Result.toggle
43                            end
44                          initialize_toolbar_item (Result, display_text, use_gray_icons)                          initialize_toolbar_item (Result, display_text, use_gray_icons)
                         Result.toggle  
45                          Result.select_actions.extend (agent execute)                          Result.select_actions.extend (agent execute)
46                  end                  end
47                    
48  feature {NONE} -- Implementation  feature -- Access
   
         pixmap: ARRAY [EV_PIXMAP] is  
                         -- Pixmaps representing the command (one for the  
                         -- gray version, one for the color version).  
                 do  
                         Result := Pixmaps.Icon_display_labels  
                 end  
49    
50          tooltip: STRING is          tooltip: STRING is
51                          -- Tooltip for the toolbar button.                          -- Tooltip for the toolbar button.
# Line 71  feature {NONE} -- Implementation Line 57  feature {NONE} -- Implementation
57                          end                          end
58                  end                  end
59    
60    feature {NONE} -- Implementation
61    
62            pixmap: ARRAY [EV_PIXMAP] is
63                            -- Pixmaps representing the command (one for the
64                            -- gray version, one for the color version).
65                    do
66                            Result := Pixmaps.Icon_display_labels
67                    end
68    
69          description: STRING is          description: STRING is
70                          -- Description for this command.                          -- Description for this command.
71                  do                  do

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

  ViewVC Help
Powered by ViewVC 1.1.23