arcadia 0.2.0 → 0.3.0

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

@@ -10,17 +10,17 @@ tabs=0.5c left
 tab-replace-width-space=2
 
 #tabs
-tabs.font=courier 11
-freebsd::tabs.font=courier 12
-win::tabs.font={Courier New} 9
-#tabs.side=bottom
+#tabs.font=courier 11
+#freebsd::tabs.font=courier 12
+#win::tabs.font={Courier New} 9
+##tabs.side=bottom
 tabs.side=top
 
 # editor
-font=courier 11
-font.bold=courier 11 bold
-freebsd::font=courier 12
-freebsd::font.bold=courier 12 bold
+#font=courier 11
+#font.bold=courier 11 bold
+#freebsd::font=courier 12
+#freebsd::font.bold=courier 12 bold
 win::font={Courier New} 9
 win::font.bold={Courier New} 9 bold 
 #+--------------------------------------------------
@@ -39,43 +39,62 @@ win::font.bold={Courier New} 9 bold
 #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.debug.color.foreground=black
-hightlight.debug.color.background=#b3c1d9
-hightlight.debug.borderwidth=2
-hightlight.debug.relief=groove
-#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
+hightlight.sel.foreground=>>>hightlight.1.foreground
+hightlight.sel.background=>>>hightlight.1.background
+hightlight.sel.borderwidth=>>>hightlight.1.borderwidth
+hightlight.sel.relief=>>>hightlight.1.relief
+hightlight.selected.background=>>>hightlight.2.background
+hightlight.tabs.foreground=>>>hightlight.3.foreground
+hightlight.tabs.background=>>>hightlight.3.background
+hightlight.tabs.borderwidth=>>>hightlight.3.borderwidth
+hightlight.tabs.relief=>>>hightlight.3.relief
+hightlight.spaces.foreground=>>>hightlight.4.foreground
+hightlight.spaces.background=>>>hightlight.4.background
+hightlight.spaces.borderwidth=>>>hightlight.4.borderwidth
+hightlight.spaces.relief=>>>hightlight.4.relief
+#hightlight.debug.foreground=>>>hightlight.16.foreground
+hightlight.debug.background=>>>hightlight.16.background
+hightlight.debug.borderwidth=>>>hightlight.16.borderwidth
+hightlight.debug.relief=>>>hightlight.16.relief
+
+
+#color.background=#FFFFFF
+#color.foreground=#7F7F7F
+#color.insertbackground=#ff8000
+#hightlight.keyword.foreground=#00007F
+#hightlight.keyword.style=bold
+#hightlight.method_name.foreground=#007F7F
+#hightlight.method_name.style=bold
+#hightlight.class_name.foreground=#0000FF
+#hightlight.class_name.style=bold
+#hightlight.module_name.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.foreground=#000000
+#hightlight.operator.style=bold
+#hightlight.sel.foreground=black
+#hightlight.sel.background=#68f914
+#hightlight.sel.borderwidth=1
+#hightlight.sel.relief=raised
+#hightlight.debug.foreground=black
+#hightlight.debug.background=#b3c1d9
+#hightlight.debug.borderwidth=2
+#hightlight.debug.relief=groove
+##hightlight.goto.color.foreground=blue
+#hightlight.selected.background=yellow
+#hightlight.tabs.foreground=black
+#hightlight.tabs.background=#b1cfba
+#hightlight.tabs.borderwidth=1
+#hightlight.tabs.relief=raised
+#hightlight.spaces.foreground=black
+#hightlight.spaces.background=#d9f42b
+#hightlight.spaces.borderwidth=1
+#hightlight.spaces.relief=raised
 #+--------------------------------------------------
 
 
@@ -83,28 +102,30 @@ hightlight.spaces.relief=raised
 #line_number_panel.color.background=#6e6e6e
 #line_number_panel.color.foreground=white
 
-line_number_panel.color.background=#e1e1e1
-#line_number_panel.color.background=#FFFFFF
-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
+#line_number_panel.color.background=#e1e1e1
+##line_number_panel.color.background=#FFFFFF
+#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 11
-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
+#
+#explorer_panel.tree.font=courier 11
+#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>
+popup.bind.shortcut=Button-3
+arm::popup.bind.shortcut=F4

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

@@ -5,7 +5,7 @@
 
 require 'tk'
 require 'tktext'
-require 'base/a-tkcommons'
+require 'lib/a-tkcommons'
 
 
 class TreeNode
@@ -29,6 +29,15 @@ class TreeNode
   end
 end
 
+#class TkArcadiaText < TkText
+#  
+#  def insert(insert, chars,*tags)
+#    super(insert, chars,*tags)
+#    self.modified=true
+#   # event_generate("<Modified>")
+#  end
+#end
+
 class AgEditor
   include Configurable
   attr_reader :file
@@ -39,26 +48,42 @@ class AgEditor
     @controller = _controller
     @page_frame = _page_frame
     @set_mod = false
-    @font = @controller.conf('font')
-    @font_bold = @controller.conf('font.bold')
+#    @font = @controller.conf('font')
+#    @font_bold = @controller.conf('font.bold')
+    @font = Arcadia.conf('edit.font')
+    @font_bold = "#{Arcadia.conf('edit.font')} bold"
     @font_metrics = TkFont.new(@font).metrics
     @font_metrics_bold = TkFont.new(@font_bold).metrics
     @highlighting = false
     @classbrowsing = false
     @find = @controller.get_find
     @read_only=false
