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

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

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

revision 62170 by manus, Sun Jul 30 06:11:30 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 29  feature -- Basic operations Line 29  feature -- Basic operations
29                          -- Display information about `Current'.                          -- Display information about `Current'.
30                  do                  do
31                          create explain_dialog.make_with_text (Interface_names.e_Diagram_class_header)                          create explain_dialog.make_with_text (Interface_names.e_Diagram_class_header)
32                          explain_dialog.show_modal_to_window (tool.development_window.window)                          explain_dialog.show_modal_to_window (tool.develop_window.window)
33                  end                  end
34    
35  feature -- Access  feature -- Access
# Line 105  feature {NONE} -- Implementation Line 105  feature {NONE} -- Implementation
105                                                          change_name_dialog.set_generics ("")                                                          change_name_dialog.set_generics ("")
106                                                          old_generics := ""                                                          old_generics := ""
107                                                  end                                                  end
108                                                  change_name_dialog.show_modal_to_window (tool.development_window.window)                                                  change_name_dialog.show_modal_to_window (tool.develop_window.window)
109                                                  if change_name_dialog.ok_pressed then                                                  if change_name_dialog.ok_pressed then
110                                                          create cnr                                                          create cnr
111                                                          s := change_name_dialog.name                                                          s := change_name_dialog.name
# Line 116  feature {NONE} -- Implementation Line 116  feature {NONE} -- Implementation
116                                                          end                                                          end
117                                                          if not cnr.valid_new_class_name (s) then                                                          if not cnr.valid_new_class_name (s) then
118                                                                  create invalid_name_dialog.make_with_text (Warning_messages.w_Wrong_class_name)                                                                  create invalid_name_dialog.make_with_text (Warning_messages.w_Wrong_class_name)
119                                                                  invalid_name_dialog.show_modal_to_window (tool.development_window.window)                                                                  invalid_name_dialog.show_modal_to_window (tool.develop_window.window)
120                                                          else                                                          else
121                                                                  if cnr.class_name_in_use (s) then                                                                  if cnr.class_name_in_use (s) then
122                                                                          create confirmation.make_with_text (Warning_messages.w_Class_already_exists_info (s))                                                                          create confirmation.make_with_text (Warning_messages.w_Class_already_exists_info (s))
123                                                                          confirmation.button (ev_ok).set_text (ev_yes)                                                                          confirmation.button (ev_ok).set_text (ev_yes)
124                                                                          confirmation.button (ev_cancel).set_text (ev_no)                                                                          confirmation.button (ev_cancel).set_text (ev_no)
125                                                                          confirmation.show_modal_to_window (tool.development_window.window)                                                                          confirmation.show_modal_to_window (tool.develop_window.window)
126                                                                  end                                                                  end
127                                                                  if confirmation = Void or else confirmation.selected_button.is_equal (ev_ok) then                                                                  if confirmation = Void or else confirmation.selected_button.is_equal (ev_ok) then
128                                                                          g := change_name_dialog.generics                                                                          g := change_name_dialog.generics
# Line 134  feature {NONE} -- Implementation Line 134  feature {NONE} -- Implementation
134                                                                          if stone_as = Void then                                                                          if stone_as = Void then
135                                                                                  create invalid_name_dialog.make_with_text (                                                                                  create invalid_name_dialog.make_with_text (
136                                                                                          Warning_messages.w_Class_header_syntax_error (src.class_i.name))                                                                                          Warning_messages.w_Class_header_syntax_error (src.class_i.name))
137                                                                                  invalid_name_dialog.show_modal_to_window (tool.development_window.window)                                                                                  invalid_name_dialog.show_modal_to_window (tool.develop_window.window)
138                                                                          else                                                                          else
139                                                                                  try_change_name (stone_text, s, g)                                                                                  try_change_name (stone_text, s, g)
140                                                                                  parse_string (stone_text)                                                                                  parse_string (stone_text)
141                                                                                  if stone_as = Void then                                                                                  if stone_as = Void then
142                                                                                          create invalid_name_dialog.make_with_text (Warning_messages.w_Wrong_class_name)                                                                                          create invalid_name_dialog.make_with_text (Warning_messages.w_Wrong_class_name)
143                                                                                          invalid_name_dialog.show_modal_to_window (tool.development_window.window)                                                                                          invalid_name_dialog.show_modal_to_window (tool.develop_window.window)
144                                                                                  else                                                                                  else
145                                                                                          if not change_name_dialog.global_replace then                                                                                          if not change_name_dialog.global_replace then
146                                                                                                  history.do_named_undoable (                                                                                                  history.do_named_undoable (
# Line 181  feature {NONE} -- Implementation Line 181  feature {NONE} -- Implementation
181                                          end                                          end
182                                  else                                  else
183                                          create invalid_name_dialog.make_with_text ("Class is not editable")                                          create invalid_name_dialog.make_with_text ("Class is not editable")
184                                          invalid_name_dialog.show_modal_to_window (tool.development_window.window)                                          invalid_name_dialog.show_modal_to_window (tool.develop_window.window)
185                                  end                                  end
186                          else                          else
187                                  create invalid_name_dialog.make_with_text ("Class must be on the diagram")                                  create invalid_name_dialog.make_with_text ("Class must be on the diagram")
188                                  invalid_name_dialog.show_modal_to_window (tool.development_window.window)                                  invalid_name_dialog.show_modal_to_window (tool.develop_window.window)
189                          end                          end
190                          tool.projector.project                          tool.projector.project
191                  end                  end
# Line 225  feature {NONE} -- Implementation Line 225  feature {NONE} -- Implementation
225                  local                  local
226                          l_status_bar: EB_DEVELOPMENT_WINDOW_STATUS_BAR                          l_status_bar: EB_DEVELOPMENT_WINDOW_STATUS_BAR
227                  do                  do
228                          l_status_bar := tool.development_window.status_bar                          l_status_bar := tool.develop_window.status_bar
229                          tool.development_window.window.set_pointer_style (tool.Default_pixmaps.Wait_cursor)                          tool.develop_window.window.set_pointer_style (tool.Default_pixmaps.Wait_cursor)
230                          change_name_locally (a_class, new_name, new_generics)                          change_name_locally (a_class, new_name, new_generics)
231                          l_status_bar.display_message ("Updating references in compiled classes")                          l_status_bar.display_message ("Updating references in compiled classes")
232                          cnr.global_class_name_replace (old_name, new_name, True, l_status_bar)                          cnr.global_class_name_replace (old_name, new_name, True, l_status_bar)
233                          tool.development_window.window.set_pointer_style (tool.Default_pixmaps.Standard_cursor)                          tool.develop_window.window.set_pointer_style (tool.Default_pixmaps.Standard_cursor)
234                  end                  end
235    
236          change_name_universe_classes (a_class: ES_CLASS; cnr: CLASS_NAME_REPLACER; old_name, new_name, new_generics: STRING) is          change_name_universe_classes (a_class: ES_CLASS; cnr: CLASS_NAME_REPLACER; old_name, new_name, new_generics: STRING) is
# Line 242  feature {NONE} -- Implementation Line 242  feature {NONE} -- Implementation
242                  local                  local
243                          l_status_bar: EB_DEVELOPMENT_WINDOW_STATUS_BAR                          l_status_bar: EB_DEVELOPMENT_WINDOW_STATUS_BAR
244                  do                  do
245                          l_status_bar := tool.development_window.status_bar                          l_status_bar := tool.develop_window.status_bar
246                          tool.development_window.window.set_pointer_style (tool.Default_pixmaps.Wait_cursor)                          tool.develop_window.window.set_pointer_style (tool.Default_pixmaps.Wait_cursor)
247                          change_name_locally (a_class, new_name, new_generics)                          change_name_locally (a_class, new_name, new_generics)
248                          l_status_bar.display_message ("Updating references in cluster universe")                          l_status_bar.display_message ("Updating references in cluster universe")
249                          cnr.global_class_name_replace (old_name, new_name, False, tool.development_window.status_bar)                          cnr.global_class_name_replace (old_name, new_name, False, tool.develop_window.status_bar)
250                          tool.development_window.window.set_pointer_style (tool.Default_pixmaps.Standard_cursor)                          tool.develop_window.window.set_pointer_style (tool.Default_pixmaps.Standard_cursor)
251                  end                  end
252    
253          parse_string (str: STRING) is          parse_string (str: STRING) is

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

  ViewVC Help
Powered by ViewVC 1.1.23