arcadia 0.1.0

data/ext/ae-editor/ae-editor.conf

@@ -0,0 +1,92 @@
+name=editor
+label=Editor
+frame=0.1
+active=yes
+require=ext/ae-editor/ae-editor
+class=AgMultiEditor
+
+tab-chars=0.5c
+tab-replace-width-space=2
+find.frame=0.0
+#tabs
+tabs.font=courier 9
+i386-freebsd6:tabs.font=courier 12
+i386-mswin32:tabs.font={Courier New} 9
+#tabs.side=bottom
+tabs.side=top
+# editor
+font=courier 9
+font.bold=courier 9 bold
+i386-freebsd6:font=courier 12
+i386-freebsd6:font.bold=courier 12 bold
+i386-mswin32:font={Courier New} 9
+i386-mswin32:font.bold={Courier New} 9 bold 
+#+--------------------------------------------------
+#color.background=#000040
+#color.foreground=white
+#color.insertbackground=#ff8000
+#hightlight.keyword.color.foreground=#800000
+#hightlight.variable.color.foreground=#f9c6f8
+#hightlight.comment.color.foreground=#4aff4a
+#hightlight.string.color.foreground=#8080ff
+#hightlight.number.color.foreground=red
+#hightlight.capitalize.color.foreground=#ffff00
+#hightlight.select.color.foreground=yellow
+#hightlight.select.color.background=blue
+#hightlight.goto.color.foreground=blue
+#hightlight.goto.color.background=yellow
+#+--------------------------------------------------
+#+--------------------------------------------------
+color.background=#FFFFFF
+color.foreground=#7F7F7F
+color.insertbackground=#ff8000
+hightlight.keyword.color.foreground=#00007F
+hightlight.keyword.style=bold
+hightlight.method_name.color.foreground=#007F7F
+hightlight.method_name.style=bold
+hightlight.class_name.color.foreground=#0000FF
+hightlight.class_name.style=bold
+hightlight.module_name.color.foreground=#0000FF
+hightlight.module_name.style=bold
+hightlight.instance_variable.color.foreground=#7F7F7F
+hightlight.instance_variable.style=bold
+hightlight.comment.color.foreground=#007F00
+hightlight.string.color.foreground=#7F007F
+hightlight.number.color.foreground=#007F7F
+#hightlight.capitalize.color.foreground=#0000FF
+hightlight.operator.color.foreground=#000000
+hightlight.operator.style=bold
+#hightlight.sel.color.foreground=yellow
+hightlight.sel.color.background=#cccccc
+hightlight.sel.borderwidth=1
+hightlight.sel.relief=raised
+#hightlight.goto.color.foreground=blue
+hightlight.selected.color.background=yellow
+#+--------------------------------------------------
+
+
+# line number 
+#line_number_panel.color.background=#6e6e6e
+#line_number_panel.color.foreground=white
+
+line_number_panel.color.background=#e1e1e1
+line_number_panel.color.foreground=#333333
+
+
+# tree explorer 
+explorer_panel.tree.color.background=#ffffff
+explorer_panel.tree.color.foreground=white
+explorer_panel.tree.font=courier 9
+i386-freebsd6:explorer_panel.tree.font=courier 12
+i386-mswin32:explorer_panel.tree.font={Courier New} 9
+explorer_panel.tree.class.color.foreground=#a42019
+explorer_panel.tree.class.font=times 10 bold
+i386-mswin32:explorer_panel.tree.class.font=times 10 bold
+explorer_panel.tree.def.color.foreground=blue
+explorer_panel.tree.def.font=times 10
+i386-mswin32:explorer_panel.tree.def.font=times 10
+explorer_panel.tree.module.color.foreground=#1b691e
+explorer_panel.tree.module.font=times 8 bold
+i386-mswin32:explorer_panel.tree.module.font={Courier New} 9 bold
+
+#:::::::::::::::: Editor group    ::::::::::::::::::::::<end>

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

