arcadia 0.8.1 → 0.9.0

data/ext/ae-editor/ae-editor.rb

@@ -7,9 +7,9 @@
 
 require 'tk'
 require 'tktext'
-require 'lib/a-tkcommons'
+require "#{Dir.pwd}/lib/a-tkcommons"
 #require 'lib/a-commons' 
-require 'lib/a-core'
+require "#{Dir.pwd}/lib/a-core"
 
 class TreeNode
   attr_reader :sons
@@ -230,24 +230,48 @@ class SafeCompleteCode
     process_source
   end
   
+#  def dot_trip(_var_name)
+#    ret = "_class=#{_var_name}.class.name\n"
+#    ret = ret +" _methods=#{_var_name}.methods\n"
+#    ret = ret +"owner_on = Method.instance_methods.include?('owner')\n"
+#    ret = ret + "_methods.each{|m|\n"
+#    ret = ret + "meth = #{_var_name}.method(m)\n"
+#    ret = ret +"if owner_on\n"
+#    ret = ret +"_owner=meth.owner.name\n"
+#    ret = ret +"else\n"
+#    ret = ret +"meth_insp = meth.inspect\n"
+#    ret = ret +"to_sub ='#<Method:\s'+_class\n"
+#    ret = ret +"_owner=meth_insp.sub(to_sub,'').split('#')[0].strip.sub('(','').sub(')','')\n"
+#    ret = ret +"_owner=_class if _owner.strip.length==0\n"
+#    ret = ret +"end\n"
+#    ret = ret + "if _owner != _class\n"
+#    ret = ret + "print _owner+'#'+m+'#'+meth.arity.to_s+'\n'\n"
+#    ret = ret +"else\n"
+#    ret = ret + "print ''+'#'+m+'#'+meth.arity.to_s+'\n'\n"
+#    ret = ret +"end\n"
+#    ret = ret + "}\n"
+#    ret = ret + "exit\n"
+#    ret
+#  end
+
   def dot_trip(_var_name)
     ret = "_class=#{_var_name}.class.name\n"
-    ret = ret +" _methods=#{_var_name}.methods\n"
+    ret = ret +"_methods=#{_var_name}.methods\n"
     ret = ret +"owner_on = Method.instance_methods.include?('owner')\n"
-    ret = ret + "_methods.each{|m|\n"
-    ret = ret + "meth = #{_var_name}.method(m)\n"
+    ret = ret +"_methods.each{|m|\n"
+    ret = ret +"meth = #{_var_name}.method(m)\n"
     ret = ret +"if owner_on\n"
-    ret = ret +"_owner=meth.owner.name\n"
+    ret = ret +"  _owner=meth.owner.name\n"
     ret = ret +"else\n"
-    ret = ret +"meth_insp = meth.inspect\n"
-    ret = ret +"to_sub ='#<Method:\s'+_class\n"
-    ret = ret +"_owner=meth_insp.sub(to_sub,'').split('#')[0].strip.sub('(','').sub(')','')\n"
-    ret = ret +"_owner=_class if _owner.strip.length==0\n"
+    ret = ret +"  meth_insp = meth.inspect\n"
+    ret = ret +"  to_sub ='#<Method:\s'+_class\n"
+    ret = ret +"  _owner=meth_insp.sub(to_sub,'').split('#')[0].strip.sub('(','').sub(')','')\n"
+    ret = ret +"  _owner=_class if _owner.strip.length==0\n"
     ret = ret +"end\n"
-    ret = ret + "if _owner != _class\n"
-    ret = ret + "print _owner+'#'+m+'#'+meth.arity.to_s+'\n'\n"
+    ret = ret +"if _owner != _class\n"
+    ret = ret +'  print %Q{#{_owner}##{m}##{meth.arity.to_s}\n}'+"\n"
     ret = ret +"else\n"
-    ret = ret + "print ''+'#'+m+'#'+meth.arity.to_s+'\n'\n"
+    ret = ret +'  print %Q{##{m}##{meth.arity.to_s}\n}'+"\n"
     ret = ret +"end\n"
     ret = ret + "}\n"
     ret = ret + "exit\n"
