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

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

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

revision 62170 by manus, Sun Jul 30 06:10:10 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 405  feature{NONE} -- Command substitution Line 405  feature{NONE} -- Command substitution
405                          sub_str_attached: sub_str /= Void                          sub_str_attached: sub_str /= Void
406                  local                  local
407                          dev: EB_DEVELOPMENT_WINDOW                          dev: EB_DEVELOPMENT_WINDOW
                         l_editor_tool: EB_EDITOR_TOOL  
408                          l_text_area: EB_SMART_EDITOR                          l_text_area: EB_SMART_EDITOR
409                  do                  do
410                          dev := Window_manager.last_focused_development_window                          dev := Window_manager.last_focused_development_window
411                          if dev /= Void then                          if dev /= Void then
412                                  l_editor_tool := dev.editor_tool                                  l_text_area := dev.editors_manager.current_editor
413                                  if l_editor_tool /= Void then                                  if l_text_area /= Void and then not l_text_area.is_empty then
414                                          l_text_area := l_editor_tool.text_area                                          cmd.replace_substring_all (sub_string_list.i_th (sub_line), l_text_area.cursor_y_position.out)
                                         if l_text_area /= Void and then not l_text_area.is_empty then  
                                                 cmd.replace_substring_all (sub_string_list.i_th (sub_line), l_text_area.cursor_y_position.out)  
                                         end  
415                                  end                                  end
416                          else                          else
417                                  set_is_command_ok (False)                                  set_is_command_ok (False)
# Line 533  feature -- Properties Line 529  feature -- Properties
529                          Result.append ((create {EB_EXTERNAL_COMMANDS_EDITOR}.make).accelerators.item (index).out)                          Result.append ((create {EB_EXTERNAL_COMMANDS_EDITOR}.make).accelerators.item (index).out)
530                  end                  end
531    
532            pixmap: EV_PIXMAP
533                            -- Pixmap
534    
535          name: STRING          name: STRING
536                          -- Name that the user gave to this command.                          -- Name that the user gave to this command.
537    

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

  ViewVC Help
Powered by ViewVC 1.1.23