arcadia 0.1.2.1 → 0.1.3

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

@@ -1,101 +1,105 @@
-name=editor
-label=Editor
-frame=0.1
-active=yes
-require=ext/ae-editor/ae-editor
-class=AgMultiEditor
-
-tabs=0.5c left
-# to use tab key set tab-replace-width-space=0
-tab-replace-width-space=2
-
-#tabs
-tabs.font=courier 12
-freebsd::tabs.font=courier 12
-win::tabs.font={Courier New} 9
-#tabs.side=bottom
-tabs.side=top
-# editor
-font=courier 12
-font.bold=courier 12 bold
-freebsd::font=courier 12
-freebsd::font.bold=courier 12 bold
-win::font={Courier New} 9
-win::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=black
-hightlight.sel.color.background=#68f914
-hightlight.sel.borderwidth=1
-hightlight.sel.relief=raised
-#hightlight.goto.color.foreground=blue
-hightlight.selected.color.background=yellow
-hightlight.tabs.color.foreground=black
-hightlight.tabs.color.background=#b1cfba
-hightlight.tabs.borderwidth=1
-hightlight.tabs.relief=raised
-hightlight.spaces.color.foreground=black
-hightlight.spaces.color.background=#d9f42b
-hightlight.spaces.borderwidth=1
-hightlight.spaces.relief=raised
-#+--------------------------------------------------
-
-
-# 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 12
-freebsd::explorer_panel.tree.font=courier 12
-win::explorer_panel.tree.font={Courier New} 9
-explorer_panel.tree.class.color.foreground=#a42019
-explorer_panel.tree.class.font=times 10 bold
-win::explorer_panel.tree.class.font=times 10 bold
-explorer_panel.tree.def.color.foreground=blue
-explorer_panel.tree.def.font=times 10
-win::explorer_panel.tree.def.font=times 10
-explorer_panel.tree.module.color.foreground=#1b691e
-explorer_panel.tree.module.font=times 8 bold
-win::explorer_panel.tree.module.font={Courier New} 9 bold
-
-#:::::::::::::::: Editor group    ::::::::::::::::::::::<end>
+name=editor
+label=Editor
+frame=0.1
+active=yes
+require=ext/ae-editor/ae-editor
+class=AgMultiEditor
+
+tabs=0.5c left
+# to use tab key set tab-replace-width-space=0
+tab-replace-width-space=2
+
+#tabs
+tabs.font=courier 12
+freebsd::tabs.font=courier 12
+win::tabs.font={Courier New} 9
+#tabs.side=bottom
+tabs.side=top
+
+# editor
+font=courier 12
+font.bold=courier 12 bold
+freebsd::font=courier 12
+freebsd::font.bold=courier 12 bold
+win::font={Courier New} 9
+win::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=black
+hightlight.sel.color.background=#68f914
+hightlight.sel.borderwidth=1
+hightlight.sel.relief=raised
+#hightlight.goto.color.foreground=blue
+hightlight.selected.color.background=yellow
+hightlight.tabs.color.foreground=black
+hightlight.tabs.color.background=#b1cfba
+hightlight.tabs.borderwidth=1
+hightlight.tabs.relief=raised
+hightlight.spaces.color.foreground=black
+hightlight.spaces.color.background=#d9f42b
+hightlight.spaces.borderwidth=1
+hightlight.spaces.relief=raised
+#+--------------------------------------------------
+
+
+# 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.tabs.side=bottom
+explorer_panel.tabs.side=top
+
+explorer_panel.tree.font=courier 12
+freebsd::explorer_panel.tree.font=courier 12
+win::explorer_panel.tree.font={Courier New} 9
+explorer_panel.tree.class.color.foreground=#a42019
+explorer_panel.tree.class.font=times 10 bold
+win::explorer_panel.tree.class.font=times 10 bold
+explorer_panel.tree.def.color.foreground=blue
+explorer_panel.tree.def.font=times 10
+win::explorer_panel.tree.def.font=times 10
+explorer_panel.tree.module.color.foreground=#1b691e
+explorer_panel.tree.module.font=times 8 bold
+win::explorer_panel.tree.module.font={Courier New} 9 bold
+
+#:::::::::::::::: Editor group    ::::::::::::::::::::::<end>

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