@@ -490,12 +514,11 @@ class SafeCompleteCode
   
   def candidates(_show_error = false)
     temp_file = create_modified_temp_file(@file)
-		begin
-		 Arcadia.is_windows??ruby='rubyw':ruby='ruby'
+    begin
+      Arcadia.is_windows??ruby='rubyw':ruby='ruby'
       _cmp_s = "|#{ruby} '#{temp_file}'"
       _ret = nil
-      open(_cmp_s,"r") do
-        |f|
+      open(_cmp_s,"r") do  |f|
         _ret = f.readlines.collect!{| line | 
           #line.chomp
           line.strip
@@ -509,11 +532,11 @@ class SafeCompleteCode
         }
       end
       _ret.sort
-  		rescue Exception => e
+    rescue Exception => e
       #Arcadia.console(self, 'msg'=>e.to_s, 'level'=>'error')
- 	  ensure
- 	    File.delete(temp_file) if File.exist?(temp_file)
- 	  end
+    ensure
+      File.delete(temp_file) if File.exist?(temp_file)
+    end
   end
 
   def create_modified_temp_file(_base_file=nil)
@@ -546,12 +569,12 @@ end
 #end
 
 
-class TkTextListBox < TkScrollText
+class TkTextListBox < TkText
   def initialize(parent=nil, keys={})
     super(parent, keys)
     wrap  'none'
-    tag_configure('selected','background' =>'#bbd9b1','borderwidth'=>1, 'relief'=>'raised')
-    tag_configure('class', 'foreground' => '#3398cb')
+    tag_configure('selected','background' =>Arcadia.conf('hightlight.sel.background'),'borderwidth'=>1, 'relief'=>'raised')
+    tag_configure('class', 'foreground' => Arcadia.conf('hightlight.sel.foreground'))
     @count = 0
     @selected = -1
     self.bind_append('KeyPress'){|e| key_press(e)}
@@ -638,7 +661,7 @@ class AgEditorOutlineToolbar
       indicatoron 0
       offrelief 'raised'
       image TkPhotoImage.new('dat' => SYNCICON20_GIF)
-      place('x' => 0,'y' => 0,'height' => 26)
+      place('x' => 0,'y' => 0,'height' => 26, 'width' => 26)
     }
     Tk::BWidget::DynamicHelp::add(@cb_sync, 
       'text'=>'Link open editors with content in the Navigator')
@@ -756,31 +779,31 @@ class AgEditorOutline
         @bar.sync = sync_val
       end
     }