+    @loading=false
   end
-
+  
+  def hide_exp
+    @fm.hide_left if @fm
+  end
+  
+  def is_exp_hide?
+    if @fm.nil?
+      return true
+    else
+      @fm.is_left_hide?
+    end
+  end
+  
   def initialize_tree(_frame)
     @classbrowsing = true 
-    @nb = Tk::BWidget::NoteBook.new(_frame){
+
+    @nb = Tk::BWidget::NoteBook.new(_frame, Arcadia.style('tabpanel')){
+#      activeforeground 'red'
+#      activebackground 'yellow'
+#      borderwidth 1
+#      font $arcadia['conf']['editor.tabs.font']
       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' )
@@ -69,7 +94,8 @@ class AgEditor
       _hinner_text = @tree_exp.itemcget(_line,'text').strip
       _editor_line = @text.get(_index, _index+ '  lineend')
       if !_editor_line.include?(_hinner_text)
-        Arcadia.new_msg(self, "... rebuild tree \n")
+        Arcadia.console(self, 'msg'=>"... rebuild tree \n")
+        #Arcadia.new_msg(self, "... rebuild tree \n")
         if @tree_thread && @tree_thread.alive?
           @tree_thread.exit
         end
@@ -84,9 +110,11 @@ class AgEditor
       @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'
+    @tree_exp = Tk::BWidget::Tree.new(@nb_tab_exp, Arcadia.style('treepanel')){
+      #background Arcadia.conf('edit.background')
+      #relief Arcadia.conf('edit.relief')
+      #highlightbackground Arcadia.conf('edit.highlightbackground')
+      #borderwidth Arcadia.conf('edit.borderwidth')
       showlines false
       deltay 18
       dragenabled true
@@ -95,7 +123,7 @@ class AgEditor
     }
     
     _c_explo = proc{|*args| @tree_exp.yview(*args)}
-    _s_explo = TkScrollbar.new(@nb_tab_exp){|s|
+    _s_explo = TkScrollbar.new(@nb_tab_exp, Arcadia.style('scrollbar')){|s|
       width 8
       command _c_explo
     }.pack('side'=>'right', 'fill'=>'y')
@@ -108,6 +136,8 @@ class AgEditor
       :parent=>@tree_exp,
       :title => 'Menu tree'
     )
+    @pop_up_tree.configure(Arcadia.style('menu'))
+    #Arcadia.instance.main_menu.update_style(@pop_up_tree)
     @pop_up_tree.insert('end',
       :command,
       :label=>'Rebuild',
@@ -125,20 +155,19 @@ class AgEditor
 
 
   def initialize_text(_frame)
-    @v_scroll = TkScrollbar.new(_frame,
-      'orient'=>'vertical',
-      'relief'=>'flat'
+    @v_scroll = TkScrollbar.new(_frame,{
+      'orient'=>'vertical'}.update(Arcadia.style('scrollbar'))
     ).pack('side' => 'right', 'fill' => 'y')
-    @text = TkText.new(@fm1.right_frame){|j|
+    @text = TkText.new(@fm1.right_frame, Arcadia.style('edit')){|j|
       wrap  'none'
-      relief 'flat'
+  #    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']
-      highlightcolor $arcadia['conf']['editor.color.background']
+#      insertbackground $arcadia['conf']['editor.color.insertbackground']
+#      background $arcadia['conf']['editor.color.background']
+#      foreground $arcadia['conf']['editor.color.foreground']
+#      highlightcolor $arcadia['conf']['editor.color.background']
       highlightthickness 0
       insertwidth 3
       exportselection true
@@ -154,7 +183,7 @@ class AgEditor
         'bordermode'=>'outside'
       )
     }
-    @text.configure('font', @font);
+   # @text.configure('font', @font);
 
     do_tag_configure_global('debug')
     @text.tag_configure('eval','foreground' => 'yellow', 'background' =>'red','borderwidth'=>1, 'relief'=>'raised')
@@ -187,10 +216,6 @@ class AgEditor
     @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['rad'].palette.give_me_code
-#      @text.insert('insert', _code) if _code
-#    })
 
     @text.bind("Control-KeyPress"){|e|
       case e.keysym
@@ -349,22 +374,17 @@ class AgEditor
         end
       end
     }
+   
+    
+    @text.bind("<Modified>"){|e|
+      check_modify
+    }
 
     @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')
@@ -388,6 +408,7 @@ class AgEditor
           rehighlightline(@text.index('insert').split('.')[0].to_i)
         end
       end
+      check_modify
     }
 
 
@@ -416,12 +437,14 @@ class AgEditor
       end
     }
 
+    @text.bind_append("1",proc{Arcadia.process_event(InputEnterEvent.new(self,'receiver'=>@text))})
+
   end
   
   def initialize_line_number(_frame)
-    @text_line_num = TkText.new(_frame){
+    @text_line_num = TkText.new(_frame, Arcadia.style('linepanel')){
       wrap  'none'
-      relief 'flat'
+      #relief 'flat'
       undo false
       takefocus 0
       insertofftime 0
@@ -429,11 +452,13 @@ class AgEditor
       autoseparators true
       cursor nil
       insertwidth 0
-      background $arcadia['conf']['editor.line_number_panel.color.background']
-      #background $arcadia['conf']['editor.color.background']
-      foreground $arcadia['conf']['editor.line_number_panel.color.foreground']
-      highlightcolor $arcadia['conf']['editor.line_number_panel.color.background']
-      highlightthickness 0
+      font Arcadia.conf('edit.font')
+      #background Arcadia.conf('panel.background')
+      #foreground Arcadia.conf('panel.foreground')
+      #background $arcadia['conf']['editor.line_number_panel.color.background']
+      #foreground $arcadia['conf']['editor.line_number_panel.color.foreground']
+      #highlightcolor $arcadia['conf']['editor.line_number_panel.color.background']
+      #highlightthickness 0
       place(
         'x'=>0,
         'y'=>0,
@@ -464,7 +489,7 @@ class AgEditor
     },
     "%x %y")
     
-    @text_line_num.configure('font', @font);
+    #@text_line_num.configure('font', @font);
     @text_line_num.tag_configure('line_num',
       'foreground' => '#FFFFFF',
       'background' =>'#0000a0',
@@ -513,11 +538,11 @@ class AgEditor
 
   def do_tag_configure(_name)
     h = Hash.new
-    if @lang_hash['hightlight.'+_name+'.color.foreground']
-      h['foreground']=@lang_hash['hightlight.'+_name+'.color.foreground']
+    if @lang_hash['hightlight.'+_name+'.foreground']
+      h['foreground']=@lang_hash['hightlight.'+_name+'.foreground']
     end
-    if @lang_hash['hightlight.'+_name+'.color.background']
-      h['background']=@lang_hash['hightlight.'+_name+'.color.background']
+    if @lang_hash['hightlight.'+_name+'.background']
+      h['background']=@lang_hash['hightlight.'+_name+'.background']
     end
     if @lang_hash['hightlight.'+_name+'.style']== 'bold'
       h['font']=@font_bold
@@ -535,11 +560,11 @@ class AgEditor
 
   def do_tag_configure_global(_name)
     h = Hash.new
-    if $arcadia['conf']['editor.hightlight.'+_name+'.color.foreground']
-      h['foreground']=$arcadia['conf']['editor.hightlight.'+_name+'.color.foreground']
+    if $arcadia['conf']['editor.hightlight.'+_name+'.foreground']
+      h['foreground']=$arcadia['conf']['editor.hightlight.'+_name+'.foreground']
     end
-    if $arcadia['conf']['editor.hightlight.'+_name+'.color.background']
-      h['background']=$arcadia['conf']['editor.hightlight.'+_name+'.color.background']
+    if $arcadia['conf']['editor.hightlight.'+_name+'.background']
+      h['background']=$arcadia['conf']['editor.hightlight.'+_name+'.background']
     end
     if $arcadia['conf']['editor.hightlight.'+_name+'.style']== 'bold'
       h['font']=@font_bold
@@ -557,9 +582,21 @@ class AgEditor
   def pop_up_menu
     @pop_up = TkMenu.new(
       :parent=>@text,
-      :tearoff=>1,
+      :tearoff=>0,
       :title => 'Menu'
     )
+    @pop_up.configure(Arcadia.style('menu'))
+    
+    @pop_up.insert('end',
+      :command,
+      :state=>'disabled',
+      :background=>Arcadia.conf('titlelabel.background'),
+      :font => "#{Arcadia.conf('menu.font')} bold",
+      :hidemargin => true
+    )
+
+    
+    #Arcadia.instance.main_menu.update_style(@pop_up)
     @pop_up.insert('end',
       :command,
       :label=>'Save as',
@@ -573,6 +610,8 @@ class AgEditor
       :command=> proc{save}
     )
 
+    @pop_up.insert('end', :separator)
+
     @pop_up.insert('end',
       :command,
       :label=>'Close',
@@ -594,6 +633,50 @@ class AgEditor
       :command=> proc{@controller.close_all_editor(self)}
     )
 
+    @pop_up.insert('end', :separator)
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Copy',
+      :hidemargin => false,
+      :command=> proc{
+        @text.event_generate("Control-KeyPress",:keysym=>'c')
+        @text.event_generate("Control-KeyRelease",:keysym=>'c')
+      }
+    )
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Cut',
+      :hidemargin => false,
+      :command=> proc{
+        @text.event_generate("Control-KeyPress",:keysym=>'x')
+        @text.event_generate("Control-KeyRelease",:keysym=>'x')
+      }
+    )
+
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Paste',
+      :hidemargin => false,
+      :command=> proc{
+        @text.event_generate("Control-KeyPress",:keysym=>'v')
+        @text.event_generate("Control-KeyRelease",:keysym=>'v')
+      }
+    )
+
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'Undo',
+      :hidemargin => false,
+      :command=> proc{
+        @text.event_generate("Control-KeyPress",:keysym=>'z')
+        @text.event_generate("Control-KeyRelease",:keysym=>'z')
+      }
+    )
+
 
     @pop_up.insert('end', :separator)
 