@@ -0,0 +1,1744 @@
+#
+#   ae-editor.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'tk'
+require 'tktext'
+require 'base/a-utils'
+
+
+class TreeNode
+  attr_reader :sons
+  attr_reader :parent
+  attr_reader :kind
+  attr_reader :rif, :label, :helptext
+  attr_writer :rif, :label, :helptext
+  def initialize(parent=nil, kind='KClass')
+    @sons = Array.new
+    @parent = parent
+    @kind = kind
+    if @parent !=nil
+      @parent.sons << self
+    end
+    yield(self) if block_given?
+  end
+
+  def <=> (other)
+    self.label.strip <=> other.label.strip
+  end
+end
+
+class AgEditor
+  attr_reader :file 
+  attr_reader :page_frame
+  attr_reader :text, :root
+  def initialize(_controller, _page_frame)
+    @controller = _controller
+    @page_frame = _page_frame
+    @set_mod = false
+#    @fm = AGTkVSplittedFrames.new(@page_frame,150)
+#    @fm1 = AGTkVSplittedFrames.new(@fm.right_frame,60)
+    @font = @controller.conf('font')
+    @font_bold = @controller.conf('font.bold')
+    @font_metrics = TkFont.new(@font).metrics
+    @font_metrics_bold = TkFont.new(@font_bold).metrics
+#    initialize_text
+#    initialize_text_binding
+#    initialize_highlight
+#    initialize_line_number
+#    initialize_tree
+    @highlighting = false
+    @classbrowsing = false
+    @find = @controller.get_find
+  end
+
+  def initialize_tree(_frame)
+    @classbrowsing = true 
+    @nb = Tk::BWidget::NoteBook.new(_frame){
+      tabbevelsize 0
+      internalborderwidth 0
+      activeforeground 'red'
+      activebackground 'yellow'
+      borderwidth 1
+      side $arcadia['conf']['editor.tabs.side']
+      font $arcadia['conf']['editor.tabs.font']
+      pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
+    }
+    @nb_tab_exp = @nb.insert('end','exp' ,'text'=>'Class Tree' )
+    @nb.raise('exp')
+    _tree_goto = proc{|_self|
+      _line = _self.selection_get[0]
+      _index =_line.to_s+'.0'
+      _hinner_text = @tree_exp.itemcget(_line,'text').strip
+      _editor_line = @text.get(_index, _index+ '  lineend')
+      if !_editor_line.include?(_hinner_text)
+        MsgContract.instance.out_simple(self, "... rebuild tree \n")
+        if @tree_thread && @tree_thread.alive?
+          @tree_thread.exit
+        end
+        @tree_thread = Thread.new{
+          build_tree(_line)
+          Tk.update
+        }
+        _line = _self.selection_get[0]
+        _index =_line.to_s+'.0'
+      end
+      @text.see(_index)
+      @text.tag_remove('selected','1.0','end')
+      @text.tag_add('selected',_line.to_s+'.0',(_line+1).to_s+'.0')
+    }
+    @tree_exp = Tk::BWidget::Tree.new(@nb_tab_exp){
+      background '#FFFFFF'
+      relief 'flat'
+      showlines false
+      deltay 18
+      dragenabled true
+      selectcommand proc{ _tree_goto.call(self) } 
+      place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1','rely' => 0,'height' => 1,'bordermode' => 'inside','width' => '50')
+    }
+    @nodes = Array.new
+    _c_explo = proc{|*args| @tree_exp.yview(*args)}
+    _s_explo = TkScrollbar.new(@nb_tab_exp){|s|
+      width 8
+      command _c_explo
+    }.pack('side'=>'right', 'fill'=>'y')
+    @tree_exp.yscrollcommand proc{|first,last| _s_explo.set first,last}
+  
+  end
+
+	def initialize_text(_frame)
+    @v_scroll = TkScrollbar.new(_frame,
+      'orient'=>'vertical',
+      'relief'=>'flat'
+    ).pack('side' => 'right', 'fill' => 'y')
+    @text = TkText.new(@fm1.right_frame){|j|
+      wrap  'none'
+      relief 'flat'
+      undo true
+      insertofftime 200
+      insertontime 200
+      insertbackground $arcadia['conf']['editor.color.insertbackground']
+      background $arcadia['conf']['editor.color.background']
+      foreground $arcadia['conf']['editor.color.foreground']
+      insertwidth 3
+      exportselection true
+      autoseparators true
+      padx 0
+      tabs $arcadia['conf']['editor.tab-chars']
+      place(
+        'x'=>0,
+        'y'=>0,
+        'width' => -15,
+        'relheight'=>1,
+        'relwidth'=>1,
+        'bordermode'=>'outside'
+      )
+    }
+    @text.configure('font', @font);
+
+    @text.tag_configure('eval','foreground' => 'yellow', 'background' =>'red','borderwidth'=>1, 'relief'=>'raised')
+    @text.tag_configure('errline','borderwidth'=>1, 'relief'=>'groove')
+    @text.tag_configure('debug', 'background' =>'#b9c6d9', 'borderwidth'=>1 ,'relief'=>'raise')
+    @buffer = text_value
+    pop_up_menu
+	end
+	
+	def initialize_text_binding
+    @v_scroll.command(proc{|*args|
+      @text.yview *args
+    })
+    @text.yscrollcommand(proc{|first,last| @v_scroll.set(first,last)
+      self.do_line_update()
+    })
+    @text.tag_bind('selected', 'Enter', proc{@text.tag_remove('selected','1.0','end')})
+
+    @text.bind("Enter", proc{check_file_last_access_time})
+    @text.bind("ButtonPress-1", proc{
+      _code = $arcadia['palette'].give_me_code
+      @text.insert('insert', _code) if _code
+    })
+
+    @text.bind("Control-KeyPress"){|e|
+      case e.keysym
+      when 'z'
+        _b = @text.index('insert').split('.')[0].to_i
+        @text.edit_undo
+        _e = @text.index('insert').split('.')[0].to_i
+        if @highlighting
+          for j in _b..._e
+            rehighlightline(j)
+          end
+        end
+        break
+      when 'c'
+        @text.text_copy
+        break
+      when 'x'
+        @text.text_cut
+        break
+      when 'v'
+        _b = @text.index('insert').split('.')[0].to_i
+        @text.text_paste
+        _e = @text.index('insert').split('.')[0].to_i
+        if @highlighting
+          for j in _b..._e
+            rehighlightline(j)
+          end
+        end
+        break
+      end
+      case e.keysym
+      when 's'
+        save
+      when 'f'
+        _r = @text.tag_ranges('sel')
+        if _r.length>0
+          _text=@text.get(_r[0][0],_r[0][1])
+          if _text.length > 0
+            @find.e_what.text(_text)
+          end
+        else
+        end
+        @find.use(self)
+        @find.e_what.focus
+      when 'egrave'
+        @text.insert('insert',"{")
+      when 'plus'
+        @text.insert('insert',"}")
+      end
+    }
+
+    @text.bind("Control-Shift-KeyPress"){|e|
+      case e.keysym
+      when 'I'
+        _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
+
+        for _row in _row_begin..._row_end
+          @text.insert(_row.to_s+'.0',"\s\s")
+        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
+
+        for _row in _row_begin..._row_end
+          if @text.get(_row.to_s+'.0',_row.to_s+'.2') == "\s\s"
+            @text.delete(_row.to_s+'.0',_row.to_s+'.2')
+          end
+        end
+      when 'C'
+        _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
+
+        for _row in _row_begin..._row_end
+          if @text.get(_row.to_s+'.0',_row.to_s+'.1') == "#"
+            @text.delete(_row.to_s+'.0',_row.to_s+'.1')
+          else
+            @text.insert(_row.to_s+'.0',"#")
+          end
+          rehighlightline(_row) if @highlighting
+        end
+
+      end
+    }
+    @text.bind("KeyPress"){|e|
+      case e.keysym
+      when 'BackSpace'
+        _index = @text.index('insert')
+        _row, _col = _index.split('.')
+        rehighlightline(_row.to_i) if @highlighting
+      when 'Delete'
+        _index = @text.index('insert')
+        _row, _col = _index.split('.')
+        rehighlightline(_row.to_i) if @highlighting
+      when 'F5'
+        save
+        $arcadia['shell'].run(@file.to_s)
+      when 'F3'
+        @find.do_find_next
+      when 'Tab'
+        _r = @text.tag_ranges('sel')
+        if _r && _r[0]
+          _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
+          for _row in _row_begin..._row_end
+            @text.insert(_row.to_s+'.0', suf)
+          end
+        break
+        end
+      end
+    }
+
+    @text.bind("Shift-KeyPress"){|e|
+      case e.keysym
+      when 'Tab'
+        _r = @text.tag_ranges('sel')
+        if _r && _r[0]
+          _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"
+            n_space = 1
+          end
+          for _row in _row_begin..._row_end
+            if @text.get(_row.to_s+'.0',_row.to_s+'.'+n_space.to_s) == suf
+              @text.delete(_row.to_s+'.0',_row.to_s+'.'+n_space.to_s)
+            end
+          end
+          break
+        end
+      end
+    }
+
+    @text.bind("KeyRelease"){|e|
+      case e.keysym
+        when 'Control_L','Return', 'Control_V', 'BackSpace', 'Delete'
+          if modified?
+            set_modify
+          else
+            reset_modify
+          end
+          do_line_update
+        when 'Right','Left','Down', 'Up'
+          # do nil
+        else
+          if modified?
+            if !@set_mod
+              set_modify
+            end
+          else
+            reset_modify
+          end
+      end
+      case e.keysym
+      when 'Return'
+        _index = @text.index('insert')
+        _row, _col = _index.split('.')
+        _txt = @text.get((_row.to_i-1).to_s+'.0',_index)
+        if _txt.length > 0
+          m = /\s*/.match(_txt)
+          if m
+            if (m[0] != "\n")
+              _sm = m[0]
+              _sm = _sm.sub(/\n/,"")
+              @text.insert('insert',_sm)
+            end
+          end
+        end
+        if _row.to_i + 1  ==  @text.index('end').split('.')[0].to_i
+          do_line_update
+        end
+      else 
+        if @highlighting && /\w/.match(e.keysym)
+          rehighlightline(@text.index('insert').split('.')[0].to_i)
+        end
+      end
+    }
+
+	
+	end
+
+  def initialize_line_number(_frame)
+    @text_line_num = TkText.new(_frame){
+      wrap  'none'
+      relief 'flat'
+      undo false
+      takefocus 0
+      insertofftime 0
+      exportselection true
+      autoseparators true
+      background $arcadia['conf']['editor.line_number_panel.color.background']
+      foreground $arcadia['conf']['editor.line_number_panel.color.foreground']
+      place(
+        'x'=>0,
+        'y'=>0,
+        'relheight'=>1,
+        'relwidth'=>1,
+        'bordermode'=>'outside'
+      )
+    }
+    delta = @font_metrics_bold[2][1]-@font_metrics[2][1]
+    @text_line_num.tag_configure('bold_case', 'spacing1'=>delta)
+    @text_line_num.tag_configure('breakpoint', 'background'=>'red','borderwidth'=>1, 'relief'=>'raised')
+    @text_line_num.bind("Double-ButtonPress-1", proc{
+      _index = @text_line_num.index('insert')
+      _line = @text_line_num.get(_index+' linestart',_index+' lineend').strip
+      if @controller.breakpoint_lines_on_file(@file).include?(_line)
+        @text_line_num.tag_remove('breakpoint',_index+' linestart',_index+' lineend')
+        @controller.breakpoint_del(@file, _line)
+      else
+        @text_line_num.tag_add('breakpoint',_index+' linestart',_index+' linestart + 1 chars')
+        @controller.breakpoint_add(@file, _line)
+      end
+    })
+    @text_line_num.configure('font', @font);
+    @text_line_num.tag_configure('line_num',
+      'foreground' => '#FFFFFF',
+      'background' =>'#0000a0',
+      'borderwidth'=>2,
+      'relief'=>'raised'
+    )
+  end
+  
+  def initialize_highlight
+    @highlighting = true
+    @highlight_zone = Hash.new;
+#    @highlight_zone_length = 45;
+    @highlight_zone_length = 8;
+    @last_line_begin = 0
+    @last_line_end = 0
+    @last_zone_begin=0;
+    @last_zone_end=0;
+    @is_line_bold = Hash.new
+    @is_tag_bold = Hash.new
+
+    @keyword = ['__FILE__', 'and', 'def', 'end', 'in', 'or', 'self', 'unless',
+      '__LINE__', 'begin', 'defined?', 'ensure', 'module', 'redo', 'super', 'until',
+      'BEGIN', 'break', 'do', 'false', 'next', 'rescue', 'then', 'when',
+      'END', 'case', 'else', 'for', 'nil', 'retry', 'true', 'while',
+    'alias', 'class', 'elsif', 'if', 'not', 'return', 'undef', 'yield','require']
+    _re_string = ''
+    @keyword.each{|word|
+      if _re_string.length > 0
+        _re_string << '|'
+      end
+      if ['class','module','def'].include?(word)
+        _re_string << '([\s]*'+word+'[\s])'
+      else
+        _re_string << '\b('+word+')([.,+\(\s])'
+      end
+    }
+    @re_keyword = Regexp::new(_re_string)
+    @re_instance_variable = /([\s]*@)[A-Za-z0-9_]*/
+    @re_string = /'([\/A-Za-z0-9_@+\-!?=<>\[\]\{\}\(\).\s]*)'|"([\/A-Za-z0-9_@+\-!?=<>\[\]\{\}\(\).\s]*)"/
+    @re_number = /\d/
+    @re_operator = /[\(\)\[\]\(\)\{\}.:;,=><|]/
+    @re_method_name = /(def[\s][\s]*)[A-Za-z0-9_]*/
+    @re_class_name = /(class[\s][\s]*)[A-Za-z0-9_]*/
+    @re_module_name = /(module[\s][\s]*)[A-Za-z0-9_]*/
+    do_tag_configure('keyword')
+    do_tag_configure('method_name')
+    do_tag_configure('instance_variable')
+    do_tag_configure('class_name')
+    do_tag_configure('module_name')
+    do_tag_configure('comment')
+    do_tag_configure('string')
+    do_tag_configure('number')
+    do_tag_configure('sel')
+    do_tag_configure('selected')
+    do_tag_configure('operator')
+  
+  end
+
+  def do_tag_configure(_name)
+    h = Hash.new
+    if $arcadia['conf']['editor.hightlight.'+_name+'.color.foreground']
+      h['foreground']=$arcadia['conf']['editor.hightlight.'+_name+'.color.foreground']
+    end
+    if $arcadia['conf']['editor.hightlight.'+_name+'.color.background']
+      h['background']=$arcadia['conf']['editor.hightlight.'+_name+'.color.background']
+    end
+    if $arcadia['conf']['editor.hightlight.'+_name+'.style']== 'bold'
+      h['font']=@font_bold
+      @is_tag_bold[_name]= true
+    end
+    if $arcadia['conf']['editor.hightlight.'+_name+'.relief']
+      h['relief']=$arcadia['conf']['editor.hightlight.'+_name+'.relief']
+    end
+    if $arcadia['conf']['editor.hightlight.'+_name+'.borderwidth']
+      h['borderwidth']=$arcadia['conf']['editor.hightlight.'+_name+'.borderwidth']
+    end
+    @text.tag_configure(_name, h)
+  end
+
+  def pop_up_menu
+    @pop_up = TkMenu.new(
+      :parent=>@text,
+      :tearoff=>1,
+      :title => 'Menu'
+    )
+    @pop_up.insert('end',
+      :command,
+      :label=>'Save as',
+      :hidemargin => false,
+      :command=> proc{save_as}
+    )
+    @pop_up.insert('end',
+      :command,
+      :label=>'Save',
+      :hidemargin => false,
+      :command=> proc{save}
+    )
+#    @pop_up.insert('end',
+#      :command,
+#      :label=>'New',
+#      :hidemargin => false,
+#      :command=> proc{@controller.open_buffer()}
+#    )
+#    @pop_up.insert('end',
+#      :command,
+#      :label=>'Open',
+#      :hidemargin => false,
+#      :command=> proc{ @controller.open_file(Tk.getOpenFile)}
+#    )
+#    @pop_up.insert('end',
+#      :command,
+#      :label=>'Close',
+#      :hidemargin => false,
+#      :command=> proc{
+#        @controller.close_editor(self)
+#      }
+#    )
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Color',
+      :hidemargin => false,
+      :command=> proc{
+        @text.insert('insert',Tk.chooseColor)
+      }
+    )
+    @pop_up.insert('end',
+      :command,
+      :label=>'Font',
+      :hidemargin => false,
+      :command=> proc{
+        @text.insert('insert', $arcadia['action.get.font'].call)
+      }
+    )
+#    @pop_up.insert('end',
+#      :command,
+#      :label=>'Eval Toplevel',
+#      :hidemargin => false,
+#      :command=> proc{
+#        _r = @text.tag_ranges('sel')
+#        _ibegin = _r[_r.length - 1][0]
+#        _iend = _r[_r.length - 1][1]
+#        _cod = @text.get(_ibegin, _iend)
+#        Revparsel.new(_cod, @file)
+#        @text.tag_add('eval',_ibegin, _iend)
+#        _reset = proc{
+#          _message = 'Replace code with new '+$arcadia['objic'].active.agobj_start.i_name+'?'
+#          _r = TkDialog2.new('message'=>_message, 'buttons'=>['Yes','No','Cancel']).show()
+#          if _r == '0'
+#            @text.tag_remove('eval',_ibegin, _iend)
+#            @text.delete(_ibegin, _iend)
+#            text_insert(_ibegin,$arcadia['objic'].active.objects2code.to_s){_edit_reset=false}
+#            @text.tag_remove('sel','1.0', 'end')
+#            $arcadia['objic'].del($arcadia['objic'].active)
+#          end
+#        }
+#        @text.tag_bind('eval',"Double-ButtonPress-1",_reset)
+#      }
+#    )
+    @text.bind("Button-3",
+      proc{|x,y|
+        _x = TkWinfo.pointerx(@text)
+        _y = TkWinfo.pointery(@text)
+        @pop_up.popup(_x,_y)
+      },
+    "%x %y")
+  end
+
+  def unmark_debug(_index)
+    @text.tag_remove('debug',_index+' linestart', _index+' lineend')
+  end
+
+  def mark_debug(_index)
+    #@text.tag_add('debug',_index +' linestart', _index +' +1 lines linestart')
+    @text.tag_add('debug',_index +' linestart', _index +' lineend')
+  end
+
+  def mark_selected(_index)
+    @text.tag_remove('selected','1.0', 'end')
+    @text.tag_add('selected',_index +' linestart', _index +' +1 lines linestart')
+  end
+
+
+  def build_tree_from_source(_source)
+    _row = 1
+    _liv = 0
+    _livs = Array.new
+    root = TreeNode.new(nil, 'KRoot'){|_node|
+      _node.rif= 'root'
+      _node.label=''
+    }
+    _livs[_liv]=root
+    _source.each_line{|line|
+      line = "\s"+line.split("#")[0]+"\s"
+      m = /[\s\n\t\;]+(module|class|def|if|unless|begin|case|for|while|do)[\s\n\t\;]+/.match(line)
+      if m
+        index = m.post_match.strip.length - 1
+        if m.post_match.strip[index,index]=='{'
+          _row = _row +1
+          next
+        end
+        _liv>=0? _liv = _liv + 1:_liv=1
+        _pliv = _liv
+        _parent = nil
+        while (_parent == nil && _pliv>=0)
+          _pliv = _pliv -1
+          _parent = _livs[_pliv]
+        end
+        if _parent
+          _helptext = m.post_match.strip
+          _label = _helptext.split('<')[0]
+          if _label == nil || _label.strip.length==0
+            _label = _helptext
+          end
+          if (m[0].strip[0..4] == "class" && m.pre_match.strip.length==0)
+            _kind = 'KClass'
+          elsif (m[0].strip[0..4] == "class" && m.pre_match.strip.length>0)
+            _row = _row +1
+            _liv = _liv - 1
+            next
+          elsif (m[0].strip[0..5] == "module" && m.pre_match.strip.length==0)
+            _kind = 'KModule'
+          elsif (m[0].strip[0..5] == "module" && m.pre_match.strip.length>0)
+            _row = _row +1
+            _liv = _liv - 1
+            next
+          elsif ((m[0].strip[0..4] == "begin")||(m[0].strip[0..3] == "case") ||(m[0].strip[0..4] == "while") || (m[0].strip[0..2] == "for") || (m[0].strip[0..1] == "do") || ((m[0].strip[0..1] == "if" || m[0].strip[0..5] == "unless") && m.pre_match.strip.length==0))
+            _row = _row +1
+            next
+          elsif ((m[0].strip[0..1] == "if" || m[0].strip[0..5] == "unless") && m.pre_match.strip.length>0)
+            _row = _row +1
+            _liv = _liv - 1
+            next
+          elsif (m[0].strip[0..2] == "def" && m.pre_match.strip.length==0)
+            _kind = 'KDef'
+            if _label.include?(_parent.label + '.')
+              _kind = 'KDefClass'
+            end
+#          elsif (m[0].strip[0..10] == "attr_reader" && m.pre_match.strip.length==0)
+#            _kind = 'KAttr_reader'
+#            _liv = _liv - 1
+#            _row = _row +1
+          end
+
+          @nodes << _row.to_s
+          TreeNode.new(_parent, _kind){|_node|
+            _node.label = _label
+            _node.helptext = _helptext
+            _node.rif = _row.to_s
+            _livs[_pliv + 1]=_node
+          }
+        else
+          _row = _row +1
+          _liv = _liv - 1
+          next
+        end
+      end
+      m_end = /[\s\n\t\;]+end[\s\n\t\;]+/.match(line)
+      if m_end
+        _liv = _liv - 1
+      end
+      _row = _row +1
+    }
+    return root
+  end
+
+  def build_tree_from_node(_node, _label_match=nil)
+    _sorted_sons = _node.sons.sort
+    for inode in 0.._sorted_sons.length - 1
+      _son = _sorted_sons[inode]
+      if _son.kind == 'KClass'
+        _window = TkLabel.new(@tree_exp){
+          image  TkPhotoImage.new('dat' => TREE_NODE_CLASS_GIF)
+          background($arcadia['conf']['editor.explorer_panel.tree.color.background'])
+        }
+      elsif _son.kind == 'KModule'
+        _window = TkLabel.new(@tree_exp){
+          image  TkPhotoImage.new('dat' => TREE_NODE_MODULE_GIF)
+          background($arcadia['conf']['editor.explorer_panel.tree.color.background'])
+        }
+      elsif _son.kind == 'KDef'
+        _window = TkLabel.new(@tree_exp){
+          image  TkPhotoImage.new('dat' => TREE_NODE_DEF_GIF)
+          background($arcadia['conf']['editor.explorer_panel.tree.color.background'])
+        }
+      elsif _son.kind == 'KDefClass'
+        _window = TkLabel.new(@tree_exp){
+          image  TkPhotoImage.new('dat' => TREE_NODE_DEFCLASS_GIF)
+          background($arcadia['conf']['editor.explorer_panel.tree.color.background'])
+        }
+      end
+      @tree_exp.insert('end', _son.parent.rif ,_son.rif, {
+        'text' =>  _son.label ,
+        'helptext' => _son.helptext,
+        'font'=>$arcadia['conf']['editor.explorer_panel.tree.font'],
+        'window'=> _window
+      }
+      )
+      @nodes << _son.rif
+      if (_label_match) && (_label_match.strip == _son.label.strip)
+        @selected = _son
+      end
+      build_tree_from_node(_son, _label_match)
+    end
+  end
+
+  def build_tree(_sel=nil)
+    if _sel
+      _label_sel = @tree_exp.itemcget(_sel,'text')
+    end
+    #clear tree
+    @tree_exp.delete(@nodes)
+    @nodes.clear
+    #(re)build tree
+    _txt = @text.get('1.0','end')
+    @root = build_tree_from_source(_txt)
+    @selected = nil
+    build_tree_from_node(@root, _label_sel)
+    if @selected
+      @tree_exp.selection_add(@selected.rif)
+    end
+  end
+
+  def insert_popup_menu_item(_where, *args)
+    @pop_up.insert(_where,*args)
+  end
+
+  def text_value
+    return @text.value
+  end
+
+  # vertical scrollbar : ON/OFF
+  def vscroll(mode)
+    st = TkGrid.info(@v_scroll)
+    if mode && st == [] then
+      @v_scroll.grid('row'=>0, 'column'=>1, 'sticky'=>'ns')
+    elsif !mode && st != [] then
+      @v_scroll.ungrid
+    end
+    self
+  end
+
+  # horizontal scrollbar : ON/OFF
+  def hscroll(mode, wrap_mode="char")
+    st = TkGrid.info(@h_scroll)
+    if mode && st == [] then
+      @h_scroll.grid('row'=>1, 'column'=>0, 'sticky'=>'ew')
+      @text.configure('wrap'=> 'none')
+    elsif !mode && st != [] then
+      @h_scroll.ungrid
+      @text.configure('wrap'=> wrap_mode)
+    end
+    self
+  end
+
+  def rowcol(_index, _gap_row = nil, _gap_col = nil)
+    _riga, _colonna = _index.split('.')
+    if _gap_row == nil
+      _riga = '1'
+      _gap_row = 0
+    end
+    if _gap_col == nil
+      _colonna = '0'
+      _gap_col = 0
+    end
+    return (_riga.to_i + _gap_row).to_s + '.'+ (_colonna.to_i + _gap_col).to_s
+  end
+
+  def find_and_set_tag(_re, _row, _txt, _tag, _tag_rem = nil)
+    m = _re.match(_txt)
+    _end = 0
+    if m && @is_tag_bold[_tag]
+      @is_line_bold[_row]=true
+    end
+    while m
+      _txt = m.post_match
+      _ibegin = _row.to_s+'.'+(m.begin(0)+_end).to_s
+      _end = m.end(0) + _end
+      _iend = _row.to_s+'.'+(_end.to_s)
+      if _tag_rem
+        _tag_rem.each {|value|
+          @text.tag_remove(value,_ibegin, _iend)
+        }
+      end
+      @text.tag_add(_tag,_ibegin, _iend)
+      m = _re.match(_txt)
+    end
+  end
+
+#  def find_next_and_set_tag(_re, _row, _col, _txt, _tag)
+#    m = _re.match(_txt)
+#    if m
+#      _txt = m.post_match
+#      _ibegin = _row.to_s+'.'+(m.begin(0)+_end).to_s
+#      _col = m.end(0)+ _col
+#      _iend = _row.to_s+'.'+(_col.to_s)
+#      @text.tag_add(_tag,_ibegin, _iend)
+#    end
+#  end
+
+  def modified?
+    return !(@buffer === text_value)
+  end
+
+  def set_modify
+    if !@set_mod
+      @set_mod = true
+      @controller.change_tab_set_modify(@page_frame)
+    end
+  end
+
+  def reset_modify
+    @controller.change_tab_reset_modify(@page_frame)
+    @set_mod = false
+    @file_last_access_time = File.mtime(@file) if @file
+  end
+
+  def highlightline(_row, _line, _check_mod = false)
+    if _check_mod && modified?
+      set_modify
+    end
+    _txt = _line
+    _end = 0
+
+    #if line is a comment
+    m_c = /#/.match(_txt)
+    if m_c then
+      _ibegin = _row.to_s+'.'+(m_c.begin(0)).to_s
+      _iend = _row.to_s+'.'+(_line.length - 1).to_s
+      @text.tag_add('comment',_ibegin, _iend)
+      _txt = m_c.pre_match
+    end
+    arem = Array.new
+    if _txt.strip.length > 0
+      find_and_set_tag(@re_number, _row, _txt, 'number')
+      arem << 'number'
+      find_and_set_tag(@re_method_name, _row, _txt, 'method_name',arem)
+      arem << 'method_name'
+      find_and_set_tag(@re_class_name, _row, _txt, 'class_name',arem)
+      arem << 'class_name'
+      find_and_set_tag(@re_module_name, _row, _txt, 'module_name',arem)
+      arem << 'module_name'
+      find_and_set_tag(@re_keyword, _row, _txt, 'keyword',arem)
+      arem << 'keyword'
+      find_and_set_tag(@re_instance_variable, _row, _txt, 'instance_variable',arem)
+      arem << 'instance_variable'
+      find_and_set_tag(@re_operator, _row, _txt, 'operator')
+      arem << 'operator'
+      find_and_set_tag(@re_string, _row, _txt, 'string', arem)
+    end
+  end
+
+  def rehighlightline(_row)
+    _ibegin = _row.to_s+'.0'
+    _iend = (_row+1).to_s+'.0'
+    @text.tag_remove('keyword',_ibegin, _iend)
+    @text.tag_remove('comment',_ibegin, _iend)
+    @text.tag_remove('string',_ibegin, _iend)
+    @text.tag_remove('number',_ibegin, _iend)
+    @text.tag_remove('operator',_ibegin, _iend)
+    @text.tag_remove('capitalize',_ibegin, _iend)
+    _line = @text.get(_ibegin, _iend)
+    highlightline(_row, _line)
+  end
+
+  def row(_index='insert')
+    _row = @text.index(_index).split('.')[0].to_i
+    print "def row(_index='insert')",_row.to_s,"\n"
+    return _row
+  end
+
+  def do_line_update
+    #renum in @text_line_num the portion of visibled screen  of @text
+    if @text_line_num
+      incr = 1 + (@font_metrics[2][1]+@font_metrics_bold[2][1]) / 4
+      line_begin = @text.index('@0,0').split('.')[0].to_i
+      line_end = @text.index('@0,'+TkWinfo.height(@text).to_s).split('.')[0].to_i + 1
+      # breakpoint
+      b = @controller.breakpoint_lines_on_file(@file)
+      @text_line_num.delete('1.0','end')
+      for j in line_begin...line_end
+        nline = j.to_s.rjust(6)
+        _index = @text_line_num.index('end')
+        if @hightliting && @is_line_bold[j]
+          @text_line_num.insert('end', nline+"\n",'bold_case')
+        else
+          @text_line_num.insert('end', nline+"\n")
+        end
+        if b.include?(j.to_s)
+          @text_line_num.tag_add('breakpoint',_index+' -1 lines',_index+' -1 lines + 1 chars')
+        end
+      end
+      
+      if @highlighting
+        _zone_begin = ((line_begin) / @highlight_zone_length).to_i + 1
+        _zone_end = ((line_end) / @highlight_zone_length).to_i + 1
+  
+        (_zone_begin >=@last_zone_begin)?_zone_begin.upto(_zone_end+1){|_zone| 
+        highlight_zone(_zone)	
+        }:_zone_end.downto(_zone_begin-1){|_zone| 
+        highlight_zone(_zone)		
+        }
+        @last_line_begin = line_begin
+        @last_line_end = line_end
+        @last_zone_begin = _zone_begin
+        @last_zone_end = _zone_end
+      end
+    end
+  end
+
+  def highlight_zone(_zone)
+    if !@highlight_zone[_zone]
+      _b = @highlight_zone_length*(_zone - 1) 
+      _e = @highlight_zone_length*(_zone) + 1
+      for j in _b..._e
+        rehighlightline(j)
+      end
+      @highlight_zone[_zone] = true
+    end
+  end
+
+  def text_see(_index=nil)
+    if _index
+      @text.see(_index)
+    end
+  end
+
+  def text_insert_index
+    @text.index('insert')
+  end
+
+  def text_insert(index, chars, *tags, &b)
+    if block_given?
+      instance_eval(&b)
+    end
+    _index = @text.index(index)
+    _row, _col  = _index.split('.')
+    _row = (_row.to_i - 1).to_s
+    chars.each_line {|line|
+      @text.insert(_row+'.0', line, *tags)
+      if !defined?(m_begin)||(m_begin == nil)
+        m_begin = /=begin/.match(line)
+      end
+      if @highlighting
+        if m_begin &&(m_begin.begin(0)==0)
+          _ibegin = _row+'.0'
+          _iend = _row+'.'+(line.length - 1).to_s
+          @text.tag_add('comment',_ibegin, _iend)
+        else
+          highlightline(_row.to_i, line, false)
+        end
+      end
+      _row = (_row.to_i + 1).to_s
+    }
+    if defined?(_edit_reset)
+      if _edit_reset
+        @text.edit_reset
+      end
+    else
+      @text.edit_reset
+    end
+  end
+
+  def save
+    if !@file
+      save_as
+    else
+      f = File.new(@file, "w")
+      begin
+        if f
+          f.syswrite(text_value)
+          @buffer = text_value
+          reset_modify
+        end
+      ensure
+        f.close unless f.nil?
+      end
+    end
+  end
+
+  def save_as
+    @file = Tk.getSaveFile
+    if @file
+      save
+      @controller.change_file_name(@page_frame, @file)
+    end
+  end
+
+
+	def check_file_last_access_time
+	  if @file && @file_last_access_time
+	  
+	    ftime = File.mtime(@file)
+	    if @file_last_access_time != ftime
+	      msg = 'File "'+@file+'" is changed! Reload?'
+          if Tk.messageBox('icon' => 'error', 'type' => 'yesno',
+            'title' => '(Arcadia) Libs', 'parent' => @text,
+            'message' => msg) == 'yes'
+             @text.delete('1.0','end')
+						load_file(@file)
+				  else
+				    @file_last_access_time = ftime
+          end
+	    end
+	  end
+	end
+
+	def init_editing(_ext='rb')
+	  case _ext
+	    when 'rb'
+	      @fm = AGTkVSplittedFrames.new(@page_frame,150)
+    			 @fm1 = AGTkVSplittedFrames.new(@fm.right_frame,60)
+        initialize_text(@fm1.right_frame)
+	    		initialize_text_binding
+		    initialize_highlight
+		    initialize_line_number(@fm1.left_frame)
+		    initialize_tree(@fm.left_frame)
+	    else
+    			 @fm1 = AGTkVSplittedFrames.new(@page_frame,60)
+        initialize_text(@fm1.right_frame)
+	    		initialize_text_binding
+		    initialize_line_number(@fm1.left_frame)
+	  end
+	end
+
+	def file_extension(_filename=nil)
+	  if _filename
+	  		_m = /(.*\.)(.*$)/.match(File.basename(_filename))
+	  		return _m[2] if _m && _m.length > 1
+	  end
+	end
+
+  def load_file(_filename = nil)
+    #if filename is nil then open a new tab
+    @file = _filename
+    if _filename
+      #init_editing(file_extension(_filename))
+      File::open(_filename,'r'){ |file|
+        @text.insert('end',file.readlines.collect!{| line | line.chomp+"\n" }.to_s)
+      }
+    end
+    @buffer = text_value
+    reset_modify
+    @text.edit_reset
+    build_tree if @classbrowsing
+  end
+end
+
+class AgMultiEditorView
+  attr_reader :enb
+  def initialize(parent=nil)
+    @enb = Tk::BWidget::NoteBook.new(parent){
+      tabbevelsize 0
+      internalborderwidth 2
+      activeforeground 'red'
+      activebackground 'yellow'
+      #background 'black'
+      borderwidth 1
+      side $arcadia['conf']['editor.tabs.side']
+      font $arcadia['conf']['editor.tabs.font']
+      pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
+    }
+  end
+  
+end
+
+class AgMultiEditor < ArcadiaExt
+  attr_reader :breakpoints
+	attr_reader :splitted_frame
+	def before_build
+    ArcadiaContractListener.new(self, DebugContract, :do_debug_event)
+    ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+	end
+
+  def build
+    if @arcadia.layout.headed?
+    		title_frame = @arcadia.layout.domain(conf('frame'))['root']
+      #@close_button =	title_frame.add_button(nil,nil,TAB_CLOSE_GIF,'left')
+    end
+
+    @splitted_frame = AGTkOSplittedFrames.new(self.frame,20)
+    @main_frame = AgMultiEditorView.new(@splitted_frame.bottom_frame)
+    #@close_button.bind('1',proc{close_raised})
+    @tabs_file =Hash.new
+    @tabs_editor =Hash.new
+    @breakpoints =Array.new
+    create_find
+    pop_up_menu
+  end
+
+	def after_build
+	  self.open_last_files
+	end
+
+  def pop_up_menu
+    @pop_up = TkMenu.new(
+      :parent=>@main_frame.enb,
+      :tearoff=>0,
+      :title => 'Menu'
+    )
+    @pop_up.insert('end',
+      :command,
+      :label=>'...',
+      :state=>'disabled',
+      :background=>'yellow',
+      :activebackground=>'yellow',
+      :hidemargin => true
+    )
+    @c = @pop_up.insert('end',
+      :command,
+      :label=>'Close',
+      :hidemargin => false,
+      :command=> proc{
+        if @selected_tab_name_from_popup != nil
+        		_e = @tabs_editor[@selected_tab_name_from_popup]
+        		self.close_editor(_e)
+        end
+      }
+    )
+    @c = @pop_up.insert('end',
+      :command,
+      :label=>'Close others',
+      :hidemargin => false,
+      :command=> proc{
+        if @selected_tab_name_from_popup != nil
+        		_e = @tabs_editor[@selected_tab_name_from_popup]
+        		self.close_others_editor(_e)
+        end
+      }
+    )
+		
+    @main_frame.enb.tabbind("Button-3",
+      proc{|x|
+      #p x
+        _x = TkWinfo.pointerx(@main_frame.enb)
+        _y = TkWinfo.pointery(@main_frame.enb)
+        @selected_tab_name_from_popup = 'ff'+x[0].split(':')[0]
+        _file =  @main_frame.enb.itemcget(@selected_tab_name_from_popup, 'text')
+        @pop_up.entryconfigure(0, 'label'=>_file)
+        @pop_up.popup(_x,_y)
+      })
+  end
+
+
+	def do_debug_event(_event)
+     #@arcadia.outln('_sender ----> '+_sender.to_s)	  
+     #@arcadia.outln('_event.signature ----> '+_event.signature)
+     case _event.signature 
+     		when DebugContract::DEBUG_BEGIN
+     				self.debug_begin
+     		when DebugContract::DEBUG_END
+     				self.debug_end
+     		when DebugContract::DEBUG_STEP
+     		  if _event.context.file
+     		  		self.open_file_in_debug(_event.context.file, _event.context.line)
+     				end
+     end
+	end
+
+	def do_editor_event(_event)
+     case _event.signature 
+     		when EditorContract::OPEN_FILE
+     		  if _event.context.file 
+     				  if _event.context.line
+     				    _index = _event.context.line.to_s+'.0' 
+     				  end
+     				  self.open_file(_event.context.file, _index)
+     				  _event.handled(self)
+     				end
+     		when EditorContract::OPEN_TEXT
+     		  if _event.context.title 
+     				  self.open_buffer(_event.context.title)
+     				  _e = @tabs_editor[_event.context.title]
+     				  _e.text_insert('end',_event.context.text) if _event.context.text
+     				  add_reverse_item(_e)
+     				  _event.handled(self)
+     				end
+     		when EditorContract::CLOSE_FILE
+     		  if _event.context.file 
+     				  self.close_file(_event.context.file)
+     				  _event.handled(self)
+     				end
+     end
+	end
+
+  def add_reverse_item(_editor)
+    code2form = proc{
+      Revparsel.new(_editor.text_value)
+      self.close_editor(_editor, false)
+#      $arcadia['objic'].active.select_last
+    }
+    _editor.insert_popup_menu_item('end',
+      :command,
+      :label=>'View as form',
+      :hidemargin => false,
+      :command=> code2form
+    )
+  
+  end
+	
+#	def editor_state
+#	  r = EditorContract::SObj.new
+#	  r.raised_file = self.raised.file
+#	  r.breakpoints = @breakpoints
+#	  return r
+#	end
+
+  def get_find
+    @find
+  end
+
+  def create_find
+    #find_frame = @arcadia.layout.register_panel(conf('find.frame'),'Find', 'Find')
+    @find = Find.new(@splitted_frame.top_frame, self)
+  end
+
+  def finalize
+    _files =''
+    @tabs_editor.each_value{|editor|
+      _files=_files+'|'+ editor.file if editor.file != nil
+      close_editor(editor)
+    }
+    @arcadia['pers']['editor.files.open']=_files
+  end
+
+  def raised
+    _page = @main_frame.enb.raise
+    return @tabs_editor[_page]
+  end
+
+  def close_raised
+    close_editor(@tabs_editor[@main_frame.enb.raise])
+  
+    #_page = @main_frame.enb.raise
+    #_editor = @tabs_editor[_page]
+    #_row = _editor.text_insert_index.split('.')[0].strip.to_i
+    #close_editor(_editor)
+  end
+  
+  def breakpoint_add(_file,_line)
+    _tobj =  EditorContract::TEditorObj.new(self) 
+    _tobj.file = _file
+    _tobj.line = _line
+    EditorContract.instance.breakpoint_created(_tobj)
+    @breakpoints << {:file=>_file,:line=>_line}
+  end
+
+  def breakpoint_del(_file,_line)
+    _tobj =  EditorContract::TEditorObj.new(self) 
+    _tobj.file = _file
+    _tobj.line = _line
+    EditorContract.instance.breakpoint_deleted(_tobj)
+    @breakpoints.delete_if{|b| (b[:file]==_file && b[:line]==_line)}
+  end
+
+  def breakpoint_lines_on_file(_file)
+    result = Array.new
+    @breakpoints.each{|value|
+      if value[:file]==_file
+        result << value[:line]
+      end
+    }
+    return result
+  end
+
+  def open_last_files
+    if $arcadia['pers']['editor.files.open']
+    _files_index =$arcadia['pers']['editor.files.open'].split("|")
+    _files_index.each{|value|
+      _file,_index = value.split(';')
+      if _file
+        open_file(_file,_index)
+      end
+    }
+    end
+    self
+  end
+  
+  def bookmark_add(_file, _index)
+    if @bookmarks == nil
+      @bookmarks = Array.new
+      @bookmarks_index = - 1 
+    else
+      _cur_file, _cur_index = @bookmarks[@bookmarks_index]
+      if _cur_file == _file && _cur_index == _index
+        #@arcadia.outln('uguale ----> '+_file+':'+_index)
+        return 
+      end
+      @bookmarks = @bookmarks[0..@bookmarks_index]
+    end
+    @bookmarks << [_file, _index]
+    @bookmarks_index = @bookmarks.length - 1
+    #@arcadia.outln('add ----> '+_file+':'+_index)
+  end
+
+  def bookmark_clear
+    @bookmarks.clear
+    @bookmarks_index = - 1
+  end
+
+  def bookmark_next
+    return if @bookmarks == nil || @bookmarks_index >= @bookmarks.length - 1
+    bookmark_move(+1)
+  end
+
+  def bookmark_move(_n=0)
+    @bookmarks_index = @bookmarks_index + _n
+    #Tk.messageBox('message'=>@bookmarks_index.to_s)
+    _file, _index = @bookmarks[@bookmarks_index]
+    _line, _col = _index.split('.') if _index
+    open_file(_file, _index)
+    #openfile(@bookmarks[@bookmarks_index])
+  end
+
+
+  def bookmark_prev
+    return if @bookmarks == nil || @bookmarks_index <= 0
+    bookmark_move(-1)
+  end
+
+
+  def get_tab_from_name(_name=nil)
+    return @main_frame.enb.get_frame(_name)
+#    if _name
+#      @tabs_name.each{
+#        |key,value|
+#        if value.to_s==_name.to_s
+#          return key
+#        end
+#      }
+#      return nil
+#    end
+  end
+
+  def change_tab_set_modify(_tab)
+    _new_name = '(...)'+@main_frame.enb.itemcget(page_name(_tab), 'text')
+    change_tab_title(_tab, _new_name)
+  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)
+    end
+  end
+
+  def change_tab_title(_tab, _new_text)
+    @main_frame.enb.itemconfigure(page_name(_tab), 'text'=> _new_text)
+  end
+
+  def change_file_name(_tab, _new_file)
+    _new_label = File.basename(_new_file)
+    change_tab_title(_tab, _new_label)
+    @tabs_file[page_name(_tab)] = _new_file
+  end
+
+  def debug_begin
+    if @editors_in_debug != nil
+      @editors_in_debug.clear
+    else
+      @editors_in_debug = Array.new
+    end
+  end
+
+  def debug_end
+    debug_reset
+    @editors_in_debug.each{|e|
+      close_editor(e)
+    }
+  end
+
+  def debug_reset
+    if @last_index && @last_e
+      @last_e.unmark_debug(@last_index)
+    end
+  end
+  
+  def open_file_in_debug(_filename=nil, _line=nil)
+    debug_reset
+    if _filename && _line
+
+      @last_index = _line.to_s+'.0'
+      _editor_exist = editor_exist?(_filename)
+      @last_e = open_file(_filename, @last_index)
+      if !_editor_exist
+        @editors_in_debug <<  @last_e
+      end
+      @last_e.mark_debug(@last_index) if @last_e
+
+    end
+  end
+  
+  def do_buffer_raise(_name, _title='...')
+    _index = @main_frame.enb.index(_name)
+    _new_caption = '...'
+    if _index != -1
+      #_name = @main_frame.enb.pages(_index)
+      #_tab = get_tab_from_name(_name)
+      #@main_frame.enb.raise(_name)
+      _e = @tabs_editor[_name]
+      if _e && _e.file != nil
+        _new_caption = _e.file
+	      @find.use(_e)
+	      _e.check_file_last_access_time
+      else
+        _new_caption = _title
+      end
+    end
+    if @arcadia.layout.headed?
+      @arcadia.layout.domain(@arcadia['conf'][@name+'.frame'])['root'].top_text(_new_caption)
+    end
+    _title = @tabs_file[_name] != nil ? File.basename(@tabs_file[_name]) :_name
+    EditorContract.instance.buffer_raised(EditorContract::TEditorObj.new(self, 'title'=>_title, 'file'=>@tabs_file[_name]))
+  end
+  
+  def editor_exist?(_filename)
+    _basefilename = File.basename(_filename)
+    #_basename = _basefilename.split('.')[0]+'_'+_basefilename.split('.')[1]
+    
+    
+    _index = @main_frame.enb.index(self.tab_name(_filename))
+    return _index != -1
+  end
+  
+  def tab_name(_filename="")
+    'ff'+File.expand_path(_filename).gsub("/","_").gsub(".","_")
+  end
+  
+  def open_file(_filename = nil, _text_index='1.0')
+    return if _filename == nil || !File.exist?(_filename)
+    _basefilename = File.basename(_filename)
+    _tab_name = self.tab_name(_filename)
+    _index = @main_frame.enb.index(_tab_name)
+    _exist_buffer = _index != -1
+    
+    if _exist_buffer
+      open_buffer(_tab_name)
+    else
+      open_buffer(_tab_name, _basefilename)
+#      _basefilename.include?('.rb')?_image = RUBY_DOCUMENT_GIF: _image = DOCUMENT_OPEN_GIF 
+#      @main_frame.enb.itemconfigure(_tab_name,
+#        'image'=> TkPhotoImage.new('data' =>_image )
+#      )
+      @tabs_file[_tab_name]= _filename
+      @tabs_editor[_tab_name].load_file(_filename)
+      #do_buffer_raise(_tab_name)
+      _tobj =EditorContract::TEditorObj.new(self)
+      _tobj.file= _filename
+      EditorContract.instance.file_opened(_tobj)
+    end
+    
+    if _text_index != nil && _text_index != '1.0'
+      @tabs_editor[_tab_name].text_see(_text_index)
+      #@tabs_editor[_tab_name].mark_selected(_text_index)
+    end
+
+    return @tabs_editor[_tab_name]
+  end
+
+
+  def open_buffer(_buffer_name = nil, _title = nil)
+    _index = @main_frame.enb.index(_buffer_name)
+    _buffer_name = 'new' if _buffer_name == nil
+    if _index != -1
+      _tab = @main_frame.enb.get_frame(_buffer_name)
+      @main_frame.enb.raise(_buffer_name)
+    else
+      _n = 1
+      while @main_frame.enb.index(_buffer_name) != -1
+        _buffer_name = 'new'+_n.to_s
+        _n =_n+1
+      end
+      if _title == nil
+        _title =  '*'+_buffer_name
+      end
+      _tab = @main_frame.enb.insert('end', _buffer_name ,
+        'text'=> _title,
+        'raisecmd'=>proc{do_buffer_raise(_buffer_name, _title)}
+      )
+      _e = AgEditor.new(self, _tab)
+      _e.init_editing(_e.file_extension(_title))
+      @tabs_file[_buffer_name]= nil
+      @tabs_editor[_buffer_name]=_e
+    end
+    @main_frame.enb.move(_buffer_name, 1)
+    @main_frame.enb.raise(_buffer_name)
+    @main_frame.enb.see(_buffer_name)
+    return _tab
+  end
+
+  def close_others_editor(_editor, _mod=true)
+  		@tabs_editor.values.each do |_e|
+  		    close_editor(_e) if _e != _editor
+  		end
+  end
+
+
+  def close_editor(_editor, _mod=true)
+    if ((_mod)&&(_editor.modified?))
+      _message = @main_frame.enb.itemcget(page_name(_editor.page_frame), 'text')+"\n modified. Save?"
+      _r = TkDialog2.new('message'=>_message, 'buttons'=>['Ok','No','Cancel']).show()
+      if _r == 0
+        _editor.save
+      elsif _r == 1
+        close_tab(_editor.page_frame)
+      elsif _r == 2
+        return
+      end
+    else
+      close_tab(_editor.page_frame)
+    end
+    _tobj = EditorContract::TEditorObj.new(self)
+    _tobj.file = _editor.file
+    EditorContract.instance.file_closed(_tobj)
+  end
+
+  def close_tab(_page_frame)
+    _name = page_name(_page_frame)
+    @tabs_editor.delete(_name)
+    _index = @main_frame.enb.index(_name)
+    @main_frame.enb.delete(_name)
+    if !@main_frame.enb.pages.empty?
+      @main_frame.enb.raise(@main_frame.enb.pages[_index-1])
+    end
+  end
+
+  def close_file(_filename)
+    close_editor(@tabs_editor[tab_name(_filename)])
+  end
+end
+
+class Findview < TkFrame
+  def initialize(_parent)
+    super(_parent)
+    @cb_reg = TkCheckButton.new(self){|_cb_reg|
+      text  'regexp'
+      justify  'left'
+      relief  'flat'
+      pack('side'=>'left', 'anchor'=>'e')
+      #place('relwidth' => 0,'x' => 8,'y' => 14,'relheight' => 0,'rely' => 0,'height' => 22,'bordermode' => 'inside','width' => 62)
+    }
+#    @e_kind = Tk::BWidget::ComboBox.new(self){
+#      editable true
+#      justify  'left'
+#      relief  'groove'
+#      autocomplete 'true'
+#      insertbackground '#FFFFFF'
+#      expand 'tab'
+#      values 'forwards backwards page'
+#      takefocus 'true'
+#      pack('side'=>'left', 'anchor'=>'e')
+#    }
+    @rb = TkRadioButton.new(self){
+      value 'forwards'
+      text 'forwards'
+      select
+      pack('side'=>'left', 'anchor'=>'e')
+      #place('relx' => 0,'x' => 8,'y' => 64,'relheight' => 0,'rely' => 0,'height' => 23,'bordermode' => 'inside')
+    }
+    TkRadioButton.new(self){
+      value 'backwards'
+      text 'backwards'
+      pack('side'=>'left', 'anchor'=>'e')
+      #place('relx' => 0,'x' => 8,'y' => 84,'relheight' => 0,'rely' => 0,'height' => 23,'bordermode' => 'inside')
+    }
+    TkRadioButton.new(self){
+      value 'line'
+      text 'line'
+      pack('side'=>'left', 'anchor'=>'e')
+      #place('relx' => 0,'x' => 8,'y' => 104,'relheight' => 0,'rely' => 0,'height' => 23,'bordermode' => 'inside')
+    }
+#    TkLabel.new(self){
+#      text 'what'
+#      pack('side'=>'left', 'anchor'=>'e')
+#    }
+    @b_go = TkButton.new(self){|_b_go|
+      compound  'none'
+      default  'disabled'
+      text  'Find'
+      #background  '#ffffff'
+      image TkPhotoImage.new('dat' => FIND_GIF)
+      overrelief  'raised'
+      justify  'center'
+      relief  'ridge'
+      width 20
+      pack('side'=>'right','ipadx'=>20)
+      #place('width' => 50,'x' => 0,'y' => 130,'height' => 23,'bordermode' => 'inside')
+    }
+    @e_what = Tk::BWidget::ComboBox.new(self){
+      editable true
+      justify  'left'
+      relief  'ridge'
+      autocomplete 'true'
+      #insertbackground '#FFFFFF'
+      entrybg '#FFFFFF'
+      expand 'tab'
+      takefocus 'true'
+      pack('padx'=>10, 'fill'=>'x')
+      #place('relwidth' => 1, 'x' => 0,'y' => 41,'height' => 19)
+    }
+    place('x'=>0,'y'=>0,'relheight'=> 1,'relwidth'=> 1)
+    
+  end
+end
+
+class Find < Findview
+  attr_reader :e_what
+  def initialize(_frame, _controller)
+    super(_frame)
+    #@l_file.configure('text'=>_title)
+    #Tk.tk_call('wm', 'title', self, _title )
+    @controller = _controller
+    @forwards = true
+    @find_action = proc{
+      _radio = @rb.get_value
+      if _radio == 'line'
+        go_line
+      else
+        @forwards =  _radio == 'forwards'
+        do_find_next
+      end
+    }
+    @b_go.bind('1', @find_action)
+    e =  TkWinfo.children(@e_what)[0]
+    e.bind_append('KeyPress'){|e|
+      case e.keysym
+      when 'Return'
+        @find_action.call
+        break
+      end
+    }
+    @last_index='insert'
+  end
+
+	def editor
+    if @editor_caller == nil
+      @editor_caller = @controller.raised
+    end
+    return @editor_caller
+	end
+
+
+  def go_line
+    if @e_what.value.length > 0
+      _row = @e_what.value
+      _index = _row+'.1'
+      self.editor.text.see(_index)
+      self.editor.text.tag_add('sel', _index,_index+' lineend')
+      self.editor.text.set_insert(_index)
+      @controller.bookmark_add(self.editor.file, _index)
+    end
+    #self.hide()
+  end
+
+  def use(_editor)
+    if (_editor != @editor_caller)
+      @last_index='insert'
+      @editor_caller = _editor
+    end
+  end
+
+  def update_combo(_txt)
+    values = @e_what.cget('values')
+    if (values != nil && !values.include?(_txt))
+      @e_what.insert('end', @e_what.value)
+    end
+  end
+
+  def do_find(_istart=nil)
+    if @e_what.text.length > 0
+      update_combo(@e_what.text)
+      if !_istart && self.editor.text.index('insert')!=nil
+        _istart ='insert'
+      elsif defined?(@last_index)
+      		_istart = @last_index
+      else
+        _istart = '1.0'
+      end
+      if @forwards
+        if @cb_reg.cget('onvalue')=='1'
+          _index = self.editor.text.rsearch(@e_what.text,_istart)
+        else
+          _index = self.editor.text.search(@e_what.text,_istart)
+        end
+      else
+
+        if @cb_reg.cget('onvalue')=='1'
+          _index = self.editor.text.tkrsearch(['backwards'],@e_what.text,_istart)
+        else
+          _index = self.editor.text.tksearch(['backwards'],@e_what.text,_istart)
+        end
+      end
+      if _index && _index.length>0
+        self.editor.text.see(_index)
+        _row, _col = _index.split('.')
+        _index_sel_end = _row.to_i.to_s+'.'+(_col.to_i+@e_what.text.length).to_i.to_s
+        if @forwards
+          @last_index= _index_sel_end
+        else
+          @last_index= _row.to_i.to_s+'.'+(_col.to_i-1).to_i.to_s
+        end
+        self.editor.text.tag_add('sel', _index,_index_sel_end)
+        self.editor.text.set_insert(_index)
+        @controller.bookmark_add(self.editor.file, _index)
+      else
+        _message = '"'+@e_what.value+'" not found'
+        TkDialog2.new('message'=>_message, 'buttons'=>['Ok']).show()
+      end
+
+    else
+      self.show()
+    end
+  end
+
+  def do_find_next
+    do_find(@last_index)
+  end
+end
+
+
+class KeyTestView < TkToplevel
+  attr_reader :ttest
+  def initialize
+    super
+
+    Tk.tk_call('wm', 'title', self, '...hello' )
+    Tk.tk_call('wm', 'geometry', self, '638x117+200+257' )
+
+    @ttest = TkText.new(self){
+      background  '#FFF454'
+      place('relwidth' => '1','relx' => 0,'x' => '0','y' => '0','relheight' => '1','rely' => 0,'height' => '0','bordermode' => 'inside','width' => '0')
+    }
+
+  end
+end
+
+class KetTest
+  def initialize
+    kt = KeyTestView.new
+    kt.ttest.bind("KeyPress"){|e|
+      kt.ttest.insert('end'," [ "+e.keysym+" ] ")
+      break
+    }
+  end
+end
+
+class AgTkEditor < AgEditor
+end
+
+class AgTkMultiEditor < AgMultiEditor
+end