-    @tree_exp = Tk::BWidget::Tree.new(_frame, Arcadia.style('treepanel')){
+    @tree_exp = BWidgetTreePatched.new(_frame, Arcadia.style('treepanel')){
       showlines false
       deltay 18
       dragenabled true
       selectcommand proc{ _tree_goto.call(self) } 
     }
-    @tree_scroll_wrapper = TkScrollWidget.new(@tree_exp)
+    @tree_exp.extend(TkScrollableWidget)
     self.show
-    @tree_scroll_wrapper.show_v_scroll
-    @tree_scroll_wrapper.show_h_scroll
     pop_up_menu_tree
   end
 
   def destroy
-    @tree_scroll_wrapper.destroy
+    #@tree_scroll_wrapper.destroy
     @tree_exp.destroy
   end
   
   def show
-    @tree_scroll_wrapper.show(0,26)
+    #@tree_scroll_wrapper.show(0,26)
+    @tree_exp.show(0,26)
     Tk.update
   end
 
   def hide
-    @tree_scroll_wrapper.hide
+    @tree_exp.hide
+    #@tree_scroll_wrapper.hide
   end
 
   def build_tree_from_node(_node, _label_match=nil)
@@ -847,8 +870,10 @@ class AgEditorOutline
   def pop_up_menu_tree
     @pop_up_tree = TkMenu.new(
       :parent=>@tree_exp,
+      :tearoff=>0,
       :title => 'Menu tree'
     )
+    @pop_up_tree.extend(TkAutoPostMenu)
     @pop_up_tree.configure(Arcadia.style('menu'))
     #Arcadia.instance.main_menu.update_style(@pop_up_tree)
     @pop_up_tree.insert('end',
@@ -857,7 +882,7 @@ class AgEditorOutline
       :hidemargin => false,
       :command=> proc{build_tree}
     )
-    @tree_exp.bind_append("Button-3",
+    @tree_exp.areabind_append("Button-3",
       proc{|x,y|
         _x = TkWinfo.pointerx(@tree_exp)
         _y = TkWinfo.pointery(@tree_exp)
@@ -936,10 +961,12 @@ class AgEditor
     #@text.tag_configure('debug', 'background' =>'#b9c6d9', 'borderwidth'=>1 ,'relief'=>'raise')
     @buffer = text_value
     pop_up_menu
-    @text.show
-    @text.show_v_scroll
-    @text.show_h_scroll
-    @text_cursor = @text.cget('cursor')
+    @text.extend(TkScrollableWidget).show
+    begin
+      @text_cursor = @text.cget('cursor')
+    rescue RuntimeError => e
+      p "RuntimeError : #{e.message}"
+    end
   end
 
   def create_temp_file
@@ -1080,10 +1107,7 @@ class AgEditor
           })
           
           @raised_listbox = TkTextListBox.new(@raised_listbox_frame, {
-            :takefocus=>true, 
-            :selectbackground=>Arcadia.conf('hightlight.1.background'),
-            :selectforeground=>Arcadia.conf('hightlight.1.foreground')}.update(Arcadia.style('listbox'))
-          )
+            :takefocus=>true}.update(Arcadia.style('listbox')))
           _char_height = @font_metrics[2][1]
           _width = 0
           _docs_entries = Hash.new
@@ -1181,8 +1205,7 @@ class AgEditor
           _buffer = @text.get(_begin_index, 'insert')
           _buffer_ini_length = _buffer.length
           @raised_listbox_frame.place('x'=>_xroot,'y'=>_yroot, 'width'=>_width, 'height'=>_height)
-          @raised_listbox.show(0,0,'inside')
-          @raised_listbox.show_v_scroll
+          @raised_listbox.extend(TkScrollableWidget).show(0,0,'inside') 
           @raised_listbox.focus
           #@raised_listbox.activate(0)
           @raised_listbox.select(1)
@@ -1418,21 +1441,22 @@ class AgEditor
           @text.insert(_row.to_s+'.0',suf)
         end
       when 'U'
-        _r = @text.tag_ranges('sel')
-        _row_begin = _r[0][0].split('.')[0].to_i
-        _row_end = _r[_r.length - 1][1].split('.')[0].to_i
-        n_space = $arcadia['conf']['editor.tab-replace-width-space'].to_i
-        if n_space > 0
-          suf = "\s"*n_space
-        else
-          suf = "\t"
-        end
-        _l_suf = 	suf.length.to_s
-        for _row in _row_begin..._row_end
-          if @text.get(_row.to_s+'.0',_row.to_s+'.'+_l_suf) == suf
-            @text.delete(_row.to_s+'.0',_row.to_s+'.'+_l_suf)
-          end
-        end
+        decrease_indent
+#        _r = @text.tag_ranges('sel')
+#        _row_begin = _r[0][0].split('.')[0].to_i
+#        _row_end = _r[_r.length - 1][1].split('.')[0].to_i
+#        n_space = $arcadia['conf']['editor.tab-replace-width-space'].to_i
+#        if n_space > 0
+#          suf = "\s"*n_space
+#        else
+#          suf = "\t"
+#        end
+#        _l_suf = 	suf.length.to_s
+#        for _row in _row_begin..._row_end
+#          if @text.get(_row.to_s+'.0',_row.to_s+'.'+_l_suf) == suf
+#            @text.delete(_row.to_s+'.0',_row.to_s+'.'+_l_suf)
+#          end
+#        end
       when 'C'
         _r = @text.tag_ranges('sel')
         _row_begin = _r[0][0].split('.')[0].to_i
