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

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

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

revision 62170 by manus, Sun Jul 30 06:26:06 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 270  feature {NONE} -- Implementation Line 270  feature {NONE} -- Implementation
270                          old_center: EG_LINKABLE_FIGURE                          old_center: EG_LINKABLE_FIGURE
271                          old_es_center: ES_CLASS                          old_es_center: ES_CLASS
272                          fdl: EG_FORCE_DIRECTED_LAYOUT                          fdl: EG_FORCE_DIRECTED_LAYOUT
273                          ce: EB_CONTEXT_EDITOR                          ce: EB_DIAGRAM_TOOL
274                          new_classes: LIST [ES_CLASS]                          new_classes: LIST [ES_CLASS]
275                          layout: EIFFEL_INHERITANCE_LAYOUT                          layout: EIFFEL_INHERITANCE_LAYOUT
276                  do                  do
# Line 319  feature {NONE} -- Implementation Line 319  feature {NONE} -- Implementation
319                                          else                                          else
320                                                  create layout.make_with_world (world)                                                  create layout.make_with_world (world)
321                                                  if world.is_uml then                                                  if world.is_uml then
322                                                          layout.set_spacing ({EB_CONTEXT_EDITOR}.default_uml_horizontal_spacing, {EB_CONTEXT_EDITOR}.default_uml_vertical_spacing)                                                          layout.set_spacing ({EB_DIAGRAM_TOOL}.default_uml_horizontal_spacing, {EB_DIAGRAM_TOOL}.default_uml_vertical_spacing)
323                                                  else                                                  else
324                                                          layout.set_spacing ({EB_CONTEXT_EDITOR}.default_bon_horizontal_spacing, {EB_CONTEXT_EDITOR}.default_bon_vertical_spacing)                                                          layout.set_spacing ({EB_DIAGRAM_TOOL}.default_bon_horizontal_spacing, {EB_DIAGRAM_TOOL}.default_bon_vertical_spacing)
325                                                  end                                                  end
326                                                  layout.layout                                                  layout.layout
327                                                  if not world.context_editor.history.undo_list.is_empty then                                                  if not world.context_editor.history.undo_list.is_empty then
# Line 341  feature {NONE} -- Implementation Line 341  feature {NONE} -- Implementation
341                                                  >>])                                                  >>])
342                                          end                                          end
343                                          world.update_cluster_legend                                          world.update_cluster_legend
344                                          world.context_editor.tool.set_stone (create {CLASSI_STONE}.make (model.class_i))                                          world.context_editor.develop_window.tools.set_stone (create {CLASSI_STONE}.make (model.class_i))
345                                  end                                  end
346                          end                          end
347                  end                  end
# Line 383  feature {NONE} -- Implementation (adding Line 383  feature {NONE} -- Implementation (adding
383                          if not class_file.exists then                          if not class_file.exists then
384                                  create l_error_window.make_with_text ("Class is not editable.%N" +                                  create l_error_window.make_with_text ("Class is not editable.%N" +
385                                           warning_messages.w_file_not_exist (a_stone.class_i.file_name))                                           warning_messages.w_file_not_exist (a_stone.class_i.file_name))
386                                  l_error_window.show_modal_to_window (world.context_editor.development_window.window)                                  l_error_window.show_modal_to_window (world.context_editor.develop_window.window)
387                          elseif class_file.is_writable and then not a_stone.class_i.group.is_readonly then                          elseif class_file.is_writable and then not a_stone.class_i.group.is_readonly then
388                                  if world.context_editor.is_link_inheritance then                                  if world.context_editor.is_link_inheritance then
389                                          if drop_allowed (a_stone) then                                          if drop_allowed (a_stone) then
# Line 393  feature {NONE} -- Implementation (adding Line 393  feature {NONE} -- Implementation (adding
393                                                          "An inheritance cycle was created.%N%                                                          "An inheritance cycle was created.%N%
394                                                                  %Do you still want to add this link?",                                                                  %Do you still want to add this link?",
395                                                                  <<agent add_inheritance_relation (a_stone.source)>>)                                                                  <<agent add_inheritance_relation (a_stone.source)>>)
396                                                  dial.show_modal_to_window (world.context_editor.development_window.window)                                                  dial.show_modal_to_window (world.context_editor.develop_window.window)
397                                          end                                          end
398                                  elseif world.context_editor.is_link_client then                                  elseif world.context_editor.is_link_client then
399                                          add_client_relation (a_stone.source, False)                                          add_client_relation (a_stone.source, False)
# Line 402  feature {NONE} -- Implementation (adding Line 402  feature {NONE} -- Implementation (adding
402                                  end                                  end
403                          else                          else
404                                  create l_error_window.make_with_text ("Class is not editable")                                  create l_error_window.make_with_text ("Class is not editable")
405                                  l_error_window.show_modal_to_window (world.context_editor.development_window.window)                                  l_error_window.show_modal_to_window (world.context_editor.develop_window.window)
406                          end                          end
407                  end                  end
408    

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

  ViewVC Help
Powered by ViewVC 1.1.23