@@ -614,6 +697,44 @@ class AgEditor
       }
     )
     
+    @pop_up.insert('end',
+      :command,
+      :label=>'Data image',
+      :hidemargin => false,
+      :command=> proc{
+        file = Tk.getOpenFile
+        if file
+          require 'base64'
+          f = File.open(file,"rb")
+          data = f.read
+          f.close
+          encoded = Base64.encode64( data )
+          @text.insert('insert', File.basename(file).gsub('.gif','_gif').gsub('-','_').upcase + "=<<EOS\n")
+          @text.insert('insert', "#{encoded}")
+          @text.insert('insert', "EOS\n")
+        end
+      }
+    )
+
+    @pop_up.insert('end',
+      :command,
+      :label=>'View image from data',
+      :hidemargin => false,
+      :command=> proc{
+        _r = @text.tag_ranges('sel')
+        if _r.length>0
+          _data=@text.get(_r[0][0],_r[0][1])
+          if _data.length > 0
+
+            _b = TkButton.new(@text, 
+              'command'=>proc{_b.destroy},
+              'image'=> TkPhotoImage.new('data' => _data),
+              'relief'=>'groove')
+            TkTextWindow.new(@text, _r[0][1], 'window'=> _b)
+          end
+        end
+      }
+    )
 
     @pop_up.insert('end', :separator)
 
