/[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 47417 by manus, Thu Jan 6 07:44:44 2005 UTC revision 47431 by bennob, Fri Jan 7 17:47:24 2005 UTC
# Line 150  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 150  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
150                  local                  local
151                          linkable_figure: EG_LINKABLE_FIGURE                          linkable_figure: EG_LINKABLE_FIGURE
152                          cluster_figure: EIFFEL_CLUSTER_FIGURE                          cluster_figure: EIFFEL_CLUSTER_FIGURE
153                            l_links: ARRAYED_LIST [EG_LINK_FIGURE]
154                            l_item: EG_LINK_FIGURE
155                            i, nb: INTEGER
156                  do                  do
157                          from                          from
158                                  start                                  start
# Line 162  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 165  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
165                                                  linkable_figure.hide                                                  linkable_figure.hide
166                                                  linkable_figure.disable_sensitive                                                  linkable_figure.disable_sensitive
167                                                  from                                                  from
168                                                          linkable_figure.links.start                                                          l_links := linkable_figure.links
169                                                            i := 1
170                                                            nb := l_links.count
171                                                  until                                                  until
172                                                          linkable_figure.links.after                                                          i > nb
173                                                  loop                                                  loop
174                                                          linkable_figure.links.item.hide                                                          l_item := l_links.i_th (i)
175                                                          linkable_figure.links.item.disable_sensitive                                                          l_item.hide
176                                                          linkable_figure.links.forth                                                          l_item.disable_sensitive
177                                                            i := i + 1
178                                                  end                                                  end
179                                                  cluster_figure ?= linkable_figure                                                  cluster_figure ?= linkable_figure
180                                                  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 192  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 198  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
198                          l_link: EG_LINK_FIGURE                          l_link: EG_LINK_FIGURE
199                          cluster_figure: EIFFEL_CLUSTER_FIGURE                          cluster_figure: EIFFEL_CLUSTER_FIGURE
200                          e_item: ES_ITEM                          e_item: ES_ITEM
201                            l_links: ARRAYED_LIST [EG_LINK_FIGURE]
202                            i, nb: INTEGER
203                  do                  do
204                          from                          from
205                                  start                                  start
# Line 205  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 213  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
213                                                  linkable_figure.show                                                  linkable_figure.show
214                                                  linkable_figure.enable_sensitive                                                  linkable_figure.enable_sensitive
215                                                  from                                                  from
216                                                          linkable_figure.links.start                                                          l_links := linkable_figure.links
217                                                            i := 1
218                                                            nb := l_links.count
219                                                  until                                                  until
220                                                          linkable_figure.links.after                                                          i > nb
221                                                  loop                                                  loop
222                                                          l_link := linkable_figure.links.item                                                          l_link := l_links.i_th (i)
223                                                          if l_link.source = linkable_figure then                                                          if l_link.source = linkable_figure then
224                                                                  l_other := l_link.target                                                                  l_other := l_link.target
225                                                          else                                                          else
# Line 219  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 229  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
229                                                                  l_link.show                                                                  l_link.show
230                                                                  l_link.enable_sensitive                                                                  l_link.enable_sensitive
231                                                          end                                                          end
232                                                          linkable_figure.links.forth                                                          i := i + 1
233                                                  end                                                  end
234                                                  cluster_figure ?= linkable_figure                                                  cluster_figure ?= linkable_figure
235                                                  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.47417  
changed lines
  Added in v.47431

  ViewVC Help
Powered by ViewVC 1.1.23