/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/case_tool/eiffel_view/eiffel_cluster_diagram.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/case_tool/eiffel_view/eiffel_cluster_diagram.e

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

revision 62170 by manus, Sun Jul 30 06:26:30 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 428  feature {NONE} -- Implementation Line 428  feature {NONE} -- Implementation
428                          drop_y := context_editor.pointer_position.y                          drop_y := context_editor.pointer_position.y
429                          is_dropped_on_diagram := True                          is_dropped_on_diagram := True
430                          clf := top_cluster_at (Current, drop_x, drop_y)                          clf := top_cluster_at (Current, drop_x, drop_y)
431                          create dial.make_default (context_editor.development_window)                          create dial.make_default (context_editor.develop_window)
432                          if clf /= Void then                          if clf /= Void then
433                                  l_cluster ?= clf.model.group                                  l_cluster ?= clf.model.group
434                                  if l_cluster /= Void then                                  if l_cluster /= Void then
# Line 559  feature {NONE} -- Implementation Line 559  feature {NONE} -- Implementation
559          window_status_bar: EB_DEVELOPMENT_WINDOW_STATUS_BAR is          window_status_bar: EB_DEVELOPMENT_WINDOW_STATUS_BAR is
560                          -- Status bar of window                          -- Status bar of window
561                  do                  do
562                          Result := context_editor.development_window.status_bar                          Result := context_editor.develop_window.status_bar
563                  ensure                  ensure
564                          Result_not_void: Result /= Void                          Result_not_void: Result /= Void
565                  end                  end
# Line 665  feature {NONE} -- Implementation Line 665  feature {NONE} -- Implementation
665                                          l_array_undo.extend (agent parent.disable_needed_on_diagram)                                          l_array_undo.extend (agent parent.disable_needed_on_diagram)
666    
667                                          create new_class.make (a_class)                                          create new_class.make (a_class)
668                                          es_cluster.extend (new_class)                                          new_cluster.extend (new_class)
669                                          model.add_node_relations (new_class)                                          model.add_node_relations (new_class)
670                                          update_cluster_legend                                          update_cluster_legend
671                                          fig ?= figure_from_model (new_class)                                          fig ?= figure_from_model (new_class)

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

  ViewVC Help
Powered by ViewVC 1.1.23