@@ -623,7 +744,7 @@ class AgEditor
       :tearoff=>0,
       :title => 'Debug'
     )
-
+    _sub_debug.configure(Arcadia.style('menu'))
     _sub_debug.insert('end',
       :command,
       :label=>'Eval selected',
@@ -654,7 +775,7 @@ class AgEditor
       :tearoff=>0,
       :title => 'Code'
     )
-
+    _sub_code.configure(Arcadia.style('menu'))
     _sub_code.insert('end',
       :command,
       :label=>'Set wrap',
@@ -721,14 +842,12 @@ class AgEditor
       :menu=>_sub_code,
       :hidemargin => false
     )
-
-
-
-
-    @text.bind("Button-3",
+    
+    @text.bind(@controller.conf('popup.bind.shortcut'),
       proc{|x,y|
         _x = TkWinfo.pointerx(@text)
         _y = TkWinfo.pointery(@text)
+        @pop_up.entryconfigure(0, 'label'=>File.basename(@file)) if @file
         @pop_up.popup(_x,_y)
       },
     "%x %y")
@@ -854,9 +973,9 @@ class AgEditor
       @tree_exp.insert('end', _son.parent.rif ,_son.rif, {
         'text' =>  _son.label ,
         'helptext' => _son.helptext,
-        'font'=>$arcadia['conf']['editor.explorer_panel.tree.font'],
+        #'font'=>$arcadia['conf']['editor.explorer_panel.tree.font'],
         'image'=> _image
-      }
+      }.update(Arcadia.style('treeitem'))
       )
       if (_label_match) && (_label_match.strip == _son.label.strip)
         @selected = _son
@@ -1162,6 +1281,7 @@ class AgEditor
 
 
   def highlightline(_row, _line, _check_mod = false)
+    #p "highlightline #{_row} _line=#{_line}"
     if _check_mod 
       check_modify
     end
@@ -1175,6 +1295,7 @@ class AgEditor
           _ibegin = _row.to_s+'.'+(m_c.begin(0)).to_s
           _iend = _row.to_s+'.'+(_line.length - 1).to_s
           @text.tag_add(c,_ibegin, _iend)
+          #p "tag_add  found #{c}"
           _txt = m_c.pre_match
         end
       end
@@ -1197,6 +1318,9 @@ class AgEditor
   def rehighlightline(_row)
     _ibegin = _row.to_s+'.0'
     _iend = (_row+1).to_s+'.0'
+    #p "rehighlightline _ibegin=#{_ibegin}"
+    #p "rehighlightline _iend=#{_iend}"
+    #p "_line = #{@text.get(_ibegin, _iend)}"
     @h_classes.each{|c| @text.tag_remove(c,_ibegin, _iend)}
     _line = @text.get(_ibegin, _iend)
     highlightline(_row, _line)
@@ -1217,42 +1341,49 @@ class AgEditor
     return _row
   end
   
+  def zone_of_row(_row)
+    ((_row) / @highlight_zone_length).to_i + 1
+  end
+  
   def do_line_update
     #re num in @text_line_num the portion of visibled screen  of @text
