arcadia 0.2.0 → 0.3.0

data/ext/ae-output/ae-output.conf

@@ -14,3 +14,5 @@ win::font={Courier New} 9
 win::font.bold={Courier New} 9 bold 
 hightlight.sel.color.foreground=black
 hightlight.sel.color.background=#ff8000
+color.foreground=black
+color.background=#FFFFFF

data/ext/ae-output/ae-output.rb

@@ -1,202 +1,200 @@
-#
-#   ae-output.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require "tk"
-#require "base/a-utils"
-
-class OutputView
-  attr_reader :text
-  def initialize(parent=nil)
-    
-    left_frame = TkFrame.new(parent.frame).place('x' => '0','y' => '0','relheight' => '1','width' => '25')
-
-    @button_u = Tk::BWidget::Button.new(left_frame){
-      image  TkPhotoImage.new('dat' => CLEAR_GIF)
-      helptext 'Clear'
-      foreground 'blue'
-      command proc{parent.main_frame.text.delete('1.0','end')}
-      relief 'groove'
-      pack('side' =>'top', 'anchor'=>'n',:padx=>0, :pady=>0)
-    }
-
-    
-    #@splitted_frame = AGTkVSplittedFrames.new(parent.frame,20)
-    @text = TkText.new(parent.frame,
-      'wrap'=>  'none',
-      'relief' =>  'sunken',
-      'font' => parent.conf('font')
-    ){|j|
-      TkScrollbar.new(j){|s|
-        command proc{|*args| j.yview(*args)}
-        j.yscrollcommand proc{|first,last| s.set first,last}
-      }.pack('side'=>'right', 'fill'=>'y')
-    }.place('relwidth' => '1','x' => '25','y' => '0','relheight' => '1', 'width' => '-25')
-    @text.tag_configure('simple_msg',
-       'background' => '#d9d994',
-       'borderwidth'=>1,
-       'relief'=> 'flat'
-    )
-    @text.tag_configure('debug_msg',
-       'background' => '#f6c9f6',
-       'foreground' => '#000000',
-       'borderwidth'=>1,
-       'relief'=> 'flat'
-    )
-    @text.tag_configure('error_msg',
-       'background' => '#f6c9f6',
-       'foreground' => 'red',
-       'borderwidth'=>1,
-       'relief'=> 'flat'
-    )
-
-    @text.tag_configure('bord_msg',
-       #'foreground' => '#b9b8b9'
-       'foreground' => '#7c9b10'
-    )
-    @text.tag_configure('sel', 
-      'background'=>parent.conf('hightlight.sel.color.background'),
-      'foreground'=>parent.conf('hightlight.sel.color.foreground'))
-
-  end
-end
-
-class Output < ArcadiaExt
-  attr_reader :main_frame
-
-	def on_before_build(_event)
-    #ArcadiaContractListener.new(self, MsgContract, :do_msg_event)
-    Arcadia.add_listener(self, MsgEvent)
-    #_frame = @arcadia.layout.register_panel('_rome_',@name, 'Output')
-    @main_frame = OutputView.new(self)
-    @run_threads = Array.new
-	end
-
-
-  def on_after_build(_event)
-    self.frame_raise
-#    MainContract.instance.raise_extension(self, 
-#    		'domain'=>@arcadia['conf'][@name+'.frame'],
-#    		'extension' =>@name,
-#    		'channel'=>conf('MsgContract.channel'))
-  end
-
-	def format_time(_time)
-	  _time.strftime("at %a %d-%b-%Y %H:%M:%S")
-	end
-  
-   def on_msg(_event)
-	  self.frame_raise
-     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.msg.strip+"\n"
-     _index_begin = @main_frame.text.index('end')
-     @main_frame.text.insert(_index_begin,_txt)
-     _index_end = @main_frame.text.index('end')
-     case _event
-       when DebugMsgEvent
-       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_add('debug_msg',_index_begin, _index_end+ '  lineend')
-       		parse_debug(_index_begin.split('.')[0].to_i) 
-       when ErrorMsgEvent
-       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_add('error_msg',_index_begin, _index_end+ '  lineend')
-       		parse_debug(_index_begin.split('.')[0].to_i) 
-       else
-       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
-       		@main_frame.text.tag_add('simple_msg',_index_begin, _index_end+ '  lineend')
-     end
-   		@main_frame.text.tag_add('bord_msg',_index_begin+' linestart', _index_begin+ '  lineend')
-   		@main_frame.text.tag_add('bord_msg',_index_end+' -1 lines linestart', _index_end+ ' -1 lines  lineend')
-   		@main_frame.text.see(_index_end)
-   end
-  
-#	def do_msg_event(_event)
-#	  self.frame_raise
-#	   #p _event.context.text.class
-#     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.context.text.strip+"\n"
-#     _index_begin = @main_frame.text.index('end')
-#     @main_frame.text.insert(_index_begin,_txt)
-#     _index_end = @main_frame.text.index('end')
-#     if _event.context.type == MsgContract::TYPE_DEBUG
-#     		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
-#     		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
-#     		@main_frame.text.tag_add('debug_msg',_index_begin, _index_end+ '  lineend')
-#     		parse_debug(_index_begin.split('.')[0].to_i) 
-#		 elsif _event.context.type == MsgContract::TYPE_ERROR
-#     		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
-#     		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
-#     		@main_frame.text.tag_add('error_msg',_index_begin, _index_end+ '  lineend')
-#     		parse_debug(_index_begin.split('.')[0].to_i) 
-#		 else
-#     		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
-#     		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
-#     		@main_frame.text.tag_add('simple_msg',_index_begin, _index_end+ '  lineend')
-#     end
-#   		@main_frame.text.tag_add('bord_msg',_index_begin+' linestart', _index_begin+ '  lineend')
-#   		@main_frame.text.tag_add('bord_msg',_index_end+' -1 lines linestart', _index_end+ ' -1 lines  lineend')
-#   		@main_frame.text.see(_index_end)
-#	end
-	
-	def parse_debug(_from_row=0)
-    _row = 0
-    _cursor = @main_frame.text.cget('cursor')
-    @main_frame.text.value.each{|l|
-      _row = _row+1
-      if _row >= _from_row
-        _end = 0
-        m = /([\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*\.rb):(\d*)/.match(l)
-        while m
-          _txt = m.post_match
-          if m[1] && m[2]
-            _file = m[1]
-            _line = m[2]
-            _ibegin = _row.to_s+'.'+(m.begin(1)+_end).to_s
-            _iend = _row.to_s+'.'+(m.end(2)+_end).to_s
-            _end = m.end(2) + _end
-            @main_frame.text.tag_configure(_row,
-              'foreground' => '#800000',
-              'borderwidth'=>0,
-              'relief'=>'flat',
-              'underline'=>true
-            )
-            @main_frame.text.tag_add(_row,_ibegin,_iend)
-            @main_frame.text.tag_bind(_row,"Double-ButtonPress-1",
-              proc{
-                Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line))
-              		#EditorContract.instance.open_file(self, 'file'=>_file, 'line'=>_line)
-              }
-            )
-            @main_frame.text.tag_bind(_row,"Enter",
-              proc{@main_frame.text.configure('cursor'=> 'hand2')}
-            )
-            @main_frame.text.tag_bind(_row,"Leave",
-              proc{@main_frame.text.configure('cursor'=> _cursor)}
-            )
-  
-  
-
-         end
-      	  m = /([A-Za-z]*[\.:]{0,1}[\/\w\d]*\.rb):(\d*)/.match(_txt)
-       end
-     end
-    }
-	end
-
-  def out(_txt=nil, _tag=nil)
-    if @main_frame && _txt
-      if _tag
-        @main_frame.text.insert('end',_txt, _tag)
-      else
-        @main_frame.text.insert('end',_txt)
-      end
-    end
-  end
-
-  def outln(_txt=nil, _tag=nil)
-    self.out(_txt+"\n",_tag)
-  end
-
-end
+#
+#   ae-output.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "tk"
+#require "base/a-utils"
+
+class OutputView
+  attr_reader :text
+  def initialize(parent=nil)
+    
+    left_frame = TkFrame.new(parent.frame.hinner_frame, Arcadia.style('panel')).place('x' => '0','y' => '0','relheight' => '1','width' => '25')
+
+    @button_u = Tk::BWidget::Button.new(left_frame, Arcadia.style('toolbarbutton')){
+      image  TkPhotoImage.new('dat' => CLEAR_GIF)
+      helptext 'Clear'
+      #foreground 'blue'
+      command proc{parent.main_frame.text.delete('1.0','end')}
+      #relief 'groove'
+      pack('side' =>'top', 'anchor'=>'n',:padx=>0, :pady=>0)
+    }
+
+    
+    #@splitted_frame = AGTkVSplittedFrames.new(parent.frame,20)
+    @text = TkText.new(parent.frame.hinner_frame,
+      {'wrap'=>  'none'}.update(Arcadia.style('edit'))
+    ){|j|
+      TkScrollbar.new(j, Arcadia.style('scrollbar')){|s|
+        command proc{|*args| j.yview(*args)}
+        j.yscrollcommand proc{|first,last| s.set first,last}
+      }.pack('side'=>'right', 'fill'=>'y')
+    }.place('relwidth' => '1','x' => '25','y' => '0','relheight' => '1', 'width' => '-25')
+    @text.tag_configure('simple_msg',
+       'background' => '#d9d994',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+    @text.tag_configure('debug_msg',
+       'background' => '#f6c9f6',
+       'foreground' => '#000000',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+    @text.tag_configure('error_msg',
+       'background' => '#f6c9f6',
+       'foreground' => 'red',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+
+    @text.tag_configure('bord_msg',
+       #'foreground' => '#b9b8b9'
+       'foreground' => '#7c9b10'
+    )
+    @text.tag_configure('sel', 
+      'background'=>parent.conf('hightlight.sel.color.background'),
+      'foreground'=>parent.conf('hightlight.sel.color.foreground'))
+
+  end
+end
+
+class Output < ArcadiaExt
+  attr_reader :main_frame
+
+	def on_before_build(_event)
+    #ArcadiaContractListener.new(self, MsgContract, :do_msg_event)
+    Arcadia.attach_listener(self, MsgEvent)
+    #_frame = @arcadia.layout.register_panel('_rome_',@name, 'Output')
+    @main_frame = OutputView.new(self)
+    @run_threads = Array.new
+	end
+
+
+  def on_after_build(_event)
+    self.frame.show
+#    MainContract.instance.raise_extension(self, 
+#    		'domain'=>@arcadia['conf'][@name+'.frame'],
+#    		'extension' =>@name,
+#    		'channel'=>conf('MsgContract.channel'))
+  end
+
+	def format_time(_time)
+	  _time.strftime("at %a %d-%b-%Y %H:%M:%S")
+	end
+  
+   def on_msg(_event)
+	  self.frame.show
+     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.msg.strip+"\n"
+     _index_begin = @main_frame.text.index('end')
+     @main_frame.text.insert(_index_begin,_txt)
+     _index_end = @main_frame.text.index('end')
+     case _event.level
+       when 'debug'
+       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_add('debug_msg',_index_begin, _index_end+ '  lineend')
+       		parse_debug(_index_begin.split('.')[0].to_i) 
+       when 'error'
+       		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_add('error_msg',_index_begin, _index_end+ '  lineend')
+       		parse_debug(_index_begin.split('.')[0].to_i) 
+       else
+       		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
+       		@main_frame.text.tag_add('simple_msg',_index_begin, _index_end+ '  lineend')
+     end
+   		@main_frame.text.tag_add('bord_msg',_index_begin+' linestart', _index_begin+ '  lineend')
+   		@main_frame.text.tag_add('bord_msg',_index_end+' -1 lines linestart', _index_end+ ' -1 lines  lineend')
+   		@main_frame.text.see(_index_end)
+   end
+  
+#	def do_msg_event(_event)
+#	  self.frame_raise
+#	   #p _event.context.text.class
+#     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.context.text.strip+"\n"
+#     _index_begin = @main_frame.text.index('end')
+#     @main_frame.text.insert(_index_begin,_txt)
+#     _index_end = @main_frame.text.index('end')
+#     if _event.context.type == MsgContract::TYPE_DEBUG
+#     		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
+#     		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
+#     		@main_frame.text.tag_add('debug_msg',_index_begin, _index_end+ '  lineend')
+#     		parse_debug(_index_begin.split('.')[0].to_i) 
+#		 elsif _event.context.type == MsgContract::TYPE_ERROR
+#     		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
+#     		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
+#     		@main_frame.text.tag_add('error_msg',_index_begin, _index_end+ '  lineend')
+#     		parse_debug(_index_begin.split('.')[0].to_i) 
+#		 else
+#     		@main_frame.text.tag_remove('error_msg',_index_begin, _index_end+ '  lineend')
+#     		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
+#     		@main_frame.text.tag_add('simple_msg',_index_begin, _index_end+ '  lineend')
+#     end
+#   		@main_frame.text.tag_add('bord_msg',_index_begin+' linestart', _index_begin+ '  lineend')
+#   		@main_frame.text.tag_add('bord_msg',_index_end+' -1 lines linestart', _index_end+ ' -1 lines  lineend')
+#   		@main_frame.text.see(_index_end)
+#	end
+	
+	def parse_debug(_from_row=0)
+    _row = 0
+    _cursor = @main_frame.text.cget('cursor')
+    @main_frame.text.value.each{|l|
+      _row = _row+1
+      if _row >= _from_row
+        _end = 0
+        m = /([\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*\.rb):(\d*)/.match(l)
+        while m
+          _txt = m.post_match
+          if m[1] && m[2]
+            _file = m[1]
+            _line = m[2]
+            _ibegin = _row.to_s+'.'+(m.begin(1)+_end).to_s
+            _iend = _row.to_s+'.'+(m.end(2)+_end).to_s
+            _end = m.end(2) + _end
+            @main_frame.text.tag_configure(_row,
+              'foreground' => '#800000',
+              'borderwidth'=>0,
+              'relief'=>'flat',
+              'underline'=>true
+            )
+            @main_frame.text.tag_add(_row,_ibegin,_iend)
+            @main_frame.text.tag_bind(_row,"Double-ButtonPress-1",
+              proc{
+                Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line))
+              		#EditorContract.instance.open_file(self, 'file'=>_file, 'line'=>_line)
+              }
+            )
+            @main_frame.text.tag_bind(_row,"Enter",
+              proc{@main_frame.text.configure('cursor'=> 'hand2')}
+            )
+            @main_frame.text.tag_bind(_row,"Leave",
+              proc{@main_frame.text.configure('cursor'=> _cursor)}
+            )
+  
+  
+
+         end
+      	  m = /([A-Za-z]*[\.:]{0,1}[\/\w\d]*\.rb):(\d*)/.match(_txt)
+       end
+     end
+    }
+	end
+
+  def out(_txt=nil, _tag=nil)
+    if @main_frame && _txt
+      if _tag
+        @main_frame.text.insert('end',_txt, _tag)
+      else
+        @main_frame.text.insert('end',_txt)
+      end
+    end
+  end
+
+  def outln(_txt=nil, _tag=nil)
+    self.out(_txt+"\n",_tag)
+  end
+
+end

data/ext/ae-rad/ae-rad-inspector.rb

@@ -4,7 +4,7 @@
 #
 
 require 'tk'
-require 'base/a-tkcommons'
+require 'lib/a-tkcommons'
 require 'tkextlib/bwidget'
 require "observer"
 
@@ -48,9 +48,9 @@ class TkStringType < TkTy
     @family = _family
     @etext = TkVariable.new(_host.cget('text'))
     @etextvalue = @etext.to_s
-    @propobj = TkEntry.new(_host, 'textvariable'=>@etext){
-      relief 'groove'
-      font $arcadia['conf']['inspectors.inspector.value.font']
+    @propobj = TkEntry.new(_host, Arcadia.style('edit').update({'textvariable'=>@etext})){
+      #relief 'groove'
+      #font $arcadia['conf']['inspectors.inspector.value.font']
       place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1, 'bordermode'=>'outside')
     }
     @propobj.bind("KeyRelease-F1", proc{do_update})
@@ -78,15 +78,15 @@ class TkProcType < TkStringType
 
   def initialize(_host,  _family, _agobj, _prop)
     super(_host, _family, _agobj, _prop, true)
-    @bProp = TkButton.new(@propobj){
+    @bProp = TkButton.new(@propobj, Arcadia.style('toolbarbutton')){
       text  '...'
-      relief  'flat'
+      #relief  'flat'
       anchor  'e'
       padx  0
       pady  0
-      activebackground background
-      activeforeground 'red'
-      borderwidth 1
+      #activebackground background
+      #activeforeground 'red'
+      #borderwidth 1
       pack('side' => 'right','fill' => 'y')
     }
     do_proc_update = proc{
@@ -133,10 +133,9 @@ class TkEnumType < TkTy
       _values = _prop['type'].values
       #Tk.messageBox('message'=>_values.class.to_s)
     end
-    @propobj = Tk::BWidget::ComboBox.new(_host){
+    @propobj = Tk::BWidget::ComboBox.new(_host, Arcadia.style('combobox')){
       values  _values
       modifycmd do_update
-      font $arcadia['conf']['inspectors.inspector.value.font']
       editable _editable
       place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1, 'bordermode'=>'outside')
       def e
@@ -184,15 +183,15 @@ class TkEnumProcType < TkEnumType
 
   def initialize(_host,  _family, _agobj, _prop)
     super(_host, _family, _agobj, _prop, true)
-    @bProp = TkButton.new(@propobj.e){
+    @bProp = TkButton.new(@propobj.e, Arcadia.style('toolbarbutton')){
       text  '...'
-      relief  'flat'
+      #relief  'flat'
       anchor  'e'
       padx  0
       pady  0
-      activebackground background
-      activeforeground 'red'
-      borderwidth 1
+      #activebackground background
+      #activeforeground 'red'
+      #borderwidth 1
       pack('side' => 'right','fill' => 'y')
     }
     do_proc_update = proc{
@@ -270,13 +269,14 @@ class ValueRap
     if !defined? @parent.lasthandlervalue
       @parent.lasthandlervalue = 0
     end
-    @labelkey = TkLabel.new(@parent.right_text,
+    @labelkey = TkLabel.new(@parent.right_text,Arcadia.style('label').update({
     'text' => _text,
     'justify' => 'right',
     'anchor' => 'w',
     #'width'=>15,
-    'font'=> $arcadia['conf']['inspectors.inspector.value.font'],
-    'relief'=>'groove')
+    #'font'=> $arcadia['conf']['inspectors.inspector.value.font'],
+    #'relief'=>'groove'
+    }))
     
     TkTextWindow.new(@parent.right_text, 'end', 'window'=> @labelkey)
 
@@ -353,10 +353,10 @@ class PropLine
     @parent = _parent
     @prop = _prop
     
-    @propkey = TkLabel.new(@parent.left_text){
+    @propkey = TkLabel.new(@parent.left_text, Arcadia.style('label')){
       text _name
       justify 'right'
-      font $arcadia['conf']['inspectors.inspector.key.font']
+      #font $arcadia['conf']['inspectors.inspector.key.font']
       anchor 'w'
      # pack('fill'=>'x',:padx=>0, :pady=>0)
     }
@@ -401,12 +401,11 @@ class ValueRapReadOnly
     if !defined? @parent.bodyprops.lasthandlervalue
       @parent.bodyprops.lasthandlervalue = 0
     end
-    @labelkey = TkLabel.new(@host,
+    @labelkey = TkLabel.new(@host, Arcadia.style('label').update({
     'text' => _text,
     'justify' => 'right',
-    'anchor' => 'w',
-    'font'=> $arcadia['conf']['inspectors.inspector.value.font'],
-    'relief'=>'groove')
+    'anchor' => 'w'
+    }))
     @labelkey.pack('fill'=>'x',:padx=>0, :pady=>0)
     @labelkey.bind("ButtonPress-1", proc{
       do_manage_read_only
@@ -451,10 +450,9 @@ class PropLineReadOnly
     @bodyprops = _bodyprops
     @key = _key
     @splitted_frame = AGTkVSplittedFrames.new(@bodyprops.host, 85)
-    @propkey = TkLabel.new(@splitted_frame.left_frame){
+    @propkey = TkLabel.new(@splitted_frame.left_frame, Arcadia.style('label')){
       text _key
       justify 'right'
-      font $arcadia['conf']['inspectors.inspector.key.font']
       anchor 'w'
       pack('fill'=>'x',:padx=>0, :pady=>0)
     }
@@ -549,10 +547,10 @@ class InspectList
   def initialize(_family, _host, _left_width = 85)
     @lasthandlervalue = 0;
     @family = _family
-    @bar = TkScrollbar.new(_host).pack('side'=>'right', 'fill'=>'y')
+    @bar = TkScrollbar.new(_host, Arcadia.style('scrollbar')).pack('side'=>'right', 'fill'=>'y')
     @pwind = AGTkVSplittedFrames.new(_host,_left_width)
     background = _host.cget('background')
-    common_properties = {'relief'=>'flat','state'=>'disabled', 'borderwidth'=>0, 'relief'=>'flat', 'background'=>background}
+    common_properties = {'relief'=>'flat','state'=>'disabled', 'borderwidth'=>0, 'background'=>background}
     @left_text = TkText.new(@pwind.left_frame, common_properties).pack('expand'=>'yes', 'fill'=>'both')
     @right_text = TkText.new(@pwind.right_frame, common_properties).pack('expand'=>'yes', 'fill'=>'both')
     
@@ -658,10 +656,10 @@ class  InnerFrameInspectMultiList < TkFrame
   attr_reader :tkFrameHost
   attr_reader :index
   def initialize(_parent, _index,_contr=nil)
-    super(_parent)
+    super(_parent, Arcadia.style('panel'))
     @index = _index
-    borderwidth  2
-    relief  'groove'
+    #borderwidth  2
+    #relief  'groove'
     pack('side' => 'top',
     'anchor' => 'n',
     'expand' => 0,
@@ -669,15 +667,15 @@ class  InnerFrameInspectMultiList < TkFrame
     'fill' => 'x')
     _self = self
     bind('Enter', proc{ _contr.set_current(_index)})
-    @lTitle = TkLabel.new(self){
+    @lTitle = TkLabel.new(self, Arcadia.style('titlelabel')){
       text  '...'
-      background  '#494949'
+      #background  '#494949'
       place('relwidth' => '1',
       'x' => 0,
       'y' => 0,
       'height' => 19)
 
-      @tkButtonX = TkButton.new(self){
+      @tkButtonX = TkButton.new(self, Arcadia.style('button')){
         text  'X'
         pack('side' => 'top',
         'anchor' => 'e')
@@ -688,9 +686,9 @@ class  InnerFrameInspectMultiList < TkFrame
       end
     }
 
-    @tkFrameHost = TkFrame.new(self){
+    @tkFrameHost = TkFrame.new(self, Arcadia.style('panel')){
       borderwidth  2
-      relief  'groove'
+      #relief  'groove'
       place('relwidth' => '1',
       'x' => 0,
       'y' => 19,
@@ -706,20 +704,20 @@ class InspectMultiList
     _contr = self
     @family = _family
     @itemCount = 0
-    @tkFrame1 = TkFrame.new(_host){
-      borderwidth  2
-      relief  'groove'
+    @tkFrame1 = TkFrame.new(_host, Arcadia.style('panel')){
+      #borderwidth  2
+      #relief  'groove'
       place(
       'relwidth' => '1',
       'x' => 0,
       'y' => 0,
       'height' => 30
       )
-      @tkButton1 = TkButton.new(self){
+      @tkButton1 = TkButton.new(self, Arcadia.style('button')){
         text  'New'
         padx  0
         pady  0
-        relief  'groove'
+        #relief  'groove'
         place(
         'x' => 2,
         'y' => 2,
@@ -732,9 +730,9 @@ class InspectMultiList
         attr_reader :tkButton1
       end
     }
-    @tkFrame2 = TkFrame.new(_host){
+    @tkFrame2 = TkFrame.new(_host, Arcadia.style('panel')){
       borderwidth  2
-      relief  'groove'
+      #relief  'groove'
       place(
       'relwidth' => '1',
       'relheight' => '1',
@@ -856,8 +854,8 @@ end
 class TkScrollbox<TkListbox
   include TkComposite
   def initialize_composite(keys=nil)
-    list = TkListbox.new(@frame)
-    scroll = TkScrollbar.new(@frame)
+    list = TkListbox.new(@frame, Arcadia.style('edit'))
+    scroll = TkScrollbar.new(@frame, Arcadia.style('scrollbar'))
     @path = list.path
     list.configure 'yscroll', scroll.path+" set"
     list.pack 'side'=>'left','fill'=>'both','expand'=>'yes'
@@ -910,7 +908,7 @@ class TkScrollboxObjBoard < ObjBoard
 
   def initialize(_host)
     super
-    @sb = TkScrollbox.new(_host){
+    @sb = TkScrollbox.new(_host, Arcadia.style('edit')){
       width  200
       height 200
       pack('fill'=>'both', :padx=>0, :pady=>0)
@@ -949,7 +947,7 @@ class TkBwComboBoxObjBoard < ObjBoard
       @obji.select(@objectsList[_itemindex])
       @objectsList[_itemindex].activate
     }
-    @sb = Tk::BWidget::ComboBox.new(_host){
+    @sb = Tk::BWidget::ComboBox.new(_host, Arcadia.style('combobox')){
       modifycmd do_select
       editable false
       expand 'tab'
@@ -986,20 +984,20 @@ class TkMenuButtonObjBoard < ObjBoard
 
   def initialize(_host, _obji)
     super
-    @sb = TkMenubutton.new(
+    @sb = TkMenubutton.new(Arcadia.style('menu').update({
     :parent=>_host,
     :underline=>0,
     :direction=>:flush,
-    :font=>$arcadia['conf']['inspectors.inspector.tree.font'],
-    :relief=>:groove,
-    :background=> :white,
-    :justify=> :left){|mb|
-      menu TkMenu.new(
+    #:font=>$arcadia['conf']['inspectors.inspector.tree.font'],
+    #:relief=>:groove,
+    #:background=> :white,
+    :justify=> :left})){|mb|
+      menu TkMenu.new(Arcadia.style('menu').update({
       :parent=>mb,
-      :tearoff=>1,
-      :font=>$arcadia['conf']['inspectors.inspector.tree.font'],
-      :background=> :white,:relief=>'flat'
-      )
+      :tearoff=>1
+      #:font=>$arcadia['conf']['inspectors.inspector.tree.font'],
+      #:background=> :white,:relief=>'flat'
+      }))
       pack('fill'=>'x', 'padx'=>0, 'pady'=>0, 'anchor'=>'n')
     }
     @menu = @sb.cget('menu')
@@ -1124,11 +1122,11 @@ class Obji
     @f_top =  @pmainwind.top_frame
     @f_bottom =  @pmainwind.bottom_frame
     @lb = TkMenuButtonObjBoard.new(@f_top, self)
-    @ojts = Tk::BWidget::NoteBook.new(@f_bottom){
+    @ojts = Tk::BWidget::NoteBook.new(@f_bottom, Arcadia.style('tabpanel')){
       tabbevelsize 0
       internalborderwidth 0
       side $arcadia['conf']['inspectors.inspector.tabs.side']
-      font $arcadia['conf']['inspectors.inspector.tabs.font']
+      #font $arcadia['conf']['inspectors.inspector.tabs.font']
       pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
     }
     #@inspect_core = _agobj_start.class.class_inspector.new(@ojts, _agobj_start)
@@ -1264,11 +1262,11 @@ class ObjiControllerView
   attr_reader :nb_base
   attr_reader :layout
   def initialize(_frame)
-    @nb_base = Tk::BWidget::NoteBook.new(_frame){
+    @nb_base = Tk::BWidget::NoteBook.new(_frame, Arcadia.style('tabpanel')){
       tabbevelsize 0
       internalborderwidth 0
       side $arcadia['conf']['inspectors.tabs.side']
-      font $arcadia['conf']['inspectors.tabs.font']
+      #font $arcadia['conf']['inspectors.tabs.font']
       pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
     }
   end
@@ -1293,10 +1291,6 @@ class ObjiController #< ArcadiaExt
     @rad.frame(0)
   end
 
-  def frame_free
-    @rad.frame_free(0)
-  end
-  
   def build
     #@main_frame = ObjiControllerView.new(self.frame)
     @objis = Hash.new
@@ -1324,7 +1318,7 @@ class ObjiController #< ArcadiaExt
   
   def main_frame
   		if !defined?(@main_frame) || @main_frame == nil
-    		@main_frame = ObjiControllerView.new(self.frame)
+    		@main_frame = ObjiControllerView.new(self.frame.hinner_frame)
     end
     return @main_frame
   end
@@ -1381,7 +1375,7 @@ class ObjiController #< ArcadiaExt
     self.main_frame.nb_base.delete(@objis.delete(_obji))
     if @objis.length == 0
       @active = nil
-      self.frame_free
+      self.frame.free
       @main_frame = nil
     else
       activate(@objis.keys[@objis.length-1])
@@ -1482,11 +1476,11 @@ class AGTkInspector < AGInspector
   def initialize( _host, _agobj)
     super( _host, _agobj)
     @ojts_layout = _host.insert('end','layout','text'=>'Layout')
-    @top_panel = TkFrame.new(@ojts_layout){
+    @top_panel = TkFrame.new(@ojts_layout, Arcadia.style('panel')){
       place('x'=>0, 'y'=>0, 'relheight'=>1, 'relwidth'=>1)
     }
     @tabs['LayoutType'] = InspectList.new('layout_man', @top_panel)
-    @mid_panel = TkFrame.new(@ojts_layout){
+    @mid_panel = TkFrame.new(@ojts_layout, Arcadia.style('panel')){
       place('x'=>0, 'y'=>20,'relheight'=>1, 'relwidth'=>1)
     }
     @tabs['Layout'] = InspectList.new('...',@mid_panel)