arcadia 0.1.3 → 0.2.0

data/ext/ae-flag/ae-flag.conf

@@ -1,6 +1,6 @@
-name=flag
-label=Flag
-frame=0.0
-active=no
-require=ext/ae-flag/ae-flag
-class=ArcadiaFlag
+name=flag
+labels=Flag
+frames=0.0
+active=no
+require=ext/ae-flag/ae-flag
+class=ArcadiaFlag

data/ext/ae-flag/ae-flag.rb

@@ -1,12 +1,12 @@
-
-
-class ArcadiaFlag < ArcadiaExt
-  def build
-    @tkLabel3 = TkLabel.new(self.frame){
-      image  TkPhotoImage.new('format'=>'GIF','data' =>A_LOGO_GIF)
-      background  "#000000"
-      place('x'=> 0,'y' => 0, 'relwidth' =>'1', 'relheight'=>'1')
-    }
-  
-  end
-end
+
+
+class ArcadiaFlag < ArcadiaExt
+  def on_build(_event)
+    @tkLabel3 = TkLabel.new(self.frame){
+      image  TkPhotoImage.new('format'=>'GIF','data' =>A_LOGO_GIF)
+      background  "#000000"
+      place('x'=> 0,'y' => 0, 'relwidth' =>'1', 'relheight'=>'1')
+    }
+  
+  end
+end

data/ext/ae-inspector/ae-inspector.conf

@@ -1,7 +1,7 @@
 name=objic
-label=Object Inspector
-frame=1.0
-active=yes
+labels=Object Inspector
+frames=1.0
+active=no
 require=ext/ae-inspector/ae-inspector
 class=ObjiController
 

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

@@ -1277,12 +1277,12 @@ end
 class ObjiController < ArcadiaExt
   attr_reader :active 
 
-	def before_build
+	def on_before_build(_event)
     ArcadiaContractListener.new(self, InspectorContract, :do_inspector_event)
 	  ArcadiaContractListener.new(self, WrapperContract, :do_wrapper_event)
 	end
 
-  def build
+  def on_build(_event)
     #@main_frame = ObjiControllerView.new(self.frame)
     @objis = Hash.new
     @wrappers_obji = Hash.new

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

@@ -1,15 +1,15 @@
-name=output2
-label=Event Log
-frame=1.1
-active=no
-require=ext/ae-output/ae-output
-class=Output
-MsgContract.channel=CH1
-
-
-font=courier 10
-font.bold=courier 10 bold
-freebsd::font=courier 10
-freebsd::font.bold=courier 12 bold
-win::font={Courier New} 9
-win::font.bold={Courier New} 9 bold
+name=output2
+labels=Event Log
+frames=1.1
+active=no
+require=ext/ae-output/ae-output
+class=Output
+MsgContract.channel=CH1
+
+
+font=courier 10
+font.bold=courier 10 bold
+freebsd::font=courier 10
+freebsd::font.bold=courier 12 bold
+win::font={Courier New} 9
+win::font.bold={Courier New} 9 bold

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

@@ -1,14 +1,16 @@
 name=output
-label=Output
-frame=1.1
+labels=Output
+frames=1.1
 active=yes
 require=ext/ae-output/ae-output
 class=Output
 MsgContract.channel=0
-
+#--------------------------------------
 font=courier 10
 font.bold=courier 10 bold
 freebsd::font=courier 12
 freebsd::font.bold=courier 12 bold
 win::font={Courier New} 9
 win::font.bold={Courier New} 9 bold 
+hightlight.sel.color.foreground=black
+hightlight.sel.color.background=#ff8000

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

@@ -4,7 +4,7 @@
 #
 
 require "tk"
-require "base/a-utils"
+#require "base/a-utils"
 
 class OutputView
   attr_reader :text
@@ -55,6 +55,9 @@ class OutputView
        #'foreground' => '#b9b8b9'
        'foreground' => '#7c9b10'
     )
+    @text.tag_configure('sel', 
+      'background'=>parent.conf('hightlight.sel.color.background'),
+      'foreground'=>parent.conf('hightlight.sel.color.foreground'))
 
   end
 end
@@ -62,55 +65,80 @@ end
 class Output < ArcadiaExt
   attr_reader :main_frame
 
-	def before_build
-    ArcadiaContractListener.new(self, MsgContract, :do_msg_event)
+	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
-    @main_frame.text.tag_configure('error','foreground' => 'red')
 	end
 
 