-    if @text_line_num
-      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)
-        nline = j.to_s.rjust(7)
-        _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")
+      return if @loading
+      if @text_line_num
+        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)
+        if @highlighting
+          _zone_begin = ((line_begin) / @highlight_zone_length).to_i + 1
+          _zone_end = ((line_end) / @highlight_zone_length).to_i + 1
+          #Arcadia.new_msg(self, "for lines #{line_begin}..#{line_end} \n
+           _zone_begin=#{_zone_begin} ; _zone_end=#{_zone_end}")
+          (_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
-        if b.include?(j.to_s)
-          @text_line_num.tag_add('breakpoint',_index+' -1 lines',_index+' -1 lines  lineend')
+  
+        @text_line_num.delete('1.0','end')
+        for j in line_begin...line_end
+          #nline = j.to_s.rjust(6)
+          nline = j.to_s.rjust(7)
+          _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')
+          end
         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_new(_zone)
@@ -1265,8 +1396,8 @@ class AgEditor
   end
 
 
-  def highlight_zone(_zone)
-    if !@highlight_zone[_zone]
+  def highlight_zone(_zone, _force_highlight=false)
+    if !@highlight_zone[_zone] || _force_highlight
       _b = @highlight_zone_length*(_zone - 1) 
       _e = @highlight_zone_length*(_zone) #+ 1
       for j in _b..._e
@@ -1321,6 +1452,12 @@ class AgEditor
   def save
     if !@file
       save_as
+    elsif @read_only
+      Arcadia.dialog(self, 
+        'type' => 'ok',
+        'title' =>"#{@file}:read-only", 
+        'msg' =>"The file : #{@file} is read-only!",
+        'level' =>'warning')
     else
       f = File.new(@file, "w")
       begin
@@ -1371,34 +1508,62 @@ class AgEditor
       end
     end
   end
-
-  def init_editing(_ext='rb')
-    # find file lang
-    _ext='' if _ext.nil?
-    lang_file = File.dirname(__FILE__)+'/langs/'+_ext+'.lang'
-    if File.exist?(lang_file)
-      @lang_hash = properties_file2hash(lang_file)
-    elsif File.exist?(lang_file+'.bind')
-      b= properties_file2hash(lang_file+'.bind')
-      lang_file_bind = File.dirname(__FILE__)+'/langs/'+b['bind']
-      if b && File.exist?(lang_file_bind)
-        @lang_hash = properties_file2hash(lang_file_bind)
+  
+  def languages_hash(_ext=nil)
+    @@langs_hash = Hash.new if !defined?(@@langs_hash)
+    return nil if _ext.nil?
+    if @@langs_hash[_ext].nil?
+      #_ext='' if _ext.nil?
+      lang_file = File.dirname(__FILE__)+'/langs/'+_ext+'.lang'
+      if File.exist?(lang_file)
+        @@langs_hash[_ext] = properties_file2hash(lang_file)
+      elsif File.exist?(lang_file+'.bind')
+        b= properties_file2hash(lang_file+'.bind')
+        if b 
+          if @@langs_hash[b['bind']].nil?
+            lang_file_bind = File.dirname(__FILE__)+'/langs/'+b['bind']+".lang"
+            if File.exist?(lang_file_bind)
+              @@langs_hash[b['bind']]=properties_file2hash(lang_file_bind)
+              @@langs_hash[_ext]=@@langs_hash[b['bind']]
+            end
+          else
+            @@langs_hash[_ext]=@@langs_hash[b['bind']]
+          end
+        end
       end
-    else
-      @lang = nil
+      self.resolve_properties_link(@@langs_hash[_ext], Arcadia.instance['conf']) if @@langs_hash[_ext]
     end
-    if _ext=='rb'
-      @fm = AGTkVSplittedFrames.new(@page_frame,150)
-      @fm1 = AGTkVSplittedFrames.new(@fm.right_frame,60)
+    @@langs_hash[_ext]
+  end
+
+  def init_editing(_ext='rb', _w1=150, _w2=60)
+    # find file lang
+#    _ext='' if _ext.nil?
+#    lang_file = File.dirname(__FILE__)+'/langs/'+_ext+'.lang'
+#    if File.exist?(lang_file)
+#      @lang_hash = properties_file2hash(lang_file)
+#    elsif File.exist?(lang_file+'.bind')
+#      b= properties_file2hash(lang_file+'.bind')
+#      lang_file_bind = File.dirname(__FILE__)+'/langs/'+b['bind']
+#      if b && File.exist?(lang_file_bind)
+#        @lang_hash = properties_file2hash(lang_file_bind)
+#      end
+#    else
+#      @lang = nil
+#    end
+    @lang_hash = languages_hash(_ext)
+    if !_ext.nil? && (_ext=='rb'||_ext=='rbw')
+      @fm = AGTkVSplittedFrames.new(@page_frame,_w1)
+      @fm1 = AGTkVSplittedFrames.new(@fm.right_frame,_w2)
       initialize_tree(@fm.left_frame)
     else
-      @fm1 = AGTkVSplittedFrames.new(@page_frame,60)
+      @fm1 = AGTkVSplittedFrames.new(@page_frame,_w2)
     end
     @fm1.splitter_frame.configure('relief'=>'flat')
     initialize_text(@fm1.right_frame)
-    initialize_text_binding
     initialize_highlight
     initialize_line_number(@fm1.left_frame)
+    initialize_text_binding
   end
 
   def file_extension(_filename=nil)
@@ -1410,27 +1575,32 @@ class AgEditor
 
   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)
-      }
+    @loading=true
+    begin
+      @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)
+          #@text.insert('end',file.read)
+        }
+      end
+      set_read_only(!File.stat(_filename).writable?)
+      reset
+      refresh
+    ensure
+      @loading=false
     end
-    set_read_only(!File.stat(_filename).writable?)
-    
-    reset
-    refresh
   end
   
   def set_read_only(_value)
     if @read_only != _value
       @read_only = _value
       if @read_only
-        @text.configure('state'=>'disabled')
+        #@text.configure('state'=>'disabled')
         @controller.change_tab_set_read_only(@page_frame)
       else
-        @text.configure('state'=>'normal')
+        #@text.configure('state'=>'normal')
         @controller.change_tab_reset_read_only(@page_frame)
       end
     end
@@ -1443,22 +1613,21 @@ class AgEditor
   end
   
   def refresh
-    build_tree if @classbrowsing
+    build_tree if @classbrowsing && !is_exp_hide?
   end
 end
 
 class AgMultiEditorView
   attr_reader :enb
   def initialize(parent=nil)
