/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_center_diagram_command.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_center_diagram_command.e

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

revision 62170 by manus, Sun Jul 30 06:14:56 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 40  feature -- Basic operations Line 40  feature -- Basic operations
40                                  end                                  end
41                          else                          else
42                                  create explain_dialog.make_with_text (Interface_names.e_Diagram_hole)                                  create explain_dialog.make_with_text (Interface_names.e_Diagram_hole)
43                                  explain_dialog.show_modal_to_window (tool.development_window.window)                                  explain_dialog.show_modal_to_window (tool.develop_window.window)
44                                  warned := True                                  warned := True
45                          end                          end
46                          if clu /= Void then                          if clu /= Void and then not warned then
                                 create clu_s.make (clu)  
                                 if clu_s.is_valid then  
                                         tool.tool.set_stone (clu_s)  
                                 end  
                         elseif not warned then  
47                                  create explain_dialog.make_with_text (Warning_messages.W_does_not_have_enclosing_cluster)                                  create explain_dialog.make_with_text (Warning_messages.W_does_not_have_enclosing_cluster)
48                                  explain_dialog.show_modal_to_window (tool.development_window.window)                                  explain_dialog.show_modal_to_window (tool.develop_window.window)
49                          end                          end
50                  end                  end
51    
# Line 58  feature -- Basic operations Line 53  feature -- Basic operations
53                          -- Create a development window and process `a_stone'.                          -- Create a development window and process `a_stone'.
54                  do                  do
55                          if a_stone.is_valid then                          if a_stone.is_valid then
56                                  was_dropped := True                          was_dropped := True
57                                  tool.set_is_rebuild_world_needed (True)                          tool.set_is_rebuild_world_needed (True)
58                                  tool.tool.launch_stone (a_stone)                          tool.launch_stone (a_stone)
59                          end                          end
60                  end                  end
61    
# Line 68  feature -- Basic operations Line 63  feature -- Basic operations
63                          -- Create a development window and process `a_stone'.                          -- Create a development window and process `a_stone'.
64                  do                  do
65                          if a_stone.is_valid then                          if a_stone.is_valid then
66                                  was_dropped := True                          was_dropped := True
67                                  tool.set_is_rebuild_world_needed (True)                          tool.set_is_rebuild_world_needed (True)
68                                  tool.tool.launch_stone (a_stone)                          tool.launch_stone (a_stone)
69                          end                          end
70                  end                  end
71    
# Line 95  feature {NONE} -- Implementation Line 90  feature {NONE} -- Implementation
90                          tbi: EB_COMMAND_TOOL_BAR_BUTTON                          tbi: EB_COMMAND_TOOL_BAR_BUTTON
91                  do                  do
92                          if not was_dropped then                          if not was_dropped then
93                                  Result := tool.tool.stone                                  Result := tool.develop_window.tools.stone
94                                  tbi := managed_toolbar_items.first                                  tbi := managed_toolbar_items.first
95                                  class_stone ?= Result                                  class_stone ?= Result
96                                  cluster_stone ?= Result                                  cluster_stone ?= Result
# Line 132  feature {NONE} -- Implementation Line 127  feature {NONE} -- Implementation
127                          Result := pixmaps.icon_pixmaps.diagram_target_cluster_or_class_icon                          Result := pixmaps.icon_pixmaps.diagram_target_cluster_or_class_icon
128                  end                  end
129    
130            pixel_buffer: EV_PIXEL_BUFFER is
131                            -- Pixel buffer representing the command.
132                    do
133                            -- Currently there is no pixel buffer for this command.
134                    end
135    
136          tooltip: STRING is          tooltip: STRING is
137                          -- Tooltip for the toolbar button.                          -- Tooltip for the toolbar button.
138                  do                  do

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

  ViewVC Help
Powered by ViewVC 1.1.23