-  def build
-    #@ae_file_contract = @arcadia.retrieve_contract(self, EditorActionContract, :file_state)
-  end
-
-  def after_build
-    MainContract.instance.raise_extension(self, 
-    		'domain'=>@arcadia['conf'][@name+'.frame'],
-    		'extension' =>@name,
-    		'channel'=>conf('MsgContract.channel'))
+  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 do_msg_event(_event)
-	   #p _event.context.text.class
-     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.context.text.strip+"\n"
+  
+   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')
-     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')
+     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
+   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
@@ -137,7 +165,8 @@ class Output < ArcadiaExt
             @main_frame.text.tag_add(_row,_ibegin,_iend)
             @main_frame.text.tag_bind(_row,"Double-ButtonPress-1",
               proc{
-              		EditorContract.instance.open_file(self, 'file'=>_file, 'line'=>_line)
+                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",

data/ext/ae-palette/ae-palette.conf

@@ -1,7 +1,7 @@
 name=palette
-label=Palette
-frame=0.0
-active=yes
+labels=Palette
+frames=0.0
+active=no
 require=ext/ae-palette/ae-palette
 class=Palette
 

data/ext/ae-palette/ae-palette.rb

@@ -1,306 +1,265 @@
-#
-#   ae-palette.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require 'base/a-libs'
-require 'lib/tk/al-tk'
-require 'tk'
-require 'tkmenubar'
-require 'tkextlib/bwidget'
-
-
-class Palette < ArcadiaExt
-  attr_reader :buttons
-	attr_reader :selected_wrapper  
-
-	def before_build
-	  ArcadiaContractListener.new(self, InspectorContract, :do_inspector_event)
-	  ArcadiaContractListener.new(self, PaletteContract, :do_palette_event)
-	end
-
-  def build
-    @buttons = Hash.new
-    create_palettes
-  end
-
-  def after_build
-  end
-  
-	def do_inspector_event(_event)
-     case _event.signature 
-     		when InspectorContract::SELECT_WRAPPER
-				@selected_wrapper=_event.context.wrapper
-     end  
-  end  
-
-  def do_palette_event(_event)
-     case _event.signature 
-     		when PaletteContract::MAKE_SELECTED_WRAPPER
-     		  give_me_obj(_event.context.parent)
-     end  
-  end
-
-  def eval_form_file(_filename)
-    cod = '';
-    IO.foreach(_filename) { |line| cod += line };
-    Revparsel.new(cod, _filename)
-  end
-
-
-  def eval_file(_filename)
-    cod = '';
-    begin
-      IO.foreach(_filename) { |line| cod += line }
-    rescue SystemCallError
-      handleException # defined elsewhere
-    end
-    eval(cod)
-  end
-
-  def create_palettes
-    @cc = WrapperContainer.new(self){
-      border 0
-      borderwidth 1
-    }
-    @cc.pack('side' =>'left', 'fill' =>'both', 'anchor'=>'nw', :padx=>2, :pady=>2)
-    @arcadia.libs.list.each{|lib|
-      @cc.add_palette(lib)
-    }
-  end
-
-  def give_me_obj(_owner)
-    @cc.new_wrapper(_owner)
-  end
-
-  def give_me_code
-    @cc.new_wrapper_code
-  end
-
-end
-
-class WrapperContainer < TkFrame
-
-  def initialize(_owner)
-    super(_owner.frame)
-    @owner = _owner
-    _self = self
-    frame = TkFrame.new(self).pack('side' =>'left', 'anchor'=>'n', :padx=>2, :pady=>2)
-
-    @button_u = Tk::BWidget::Button.new(frame){
-      image  TkPhotoImage.new('dat' => CURSOR_GIF)
-      helptext 'Select'
-      text 'C'
-      foreground 'blue'
-      command proc{_self.unfill}
-      relief 'groove'
-      pack('side' =>'top', 'anchor'=>'n',:padx=>2, :pady=>2)
-    }
-    @button_m = Tk::BWidget::Button.new(frame){
-      _command = proc{
-        require 'tk/clipboard'
-        _code = AG.active.renderer.class_code.to_s if AG.active
-        TkClipboard::set(_code)
-        eval(_code)
-        _self.fill(
-        self,
-        _owner.selected_wrapper.class,
-        nil,
-        _owner.selected_wrapper.getInstanceClass
-        )
-        _self.new_wrapper if _owner.selected_wrapper.class.is_top
-
-      }
-      image  TkPhotoImage.new('dat' => WIDGET_COPY_GIF)
-      helptext 'Copy current selected'
-      text 'C'
-      foreground 'blue'
-      command _command
-      relief 'groove'
-      pack('side' =>'left','anchor'=>'n', :padx=>2, :pady=>2)
-    }
-    @familyts = Tk::BWidget::NoteBook.new(self){
-      tabbevelsize 0
-      internalborderwidth 1
-      activeforeground 'orange'
-      font $arcadia['conf']['main.font']
-      pack('side' =>'left','expand'=>'yes','fill'=>'both', :padx=>2, :pady=>2)
-    }
-    @objCollections = Array.new
-  end
-
-  def new_wrapper_code
-    _code = ''
-    if @selected_button != nil && @selected_class_obj != nil
-      #objiinfo = @owner.ae_inspector_talker.info
-      #_code = objiinfo.active_wrapper.renderer.class_code.to_s
-      _code = AG.active.renderer.class_code.to_s
-      @selected_button.configure('relief'=>'groove')
-      @selected_button = @selected_class = @selected_require = nil
-    end
-    return _code
-  end
-
-
-  def new_wrapper(_parent = nil, _obj = nil)
-    if @selected_button == nil
-      return
-    end
-    # copy obj
-    if @selected_class_obj != nil && _obj == nil
-      _obj = eval(@selected_class_obj).new(_parent == nil ?nil:_parent.obj)
-    end
-    
-    w = @selected_class.new(_parent, _obj)
-    #$arcadia['objic'].active.select_last(true) if @selected_class_obj != nil
-    #$arcadia.objects('objic').active.addRequire(@selected_require) if @selected_require != nil
-    
-    
-    w.select.activate if @selected_class_obj != nil
-    w.add_require([@selected_require]) if @selected_require != nil
-    
-    @selected_button.configure('relief'=>'groove')
-    @selected_button = @selected_class = @selected_require = nil
-  end
-
-
-  def fill(_b, _class, _require, _class_obj = nil)
-    _b.configure('relief'=>'sunken')
-    if  @selected_button != nil
-      @selected_button.configure('relief'=>'groove')
-    end
-    @selected_button = _b
-    @selected_class = _class
-    @selected_require = _require
-    @selected_class_obj = _class_obj
-    Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text(_class.class_wrapped)
-
-  end
-
-  def unfill
-    if  @selected_button != nil
-      @selected_button.configure('relief'=>'groove')
-    end
-    @selected_button = nil
-    @selected_class = nil
-    @selected_require = nil
-    @selected_class_obj = nil
-    Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text('')
-  end
-
-  def add_palette(_lib_obj)
-    _name = _lib_obj.arcadia_lib_params.name
-    _file = _lib_obj.arcadia_lib_params.require
-    _img = nil
-    @objCollections << {
-      'name'=>_name,
-      'collection'=>_lib_obj,
-      'file'=>_file,
-      'img'=>_img
-    }
-
-    @classes_panel = @familyts.insert('end',_name,
-    'text'=>_name#,
-    )
-    
-    _background = @classes_panel.cget('background')
-
-		@tpanel = TkText.new(@classes_panel){
-		  relief 'flat'
-		  background _background
-		}.pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
-
-
-    _lib_obj.classes.each{|value|
-      _self = self
-      _image = self.class_image(value)
-      ewin = TkTextWindow.new(@tpanel, 'end',
-      'window'=> Tk::BWidget::Button.new(@tpanel){
-        _command = proc{
-          _self.fill(self, value, _file)
-          _self.new_wrapper if value.is_top
-        }
-        text value.class_wrapped.to_s
-        helptext  value.class_wrapped.to_s
-        image TkPhotoImage.new( 'dat' => _image )
-        foreground 'blue'
-        command _command
-        font $arcadia['conf']['main.component.font']
-        relief 'groove'
-        height 25
-        width 25
-        #pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
-      }
-      )
-    }
-		
-
-#    _lib_obj.classes.each{|value|
-#      _self = self
-#      _image = self.class_image(value)
-#      ewin = TkTextWindow.new(@tpanel, 'end',
-#      'window'=> Tk::BWidget::Button.new(@tpanel){
-#        _command = proc{
-#          _self.fill(self, value, _file)
-#          _self.new_wrapper if value.is_top
-#        }
-#        text value.class_wrapped.to_s
-#        helptext  value.class_wrapped.to_s
-#        image TkPhotoImage.new( 'dat' => _image )
-#        foreground 'blue'
-#        command _command
-#        font $arcadia['conf']['main.component.font']
-#        relief 'groove'
-#        pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
-#      }
-#      )
-#    }
-
-#    _lib_obj.classes.each{|value|
-#      _self = self
-#      _image = self.class_image(value)
-#       Tk::BWidget::Button.new(@classes_panel){
-#        _command = proc{
-#          _self.fill(self, value, _file)
-#          _self.new_wrapper if value.is_top
-#        }
-#        text value.class_wrapped.to_s
-#        helptext  value.class_wrapped.to_s
-#        image TkPhotoImage.new( 'dat' => _image )
-#        foreground 'blue'
-#        command _command
-#        font $arcadia['conf']['main.component.font']
-#        relief 'groove'
-#        pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
-#      }
-#      
-#    }
-
-    if @objCollections.length == 1
-      @familyts.raise(_name)
-    end
-  end
-
-  def class_image(_class=nil)
-    _current_class = _class
-    _found = false
-    if _class
-      _dir = File.dirname(_class.library.arcadia_lib_params.source)
-    end
-    while _current_class != nil && !_found
-      if defined?(_current_class.library)
-      		_dir = File.dirname(_current_class.library.arcadia_lib_params.source)
-      end
-      _img = (_current_class.to_s+"_gif").upcase
-      _data = eval(_img + ' if defined?('+_img+')' )
-      #_file = _dir+"/res/"+_current_class.to_s+".gif"
-      if _data
-      #if FileTest.exist?(_file)
-        _found = true
-      else
-        _current_class = _current_class.superclass
-      end
-    end
-    return (_found)?_data:A_WIDGET_GIF
-  end
-end
+#
+#   ae-palette.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'base/a-libs'
+require 'lib/tk/al-tk'
+require 'tk'
+require 'tkmenubar'
+require 'tkextlib/bwidget'
+
+
+class Palette < ArcadiaExt
+  attr_reader :buttons
+	attr_reader :selected_wrapper  
+
+	def on_before_build(_event)
+	  ArcadiaContractListener.new(self, InspectorContract, :do_inspector_event)
+	  ArcadiaContractListener.new(self, PaletteContract, :do_palette_event)
+	end
+
+  def on_build(_event)
+    @buttons = Hash.new
+    create_palettes
+  end
+
+  def on_after_build(_event)
+  end
+  
+	def do_inspector_event(_event)
+     case _event.signature 
+     		when InspectorContract::SELECT_WRAPPER
+				@selected_wrapper=_event.context.wrapper
+     end  
+  end  
+
+  def do_palette_event(_event)
+     case _event.signature 
+     		when PaletteContract::MAKE_SELECTED_WRAPPER
+     		  give_me_obj(_event.context.parent)
+     end  
+  end
+
+  def eval_form_file(_filename)
+    cod = '';
+    IO.foreach(_filename) { |line| cod += line };
+    Revparsel.new(cod, _filename)
+  end
+
+
+  def eval_file(_filename)
+    cod = '';
+    begin
+      IO.foreach(_filename) { |line| cod += line }
+    rescue SystemCallError
+      handleException # defined elsewhere
+    end
+    eval(cod)
+  end
+
+  def create_palettes
+    @cc = WrapperContainer.new(self){
+      border 0
+      borderwidth 1
+    }
+    @cc.pack('side' =>'left', 'fill' =>'both', 'anchor'=>'nw', :padx=>2, :pady=>2)
+    @arcadia.libs.list.each{|lib|
+      @cc.add_palette(lib)
+    }
+  end
+
+  def give_me_obj(_owner)
+    @cc.new_wrapper(_owner)
+  end
+
+  def give_me_code
+    @cc.new_wrapper_code
+  end
+
+end
+
+class WrapperContainer < TkFrame
+
+  def initialize(_owner)
+    super(_owner.frame)
+    @owner = _owner
+    _self = self
+    frame = TkFrame.new(self).pack('side' =>'left', 'anchor'=>'n', :padx=>2, :pady=>2)
+
+    @button_u = Tk::BWidget::Button.new(frame){
+      image  TkPhotoImage.new('dat' => CURSOR_GIF)
+      helptext 'Select'
+      text 'C'
+      foreground 'blue'
+      command proc{_self.unfill}
+      relief 'groove'
+      pack('side' =>'top', 'anchor'=>'n',:padx=>2, :pady=>2)
+    }
+    @button_m = Tk::BWidget::Button.new(frame){
+      _command = proc{
+        require 'tk/clipboard'
+        _code = AG.active.renderer.class_code.to_s if AG.active
+        TkClipboard::set(_code)
+        eval(_code)
+        _self.fill(
+        self,
+        _owner.selected_wrapper.class,
+        nil,
+        _owner.selected_wrapper.getInstanceClass
+        )
+        _self.new_wrapper if _owner.selected_wrapper.class.is_top
+
+      }
+      image  TkPhotoImage.new('dat' => WIDGET_COPY_GIF)
+      helptext 'Copy current selected'
+      text 'C'
+      foreground 'blue'
+      command _command
+      relief 'groove'
+      pack('side' =>'left','anchor'=>'n', :padx=>2, :pady=>2)
+    }
+    @familyts = Tk::BWidget::NoteBook.new(self){
+      tabbevelsize 0
+      internalborderwidth 1
+      activeforeground 'orange'
+      font $arcadia['conf']['main.font']
+      pack('side' =>'left','expand'=>'yes','fill'=>'both', :padx=>2, :pady=>2)
+    }
+    @objCollections = Array.new
+  end
+
+  def new_wrapper_code
+    _code = ''
+    if @selected_button != nil && @selected_class_obj != nil
+      #objiinfo = @owner.ae_inspector_talker.info
+      #_code = objiinfo.active_wrapper.renderer.class_code.to_s
+      _code = AG.active.renderer.class_code.to_s
+      @selected_button.configure('relief'=>'groove')
+      @selected_button = @selected_class = @selected_require = nil
+    end
+    return _code
+  end
+
+
+  def new_wrapper(_parent = nil, _obj = nil)
+    if @selected_button == nil
+      return
+    end
+    # copy obj
+    if @selected_class_obj != nil && _obj == nil
+      _obj = eval(@selected_class_obj).new(_parent == nil ?nil:_parent.obj)
+    end
+    
+    w = @selected_class.new(_parent, _obj)
+    #$arcadia['objic'].active.select_last(true) if @selected_class_obj != nil
+    #$arcadia.objects('objic').active.addRequire(@selected_require) if @selected_require != nil
+    
+    
+    w.select.activate if @selected_class_obj != nil
+    w.add_require([@selected_require]) if @selected_require != nil
+    
+    @selected_button.configure('relief'=>'groove')
+    @selected_button = @selected_class = @selected_require = nil
+  end
+
+
+  def fill(_b, _class, _require, _class_obj = nil)
+    _b.configure('relief'=>'sunken')
+    if  @selected_button != nil
+      @selected_button.configure('relief'=>'groove')
+    end
+    @selected_button = _b
+    @selected_class = _class
+    @selected_require = _require
+    @selected_class_obj = _class_obj
+    @owner.frame_title(_class.class_wrapped)
+    #Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text(_class.class_wrapped)
+
+  end
+
+  def unfill
+    if  @selected_button != nil
+      @selected_button.configure('relief'=>'groove')
+    end
+    @selected_button = nil
+    @selected_class = nil
+    @selected_require = nil
+    @selected_class_obj = nil
+    Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text('')
+  end
+
+  def add_palette(_lib_obj)
+    _name = _lib_obj.arcadia_lib_params.name
+    _file = _lib_obj.arcadia_lib_params.require
+    _img = nil
+    @objCollections << {
+      'name'=>_name,
+      'collection'=>_lib_obj,
+      'file'=>_file,
+      'img'=>_img
+    }
+
+    @classes_panel = @familyts.insert('end',_name,
+    'text'=>_name#,
+    )
+    
+    _background = @classes_panel.cget('background')
+
+		@tpanel = TkText.new(@classes_panel){
+		  relief 'flat'
+		  background _background
+		}.pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
+
+
+    _lib_obj.classes.each{|value|
+      _self = self
+      _image = self.class_image(value)
+      ewin = TkTextWindow.new(@tpanel, 'end',
+      'window'=> Tk::BWidget::Button.new(@tpanel){
+        _command = proc{
+          _self.fill(self, value, _file)
+          _self.new_wrapper if value.is_top
+        }
+        text value.class_wrapped.to_s
+        helptext  value.class_wrapped.to_s
+        image TkPhotoImage.new( 'dat' => _image )
+        foreground 'blue'
+        command _command
+        font $arcadia['conf']['main.component.font']
+        relief 'groove'
+        height 25
+        width 25
+        #pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
+      }
+      )
+    }
+
+    if @objCollections.length == 1
+      @familyts.raise(_name)
+    end
+  end
+
+  def class_image(_class=nil)
+    _current_class = _class
+    _found = false
+    if _class
+      _dir = File.dirname(_class.library.arcadia_lib_params.source)
+    end
+    while _current_class != nil && !_found
+      if defined?(_current_class.library)
+      		_dir = File.dirname(_current_class.library.arcadia_lib_params.source)
+      end
+      _img = (_current_class.to_s+"_gif").upcase
+      _data = eval(_img + ' if defined?('+_img+')' )
+      #_file = _dir+"/res/"+_current_class.to_s+".gif"
+      if _data
+      #if FileTest.exist?(_file)
+        _found = true
+      else
+        _current_class = _current_class.superclass
+      end
+    end
+    return (_found)?_data:A_WIDGET_GIF
+  end
+end