-    @enb = Tk::BWidget::NoteBook.new(parent){
+    @enb = Tk::BWidget::NoteBook.new(parent,Arcadia.style('tabpanel')){
       tabbevelsize 0
       internalborderwidth 2
-      activeforeground 'red'
-      activebackground 'yellow'
-      #background 'black'
-      borderwidth 1
-      side $arcadia['conf']['editor.tabs.side']
-      font $arcadia['conf']['editor.tabs.font']
+#      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')
     }
   end
@@ -1473,10 +1642,10 @@ class AgMultiEditor < ArcadiaExt
     #ArcadiaContractListener.new(self, DebugContract, :do_debug_event)
     #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
     #ArcadiaContractListener.new(self, MainContract, :do_main_event)
-    Arcadia.add_listener(self, BufferEvent)
-    Arcadia.add_listener(self, DebugEvent)
-    Arcadia.add_listener(self, RunRubyFileEvent)
-    Arcadia.add_listener(self, StartDebugEvent)
+    Arcadia.attach_listener(self, BufferEvent)
+    Arcadia.attach_listener(self, DebugEvent)
+    Arcadia.attach_listener(self, RunRubyFileEvent)
+    Arcadia.attach_listener(self, StartDebugEvent)
   end
   
   def on_before_run_ruby_file(_event)
@@ -1496,7 +1665,7 @@ class AgMultiEditor < ArcadiaExt
   end
 
   def on_build(_event)
-    @main_frame = AgMultiEditorView.new(self.frame)
+    @main_frame = AgMultiEditorView.new(self.frame.hinner_frame)
     @tabs_file =Hash.new
     @tabs_editor =Hash.new
     @breakpoints =Array.new
@@ -1514,18 +1683,21 @@ class AgMultiEditor < ArcadiaExt
       :tearoff=>0,
       :title => 'Menu'
     )
+    @pop_up.configure(Arcadia.style('menu'))
+    #Arcadia.instance.main_menu.update_style(@pop_up)
     @pop_up.insert('end',
       :command,
       :label=>'...',
       :state=>'disabled',
-      :background=>'blue',
-      :font => conf('font.bold'),
+      :background=>Arcadia.conf('titlelabel.background'),
+      :font => "#{Arcadia.conf('menu.font')} bold",
       :hidemargin => true
     )