@@ -1,2229 +1,2287 @@
-#
-#   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
-    @font = @controller.conf('font')
-    @font_bold = @controller.conf('font.bold')
-    @font_metrics = TkFont.new(@font).metrics
-    @font_metrics_bold = TkFont.new(@font_bold).metrics
-    @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'=>'Source 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')
-    }
-    
-    _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}
-    pop_up_menu_tree
-  end
-
-  def pop_up_menu_tree
-    @pop_up_tree = TkMenu.new(
-      :parent=>@tree_exp,
-      :title => 'Menu tree'
-    )
-    @pop_up_tree.insert('end',
-      :command,
-      :label=>'Rebuild',
-      :hidemargin => false,
-      :command=> proc{build_tree}
-    )
-    @tree_exp.bind_append("Button-3",
-      proc{|x,y|
-        _x = TkWinfo.pointerx(@tree_exp)
-        _y = TkWinfo.pointery(@tree_exp)
-        @pop_up_tree.popup(_x,_y)
-      },
-    "%x %y")
-  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.tabs']
-      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 create_temp_file
-    _file = @file+'~~'
-    f = File.new(@file+'~~', "w")
-    begin
-      if f
-        f.syswrite(text_value)
-      end
-    ensure
-      f.close unless f.nil?
-    end
-    _file
-  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 'space'
-        line, col = @text.index('insert').split('.')
-        _file = create_temp_file
-        EditorContract.instance.complete_code(self, 'file'=>_file, 'line'=>line.to_s, 'col'=>col.to_s)
-      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
-        @find.show
-      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
-        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
-      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
-      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 'Return'
-      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 'F1'
-        line, col = @text.index('insert').split('.')
-        _file = create_temp_file
-        _x, _y = @controller.xy_insert
-        EditorContract.instance.doc_code(@controller, 'file'=>_file, 'line'=>line.to_s, 'col'=>col.to_s, 'xdoc'=>_x, 'ydoc'=>_y)
-      when 'Tab'
-        n_space = $arcadia['conf']['editor.tab-replace-width-space'].to_i
-        _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
-          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
-        elsif n_space > 0
-          @text.insert('insert', "\s"*n_space)
-          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
-          check_modify
-      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','include']
-    _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')
-    do_tag_configure('tabs')  
-    do_tag_configure('spaces')  
-  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=>'Close',
-      :hidemargin => false,
-      :command=> proc{@controller.close_editor(self)}
-    )
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Close others',
-      :hidemargin => false,
-      :command=> proc{@controller.close_others_editor(self)}
-    )
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Close all',
-      :hidemargin => false,
-      :command=> proc{@controller.close_all_editor(self)}
-    )
-
-
-    @pop_up.insert('end', :separator)
-
-    @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', :separator)
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Show tabs',
-      :hidemargin => false,
-      :command=> proc{show_tabs}
-    )
-
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Hide tabs',
-      :hidemargin => false,
-      :command=> proc{hide_tabs}
-    )
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Show spaces',
-      :hidemargin => false,
-      :command=> proc{show_spaces}
-    )
-
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Hide spaces',
-      :hidemargin => false,
-      :command=> proc{hide_spaces}
-    )
-
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Space to tabs indentation',
-      :hidemargin => false,
-      :command=> proc{indentation_space_2_tabs}
-    )
-
-    @pop_up.insert('end',
-      :command,
-      :label=>'Tabs to space indentation',
-      :hidemargin => false,
-      :command=> proc{indentation_tabs_2_space}
-    )
-
-
-    @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
-
-          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)
-    
-    @image_kclass = TkPhotoImage.new('dat' => TREE_NODE_CLASS_GIF)
-    @image_kmodule =  TkPhotoImage.new('dat' => TREE_NODE_MODULE_GIF)
-    @image_kdef =  TkPhotoImage.new('dat' => TREE_NODE_DEF_GIF)
-    @image_kdefclass =  TkPhotoImage.new('dat' => TREE_NODE_DEFCLASS_GIF)
-    
-    _sorted_sons = _node.sons.sort
-    for inode in 0.._sorted_sons.length - 1
-      _son = _sorted_sons[inode]
-      if _son.kind == 'KClass'
-          _image = @image_kclass
-      elsif _son.kind == 'KModule'
-          _image = @image_kmodule
-      elsif _son.kind == 'KDef'
-          _image = @image_kdef
-      elsif _son.kind == 'KDefClass'
-          _image = @image_kdefclass
-      end
-      @tree_exp.insert('end', _son.parent.rif ,_son.rif, {
-        'text' =>  _son.label ,
-        'helptext' => _son.helptext,
-        'font'=>$arcadia['conf']['editor.explorer_panel.tree.font'],
-        'image'=> _image
-      }
-      )
-      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
-    begin
-      @tree_exp.delete(@tree_exp.nodes('root'))
-    rescue Exception
-      # workaround on windows
-      @tree_exp.delete(@tree_exp.nodes('root'))
-    end
-    
-    
-    #(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)
-      @tree_exp.open_tree(@selected.parent.rif)
-      @tree_exp.see(@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 show_spaces
-    @spaces_show = true
-    _row = 1
-    @text.value.each{|_line|
-      show_chars_line(_row, _line, /[ ^\t]\s*/, 'spaces')
-      _row = _row+1
-    }
-  end
-
-
-  def show_tabs
-    @tabs_show = true
-    _row = 1
-    @text.value.each{|_line|
-      show_chars_line(_row, _line, /\t/, 'tabs')
-      _row = _row+1
-    }
-  end
-
-
-  def show_chars_line(_row, _line, _re, _tag)
-    m = _re.match(_line)
-    _end = 0
-    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)
-      @text.tag_add(_tag,_ibegin, _iend)
-      m = _re.match(_txt)
-    end
-  end 
-
-  def indentation_space_2_tabs(_n_space=2)
-    _row = 1
-    @text.value.each{|_line|
-      m = /\s*/.match(_line)
-      _end = 0
-      if m && m.begin(0)==0
-        _s = m[0]
-        if !_s.include?("\n") && !_s.include?("\t")
-          _ibegin = _row.to_s+'.0'
-          _iend = _row.to_s+'.'+m.end(0).to_s
-          _n_tab = (_s.length / _n_space).round
-          @text.delete(_ibegin, _iend)
-          @text.insert(_ibegin,"\t"*_n_tab )
-        end
-      end
-      _row = _row+1
-    }
-    check_modify    
-  end
-
-  def indentation_tabs_2_space(_n_space=2)
-    _row = 1
-    @text.value.each{|_line|
-      m = /\t*/.match(_line)
-      _end = 0
-      if m && m.begin(0)==0
-        _s = m[0]
-        if !_s.include?("\n")
-          _ibegin = _row.to_s+'.0'
-          _iend = _row.to_s+'.'+m.end(0).to_s
-          @text.delete(_ibegin, _iend)
-          @text.insert(_ibegin,"\s"*_s.length*_n_space )
-        end
-      end
-      _row = _row+1
-    }
-    check_modify    
-  end
-
-
-  def hide_tabs
-    @text.tag_remove('tabs','1.0', 'end')
-    @tabs_show = false
-  end
-
-  def hide_spaces
-    @text.tag_remove('spaces','1.0', 'end')
-    @spaces_show = false
-  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 
-      check_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
-    find_and_set_tag(/\t/, _row, _txt, 'tabs', arem) if @tabs_show 
-    find_and_set_tag(/[ ^\t]\s*/, _row, _txt, 'spaces', arem) if @spaces_show 
-  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
-      EditorContract.instance.file_saved(self,'file' =>@file)
-    end
-  end
-
-  def save_as
-    @file = Tk.getSaveFile("filetypes"=>[["Ruby Files", [".rb", ".rbw"]]])
-    @file = nil if @file == ""  # cancelled
-    if @file
-      save
-      @controller.change_file_name(@page_frame, @file)
-      EditorContract.instance.file_created(self, 'file'=>@file)
-    end
-  end
-
-  def check_modify
-    if modified? && !@set_mod
-      set_modify
-    else
-      reset_modify
-    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)
-      when nil
-        @fm1 = AGTkVSplittedFrames.new(@page_frame,60)
-        initialize_text(@fm1.right_frame)
-        initialize_text_binding
-        initialize_highlight
-        initialize_line_number(@fm1.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))
-    end
-    _ret = (_m && _m.length > 1)?_m[2]: nil
-  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
-    reset
-    refresh
-  end
-  
-  def reset
-    @buffer = text_value
-    reset_modify
-    @text.edit_reset
-  end
-  
-  def refresh
-    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)
-    ArcadiaContractListener.new(self, MainContract, :do_main_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)
-    @main_frame = AgMultiEditorView.new(self.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=>'blue',
-      :font => conf('font.bold'),
-      :hidemargin => true
-    )
-    @c = @pop_up.insert('end',
-      :command,
-      :label=>'Close',
-      :font => conf('font'),
-      :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',
-      :font => conf('font'),
-      :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
-      }
-    )
-    @c = @pop_up.insert('end',
-      :command,
-      :label=>'Close all',
-      :font => conf('font'),
-      :hidemargin => false,
-      :command=> proc{
-        if @selected_tab_name_from_popup != nil
-          _e = @tabs_editor[@selected_tab_name_from_popup]
-          self.close_all_editor(_e)
-        end
-      }
-    )
-    
-    @main_frame.enb.tabbind("Button-3",
-      proc{|*x|
-        _x = TkWinfo.pointerx(@main_frame.enb)
-        _y = TkWinfo.pointery(@main_frame.enb)
-        @selected_tab_name_from_popup = x[0].split(':')[0]
-        _index = @main_frame.enb.index(@selected_tab_name_from_popup)
-        if _index == -1 
-          @selected_tab_name_from_popup = 'ff'+@selected_tab_name_from_popup
-          _index = @main_frame.enb.index(@selected_tab_name_from_popup)
-        end
-        if _index != -1 
-          _file =  @main_frame.enb.itemcget(@selected_tab_name_from_popup, 'text')
-          @pop_up.entryconfigure(0, 'label'=>_file)
-          @pop_up.popup(_x,_y)
-        end
-      })
-  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::CLOSE_FILE
-         if _event.context.file 
-           self.close_file(_event.context.file)
-           _event.handled(self)
-         end
-       when EditorContract::SAVE_FILE_RAISED
-         self.raised.save
-         _event.handled(self)
-       when EditorContract::SAVE_FILE
-         if _event.context.file 
-         self.save_file(_event.context.file)
-         _event.handled(self)
-      end
-        when EditorContract::SAVE_AS_FILE_RAISED
-          self.raised.save_as
-          _event.handled(self)
-        when EditorContract::SAVE_AS_FILE
-          if _event.context.file 
-          self.save_as_file(_event.context.file)
-          _event.handled(self)
-      end
-     		when EditorContract::OPEN_TEXT
-     		  if _event.context.title 
-     				  _tab_name = self.tab_name(_event.context.title)
-     				  self.open_buffer(_tab_name, _event.context.title)
-     				  _e = @tabs_editor[_tab_name]
-     				  _e.text_insert('end',_event.context.text) if _event.context.text
-     				  _e.reset
-     				  _e.refresh
-     				  add_reverse_item(_e)
-     				  _event.handled(self)
-     				end
-     		when EditorContract::SHOW_SEARCH_DIALOG
-        @find.show
-     		when EditorContract::SHOW_GOTO_LINE_DIALOG
-        @find.show_go_to_line_dialog
-    end
-  end
-
-  def xy_insert
-    _text = self.raised.text
-    _index_now = _text.index('insert')
-    _rx, _ry, _widht, _heigth = _text.bbox(_index_now);
-    _x = _rx + TkWinfo.rootx(_text)  
-    _y = _ry + TkWinfo.rooty(_text)  + TkFont.new(conf('font')).metrics[2][1]
-    _xroot = _x - TkWinfo.rootx(@arcadia.layout.root)  
-    _yroot = _y - TkWinfo.rooty(@arcadia.layout.root)  
-    return _xroot, _yroot
-  end
-
-
-
-  def raise_complete_code(_context)
-    # delete the file used for completion 
- 		if File.exist?(_context.file) && _context.file.include?('~~')
-      File.delete(_context.file)
-    end
-    @raised_listbox.destroy if @raised_listbox != nil
-    
-    _text = self.raised.text
-    _index_call = _context.line+'.'+_context.col
-    _index_now = _text.index('insert')
-    if _index_call == _index_now 
-      _target = _text.get('insert - 1 chars wordstart','insert')
-        if _target.length > 0 && _target != '.'
-          extra_len = _target.length.+@
-          _begin_index = _index_now<<' - '<<extra_len.to_s<<' chars'
-          _text.tag_add('sel', _begin_index, _index_now)
-        else
-          _begin_index = _index_now
-          extra_len = 0
-        end
-        if _context.candidates.length > 1 
-            _rx, _ry, _widht, heigth = _text.bbox(_begin_index);
-            _x = _rx + TkWinfo.rootx(_text)  
-            _y = _ry + TkWinfo.rooty(_text)  + TkFont.new(conf('font')).metrics[2][1]
-
-            _xroot = _x - TkWinfo.rootx(@arcadia.layout.root)  
-            _yroot = _y - TkWinfo.rooty(@arcadia.layout.root)  
-            
-        					_max_height = TkWinfo.screenheight(@arcadia.layout.root) - _y - 5
-            
-            @raised_listbox = TkListbox.new(@arcadia.layout.root, 
-   					  		'takefocus'=>true, 
-              :background=>conf('color.background'),
-              :foreground=>conf('color.foreground'),
-              :selectbackground=>'yellow',
-              :selectforeground=>'red',
-              :activestyle=>'none',
-              :font => conf('font'),
-              :borderwidth=>1
-   					 	)
-  						_font = TkFont.new(conf('font'))
-  						_char_height = _font.metrics[2][1]
-  						_width = 0
-  						_docs_entries = Hash.new
-  						_context.candidates.each{|value|
-        				   			_key, _doc = value.split
-        				   			_docs_entries[_key]= _doc
-        				   			@raised_listbox.insert('end', _key)
-        				   			_temp_width = _font.measure(_key) + _font.measure('X')
-        				   			_width = _temp_width if _temp_width > _width 
-      						}
-      						_height = (_context.candidates.length+1)*_char_height
-      						_height = _max_height if _height > _max_height
-            @raised_listbox.place('x'=>_xroot,'y'=>_yroot, 'width'=>_width, 'height'=>_height)
-            
-          			@raised_listbox.focus
-  						@raised_listbox.bind_append('KeyPress'){|e|
-        			   			case e.keysym
- 	         						when 'Escape'
-  	        						  @raised_listbox.destroy
-   	       						  #_menu.destroy
-    	      						  Tk.callback_break
-    			           when 'Return'
-      									_value = @raised_listbox.get('active')
-      									_text.delete(_begin_index,'insert')
-      									_text.insert('insert',_value)
-      									@raised_listbox.destroy
-      									#_menu.destroy
-      									Tk.callback_break
-      								 when 'F1'
-      								 	_key = @raised_listbox.get('active')
-                  _x, _y = xy_insert
-           	       EditorContract.instance.doc_code(self, 'doc_entry'=>_docs_entries[_key], 'xdoc'=>_x, 'ydoc'=>_y)
-      								end
-  					   }
-       			 elsif _context.candidates.length == 1 && _context.candidates[0].length>0
-       					   _text.delete(_begin_index,'insert');
-     					   _text.insert('insert',_context.candidates[0].split[0])
-         end
-      end
-  end
-  
-  def do_main_event(_event)
-    case _event.signature 
-     		when MainContract::EVENT_HANDLED
-     				_cause = _event.context.caused_by
-     				if _cause.signature == EditorContract::COMPLETE_CODE &&
-     					 _cause.context.sender == self.raised
-     					 raise_complete_code(_cause.context)
-    				elsif _cause.signature == EditorContract::DOC_CODE && _cause.context.file != nil
-          # delete the file used for completion 
- 					if File.exist?(_cause.context.file) && _cause.context.file.include?('~~')
-            File.delete(_cause.context.file)
-          end
-    				end
-    end		  
-  end
-
-  def add_reverse_item(_editor)
-    code2form = proc{
-      Revparsel.new(_editor.text_value)
-      self.close_editor(_editor, false)
-      InspectorContract.instance.raise_last_widget(self)
-    }
-    _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)
-    @find = Find.new(@arcadia.layout.root, self)
-    @find.on_close=proc{@find.hide}
-    @find.hide
-  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)
-    EditorContract.instance.breakpoint_created(self, 'file'=>_file, 'line'=>_line)
-    @breakpoints << {:file=>_file,:line=>_line}
-  end
-
-  def breakpoint_del(_file,_line)
-    EditorContract.instance.breakpoint_deleted(self, 'file'=>_file, 'line'=>_line)
-    @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(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(_str="")
-    'ff'+_str.gsub("/","_").gsub(".","_").gsub(":","_").gsub("\\","_")
-  end
-  
-  def tab_file_name(_filename="")
-  		_fstr = File.expand_path(_filename)
-  		_fstr =  _filename if _fstr == nil
-    tab_name(_fstr)
-  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_file_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)
-      EditorContract.instance.file_opened(self, 'file'=>_filename)
-    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)
-    if _buffer_name == nil
-    		_buffer_name = tab_name('new')
-    		_title_new = '*new'
-    end
-    
-    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
-        _title_new = '*new'+_n.to_s
-        _buffer_name = tab_name('new')+_n.to_s
-        _n =_n+1
-      end
-      if _title == nil
-        _title =  _title_new
-      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_all_editor(_editor, _mod=true)
-  		@tabs_editor.values.each do |_e|
-  		    close_editor(_e)
-  		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
-    EditorContract.instance.file_closed(self, 'file'=>_editor.file)
-  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
-
-  def save_file(_filename)
-    @tabs_editor[tab_name(_filename)].save
-  end
-
-  def save_as_file(_filename)
-    @tabs_editor[tab_name(_filename)].save_as
-  end
-
-end
-
-class Findview < TkFloatTitledFrame
-  def initialize(_parent)
-    super(_parent)
-    #stop_resizing
- 	  y0 = 10
-    d = 23    
-   TkLabel.new(self.frame){
-   	text 'Find what:'
-   	place('x' => 8,'y' => y0,'height' => 19)
-   }
-   y0 = y0 + d
-  @e_what = Tk::BWidget::ComboBox.new(self.frame){
-      editable true
-      justify  'left'
-      relief  'ridge'
-      autocomplete 'true'
-      #insertbackground '#FFFFFF'
-      entrybg '#FFFFFF'
-      expand 'tab'
-      takefocus 'true'
-      #pack('padx'=>10, 'fill'=>'x')
-      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
-  }
-   y0 = y0 + d
-   TkLabel.new(self.frame){
-   	text 'Replace with:'
-   	place('x' => 8,'y' => y0,'height' => 19)
-   }
-   y0 = y0 + d
-   
-  @e_with = Tk::BWidget::ComboBox.new(self.frame){
-      editable true
-      justify  'left'
-      relief  'ridge'
-      autocomplete 'true'
-      #insertbackground '#FFFFFF'
-      entrybg '#FFFFFF'
-      expand 'tab'
-      takefocus 'true'
-      #pack('padx'=>10, 'fill'=>'x')
-      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
-    }
-    
-    y0 = y0 + d
-    @cb_reg = TkCheckButton.new(self.frame){|_cb_reg|
-      text  'Use Regular Expression'
-      justify  'left'
-      relief  'flat'
-      #pack('side'=>'left', 'anchor'=>'e')
-      place('x' => 8,'y' => y0,'height' => 22)
-    }
-    y0 = y0 + d
-    @cb_back = TkCheckButton.new(self.frame){|_cb_reg|
-      text  'Search backwards'
-      justify  'left'
-      relief  'flat'
-      #pack('side'=>'left', 'anchor'=>'e')
-      place('x' => 8,'y' => y0,'height' => 22)
-    }
-    
-  y0 = y0 + d
-  y0 = y0 + d
-   @buttons_frame = TkFrame.new(self.frame).pack('fill'=>'x', 'side'=>'bottom')	
-
-    @b_replace_all = TkButton.new(@buttons_frame){|_b_go|
-    		state 'disabled'
-      default  'disabled'
-      text  'Replace All'
-      overrelief  'raised'
-      justify  'center'
-      #width 15
-      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
-      #place('width' => 50,'x' => 0,'y' => y0,'height' => 23,'bordermode' => 'inside')
-    }
-
-
-    @b_replace = TkButton.new(@buttons_frame){|_b_go|
-    		state 'disabled'
-      default  'disabled'
-      text  'Replace'
-      overrelief  'raised'
-      justify  'center'
-      #width 15
-      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
-      #place('width' => 50,'x' => 0,'y' => y0,'height' => 23,'bordermode' => 'inside')
-    }
-
-    
-    @b_go = TkButton.new(@buttons_frame){|_b_go|
-      compound  'none'
-      default  'disabled'
-      text  'Find Next'
-      #background  '#ffffff'
-      #image TkPhotoImage.new('dat' => FIND_GIF)
-      overrelief  'raised'
-      justify  'center'
-      #relief  'ridge'
-      #width 15
-      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
-      #place('width' => 50,'x' => 0,'y' => y0,'height' => 23,'bordermode' => 'inside')
-    }
-    #place('x'=>0,'y'=>0,'relheight'=> 1,'relwidth'=> 1)
-    place('x'=>100,'y'=>100,'height'=> 220,'width'=> 300)
-    
-  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
-        do_find_next
-      #end
-    }
-    @b_go.bind('1', @find_action)
-    
-  		@b_replace.bind('1', proc{do_replace})  
-    
-  		@b_replace_all.bind('1', proc{do_replace_all})  
-
-    e =  TkWinfo.children(@e_what)[0]
-    e.bind_append('KeyPress'){|e|
-      case e.keysym
-      when 'Return'
-        @find_action.call
-        hide
-        @editor_caller.text.focus
-        Tk.callback_break
-      else
-        widget_state
-      end
-    }
-    e2 =  TkWinfo.children(@e_with)[0]
-    e2.bind_append('KeyPress'){|e|
-        widget_state
-    }
-    @last_index='insert'
-    
-    @goto_line_dialog = GoToLine.new(_frame).hide
-    @goto_line_dialog.on_close=proc{@goto_line_dialog.hide}
-
-    @goto_line_dialog.b_go.bind('1',proc{go_line})
-  end
-
-  def do_replace
-    if do_find_next
-        _message = 'Replace "'+@e_what.value+'" with "'+@e_with.value+'" ?'
-        if TkDialog2.new('message'=>_message, 'buttons'=>['Yes','No']).show() == 0
-          self.editor.text.delete(@idx1,@idx2)
-          self.editor.text.insert(@idx1,@e_with.value)
-          self.editor.check_modify
-        end
-    end
-  end
-
-  def do_replace_all
-    while do_find_next
-        _message = 'Replace "'+@e_what.value+'" with "'+@e_with.value+'" ?'
-        _rc = TkDialog2.new('message'=>_message, 'buttons'=>['Yes','No','Annulla']).show()
-        if _rc == 0
-          self.editor.text.delete(@idx1,@idx2)
-          self.editor.text.insert(@idx1,@e_with.value)
-          self.editor.check_modify
-        elsif _rc == 2
-          break
-        end
-    end
-  end
-  
-  def widget_state
-   		if (@e_what.value.length > 0) && (@e_with.value.length > 0)
-   			@b_replace.configure('state'=>'active')
-   			@b_replace_all.configure('state'=>'active')
-   		else
-   			@b_replace.configure('state'=>'disabled')
-   			@b_replace_all.configure('state'=>'disabled')
-   		end
-  end
-
-
-  def editor
-    if @editor_caller == nil
-      @editor_caller = @controller.raised
-    end
-    return @editor_caller
-  end
-
-  def show_go_to_line_dialog
-    @goto_line_dialog.show
-  end
-
-  def go_line
-    if @goto_line_dialog.e_line.value.length > 0
-      _row = @goto_line_dialog.e_line.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)
-    @goto_line_dialog.hide
-    end
-    #self.hide()
-  end
-
-  def use(_editor)
-    if (_editor != @editor_caller)
-      @last_index='insert'
-      @editor_caller = _editor
-      title(_editor.file)
-    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)
-    @forwards =  @cb_back.cget('onvalue') != @cb_back.cget('variable').value.to_i
-    _found = false
-    @idx1 = nil
-    @idx2 = 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')==@cb_reg.cget('variable').value.to_i
-          _index = self.editor.text.tksearch(['regexp'],@e_what.text,_istart)
-        else
-          _index = self.editor.text.search(@e_what.text,_istart)
-        end
-      else
-
-        if @cb_reg.cget('onvalue')==@cb_reg.cget('variable').value.to_i
-          _index = self.editor.text.tksearch(['regexp','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)
-        @idx1 =_index
-        @idx2 =_index_sel_end
-        _found = true
-        @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
-    return _found
-  end
-
-  def do_find_next
-    if @idx1 != nil
-    		self.editor.text.tag_remove('sel',@idx1,@idx2)
-    end
-    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 CodeInsight
-end
-
-class GoToLine < TkFloatTitledFrame
-  attr_reader :e_line
-  attr_reader :b_go 
-  def initialize(_parent)
-    super(_parent)
-    #stop_resizing
- 	  y0 = 10
-    d = 23    
-   TkLabel.new(self.frame){
-   	text 'Go to line:'
-   	place('x' => 8,'y' => y0,'height' => 19)
-   }
-   y0 = y0 + d
-   	@e_line = TkEntry.new(self.frame){
-      justify  'left'
-      relief  'ridge'
-      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
-   	}
-    
-   	y0 = y0 + d
-   	y0 = y0 + d
-   @buttons_frame = TkFrame.new(self.frame).pack('fill'=>'x', 'side'=>'bottom')	
-    
-    @b_go = TkButton.new(@buttons_frame){|_b_go|
-      compound  'none'
-      default  'disabled'
-      text  'Go'
-      overrelief  'raised'
-      justify  'center'
-      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
-    }
-    place('x'=>150,'y'=>150,'height'=> 120,'width'=> 100)
-    
-  end
-end
+#
+#   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
+    @font = @controller.conf('font')
+    @font_bold = @controller.conf('font.bold')
+    @font_metrics = TkFont.new(@font).metrics
+    @font_metrics_bold = TkFont.new(@font_bold).metrics
+    @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.explorer_panel.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'=>'Source 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')
+    }
+    
+    _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}
+    pop_up_menu_tree
+  end
+
+  def pop_up_menu_tree
+    @pop_up_tree = TkMenu.new(
+      :parent=>@tree_exp,
+      :title => 'Menu tree'
+    )
+    @pop_up_tree.insert('end',
+      :command,
+      :label=>'Rebuild',
+      :hidemargin => false,
+      :command=> proc{build_tree}
+    )
+    @tree_exp.bind_append("Button-3",
+      proc{|x,y|
+        _x = TkWinfo.pointerx(@tree_exp)
+        _y = TkWinfo.pointery(@tree_exp)
+        @pop_up_tree.popup(_x,_y)
+      },
+    "%x %y")
+  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.tabs']
+      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')
+    #@text.tag_configure('debug', 'background' =>'#ffd2ff', 'borderwidth'=>1 ,'relief'=>'raise')
+    @buffer = text_value
+    pop_up_menu
+  end
+
+  def create_temp_file
+    _file = @file+'~~'
+    f = File.new(@file+'~~', "w")
+    begin
+      if f
+        f.syswrite(text_value)
+      end
+    ensure
+      f.close unless f.nil?
+    end
+    _file
+  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 'space'
+        line, col = @text.index('insert').split('.')
+        _file = create_temp_file
+        EditorContract.instance.complete_code(self, 'file'=>_file, 'line'=>line.to_s, 'col'=>col.to_s)
+      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
+        @find.show
+      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
+        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
+      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
+      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 'Return'
+      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 'F1'
+        line, col = @text.index('insert').split('.')
+        _file = create_temp_file
+        _x, _y = @controller.xy_insert
+        EditorContract.instance.doc_code(@controller, 'file'=>_file, 'line'=>line.to_s, 'col'=>col.to_s, 'xdoc'=>_x, 'ydoc'=>_y)
+      when 'Tab'
+        n_space = $arcadia['conf']['editor.tab-replace-width-space'].to_i
+        _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
+          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
+        elsif n_space > 0
+          @text.insert('insert', "\s"*n_space)
+          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
+          check_modify
+      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
+    }
+
+
+    @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
+    }
+
+  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
+      cursor nil
+      insertwidth 0
+      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','foreground'=>'yellow','borderwidth'=>1, 'relief'=>'raised')
+    @text_line_num.tag_configure('sel', 
+      'background'=>$arcadia['conf']['editor.line_number_panel.color.background'],
+      'foreground'=>$arcadia['conf']['editor.line_number_panel.color.foreground'])
+    @text_line_num.bind("Double-ButtonPress-1", proc{|x,y|
+      _index = @text_line_num.index("@#{x},#{y}")
+      _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+' lineend')
+       # @text_line_num.tag_add('breakpoint',_index+' linestart',_index+' linestart + 1 chars')
+        @controller.breakpoint_add(@file, _line)
+      end
+    },
+    "%x %y")
+    
+    @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','include']
+    _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')
+    do_tag_configure('tabs')  
+    do_tag_configure('spaces')  
+  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=>'Close',
+      :hidemargin => false,
+      :command=> proc{@controller.close_editor(self)}
+    )
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Close others',
+      :hidemargin => false,
+      :command=> proc{@controller.close_others_editor(self)}
+    )
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Close all',
+      :hidemargin => false,
+      :command=> proc{@controller.close_all_editor(self)}
+    )
+
+
+    @pop_up.insert('end', :separator)
+
+    @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', :separator)
+
+    #---- debug menu
+    _sub_debug = TkMenu.new(
+      :parent=>@pop_up,
+      :tearoff=>0,
+      :title => 'Debug'
+    )
+
+    _sub_debug.insert('end',
+      :command,
+      :label=>'Eval selected',
+      :hidemargin => false,
+      :command=> proc{
+        _r = @text.tag_ranges('sel')
+        if _r.length>0
+          _text=@text.get(_r[0][0],_r[0][1])
+          if _text.length > 0
+            EditorContract.instance.eval_expression(self, 'text'=>_text)
+          end
+        end
+      }
+    )
+
+    @pop_up.insert('end',
+      :cascade,
+      :label=>'Debug',
+      :menu=>_sub_debug,
+      :hidemargin => false
+    )
+
+
+    #---- code menu
+    _sub_code = TkMenu.new(
+      :parent=>@pop_up,
+      :tearoff=>0,
+      :title => 'Code'
+    )
+
+    _sub_code.insert('end',
+      :command,
+      :label=>'Show tabs',
+      :hidemargin => false,
+      :command=> proc{show_tabs}
+    )
+
+
+    _sub_code.insert('end',
+      :command,
+      :label=>'Hide tabs',
+      :hidemargin => false,
+      :command=> proc{hide_tabs}
+    )
+
+    _sub_code.insert('end',
+      :command,
+      :label=>'Show spaces',
+      :hidemargin => false,
+      :command=> proc{show_spaces}
+    )
+
+
+    _sub_code.insert('end',
+      :command,
+      :label=>'Hide spaces',
+      :hidemargin => false,
+      :command=> proc{hide_spaces}
+    )
+
+
+    _sub_code.insert('end',
+      :command,
+      :label=>'Space to tabs indentation',
+      :hidemargin => false,
+      :command=> proc{indentation_space_2_tabs}
+    )
+
+    _sub_code.insert('end',
+      :command,
+      :label=>'Tabs to space indentation',
+      :hidemargin => false,
+      :command=> proc{indentation_tabs_2_space}
+    )
+
+    
+    @pop_up.insert('end',
+      :cascade,
+      :label=>'Code',
+      :menu=>_sub_code,
+      :hidemargin => false
+    )
+
+
+
+
+    @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 +' +1 lines linestart')
+    #@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
+
+          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)
+    
+    @image_kclass = TkPhotoImage.new('dat' => TREE_NODE_CLASS_GIF)
+    @image_kmodule =  TkPhotoImage.new('dat' => TREE_NODE_MODULE_GIF)
+    @image_kdef =  TkPhotoImage.new('dat' => TREE_NODE_DEF_GIF)
+    @image_kdefclass =  TkPhotoImage.new('dat' => TREE_NODE_DEFCLASS_GIF)
+    
+    _sorted_sons = _node.sons.sort
+    for inode in 0.._sorted_sons.length - 1
+      _son = _sorted_sons[inode]
+      if _son.kind == 'KClass'
+          _image = @image_kclass
+      elsif _son.kind == 'KModule'
+          _image = @image_kmodule
+      elsif _son.kind == 'KDef'
+          _image = @image_kdef
+      elsif _son.kind == 'KDefClass'
+          _image = @image_kdefclass
+      end
+      @tree_exp.insert('end', _son.parent.rif ,_son.rif, {
+        'text' =>  _son.label ,
+        'helptext' => _son.helptext,
+        'font'=>$arcadia['conf']['editor.explorer_panel.tree.font'],
+        'image'=> _image
+      }
+      )
+      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
+    begin
+      @tree_exp.delete(@tree_exp.nodes('root'))
+    rescue Exception
+      # workaround on windows
+      @tree_exp.delete(@tree_exp.nodes('root'))
+    end
+    
+    
+    #(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)
+      @tree_exp.open_tree(@selected.parent.rif)
+      @tree_exp.see(@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 show_spaces
+    @spaces_show = true
+    _row = 1
+    @text.value.each{|_line|
+      show_chars_line(_row, _line, /[ ^\t]\s*/, 'spaces')
+      _row = _row+1
+    }
+  end
+
+
+  def show_tabs
+    @tabs_show = true
+    _row = 1
+    @text.value.each{|_line|
+      show_chars_line(_row, _line, /\t/, 'tabs')
+      _row = _row+1
+    }
+  end
+
+
+  def show_chars_line(_row, _line, _re, _tag)
+    m = _re.match(_line)
+    _end = 0
+    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)
+      @text.tag_add(_tag,_ibegin, _iend)
+      m = _re.match(_txt)
+    end
+  end 
+
+  def indentation_space_2_tabs(_n_space=2)
+    _row = 1
+    @text.value.each{|_line|
+      m = /\s*/.match(_line)
+      _end = 0
+      if m && m.begin(0)==0
+        _s = m[0]
+        if !_s.include?("\n") && !_s.include?("\t")
+          _ibegin = _row.to_s+'.0'
+          _iend = _row.to_s+'.'+m.end(0).to_s
+          _n_tab = (_s.length / _n_space).round
+          @text.delete(_ibegin, _iend)
+          @text.insert(_ibegin,"\t"*_n_tab )
+        end
+      end
+      _row = _row+1
+    }
+    check_modify    
+  end
+
+  def indentation_tabs_2_space(_n_space=2)
+    _row = 1
+    @text.value.each{|_line|
+      m = /\t*/.match(_line)
+      _end = 0
+      if m && m.begin(0)==0
+        _s = m[0]
+        if !_s.include?("\n")
+          _ibegin = _row.to_s+'.0'
+          _iend = _row.to_s+'.'+m.end(0).to_s
+          @text.delete(_ibegin, _iend)
+          @text.insert(_ibegin,"\s"*_s.length*_n_space )
+        end
+      end
+      _row = _row+1
+    }
+    check_modify    
+  end
+
+
+  def hide_tabs
+    @text.tag_remove('tabs','1.0', 'end')
+    @tabs_show = false
+  end
+
+  def hide_spaces
+    @text.tag_remove('spaces','1.0', 'end')
+    @spaces_show = false
+  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 
+      check_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
+    find_and_set_tag(/\t/, _row, _txt, 'tabs', arem) if @tabs_show 
+    find_and_set_tag(/[ ^\t]\s*/, _row, _txt, 'spaces', arem) if @spaces_show 
+  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
+      #p '@is_line_bold='+@is_line_bold.to_s
+      #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 @highlighting && @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  lineend')
+#          @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
+      EditorContract.instance.file_saved(self,'file' =>@file)
+    end
+  end
+
+  def save_as
+    @file = Tk.getSaveFile("filetypes"=>[["Ruby Files", [".rb", ".rbw"]]])
+    @file = nil if @file == ""  # cancelled
+    if @file
+      save
+      @controller.change_file_name(@page_frame, @file)
+      EditorContract.instance.file_created(self, 'file'=>@file)
+    end
+  end
+
+  def check_modify
+    if modified? 
+      set_modify if !@set_mod
+    else
+      reset_modify
+    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)
+      when nil
+        @fm1 = AGTkVSplittedFrames.new(@page_frame,60)
+        initialize_text(@fm1.right_frame)
+        initialize_text_binding
+        initialize_highlight
+        initialize_line_number(@fm1.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))
+    end
+    _ret = (_m && _m.length > 1)?_m[2]: nil
+  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
+    reset
+    refresh
+  end
+  
+  def reset
+    @buffer = text_value
+    reset_modify
+    @text.edit_reset
+  end
+  
+  def refresh
+    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)
+    ArcadiaContractListener.new(self, MainContract, :do_main_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)
+    @main_frame = AgMultiEditorView.new(self.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=>'blue',
+      :font => conf('font.bold'),
+      :hidemargin => true
+    )
+    @c = @pop_up.insert('end',
+      :command,
+      :label=>'Close',
+      :font => conf('font'),
+      :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',
+      :font => conf('font'),
+      :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
+      }
+    )
+    @c = @pop_up.insert('end',
+      :command,
+      :label=>'Close all',
+      :font => conf('font'),
+      :hidemargin => false,
+      :command=> proc{
+        if @selected_tab_name_from_popup != nil
+          _e = @tabs_editor[@selected_tab_name_from_popup]
+          self.close_all_editor(_e)
+        end
+      }
+    )
+    
+    @main_frame.enb.tabbind("Button-3",
+      proc{|*x|
+        _x = TkWinfo.pointerx(@main_frame.enb)
+        _y = TkWinfo.pointery(@main_frame.enb)
+        @selected_tab_name_from_popup = x[0].split(':')[0]
+        _index = @main_frame.enb.index(@selected_tab_name_from_popup)
+        if _index == -1 
+          @selected_tab_name_from_popup = 'ff'+@selected_tab_name_from_popup
+          _index = @main_frame.enb.index(@selected_tab_name_from_popup)
+        end
+        if _index != -1 
+          _file =  @main_frame.enb.itemcget(@selected_tab_name_from_popup, 'text')
+          @pop_up.entryconfigure(0, 'label'=>_file)
+          @pop_up.popup(_x,_y)
+        end
+      })
+  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::CLOSE_FILE
+         if _event.context.file 
+           self.close_file(_event.context.file)
+           _event.handled(self)
+         end
+       when EditorContract::SAVE_FILE_RAISED
+         self.raised.save
+         _event.handled(self)
+       when EditorContract::SAVE_FILE
+         if _event.context.file 
+         self.save_file(_event.context.file)
+         _event.handled(self)
+      end
+        when EditorContract::SAVE_AS_FILE_RAISED
+          self.raised.save_as
+          _event.handled(self)
+        when EditorContract::SAVE_AS_FILE
+          if _event.context.file 
+          self.save_as_file(_event.context.file)
+          _event.handled(self)
+      end
+     		when EditorContract::OPEN_TEXT
+     		  if _event.context.title 
+     				  _tab_name = self.tab_name(_event.context.title)
+     				  self.open_buffer(_tab_name, _event.context.title)
+     				  _e = @tabs_editor[_tab_name]
+     				  _e.text_insert('end',_event.context.text) if _event.context.text
+     				  _e.reset
+     				  _e.refresh
+     				  add_reverse_item(_e)
+     				  _event.handled(self)
+     				end
+     		when EditorContract::SHOW_SEARCH_DIALOG
+        @find.show
+     		when EditorContract::SHOW_GOTO_LINE_DIALOG
+        @find.show_go_to_line_dialog
+    end
+  end
+
+  def xy_insert
+    _text = self.raised.text
+    _index_now = _text.index('insert')
+    _rx, _ry, _widht, _heigth = _text.bbox(_index_now);
+    _x = _rx + TkWinfo.rootx(_text)  
+    _y = _ry + TkWinfo.rooty(_text)  + TkFont.new(conf('font')).metrics[2][1]
+    _xroot = _x - TkWinfo.rootx(@arcadia.layout.root)  
+    _yroot = _y - TkWinfo.rooty(@arcadia.layout.root)  
+    return _xroot, _yroot
+  end
+
+
+
+  def raise_complete_code(_context)
+    # delete the file used for completion 
+ 		if File.exist?(_context.file) && _context.file.include?('~~')
+      File.delete(_context.file)
+    end
+    @raised_listbox.destroy if @raised_listbox != nil
+    
+    _text = self.raised.text
+    _index_call = _context.line+'.'+_context.col
+    _index_now = _text.index('insert')
+    if _index_call == _index_now 
+      _target = _text.get('insert - 1 chars wordstart','insert')
+        if _target.length > 0 && _target != '.'
+          extra_len = _target.length.+@
+          _begin_index = _index_now<<' - '<<extra_len.to_s<<' chars'
+          _text.tag_add('sel', _begin_index, _index_now)
+        else
+          _begin_index = _index_now
+          extra_len = 0
+        end
+        if _context.candidates.length > 1 
+            _rx, _ry, _widht, heigth = _text.bbox(_begin_index);
+            _x = _rx + TkWinfo.rootx(_text)  
+            _y = _ry + TkWinfo.rooty(_text)  + TkFont.new(conf('font')).metrics[2][1]
+
+            _xroot = _x - TkWinfo.rootx(@arcadia.layout.root)  
+            _yroot = _y - TkWinfo.rooty(@arcadia.layout.root)  
+            
+        					_max_height = TkWinfo.screenheight(@arcadia.layout.root) - _y - 5
+            
+            @raised_listbox = TkListbox.new(@arcadia.layout.root, 
+   					  		'takefocus'=>true, 
+              :background=>conf('color.background'),
+              :foreground=>conf('color.foreground'),
+              :selectbackground=>'yellow',
+              :selectforeground=>'red',
+              :activestyle=>'none',
+              :font => conf('font'),
+              :borderwidth=>1
+   					 	)
+  						_font = TkFont.new(conf('font'))
+  						_char_height = _font.metrics[2][1]
+  						_width = 0
+  						_docs_entries = Hash.new
+  						_context.candidates.each{|value|
+        				   			_key, _doc = value.split
+        				   			_docs_entries[_key]= _doc
+        				   			@raised_listbox.insert('end', _key)
+        				   			_temp_width = _font.measure(_key) + _font.measure('X')
+        				   			_width = _temp_width if _temp_width > _width 
+      						}
+      						_height = (_context.candidates.length+1)*_char_height
+      						_height = _max_height if _height > _max_height
+            @raised_listbox.place('x'=>_xroot,'y'=>_yroot, 'width'=>_width, 'height'=>_height)
+            
+          			@raised_listbox.focus
+  						@raised_listbox.bind_append('KeyPress'){|e|
+        			   			case e.keysym
+ 	         						when 'Escape'
+  	        						  @raised_listbox.destroy
+   	       						  #_menu.destroy
+    	      						  Tk.callback_break
+    			           when 'Return'
+      									_value = @raised_listbox.get('active')
+      									_text.delete(_begin_index,'insert')
+      									_text.insert('insert',_value)
+      									@raised_listbox.destroy
+      									#_menu.destroy
+      									Tk.callback_break
+      								 when 'F1'
+      								 	_key = @raised_listbox.get('active')
+                  _x, _y = xy_insert
+           	       EditorContract.instance.doc_code(self, 'doc_entry'=>_docs_entries[_key], 'xdoc'=>_x, 'ydoc'=>_y)
+      								end
+  					   }
+       			 elsif _context.candidates.length == 1 && _context.candidates[0].length>0
+       					   _text.delete(_begin_index,'insert');
+     					   _text.insert('insert',_context.candidates[0].split[0])
+         end
+      end
+  end
+  
+  def do_main_event(_event)
+    case _event.signature 
+     		when MainContract::EVENT_HANDLED
+     				_cause = _event.context.caused_by
+     				if _cause.signature == EditorContract::COMPLETE_CODE &&
+     					 _cause.context.sender == self.raised
+     					 raise_complete_code(_cause.context)
+    				elsif _cause.signature == EditorContract::DOC_CODE && _cause.context.file != nil
+          # delete the file used for completion 
+ 					if File.exist?(_cause.context.file) && _cause.context.file.include?('~~')
+            File.delete(_cause.context.file)
+          end
+    				end
+    end		  
+  end
+
+  def add_reverse_item(_editor)
+    code2form = proc{
+      Revparsel.new(_editor.text_value)
+      self.close_editor(_editor, false)
+      InspectorContract.instance.raise_last_widget(self)
+    }
+    _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)
+    @find = Find.new(@arcadia.layout.root, self)
+    @find.on_close=proc{@find.hide}
+    @find.hide
+  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)
+    EditorContract.instance.breakpoint_created(self, 'file'=>_file, 'line'=>_line)
+    @breakpoints << {:file=>_file,:line=>_line}
+  end
+
+  def breakpoint_del(_file,_line)
+    EditorContract.instance.breakpoint_deleted(self, 'file'=>_file, 'line'=>_line)
+    @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, false)
+      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(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(_str="")
+    'ff'+_str.gsub("/","_").gsub(".","_").gsub(":","_").gsub("\\","_")
+  end
+  
+  def tab_file_name(_filename="")
+  		_fstr = File.expand_path(_filename)
+  		_fstr =  _filename if _fstr == nil
+    tab_name(_fstr)
+  end
+  
+  def open_file(_filename = nil, _text_index='1.0', _mark_selected=true)
+    return if _filename == nil || !File.exist?(_filename)
+    _basefilename = File.basename(_filename)
+    _tab_name = self.tab_file_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)
+      @tabs_file[_tab_name]= _filename
+      @tabs_editor[_tab_name].load_file(_filename)
+      EditorContract.instance.file_opened(self, 'file'=>_filename)
+    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) if _mark_selected 
+    end
+
+    return @tabs_editor[_tab_name]
+  end
+
+
+  def open_buffer(_buffer_name = nil, _title = nil)
+    _index = @main_frame.enb.index(_buffer_name)
+    if _buffer_name == nil
+    		_buffer_name = tab_name('new')
+    		_title_new = '*new'
+    end
+    
+    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
+        _title_new = '*new'+_n.to_s
+        _buffer_name = tab_name('new')+_n.to_s
+        _n =_n+1
+      end
+      if _title == nil
+        _title =  _title_new
+      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_all_editor(_editor, _mod=true)
+  		@tabs_editor.values.each do |_e|
+  		    close_editor(_e)
+  		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
+    EditorContract.instance.file_closed(self, 'file'=>_editor.file)
+  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
+
+  def save_file(_filename)
+    @tabs_editor[tab_name(_filename)].save
+  end
+
+  def save_as_file(_filename)
+    @tabs_editor[tab_name(_filename)].save_as
+  end
+
+end
+
+class Findview < TkFloatTitledFrame
+  def initialize(_parent)
+    super(_parent)
+    #stop_resizing
+ 	  y0 = 10
+    d = 23    
+   TkLabel.new(self.frame){
+   	text 'Find what:'
+   	place('x' => 8,'y' => y0,'height' => 19)
+   }
+   y0 = y0 + d
+  @e_what = Tk::BWidget::ComboBox.new(self.frame){
+      editable true
+      justify  'left'
+      relief  'ridge'
+      autocomplete 'true'
+      #insertbackground '#FFFFFF'
+      entrybg '#FFFFFF'
+      expand 'tab'
+      takefocus 'true'
+      #pack('padx'=>10, 'fill'=>'x')
+      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
+  }
+   y0 = y0 + d
+   TkLabel.new(self.frame){
+   	text 'Replace with:'
+   	place('x' => 8,'y' => y0,'height' => 19)
+   }
+   y0 = y0 + d
+   
+  @e_with = Tk::BWidget::ComboBox.new(self.frame){
+      editable true
+      justify  'left'
+      relief  'ridge'
+      autocomplete 'true'
+      #insertbackground '#FFFFFF'
+      entrybg '#FFFFFF'
+      expand 'tab'
+      takefocus 'true'
+      #pack('padx'=>10, 'fill'=>'x')
+      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
+    }
+    
+    y0 = y0 + d
+    @cb_reg = TkCheckButton.new(self.frame){|_cb_reg|
+      text  'Use Regular Expression'
+      justify  'left'
+      relief  'flat'
+      #pack('side'=>'left', 'anchor'=>'e')
+      place('x' => 8,'y' => y0,'height' => 22)
+    }
+    y0 = y0 + d
+    @cb_back = TkCheckButton.new(self.frame){|_cb_reg|
+      text  'Search backwards'
+      justify  'left'
+      relief  'flat'
+      #pack('side'=>'left', 'anchor'=>'e')
+      place('x' => 8,'y' => y0,'height' => 22)
+    }
+    
+  y0 = y0 + d
+  y0 = y0 + d
+   @buttons_frame = TkFrame.new(self.frame).pack('fill'=>'x', 'side'=>'bottom')	
+
+    @b_replace_all = TkButton.new(@buttons_frame){|_b_go|
+    		state 'disabled'
+      default  'disabled'
+      text  'Replace All'
+      overrelief  'raised'
+      justify  'center'
+      #width 15
+      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
+      #place('width' => 50,'x' => 0,'y' => y0,'height' => 23,'bordermode' => 'inside')
+    }
+
+
+    @b_replace = TkButton.new(@buttons_frame){|_b_go|
+    		state 'disabled'
+      default  'disabled'
+      text  'Replace'
+      overrelief  'raised'
+      justify  'center'
+      #width 15
+      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
+      #place('width' => 50,'x' => 0,'y' => y0,'height' => 23,'bordermode' => 'inside')
+    }
+
+    
+    @b_go = TkButton.new(@buttons_frame){|_b_go|
+      compound  'none'
+      default  'disabled'
+      text  'Find Next'
+      #background  '#ffffff'
+      #image TkPhotoImage.new('dat' => FIND_GIF)
+      overrelief  'raised'
+      justify  'center'
+      #relief  'ridge'
+      #width 15
+      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
+      #place('width' => 50,'x' => 0,'y' => y0,'height' => 23,'bordermode' => 'inside')
+    }
+    #place('x'=>0,'y'=>0,'relheight'=> 1,'relwidth'=> 1)
+    place('x'=>100,'y'=>100,'height'=> 220,'width'=> 300)
+    
+  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
+        do_find_next
+      #end
+    }
+    @b_go.bind('1', @find_action)
+    
+  		@b_replace.bind('1', proc{do_replace})  
+    
+  		@b_replace_all.bind('1', proc{do_replace_all})  
+
+    e =  TkWinfo.children(@e_what)[0]
+    e.bind_append('KeyPress'){|e|
+      case e.keysym
+      when 'Return'
+        @find_action.call
+        hide
+        @editor_caller.text.focus
+        Tk.callback_break
+      else
+        widget_state
+      end
+    }
+    e2 =  TkWinfo.children(@e_with)[0]
+    e2.bind_append('KeyPress'){|e|
+        widget_state
+    }
+    @last_index='insert'
+    
+    @goto_line_dialog = GoToLine.new(_frame).hide
+    @goto_line_dialog.on_close=proc{@goto_line_dialog.hide}
+
+    @goto_line_dialog.b_go.bind('1',proc{go_line})
+  end
+
+  def do_replace
+    if do_find_next
+        _message = 'Replace "'+@e_what.value+'" with "'+@e_with.value+'" ?'
+        if TkDialog2.new('message'=>_message, 'buttons'=>['Yes','No']).show() == 0
+          self.editor.text.delete(@idx1,@idx2)
+          self.editor.text.insert(@idx1,@e_with.value)
+          self.editor.check_modify
+        end
+    end
+  end
+
+  def do_replace_all
+    while do_find_next
+        _message = 'Replace "'+@e_what.value+'" with "'+@e_with.value+'" ?'
+        _rc = TkDialog2.new('message'=>_message, 'buttons'=>['Yes','No','Annulla']).show()
+        if _rc == 0
+          self.editor.text.delete(@idx1,@idx2)
+          self.editor.text.insert(@idx1,@e_with.value)
+          self.editor.check_modify
+        elsif _rc == 2
+          break
+        end
+    end
+  end
+  
+  def widget_state
+   		if (@e_what.value.length > 0) && (@e_with.value.length > 0)
+   			@b_replace.configure('state'=>'active')
+   			@b_replace_all.configure('state'=>'active')
+   		else
+   			@b_replace.configure('state'=>'disabled')
+   			@b_replace_all.configure('state'=>'disabled')
+   		end
+  end
+
+
+  def editor
+    if @editor_caller == nil
+      @editor_caller = @controller.raised
+    end
+    return @editor_caller
+  end
+
+  def show_go_to_line_dialog
+    @goto_line_dialog.show
+  end
+
+  def go_line
+    if @goto_line_dialog.e_line.value.length > 0
+      _row = @goto_line_dialog.e_line.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)
+    @goto_line_dialog.hide
+    end
+    #self.hide()
+  end
+
+  def use(_editor)
+    if (_editor != @editor_caller)
+      @last_index='insert'
+      @editor_caller = _editor
+      title(_editor.file)
+    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)
+    @forwards =  @cb_back.cget('onvalue') != @cb_back.cget('variable').value.to_i
+    _found = false
+    @idx1 = nil
+    @idx2 = 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')==@cb_reg.cget('variable').value.to_i
+          _index = self.editor.text.tksearch(['regexp'],@e_what.text,_istart)
+        else
+          _index = self.editor.text.search(@e_what.text,_istart)
+        end
+      else
+
+        if @cb_reg.cget('onvalue')==@cb_reg.cget('variable').value.to_i
+          _index = self.editor.text.tksearch(['regexp','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)
+        @idx1 =_index
+        @idx2 =_index_sel_end
+        _found = true
+        @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
+    return _found
+  end
+
+  def do_find_next
+    if @idx1 != nil
+    		self.editor.text.tag_remove('sel',@idx1,@idx2)
+    end
+    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 CodeInsight
+end
+
+class GoToLine < TkFloatTitledFrame
+  attr_reader :e_line
+  attr_reader :b_go 
+  def initialize(_parent)
+    super(_parent)
+    #stop_resizing
+ 	  y0 = 10
+    d = 23    
+   TkLabel.new(self.frame){
+   	text 'Go to line:'
+   	place('x' => 8,'y' => y0,'height' => 19)
+   }
+   y0 = y0 + d
+   	@e_line = TkEntry.new(self.frame){
+      justify  'left'
+      relief  'ridge'
+      place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
+   	}
+    
+   	y0 = y0 + d
+   	y0 = y0 + d
+   @buttons_frame = TkFrame.new(self.frame).pack('fill'=>'x', 'side'=>'bottom')	
+    
+    @b_go = TkButton.new(@buttons_frame){|_b_go|
+      compound  'none'
+      default  'disabled'
+      text  'Go'
+      overrelief  'raised'
+      justify  'center'
+      pack('side'=>'right','ipadx'=>5, 'padx'=>5)
+    }
+    place('x'=>150,'y'=>150,'height'=> 120,'width'=> 100)
+    
+  end
+end