@@ -1541,7 +1565,7 @@ class AgEditor
 
     @text.bind_append("Shift-KeyPress"){|e|
       case e.keysym
-      when 'Tab'
+      when 'Tab','ISO_Left_Tab'
         _r = @text.tag_ranges('sel')
         if _r && _r[0]
           _row_begin = _r[0][0].split('.')[0].to_i
@@ -1565,6 +1589,24 @@ class AgEditor
     }
   end
 
+  def decrease_indent
+    _r = @text.tag_ranges('sel')
+    _row_begin = _r[0][0].split('.')[0].to_i
+    _row_end = _r[_r.length - 1][1].split('.')[0].to_i
+    n_space = $arcadia['conf']['editor.tab-replace-width-space'].to_i
+    if n_space > 0
+      suf = "\s"*n_space
+      else
+        suf = "\t"
+      end
+      _l_suf = 	suf.length.to_s
+      for _row in _row_begin..._row_end
+        if @text.get(_row.to_s+'.0',_row.to_s+'.'+_l_suf) == suf
+          @text.delete(_row.to_s+'.0',_row.to_s+'.'+_l_suf)
+        end
+      end
+  end
+
   # show the "find in file" dialog
   def find
     _r = @text.tag_ranges('sel')
@@ -1617,21 +1659,15 @@ class AgEditor
 
   def run_buffer
     if !@file
-      _file = create_temp_file
-      begin
-        _event = Arcadia.process_event(RunRubyFileEvent.new(self, 'file'=>_file, 'persistent'=>false))
-      ensure
-        _event.add_finalize_callback(proc{File.delete(_file) if File.exist?(_file)})
-       # File.delete(_file) if File.exist?(_file)
-      end
+      Arcadia.process_event(RunCmdEvent.new(self, {'file'=>'*CURR', 'runner_name'=>'ruby_file', 'persistent'=>false}))
     else
       save if !@read_only
-      Arcadia.process_event(RunRubyFileEvent.new(self, 'file'=>@file, 'persistent'=>true))
+      Arcadia.process_event(RunCmdEvent.new(self, {'file'=>@file}))
     end
   end
   
   def initialize_line_number(_frame)
