/[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 47280 by bennob, Tue Dec 28 19:29:19 2004 UTC revision 47772 by bennob, Sat Jan 22 00:01:58 2005 UTC
# Line 9  class Line 9  class
9  inherit  inherit
10          EB_CONTEXT_DIAGRAM_COMMAND          EB_CONTEXT_DIAGRAM_COMMAND
11                  redefine                  redefine
12                          menu_name                          menu_name,
13                            initialize
14                  end                  end
15                    
16          SHARED_ERROR_HANDLER          SHARED_ERROR_HANDLER
17    
18  create  create
19          make          make
20            
21    feature {NONE} -- Initialization
22                    
23            initialize is
24                            -- Initialize default values.
25                    do
26                            create accelerator.make_with_key_combination (
27                                    create {EV_KEY}.make_with_code (key_constants.key_d),
28                                    True, False, False)
29                            accelerator.actions.extend (agent execute)
30                    end
31    
32  feature -- Basic operations  feature -- Basic operations
33    
# Line 27  feature -- Basic operations Line 39  feature -- Basic operations
39                          d: EIFFEL_CLASS_DIAGRAM                          d: EIFFEL_CLASS_DIAGRAM
40                          cg: ES_CLASS_GRAPH                          cg: ES_CLASS_GRAPH
41                  do                  do
42                          d := tool.class_view                          if is_sensitive then
43                          if d = Void then                                  d := tool.class_view
44                                  cd := tool.cluster_view                                  if d = Void then
45                                  create dial.make_for_cluster_view                                          cd := tool.cluster_view
46                                  dial.preset_for_cluster_view (cd)                                          create dial.make_for_cluster_view
47                                  dial.show_modal_to_window (tool.development_window.window)                                          dial.preset_for_cluster_view (cd)
48                                  if                                          dial.show_modal_to_window (tool.development_window.window)
49                                          not dial.cancelled                                          if
50                                  and                                                  not dial.cancelled
51                                          dial.supercluster_depth /= cd.model.supercluster_depth or                                          and
52                                          dial.subcluster_depth /= cd.model.subcluster_depth                                                  dial.supercluster_depth /= cd.model.supercluster_depth or
53                                  then                                                  dial.subcluster_depth /= cd.model.subcluster_depth
54                                          history.wipe_out                                          then
55                                          cd.model.set_supercluster_depth (dial.supercluster_depth)                                                                history.wipe_out
56                                          cd.model.set_subcluster_depth (dial.subcluster_depth)                                                  cd.model.set_supercluster_depth (dial.supercluster_depth)              
57                                          tool.create_cluster_view (cd.model.center_cluster.cluster_i, False)                                                  cd.model.set_subcluster_depth (dial.subcluster_depth)
58                                  end                                                  tool.create_cluster_view (cd.model.center_cluster.cluster_i, False)
59                          else                                          end
60                                  create dial.make_for_class_view                                  else
61                                  dial.preset_for_class_view (d)                                          create dial.make_for_class_view
62                                  dial.show_modal_to_window (tool.development_window.window)                                          dial.preset_for_class_view (d)
63                                  cg := d.model                                          dial.show_modal_to_window (tool.development_window.window)
64                                  if                                          cg := d.model
65                                          not dial.cancelled                                          if
66                                  and                                                  not dial.cancelled
67                                          (dial.ancestor_depth /= cg.ancestor_depth or                                          and
68                                          dial.descendant_depth /= cg.descendant_depth or                                                  (dial.ancestor_depth /= cg.ancestor_depth or
69                                          dial.client_depth /= cg.client_depth or                                                  dial.descendant_depth /= cg.descendant_depth or
70                                          dial.supplier_depth /= cg.supplier_depth or                                                  dial.client_depth /= cg.client_depth or
71                                          dial.all_classes_of_cluster /= cg.include_all_classes_of_cluster or                                                  dial.supplier_depth /= cg.supplier_depth or
72                                          dial.only_classes_of_cluster /= cg.include_only_classes_of_cluster)                                                  dial.all_classes_of_cluster /= cg.include_all_classes_of_cluster or
73                                  then                                                  dial.only_classes_of_cluster /= cg.include_only_classes_of_cluster)
74                                          cg.set_ancestor_depth (dial.ancestor_depth)                                          then
75                                          cg.set_descendant_depth (dial.descendant_depth)                                                  cg.set_ancestor_depth (dial.ancestor_depth)
76                                          cg.set_client_depth (dial.client_depth)                                                  cg.set_descendant_depth (dial.descendant_depth)
77                                          cg.set_supplier_depth (dial.supplier_depth)                                                  cg.set_client_depth (dial.client_depth)
78                                          cg.set_include_all_classes_of_cluster (dial.all_classes_of_cluster)                                                  cg.set_supplier_depth (dial.supplier_depth)
79                                          cg.set_include_only_classes_of_cluster (dial.only_classes_of_cluster)                                                  cg.set_include_all_classes_of_cluster (dial.all_classes_of_cluster)
80                                          tool.create_class_view (cg.center_class.class_i, False)                                                  cg.set_include_only_classes_of_cluster (dial.only_classes_of_cluster)
81                                                    tool.create_class_view (cg.center_class.class_i, False)
82                                            end
83                                  end                                  end
84                          end                          end
85                  end                  end

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

  ViewVC Help
Powered by ViewVC 1.1.23