/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/case_tool/eiffel_studio/cluster_graph.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/case_tool/eiffel_studio/cluster_graph.e

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

revision 62170 by manus, Sun Jul 30 06:25:05 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 193  feature {NONE} -- Implementation Line 193  feature {NONE} -- Implementation
193                                  nb_of_items := number_of_superclusters (center_cluster.group, supercluster_depth) +                                  nb_of_items := number_of_superclusters (center_cluster.group, supercluster_depth) +
194                                                             number_of_subclusters (center_cluster.group, subcluster_depth)                                                             number_of_subclusters (center_cluster.group, subcluster_depth)
195    
196                                  context_editor.development_window.status_bar.reset_progress_bar_with_range (0 |..| nb_of_items)                                  context_editor.develop_window.status_bar.reset_progress_bar_with_range (0 |..| nb_of_items)
197                          end                          end
198    
199                          if context_editor /= Void then                          if context_editor /= Void then
200                                  context_editor.development_window.status_bar.display_message ("Exploring superclusters of " + center_cluster.name)                                  context_editor.develop_window.status_bar.display_message ("Exploring superclusters of " + center_cluster.name)
201                          end                          end
202                          explore_superclusters (center_cluster, supercluster_depth)                          explore_superclusters (center_cluster, supercluster_depth)
203    
204                          if context_editor /= Void then                          if context_editor /= Void then
205                                  context_editor.development_window.status_bar.display_message ("Exploring subclusters of " + center_cluster.name)                                  context_editor.develop_window.status_bar.display_message ("Exploring subclusters of " + center_cluster.name)
206                          end                          end
207                          explore_subclusters (center_cluster, subcluster_depth, True, True)                          explore_subclusters (center_cluster, subcluster_depth, True, True)
208                  end                  end
# Line 264  feature {NONE} -- Implementation Line 264  feature {NONE} -- Implementation
264                                                  create es_cluster.make (l_cluster.parent)                                                  create es_cluster.make (l_cluster.parent)
265                                                  add_cluster (es_cluster)                                                  add_cluster (es_cluster)
266                                                  if context_editor /= Void then                                                  if context_editor /= Void then
267                                                          context_editor.development_window.status_bar.display_progress_value (                                                          context_editor.develop_window.status_bar.display_progress_value (
268                                                                  context_editor.development_window.status_bar.current_progress_value + 1                                                                  context_editor.develop_window.status_bar.current_progress_value + 1
269                                                          )                                                          )
270                                                  end                                                  end
271                                                  include_all_classes (es_cluster)                                                  include_all_classes (es_cluster)
# Line 286  feature {NONE} -- Implementation Line 286  feature {NONE} -- Implementation
286                                                          create es_cluster.make (l_libs.item)                                                          create es_cluster.make (l_libs.item)
287                                                          add_cluster (es_cluster)                                                          add_cluster (es_cluster)
288                                                          if context_editor /= Void then                                                          if context_editor /= Void then
289                                                                  context_editor.development_window.status_bar.display_progress_value (                                                                  context_editor.develop_window.status_bar.display_progress_value (
290                                                                          context_editor.development_window.status_bar.current_progress_value + 1                                                                          context_editor.develop_window.status_bar.current_progress_value + 1
291                                                                  )                                                                  )
292                                                          end                                                          end
293                                                          include_all_classes (es_cluster)                                                          include_all_classes (es_cluster)
# Line 365  feature {NONE} -- Implementation Line 365  feature {NONE} -- Implementation
365                  do                  do
366                          if depth > 0 then                          if depth > 0 then
367                                  if context_editor /= Void then                                  if context_editor /= Void then
368                                          l_status_bar := context_editor.development_window.status_bar                                          l_status_bar := context_editor.develop_window.status_bar
369                                  end                                  end
370                                  l_group := a_group.group                                  l_group := a_group.group
371                                  if l_group.is_cluster then                                  if l_group.is_cluster then

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

  ViewVC Help
Powered by ViewVC 1.1.23