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

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_select_depth_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 14  inherit Line 14  inherit
14                          menu_name,                          menu_name,
15                          initialize                          initialize
16                  end                  end
17            
18          SHARED_ERROR_HANDLER          SHARED_ERROR_HANDLER
19    
20  create  create
21          make          make
22            
23  feature {NONE} -- Initialization  feature {NONE} -- Initialization
24                    
25          initialize is          initialize is
26                          -- Initialize default values.                          -- Initialize default values.
27                  do                  do
28                          create accelerator.make_with_key_combination (                          create accelerator.make_with_key_combination (
29                                  create {EV_KEY}.make_with_code (key_constants.key_d),                                  create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.key_d),
30                                  True, False, False)                                  True, False, False)
31                          accelerator.actions.extend (agent execute)                          accelerator.actions.extend (agent execute)
32                  end                  end
# Line 55  feature -- Basic operations Line 55  feature -- Basic operations
55                                                  dial.subcluster_depth /= cd.model.subcluster_depth                                                  dial.subcluster_depth /= cd.model.subcluster_depth
56                                          then                                          then
57                                                  history.wipe_out                                                  history.wipe_out
58                                                  cd.model.set_supercluster_depth (dial.supercluster_depth)                                                                cd.model.set_supercluster_depth (dial.supercluster_depth)
59                                                  cd.model.set_subcluster_depth (dial.subcluster_depth)                                                  cd.model.set_subcluster_depth (dial.subcluster_depth)
60                                                  tool.create_cluster_view (cd.model.center_cluster.cluster_i, False)                                                  tool.create_cluster_view (cd.model.center_cluster.cluster_i, False)
61                                          end                                          end
# Line 88  feature -- Basic operations Line 88  feature -- Basic operations
88    
89  feature {NONE} -- Implementation  feature {NONE} -- Implementation
90    
91          pixmap: ARRAY [EV_PIXMAP] is          pixmap: EV_PIXMAP is
92                          -- Pixmaps representing the command (one for the                          -- Pixmap representing the command.
                         -- gray version, one for the color version).  
93                  do                  do
94                          Result := Pixmaps.Icon_select_depth                          Result := Pixmaps.Icon_select_depth
95                  end                  end
# Line 106  feature {NONE} -- Implementation Line 105  feature {NONE} -- Implementation
105                  do                  do
106                          Result := Interface_names.m_diagram_context_depth                          Result := Interface_names.m_diagram_context_depth
107                  end                  end
108                    
109          name: STRING is "Context_depth"          name: STRING is "Context_depth"
110                          -- Name of the command. Used to store the command in the                          -- Name of the command. Used to store the command in the
111                          -- preferences.                          -- preferences.
# Line 116  feature {NONE} -- Implementation Line 115  feature {NONE} -- Implementation
115    
116          cluster_depth_dialog: EB_CONTEXT_DEPTH_DIALOG;          cluster_depth_dialog: EB_CONTEXT_DEPTH_DIALOG;
117                          -- Dialog to tweak depths on cluster views.                          -- Dialog to tweak depths on cluster views.
118                            
119  indexing  indexing
120          copyright:      "Copyright (c) 1984-2006, Eiffel Software"          copyright:      "Copyright (c) 1984-2006, Eiffel Software"
121          license:        "GPL version 2 see http://www.eiffel.com/licensing/gpl.txt)"          license:        "GPL version 2 see http://www.eiffel.com/licensing/gpl.txt)"

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

  ViewVC Help
Powered by ViewVC 1.1.23