-    @text_line_num = TkText.new(_frame, Arcadia.style('linepanel')){
+    @text_line_num = TkText.new(_frame, Arcadia.style('textline')){
       wrap  'none'
       #relief 'flat'
       undo false
@@ -1692,6 +1728,7 @@ class AgEditor
       :tearoff=>0,
       :title => 'Menu'
     )
+    _pop_up.extend(TkAutoPostMenu)
     _pop_up.configure(Arcadia.style('menu'))
     #Arcadia.instance.main_menu.update_style(@pop_up)
     _title_item = _pop_up.insert('end',
@@ -1784,15 +1821,21 @@ class AgEditor
     end
   end
 
-  def reset_highlight
-    @is_line_bold.clear
-    @highlight_zone.clear if @highlighting
+  def reset_highlight(_from_row=nil)
+    if _from_row &&  @highlighting
+      invalidated_begin_zone= zone_of_row(_from_row)
+      @is_line_bold.delete_if {|key, value| key >= invalidated_begin_zone }
+      @highlight_zone.delete_if {|key, value| key >= invalidated_begin_zone }
+    elsif @highlighting
+      @is_line_bold.clear
+      @highlight_zone.clear 
+    end
     @last_line_begin=0
     @last_line_end=0
     @last_zone_begin=0
     @last_zone_end=0
   end
-  
+
   def change_highlight(_ext)
     new_highlight_scanner = @controller.highlight_scanner(_ext)
     if new_highlight_scanner != @highlight_scanner
@@ -1864,39 +1907,66 @@ class AgEditor
     if @lang_hash["#{@lang_hash['scanner']}.hightlight."+_name+'.borderwidth']
       h['borderwidth']=@lang_hash["#{@lang_hash['scanner']}.hightlight."+_name+'.borderwidth']
     end
-    @text.tag_configure(_name, h)
+    begin
+      @text.tag_configure(_name, h)
+    rescue RuntimeError => e
+      p "RuntimeError : #{e.message}"
+    end
   end
 
 
   def do_tag_configure_global(_name)
     h = Hash.new
-    if $arcadia['conf']['editor.hightlight.'+_name+'.foreground']
-      h['foreground']=$arcadia['conf']['editor.hightlight.'+_name+'.foreground']
+
+    if Arcadia.conf('editor.hightlight.'+_name+'.foreground')
+      h['foreground']=Arcadia.conf('editor.hightlight.'+_name+'.foreground')
+    elsif Arcadia.conf('hightlight.'+_name+'.foreground')
+      h['foreground']=Arcadia.conf('hightlight.'+_name+'.foreground')
     end
-    if $arcadia['conf']['editor.hightlight.'+_name+'.background']
-      h['background']=$arcadia['conf']['editor.hightlight.'+_name+'.background']
+    
+    if Arcadia.conf('editor.hightlight.'+_name+'.background')
+      h['background']=Arcadia.conf('editor.hightlight.'+_name+'.background')
+    elsif Arcadia.conf('hightlight.'+_name+'.background')
+      h['background']=Arcadia.conf('hightlight.'+_name+'.background')
     end
-    if $arcadia['conf']['editor.hightlight.'+_name+'.style']== 'bold'
+
+    if Arcadia.conf('editor.hightlight.'+_name+'.style')== 'bold'
+      h['font']=@font_bold
+      @is_tag_bold[_name]= true
+    elsif Arcadia.conf('hightlight.'+_name+'.style')== 'bold'
       h['font']=@font_bold
       @is_tag_bold[_name]= true
     else
       @is_tag_bold[_name]= false
     end
-    if $arcadia['conf']['editor.hightlight.'+_name+'.relief']
-      h['relief']=$arcadia['conf']['editor.hightlight.'+_name+'.relief']
+
+    if Arcadia.conf('editor.hightlight.'+_name+'.relief')
+      h['relief']=Arcadia.conf('editor.hightlight.'+_name+'.relief')
+    elsif Arcadia.conf('hightlight.'+_name+'.relief')
+      h['relief']=Arcadia.conf('hightlight.'+_name+'.relief')
+    end
+    
+    if Arcadia.conf('editor.hightlight.'+_name+'.borderwidth')
+      h['borderwidth']=Arcadia.conf('editor.hightlight.'+_name+'.borderwidth')
+    elsif Arcadia.conf('hightlight.'+_name+'.borderwidth')
+      h['borderwidth']=Arcadia.conf('hightlight.'+_name+'.borderwidth')
     end
-    if $arcadia['conf']['editor.hightlight.'+_name+'.borderwidth']
-      h['borderwidth']=$arcadia['conf']['editor.hightlight.'+_name+'.borderwidth']
+    
+    begin
+      @text.tag_configure(_name, h)
+    rescue RuntimeError => e
+      p "RuntimeError : #{e.message}"
     end
-    @text.tag_configure(_name, h)
   end
 
+
   def pop_up_menu
     @pop_up = TkMenu.new(
       :parent=>@text,
-      :tearoff=>1,
+      :tearoff=>0,
       :title => 'Menu'
     )
+    @pop_up.extend(TkAutoPostMenu)
     @pop_up.configure(Arcadia.style('menu'))
     
     @pop_up.insert('end',
@@ -1997,7 +2067,8 @@ class AgEditor
       :label=>'Color',
       :hidemargin => false,
       :command=> proc{
-        @text.insert('insert',Tk.chooseColor)
+        #@text.insert('insert',Tk.chooseColor)
+        @text.insert('insert',Tk::BWidget::SelectColor::Dialog.new.create)
       }
     )
 
@@ -2103,6 +2174,7 @@ class AgEditor
       :tearoff=>0,
       :title => 'Debug'
     )
+    _sub_debug.extend(TkAutoPostMenu)
     _sub_debug.configure(Arcadia.style('menu'))
     _sub_debug.insert('end',
       :command,
@@ -2134,6 +2206,7 @@ class AgEditor
       :tearoff=>0,
       :title => 'Code'
     )
+    _sub_code.extend(TkAutoPostMenu)
     _sub_code.configure(Arcadia.style('menu'))
     _sub_code.insert('end',
       :command,
@@ -2487,9 +2560,13 @@ class AgEditor
       @controller.change_tab_set_modify(@page_frame)
     end
   end
+  
+  def tab_title
+    @controller.tab_title(@page_frame)
+  end
 
-  def reset_modify
-    @controller.change_tab_reset_modify(@page_frame)
+  def reset_modify(_reset_tab=true)
+    @controller.change_tab_reset_modify(@page_frame) if _reset_tab
     @set_mod = false
     @file_last_access_time = File.mtime(@file) if @file
   end
@@ -2572,6 +2649,7 @@ class AgEditor
           else
             _tags << 'normal_case'
           end
+          
           if wrap_on
             w_rx_b, w_ry_b, w_width_b, w_heigth_b = @text.bbox("#{(j).to_s}.0");
             w_rx_e, w_ry_e, w_width_e, w_heigth_e = @text.bbox("#{(j).to_s}.0 lineend");
@@ -2584,6 +2662,7 @@ class AgEditor
               end
             end
           end
+
           @text_line_num.insert(_index, "#{nline}\n",_tags)
           if b.include?(j.to_s)
             add_tag_breakpoint(j)
@@ -2594,12 +2673,15 @@ class AgEditor
         end
       end
       refresh_outline if Tk.focus==@text
-      resize_line_num(line_end)
+      resize_line_num
   end
 
-  def resize_line_num(_line_end=nil)
+  def resize_line_num
     if TkWinfo.mapped?(@text_line_num)
-      _line_end=@text.index('@0,'+TkWinfo.height(@text).to_s).split('.')[0].to_i + 1 if _line_end.nil?
+      if @last_line_end_chars.nil?
+        @last_line_end_chars = 0
+      end
+      _line_end=row('end')
       line_end_chars  = _line_end.to_s.length  
       if @last_line_end_chars != line_end_chars
         if @line_num_rx_e.nil?
@@ -2733,12 +2815,12 @@ class AgEditor
       f = File.new(@file, "wb")
       begin
         if f
-	  to_write = text_value
-	  if @dos_line_endings
-	    # we stripped these out, previously...
-	    # for now assume they want them all this way, no mixing and matching...
-	    to_write = to_write.gsub("\n", "\r\n")
-	  end
+	        to_write = text_value
+	        if @dos_line_endings
+        	    # we stripped these out, previously...
+        	    # for now assume they want them all this way, no mixing and matching...
+        	    to_write = to_write.gsub("\n", "\r\n")
+        	 end
           f.syswrite(to_write)
           @buffer = text_value
           reset_modify
@@ -2881,13 +2963,6 @@ class AgEditor
     @outline = nil
   end
   
-  def file_extension(_filename=nil)
-    if _filename
-      _m = /(.*\.)(.*$)/.match(File.basename(_filename))
-    end
-    _ret = (_m && _m.length > 1)?_m[2]: nil
-  end
-
   def load_file(_filename = nil)
     #if filename is nil then open a new tab
     @loading=true
@@ -2905,7 +2980,7 @@ class AgEditor
 	      }
       end
       set_read_only(!File.stat(_filename).writable?)
-      reset
+      reset(false)
       refresh
     ensure
       @loading=false
@@ -2925,9 +3000,9 @@ class AgEditor
     end
   end
   
-  def reset
+  def reset(_reset_tab=true)
     @buffer = text_value
-    reset_modify
+    reset_modify(_reset_tab)
     @text.edit_reset
   end
   
@@ -3129,25 +3204,112 @@ class AgMultiEditor < ArcadiaExt
     @tabs_editor =Hash.new
     Arcadia.attach_listener(self, BufferEvent)
     Arcadia.attach_listener(self, DebugEvent)
-    Arcadia.attach_listener(self, RunRubyFileEvent)
-   # Arcadia.attach_listener(self, StartDebugEvent)
+  #  Arcadia.attach_listener(self, RunRubyFileEvent)
+    Arcadia.attach_listener(self, RunCmdEvent)
+  # Arcadia.attach_listener(self, StartDebugEvent)
     Arcadia.attach_listener(self, FocusEvent)
   end
   
   
-  def on_before_run_ruby_file(_event)
+#  def on_before_run_ruby_file(_event)
+#    _filename = _event.file
+#    if _filename.nil?
+#      current_editor = self.raised
+#       if current_editor
+#         if current_editor.file
+#           _event.file = current_editor.file
+#           _event.persistent = true
+#         else
+#           _event.file = current_editor.create_temp_file
+#         end
+#       end
+#    end
+#  end
+  
+  def on_before_run_cmd(_event)
     _filename = _event.file
-    if _filename.nil?
+    _event.persistent = true
+    if _filename.nil? || _filename == "*CURR"
       current_editor = self.raised
-       if current_editor
-         if current_editor.file
-           _event.file = current_editor.file
-           _event.persistent = true
-         else
-           _event.file = current_editor.create_temp_file
-         end
-       end
+      if current_editor
+        if current_editor.file
+          _event.file = current_editor.file
+        else
+          _event.persistent = false
+          _event.file = current_editor.create_temp_file
+          _event.title = current_editor.tab_title
+        end
+      end
+      # here insert persistent entry of runner instance
+      bn = File.basename(_event.file) 
+      if _event.persistent && _event.runner_name && Arcadia.persistent("runners.#{bn}").nil?
+        entry_hash = Hash.new
+        entry_hash[:runner]= _event.runner_name
+        entry_hash[:file]= _event.file
+        entry_hash[:dir]= _event.dir if _event.dir
+        entry_hash[:title]= "#{bn}"
+        
+        Arcadia.persistent("runners.#{bn}", entry_hash.to_s)
+        # here add new menu' item
+        mr = Arcadia.menu_root('runcurr')
+        if mr
+          _command = proc{
+              _event = Arcadia.process_event(
+              RunCmdEvent.new(self, entry_hash)
+            )
+          }
+          exts = ''
+          run = Application.runner(entry_hash[:runner])
+          if run
+            file_exts = run[:file_exts]
+          end
+          
+          mr.insert('0', 
+            :command ,{
+              :image => Arcadia.file_icon(file_exts),
+              :label => entry_hash[:title],
+              :compound => 'left',
+              :command => _command
+            }
+          )
+        end
+      end
     end
+   
+    if _event.file  == "*LAST"
+      _event.file = Arcadia.persistent('run.file.last')
+      _event.cmd = Arcadia.persistent('run.cmd.last')
+    else
+      if _event.dir.nil?
+        _event.dir = File.dirname(_event.file)
+      end
+      
+      if _event.cmd.nil?
+        if _event.runner_name
+          runner = Arcadia.runner(_event.runner_name)
+        else
+          runner = Arcadia.runner_for_file(_event.file)
+        end
+        if runner
+          _event.cmd = runner[:cmd]
+        else
+          _event.cmd = _event.file
+        end        
+      end
+      if _event.file && _event.cmd.include?('<<FILE>>')
+        _event.cmd = _event.cmd.gsub('<<FILE>>',_event.file)
+      end
+      if _event.dir && _event.cmd.include?('<<DIR>>')
+        _event.cmd = _event.cmd.gsub('<<DIR>>',_event.dir)
+      end
+      if _event.file && _event.cmd.include?('<<FILE_BASENAME_WITHOUT_EXT>>')
+        _event.cmd = _event.cmd.gsub('<<FILE_BASENAME_WITHOUT_EXT>>',File.basename(_event.file).split('.')[0])
+      end
+      if _event.file && _event.cmd.include?('<<FILE_BASENAME>>')
+        _event.cmd = _event.cmd.gsub('<<FILE_BASENAME>>',File.basename(_event.file))
+      end
+    end 
+    _event.title = _event.file if _event.title.nil?
   end
   
 #  def on_before_start_debug(_event)
@@ -3189,6 +3351,7 @@ class AgMultiEditor < ArcadiaExt
           line_begin_index = raised.text.index('@0,0')
           line_begin = line_begin_index.split('.')[0].to_i
           line_end = raised.text.index('@0,'+TkWinfo.height(raised.text).to_s).split('.')[0].to_i + 1
+          raised.reset_highlight(line_begin)
           raised.rehighlightlines(line_begin,line_end,true)
         else
           raised.check_modify
@@ -3257,6 +3420,7 @@ class AgMultiEditor < ArcadiaExt
       :tearoff=>0,
       :title => 'Menu'
     )
