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

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

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

revision 47394 by bennob, Thu Jan 6 03:33:31 2005 UTC revision 47417 by manus, Thu Jan 6 07:44:44 2005 UTC
# Line 162  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 162  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
162                                                  linkable_figure.hide                                                  linkable_figure.hide
163                                                  linkable_figure.disable_sensitive                                                  linkable_figure.disable_sensitive
164                                                  from                                                  from
165                                                          linkable_figure.internal_links.start                                                          linkable_figure.links.start
166                                                  until                                                  until
167                                                          linkable_figure.internal_links.after                                                          linkable_figure.links.after
168                                                  loop                                                  loop
169                                                          linkable_figure.internal_links.item.hide                                                          linkable_figure.links.item.hide
170                                                          linkable_figure.internal_links.item.disable_sensitive                                                          linkable_figure.links.item.disable_sensitive
171                                                          linkable_figure.internal_links.forth                                                          linkable_figure.links.forth
172                                                  end                                                  end
173                                                  cluster_figure ?= linkable_figure                                                  cluster_figure ?= linkable_figure
174                                                  if cluster_figure /= Void and then not cluster_figure.is_iconified then                                                  if cluster_figure /= Void and then not cluster_figure.is_iconified then
# Line 205  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 205  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
205                                                  linkable_figure.show                                                  linkable_figure.show
206                                                  linkable_figure.enable_sensitive                                                  linkable_figure.enable_sensitive
207                                                  from                                                  from
208                                                          linkable_figure.internal_links.start                                                          linkable_figure.links.start
209                                                  until                                                  until
210                                                          linkable_figure.internal_links.after                                                          linkable_figure.links.after
211                                                  loop                                                  loop
212                                                          l_link := linkable_figure.internal_links.item                                                          l_link := linkable_figure.links.item
213                                                          if l_link.source = linkable_figure then                                                          if l_link.source = linkable_figure then
214                                                                  l_other := l_link.target                                                                  l_other := l_link.target
215                                                          else                                                          else
# Line 219  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 219  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
219                                                                  l_link.show                                                                  l_link.show
220                                                                  l_link.enable_sensitive                                                                  l_link.enable_sensitive
221                                                          end                                                          end
222                                                          linkable_figure.internal_links.forth                                                          linkable_figure.links.forth
223                                                  end                                                  end
224                                                  cluster_figure ?= linkable_figure                                                  cluster_figure ?= linkable_figure
225                                                  if cluster_figure /= Void and then not cluster_figure.is_iconified then                                                  if cluster_figure /= Void and then not cluster_figure.is_iconified then

Legend:
Removed from v.47394  
changed lines
  Added in v.47417

  ViewVC Help
Powered by ViewVC 1.1.23