+
     @c = @pop_up.insert('end',
       :command,
       :label=>'Close',
-      :font => conf('font'),
+      #:font => conf('font'),
       :hidemargin => false,
       :command=> proc{
         if @selected_tab_name_from_popup != nil
@@ -1537,7 +1709,7 @@ class AgMultiEditor < ArcadiaExt
     @c = @pop_up.insert('end',
       :command,
       :label=>'Close others',
-      :font => conf('font'),
+      #:font => conf('font'),
       :hidemargin => false,
       :command=> proc{
         if @selected_tab_name_from_popup != nil
@@ -1549,7 +1721,7 @@ class AgMultiEditor < ArcadiaExt
     @c = @pop_up.insert('end',
       :command,
       :label=>'Close all',
-      :font => conf('font'),
+      #:font => conf('font'),
       :hidemargin => false,
       :command=> proc{
         if @selected_tab_name_from_popup != nil
@@ -1558,7 +1730,7 @@ class AgMultiEditor < ArcadiaExt
         end
       }
     )
-    
+
     @main_frame.enb.tabbind("Button-3",
       proc{|*x|
         _x = TkWinfo.pointerx(@main_frame.enb)
@@ -1602,8 +1774,10 @@ class AgMultiEditor < ArcadiaExt
       when StartDebugEvent
         self.debug_begin
       when StepDebugEvent
-        if _event.command == :quit 
+        if _event.command == :quit_yes 
           self.debug_end
+        elsif _event.command == :quit_no 
+          @last_e.mark_debug(@last_index) if @last_e
         end
       when SetBreakpointEvent
         @breakpoints << {:file=>_event.file,:line=>_event.row}
@@ -1613,12 +1787,18 @@ class AgMultiEditor < ArcadiaExt
   end
   
   def on_debug_step_info(_event)
+    #Arcadia.new_debug_msg(self, "file: #{_event.file}:#{_event.row}")
     if _event.file
       self.open_file_in_debug(_event.file, _event.row)
     end
   end
 
+#  def on_before_buffer(_event)
+#  Arcadia.new_error_msg(self, "on_before_buffer #{_event.class}")
+#  end
+
   def on_buffer(_event)
+    #Arcadia.new_error_msg(self, "on_buffer #{_event.class}")
     case _event
       when NewBufferEvent
         self.open_buffer
@@ -1639,7 +1819,8 @@ class AgMultiEditor < ArcadiaExt
              #add_reverse_item(_e)
           end
         else
-          self.open_file(Tk.getOpenFile)
+          _event.file = Tk.getOpenFile
+          self.open_file(_event.file)
         end
       when CloseBufferEvent
         if _event.file 
@@ -1702,24 +1883,20 @@ class AgMultiEditor < ArcadiaExt
         if 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]
+            _y = _ry + TkWinfo.rooty(_text)  + TkFont.new(conf('edit.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
+            @raised_listbox = TkListbox.new(@arcadia.layout.root, {
+   					  :takefocus=>true, 
+              :selectbackground=>Arcadia.conf('hightlight.1.background'),
+              :selectforeground=>Arcadia.conf('hightlight.1.foreground'),
+              :activestyle=>'none'}.update(Arcadia.style('edit'))
    					 	)
-  						_font = TkFont.new(conf('font'))
+  						_font = TkFont.new(conf('edit.font'))
   						_char_height = _font.metrics[2][1]
   						_width = 0
   						_docs_entries = Hash.new
@@ -1772,7 +1949,7 @@ class AgMultiEditor < ArcadiaExt
     @find.hide
   end
 
-  def finalize
+  def on_finalize(_event)
     _files =''
     @tabs_editor.each_value{|editor|
       _files=_files+'|'+ editor.file if editor.file != nil
@@ -1890,14 +2067,22 @@ class AgMultiEditor < ArcadiaExt
 #      return nil
 #    end
   end
+  
+  def name_read_only(_name)
+    '[READ-ONLY] '+_name
+  end
 
+  def unname_read_only(_name)
+    return _name.gsub("[READ-ONLY] ",'')
+  end
+  
   def change_tab_set_read_only(_tab)
-    _new_name = '[READ-ONLY] '+@main_frame.enb.itemcget(page_name(_tab), 'text')
+    _new_name = name_read_only(@main_frame.enb.itemcget(page_name(_tab), 'text'))
     change_tab_title(_tab, _new_name)
   end
 
   def change_tab_reset_read_only(_tab)
-    _new_name = @main_frame.enb.itemcget(page_name(_tab), 'text').gsub!("[READ-ONLY] ",'')
+    _new_name = unname_read_only(@main_frame.enb.itemcget(page_name(_tab), 'text'))
     if _new_name
       change_tab_title(_tab, _new_name)
     end
@@ -1943,6 +2128,7 @@ class AgMultiEditor < ArcadiaExt
     #debug_reset
     @editors_in_debug.each{|e|
       close_editor(e)
+      p "close editor #{e.file}"
     }
   end
 
@@ -1957,11 +2143,14 @@ class AgMultiEditor < ArcadiaExt
     if _filename && _line
       @last_index = _line.to_s+'.0'
       _editor_exist = editor_exist?(_filename)
-      @last_e = open_file(_filename, @last_index, false)
+      @last_e = open_file(_filename, @last_index, false, false)
+      #@last_e.hide_exp
+      @last_e.mark_debug(@last_index) if @last_e
       if !_editor_exist
         @editors_in_debug <<  @last_e
+        # workaround for hightlight
+        @last_e.do_line_update
       end
-      @last_e.mark_debug(@last_index) if @last_e
     end
   end
   
@@ -1982,7 +2171,7 @@ class AgMultiEditor < ArcadiaExt
       end
     end
     if @arcadia.layout.headed?
-      frame_title(_new_caption)
+      frame.title(_new_caption)
       #@arcadia.layout.domain(@arcadia['conf'][@name+'.frame'])['root'].top_text(_new_caption)
     end
     _title = @tabs_file[_name] != nil ? File.basename(@tabs_file[_name]) :_name
@@ -1994,8 +2183,11 @@ class AgMultiEditor < ArcadiaExt
     _basefilename = File.basename(_filename)
     #_basename = _basefilename.split('.')[0]+'_'+_basefilename.split('.')[1]
     
-    
-    _index = @main_frame.enb.index(self.tab_name(_filename))
+    _name = self.tab_name(_filename)
+    _index = @main_frame.enb.index(_name)
+    if _index == -1
+      _index = @main_frame.enb.index(name_read_only(_name))
+    end
     return _index != -1
   end
   
@@ -2010,7 +2202,7 @@ class AgMultiEditor < ArcadiaExt
     tab_name(_fstr)
   end
   
-  def open_file(_filename = nil, _text_index='1.0', _mark_selected=true)
+  def open_file(_filename = nil, _text_index='1.0', _mark_selected=true, _exp=true)
     return if _filename == nil || !File.exist?(_filename) || File.ftype(_filename) != 'file'
     _basefilename = File.basename(_filename)
     _tab_name = self.tab_file_name(_filename)
@@ -2020,8 +2212,13 @@ class AgMultiEditor < ArcadiaExt
     if _exist_buffer
       open_buffer(_tab_name)
     else
-      open_buffer(_tab_name, _basefilename)
       @tabs_file[_tab_name]= _filename
+      if _exp
+        open_buffer(_tab_name, _basefilename)
+      else
+        open_buffer(_tab_name, _basefilename,0)
+      end
+      #@tabs_file[_tab_name]= _filename
       @tabs_editor[_tab_name].load_file(_filename)
     end
     
@@ -2034,7 +2231,7 @@ class AgMultiEditor < ArcadiaExt
   end
 
 
-  def open_buffer(_buffer_name = nil, _title = nil)
+  def open_buffer(_buffer_name = nil, _title = nil, w1=150)
     _index = @main_frame.enb.index(_buffer_name)
     if _buffer_name == nil
     		_buffer_name = tab_name('new')
@@ -2059,8 +2256,8 @@ class AgMultiEditor < ArcadiaExt
         '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
+      _e.init_editing(_e.file_extension(_title), w1)
+      #@tabs_file[_buffer_name]= nil
       @tabs_editor[_buffer_name]=_e
     end
     @main_frame.enb.move(_buffer_name, 1)
@@ -2106,7 +2303,7 @@ class AgMultiEditor < ArcadiaExt
     if !@main_frame.enb.pages.empty?
       @main_frame.enb.raise(@main_frame.enb.pages[_index-1])
     else
-      frame_title('')
+      frame.title('')
     end
   end
 
@@ -2130,18 +2327,16 @@ class Findview < TkFloatTitledFrame
     #stop_resizing
  	  y0 = 10
     d = 23    
-   TkLabel.new(self.frame){
+   TkLabel.new(self.frame, Arcadia.style('label')){
    	text 'Find what:'
    	place('x' => 8,'y' => y0,'height' => 19)
    }
    y0 = y0 + d
-  @e_what = Tk::BWidget::ComboBox.new(self.frame){
+  @e_what = Tk::BWidget::ComboBox.new(self.frame, Arcadia.style('combobox')){
       editable true
       justify  'left'
-      relief  'ridge'
+      #relief  'ridge'
       autocomplete 'true'
-      #insertbackground '#FFFFFF'
-      entrybg '#FFFFFF'
       expand 'tab'
       takefocus 'true'
       #pack('padx'=>10, 'fill'=>'x')
@@ -2149,52 +2344,54 @@ class Findview < TkFloatTitledFrame
   }
   @e_what_entry = TkWinfo.children(@e_what)[0]
 
+  @e_what_entry.bind_append("1",proc{Arcadia.process_event(InputEnterEvent.new(self,'receiver'=>@e_what_entry))})
+
    y0 = y0 + d
-   TkLabel.new(self.frame){
+   TkLabel.new(self.frame, Arcadia.style('label')){
    	text 'Replace with:'
    	place('x' => 8,'y' => y0,'height' => 19)
    }
    y0 = y0 + d
    
-  @e_with = Tk::BWidget::ComboBox.new(self.frame){
+  @e_with = Tk::BWidget::ComboBox.new(self.frame, Arcadia.style('combobox')){
       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)
     }
+  @e_with_entry = TkWinfo.children(@e_with)[0]
+
+  @e_with_entry.bind_append("1",proc{Arcadia.process_event(InputEnterEvent.new(self,'receiver'=>@e_with_entry))})
     
     y0 = y0 + d
-    @cb_reg = TkCheckButton.new(self.frame){|_cb_reg|
+    @cb_reg = TkCheckButton.new(self.frame, Arcadia.style('checkbox')){|_cb_reg|
       text  'Use Regular Expression'
       justify  'left'
-      relief  'flat'
+      #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|
+    @cb_back = TkCheckButton.new(self.frame, Arcadia.style('checkbox')){|_cb_reg|
       text  'Search backwards'
       justify  'left'
-      relief  'flat'
+      #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')	
+   @buttons_frame = TkFrame.new(self.frame, Arcadia.style('panel')).pack('fill'=>'x', 'side'=>'bottom')	
 
-    @b_replace_all = TkButton.new(@buttons_frame){|_b_go|
+    @b_replace_all = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go|
     		state 'disabled'
       default  'disabled'
       text  'Replace All'
-      overrelief  'raised'
+      #overrelief  'raised'
       justify  'center'
       #width 15
       pack('side'=>'right','ipadx'=>5, 'padx'=>5)
@@ -2202,11 +2399,11 @@ class Findview < TkFloatTitledFrame
     }
 
 
-    @b_replace = TkButton.new(@buttons_frame){|_b_go|
+    @b_replace = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go|
     		state 'disabled'
       default  'disabled'
       text  'Replace'
-      overrelief  'raised'
+      #overrelief  'raised'
       justify  'center'
       #width 15
       pack('side'=>'right','ipadx'=>5, 'padx'=>5)
@@ -2214,13 +2411,13 @@ class Findview < TkFloatTitledFrame
     }
 
     
-    @b_go = TkButton.new(@buttons_frame){|_b_go|
+    @b_go = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go|
       compound  'none'
       default  'disabled'
       text  'Find Next'
       #background  '#ffffff'
       #image TkPhotoImage.new('dat' => FIND_GIF)
-      overrelief  'raised'
+      #overrelief  'raised'
       justify  'center'
       #relief  'ridge'
       #width 15
@@ -2465,27 +2662,28 @@ class GoToLine < TkFloatTitledFrame
     #stop_resizing
  	  y0 = 10
     d = 23    
-   TkLabel.new(self.frame){
+   TkLabel.new(self.frame, Arcadia.style('label')){
    	text 'Go to line:'
    	place('x' => 8,'y' => y0,'height' => 19)
    }
    y0 = y0 + d
-   	@e_line = TkEntry.new(self.frame){
+   	@e_line = TkEntry.new(self.frame, Arcadia.style('edit')){
       justify  'left'
-      relief  'ridge'
+      #relief  'ridge'
       place('relwidth' => 1, 'width'=>-16,'x' => 8,'y' => y0,'height' => 19)
    	}
+    @e_line.bind_append("1",proc{Arcadia.process_event(InputEnterEvent.new(self,'receiver'=>@e_line))})
     
    	y0 = y0 + d
    	y0 = y0 + d
-   @buttons_frame = TkFrame.new(self.frame).pack('fill'=>'x', 'side'=>'bottom')	
+   @buttons_frame = TkFrame.new(self.frame, Arcadia.style('panel')).pack('fill'=>'x', 'side'=>'bottom')	
     
-    @b_go = TkButton.new(@buttons_frame){|_b_go|
+    @b_go = TkButton.new(@buttons_frame, Arcadia.style('button')){|_b_go|
       compound  'none'
       default  'disabled'
       text  'Go'
-      overrelief  'raised'
-      justify  'center'
+      #overrelief  'raised'
+      #justify  'center'
       pack('side'=>'right','ipadx'=>5, 'padx'=>5)
     }
     place('x'=>150,'y'=>150,'height'=> 120,'width'=> 100)