+    @pop_up.extend(TkAutoPostMenu)
     @pop_up.configure(Arcadia.style('menu'))
     #Arcadia.instance.main_menu.update_style(@pop_up)
 
@@ -3688,15 +3852,21 @@ class AgMultiEditor < ArcadiaExt
     change_tab_title(_tab, _new_name)
   end
 
+  def tab_title(_tab)
+    @main_frame.enb.itemcget(page_name(_tab), 'text')
+  end
+
   def page_name(_page_frame)
     TkWinfo.appname(_page_frame).sub('f','')
   end
 
   def change_tab_reset_modify(_tab)
     #_new_name = @main_frame.enb.itemcget(@tabs_name[_tab], 'text').gsub!("(...)",'')
-    _new_name = @main_frame.enb.itemcget(page_name(_tab), 'text').gsub!("(...)",'')
-    if _new_name
-      change_tab_title(_tab, _new_name)
+    if @main_frame.enb.index(page_name(_tab))
+	    _new_name = @main_frame.enb.itemcget(page_name(_tab), 'text').gsub!("(...)",'')
+     	if _new_name
+        change_tab_title(_tab, _new_name)
+     	end
     end
   end
 
@@ -3747,7 +3917,7 @@ class AgMultiEditor < ArcadiaExt
   
   def open_file_in_debug(_filename=nil, _line=nil)
     #debug_reset
