/[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 47281 by bennob, Tue Dec 28 19:31:21 2004 UTC revision 47394 by bennob, Thu Jan 6 03:33:31 2005 UTC
# Line 24  inherit Line 24  inherit
24                  undefine                  undefine
25                          default_create                          default_create
26                  end                  end
27                    
28  feature {NONE} -- Initialization  feature {NONE} -- Initialization
29    
30          default_create is          default_create is
# Line 44  feature {NONE} -- Initialization Line 44  feature {NONE} -- Initialization
44                          -- Initialize `Current' with `model'.                          -- Initialize `Current' with `model'.
45                  do                  do
46                          Precursor {EG_RESIZABLE_CLUSTER_FIGURE}                          Precursor {EG_RESIZABLE_CLUSTER_FIGURE}
47                          set_pebble (create {CLUSTER_STONE}.make (model.cluster_i))                          pebble_function := agent on_pebble_request
48                          model.needed_on_diagram_changed_actions.extend (agent on_needed_on_diagram_changed)                          model.needed_on_diagram_changed_actions.extend (agent on_needed_on_diagram_changed)
49                  end                  end
                   
50    
51  feature -- Status report  feature -- Status report
52    
# Line 151  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
                         e_item: ES_ITEM  
153                  do                  do
154                          from                          from
155                                  start                                  start
# Line 160  feature {EIFFEL_CLUSTER_FIGURE} -- Expan Line 158  feature {EIFFEL_CLUSTER_FIGURE} -- Expan
158                          loop                          loop
159                                  linkable_figure ?= item                                                  linkable_figure ?= item                
160                                  if linkable_figure /= Void then                                  if linkable_figure /= Void then
161                                          e_item ?= linkable_figure.model                                          if linkable_figure.is_show_requested then
                                         if e_item = Void or else e_item.is_needed_on_diagram then  
162                                                  linkable_figure.hide                                                  linkable_figure.hide
163                                                  linkable_figure.disable_sensitive                                                  linkable_figure.disable_sensitive
164                                                  from                                                  from
165                                                          linkable_figure.links.start                                                          linkable_figure.internal_links.start
166                                                  until                                                  until
167                                                          linkable_figure.links.after                                                          linkable_figure.internal_links.after
168                                                  loop                                                  loop
169                                                          linkable_figure.links.item.hide                                                          linkable_figure.internal_links.item.hide
170                                                          linkable_figure.links.item.disable_sensitive                                                          linkable_figure.internal_links.item.disable_sensitive
171                                                          linkable_figure.links.forth                                                          linkable_figure.internal_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 208  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.links.start                                                          linkable_figure.internal_links.start
209                                                  until                                                  until
210                                                          linkable_figure.links.after                                                          linkable_figure.internal_links.after
211                                                  loop                                                  loop
212                                                          l_link := linkable_figure.links.item                                                          l_link := linkable_figure.internal_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 222  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.links.forth                                                          linkable_figure.internal_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
# Line 380  feature {NONE} -- Implementation Line 377  feature {NONE} -- Implementation
377                          end                          end
378                  end                  end
379                                    
380            on_pebble_request: CLUSTER_STONE is
381                            -- Pebble request.
382                    do
383                            if model /= Void then
384                                    create Result.make (model.cluster_i)
385                            end
386                    end
387    
388  end -- class EIFFEL_CLUSTER_FIGURE  end -- class EIFFEL_CLUSTER_FIGURE

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

  ViewVC Help
Powered by ViewVC 1.1.23