-    if _filename && _line
+    if _filename && _line && File.exists?(_filename)
       @last_index = _line.to_s+'.0'
       _editor_exist = editor_exist?(_filename)
       @last_e = open_file(_filename, @last_index, false, false)
@@ -3759,6 +3929,8 @@ class AgMultiEditor < ArcadiaExt
         #p "add editor for close #{_filename}"
         @last_e.do_line_update
       end
+    else
+      p "file #{_filename} do not exist !"
     end
   end
   
@@ -3823,9 +3995,11 @@ class AgMultiEditor < ArcadiaExt
   def raise_file(_filename=nil, _pos=nil)
     if _filename && frame_def_visible?
       tab_name=self.tab_file_name(_filename)
-      @main_frame.enb.move(tab_name,_pos) if _pos
-      @main_frame.enb.raise(tab_name)
-      @main_frame.enb.see(tab_name)
+      if  @main_frame.enb.index(tab_name) != -1
+	@main_frame.enb.move(tab_name,_pos) if _pos
+	@main_frame.enb.raise(tab_name)
+	@main_frame.enb.see(tab_name)
+      end
     end    
   end
   
@@ -3846,7 +4020,12 @@ class AgMultiEditor < ArcadiaExt
         open_buffer(_tab_name, _basefilename,0)
       end
       @tabs_editor[_tab_name].reset_highlight
-      @tabs_editor[_tab_name].load_file(_filename)
+      begin
+        @tabs_editor[_tab_name].load_file(_filename)
+      rescue RuntimeError => e
+        p "RuntimeError : #{e.message}"
+        close_editor(@tabs_editor[_tab_name])
+      end
     end
     
     if _text_index != nil && _text_index != '1.0'
@@ -3886,7 +4065,7 @@ class AgMultiEditor < ArcadiaExt
         'raisecmd'=>proc{do_buffer_raise(_buffer_name, _title)}
       )
       _e = AgEditor.new(self, _tab)
-      ext = _e.file_extension(_title)
+      ext = Arcadia.file_extension(_title)
       ext='rb' if ext.nil?
       _e.init_editing(ext, w1)
       _e.text.set_focus