arcadia 0.2.0 → 0.3.0

data/{base → lib}/a-contracts.rb

@@ -130,14 +130,14 @@ end
 #  +---------------------------------------------+
 
 class MsgEvent < ArcadiaEvent
-   attr_accessor :msg
+   attr_accessor :msg, :level
 end
 
-class DebugMsgEvent < MsgEvent
-end
-
-class ErrorMsgEvent < MsgEvent
-end
+#class DebugMsgEvent < MsgEvent
+#end
+#
+#class ErrorMsgEvent < MsgEvent
+#end
 
 #  +---------------------------------------------+
 #         Other event
@@ -164,6 +164,28 @@ class RunRubyFileEvent < ArcadiaEvent
   attr_accessor :file
 end
 
+class InputEvent < ArcadiaEvent
+end
+
+class InputEnterEvent < InputEvent
+  attr_accessor :receiver
+end
+
+class InputExitEvent < InputEvent
+  attr_accessor :receiver
+end
+
+
+#class VirtualKeyboardEvent  < ArcadiaEvent
+#end
+#class VirtualKeyboardOnEvent < VirtualKeyboardEvent
+#  attr_accessor :receiver
+#end
+#
+#class VirtualKeyboardOffEvent < VirtualKeyboardEvent
+#end
+
+
 #  +---------------------------------------------+
 #         Dialog event (raised only by Arcadia)
 #         to raise use: 
@@ -179,20 +201,20 @@ class DialogEvent < ArcadiaEvent
   class Result < Result
     attr_accessor :value
   end
-  attr_accessor :title, :msg, :type
-end
-
-class QuestionDialogEvent < DialogEvent
-end
-
-class InfoDialogEvent < DialogEvent
+  attr_accessor :title, :msg, :type, :level
 end
 
-class WarningDialogEvent < DialogEvent
-end
-
-class ErrorDialogEvent < DialogEvent
-end
+#class QuestionDialogEvent < DialogEvent
+#end
+#
+#class InfoDialogEvent < DialogEvent
+#end
+#
+#class WarningDialogEvent < DialogEvent
+#end
+#
+#class ErrorDialogEvent < DialogEvent
+#end
 
 
 #  +---------------------------------------------+

data/{arcadia.rb → lib/a-core.rb}

@@ -1,67 +1,68 @@
 #
-#   arcadia.rb - Arcadia Ruby ide
+#   a-core.rb - Arcadia Ruby ide
 #   by Antonio Galeone <antonio-galeone@rubyforge.org>
 #
 
-Dir.chdir(File.dirname(__FILE__))
-if FileTest.exist?('conf/arcadia.init.rb')
-  require 'conf/arcadia.init'
-end
 require "conf/arcadia.res"
 require 'tkextlib/bwidget'
-require "base/a-tkcommons"
-require "base/a-contracts"
+require "lib/a-tkcommons"
+require "lib/a-contracts"
 require "observer"
 
 class Arcadia < TkApplication
   include Observable
   attr_reader :layout
   attr_reader :main_menu
-  #attr_reader :libs
-  #attr_reader :root
   def initialize
     super(
       ApplicationParams.new(
         'arcadia',
-        '0.2.0',
+        '0.3.0',
         'conf/arcadia.conf',
         'conf/arcadia.pers'
       )
     )
+    load_config
     ArcadiaDialogManager.new(self)
-    self.load_local_config(false)
+    ActionDispatcher.new(self)
+    #self.load_local_config(false)
     ObjectSpace.define_finalizer($arcadia, self.class.method(:finalize).to_proc)
     publish('action.on_exit', proc{do_exit})
     _title = "Arcadia Ruby ide :: [Platform = "+RUBY_PLATFORM+'] [Ruby version = ' + RUBY_VERSION+']'
-    @root = TkRoot.new{
+    @root = TkRoot.new(
+      'background'=> self['conf']['background']
+      ){
       title _title
       withdraw
       protocol( "WM_DELETE_WINDOW", $arcadia['action.on_exit'])
     }
     @on_event = Hash.new
-    @main_menu_bar = TkMenubar.new.pack('fill'=>'x')
-    @mf_root = Tk::BWidget::MainFrame.new(@root){
+
+    @main_menu_bar = TkMenubar.new('background'=> self['conf']['background']).pack('fill'=>'x')
+    @mf_root = Tk::BWidget::MainFrame.new(@root,
+     'background'=> self['conf']['background']
+      ){
       menu @main_menu_bar
     }.pack(
       'anchor'=> 'center',
       'fill'=> 'both',
       'expand'=> 1
     )
-
     #.place('x'=>0,'y'=>0,'relwidth'=>1,'relheight'=>1)
     @mf_root.show_statusbar('none')
     #@toolbar = @mf_root.add_toolbar
     @main_toolbar = ArcadiaMainToolbar.new(self, @mf_root.add_toolbar)
     @is_toolbar_show=self['conf']['user_toolbar_show']=='yes'
     @mf_root.show_toolbar(0,@is_toolbar_show)
-    @splash = ArcadiaAboutSplash.new('... initialize')
-    @splash.set_progress(50)
-    @splash.deiconify
+    @use_splash = self['conf']['splash.show']=='yes'
+    @splash = ArcadiaAboutSplash.new('... initialize') if @use_splash
+    @splash.set_progress(50) if @splash
+    @splash.deiconify if @splash
     Tk.update
     #sleep(1)
-    @splash.next_step('..prepare')
+    @splash.next_step('..prepare')  if @splash
     prepare
-    @splash.last_step('..load finish')
+    @splash.last_step('..load finish')  if @splash
     geometry = (TkWinfo.screenwidth(@root)-4).to_s+'x'+
     (TkWinfo.screenheight(@root)-20).to_s+'+0+0'
     @root.deiconify
@@ -70,15 +71,18 @@ class Arcadia < TkApplication
     @root.geometry(geometry)
     Tk.update_idletasks
     #sleep(1)
-    @splash.destroy
+    @splash.destroy  if @splash
     if @first_run
       Arcadia.process_event(OpenBufferEvent.new(self,'file'=>'README'))
     elsif ARGV.length > 0
       ARGV.each{|_f|
+        if  $pwd != File.dirname(__FILE__) && !File.exist?(_f)
+          _f = "#{$pwd}/#{_f}"
+        end
         Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_f)) if File.exist?(_f)
       }
     end
-    Arcadia.add_listener(self, QuitEvent)
+    Arcadia.attach_listener(self, QuitEvent)
   end
   
   def on_quit(_event)
@@ -137,7 +141,7 @@ class Arcadia < TkApplication
     # create extensions
     @exts.each{|extension|
       if extension && ext_active?(extension)
-        @splash.next_step('... creating '+extension)
+        @splash.next_step('... creating '+extension)  if @splash
         ext_create(extension)
       end
     }
@@ -191,55 +195,100 @@ class Arcadia < TkApplication
     end
   end
 
-
-  def prepare
-    super
-    @splash.next_step('...initialize')
+  def init_layout
     @layout = ArcadiaLayout.new(self, @mf_root.get_frame)
-
-    @layout.add_cols(0,0,225)
-    #@layout.add_rows(0,0,180)
-    @layout.add_rows_perc(0,1,70)
-
-#    @layout.add_rows_perc(0,0,70)
-#    @layout.add_cols(0,0,225)
-#    @layout.add_rows(0,0,180)
-
-    
+    suf = "layout.split"
+    elems = self['conf'][suf]
+    return if elems.nil?
+    groups = elems.split(',')
+    groups.each{|group|
+      if group
+        suf1 = suf+'.'+group
+        begin
+          property = self['conf'][suf1]
+          c = property.split('c')
+          if c && c.length == 2
+            pt = c[0].split('.')
+            perc = c[1].include?('%')
+            w = c[1].sub('%','')
+            if perc 
+              @layout.add_cols_perc(pt[0].to_i, pt[1].to_i, w.to_i)
+            else
+              @layout.add_cols(pt[0].to_i, pt[1].to_i, w.to_i)
+            end
+          else
+            r = property.split('r')
+            if r && r.length == 2
+              pt = r[0].split('.')
+              perc = r[1].include?('%')
+              w = r[1].sub('%','')
+              if perc 
+                @layout.add_rows_perc(pt[0].to_i, pt[1].to_i, w.to_i)
+              else
+                @layout.add_rows_perc(pt[0].to_i, pt[1].to_i, w.to_i)
+              end
+            end
+          end
+          
+        rescue Exception
+          msg = "Loading layout"
+          if Arcadia.dialog(self, 'type'=>'ok_cancel', 'title' => '(Arcadia) Layout', 'msg'=>msg)=='cancel'
+            raise
+            exit
+          else
+            Tk.update
+          end
+        end
+      end
+    }
 
     @layout.add_headers
-    @splash.next_step
-    #self.load_libs
-    @splash.next_step
-    @splash.next_step('... load extensions')
+  end
+
+  def load_config
+    self.load_local_config(false)
+    # local config can contain loading conditions
     self.load_exts_conf
     self.load_local_config
-    self.do_build
+    self.load_theme(self['conf']['theme'])
+    self.resolve_properties_link(self['conf'],self['conf'])
+  end
+
+  def prepare
+    super
+    @splash.next_step('...initialize')  if @splash
+    @splash.next_step  if @splash
+    #self.load_libs
+    @splash.next_step  if @splash
+    @splash.next_step('... load extensions')  if @splash
+    #load_config
+    init_layout
     publish('buffers.code.in_memory',Hash.new)
     publish('action.load_code_from_buffers', proc{TkBuffersChoise.new})
     publish('output.action.run_last', proc{$arcadia['output'].run_last})
     publish('main.action.open_file', proc{self['editor'].open_file(Tk.getOpenFile)})
-    @splash.next_step('... load obj controller')
-    @splash.next_step('... load editor')
+    @splash.next_step('... load obj controller')  if @splash
+    @splash.next_step('... load editor')  if @splash
     publish('main.action.new_file',proc{$arcadia['editor'].open_buffer()})
     publish('main.action.edit_cut',proc{$arcadia['editor'].raised.text.text_cut()})
     publish('main.action.edit_copy',proc{$arcadia['editor'].raised.text.text_copy()})
     publish('main.action.edit_paste',proc{$arcadia['editor'].raised.text.text_paste()})
-    @splash.next_step('... load actions')
+    @splash.next_step('... load actions')  if @splash
     publish('action.test.keys', proc{KetTest.new})
     publish('action.get.font', proc{Tk::BWidget::SelectFont::Dialog.new.create})
-    @splash.next_step
+    @splash.next_step  if @splash
     publish('action.show_about', proc{ArcadiaAboutSplash.new.deiconify})
 #    publish('main.menu', @main_menu)
     @main_menu = ArcadiaMainMenu.new(@main_menu_bar)
+    self.do_build
     #publish('main.menu', ArcadiaMainMenu.new(@main_menu))
-    @splash.next_step
+    @splash.next_step  if @splash
     publish('objic.action.raise_active_obj',
     proc{
     		InspectorContract.instance.raise_active_toplevel(self)
     }
     )
-    @splash.next_step('... toolbar buttons ')
+    @splash.next_step('... toolbar buttons ')  if @splash
     #@main_toolbar.load_toolbar_buttons
     
     #load user controls
@@ -248,7 +297,7 @@ class Arcadia < TkApplication
     load_user_control(@main_toolbar)
     #Extension control
     @exts.each{|ext|
-      @splash.next_step("... load #{ext} user controls ")
+      @splash.next_step("... load #{ext} user controls ")  if @splash
       load_user_control(@main_menu, ext)
       load_user_control(@main_toolbar, ext)
     }
@@ -270,9 +319,11 @@ class Arcadia < TkApplication
       suf = "#{_pre}.#{suf}"
     end
     contexts = self['conf']["#{suf}.contexts"]
+    contexts_caption = self['conf']["#{suf}.contexts.caption"]
     return if contexts.nil?
     groups = contexts.split(',')
-    groups.each{|group|
+    groups_caption = contexts_caption.split(',') if contexts_caption
+    groups.each_with_index{|group, gi|
       if group
         suf1 = suf+'.'+group
         begin
@@ -298,7 +349,7 @@ class Arcadia < TkApplication
             
             event_args = property_to_eval.call('event_args',suf2)
             image_data = property_to_eval.call('image_data',suf2)
-            i = _user_control.new_item(self, 
+            item_args = {
               'name'=>name,
               'caption'=>caption,
               'hint'=>hint,
@@ -306,12 +357,16 @@ class Arcadia < TkApplication
               'event_args' =>event_args,
               'image_data' =>image_data,
               'context'=>group,
-              'context_path'=>context_path)
+              'context_path'=>context_path
+            }
+            item_args['context_caption'] = groups_caption[gi] if groups_caption
+            i = _user_control.new_item(self, item_args)
             i.enable=false if disabled
+
           }
         rescue Exception
           msg = "Loading #{groups} ->#{items} (#{$!.class.to_s} : #{$!.to_s} at : #{$@.to_s})"
-          if Arcadia.ok_cancel(self, 'title' => '(Arcadia) Toolbar', 'msg'=>msg)=='cancel'
+          if Arcadia.dialog(self, 'type'=>'ok_cancel', 'title' => '(Arcadia) Toolbar', 'msg'=>msg)=='cancel'
             raise
             exit
           else
@@ -325,7 +380,8 @@ class Arcadia < TkApplication
 
 
   def do_exit
-    q1 = (Arcadia.yes_no(self,
+    q1 = (Arcadia.dialog(self,
+                        'type'=>'yes_no',
                         'msg'=>"Do you want exit?",
                         'title' => '(Arcadia) Exit',
                         'level' => 'question')=='yes')
@@ -336,72 +392,39 @@ class Arcadia < TkApplication
   end
 
   def can_exit?
-    _can_exit = true
     _event = Arcadia.process_event(ExitQueryEvent.new(self, 'can_exit'=>true))
-    _can_exit = _event.can_exit
-    @exts.each{|extension|
-      if ext_active?(extension) && !self[extension].can_exit_query
-        _can_exit = false
-        break
-      end
-    }
-    return _can_exit
+    return _event.can_exit
   end
 
   def do_finalize
     _event = Arcadia.process_event(FinalizeEvent.new(self))
-  
-    @exts.each{|extension|
-      self[extension].finalize if ext_active?(extension)
-    }
     self.write_persist(self['applicationParams'].persistent_file)
   end
 
-  def Arcadia.new_msg(_sender, _msg, _channel=nil)
-    process_event(MsgEvent.new(_sender, 'msg'=>_msg))
-  end
-
-  def Arcadia.new_debug_msg(_sender, _msg, _channel=nil)
-    process_event(DebugMsgEvent.new(_sender, 'msg'=>_msg))
-  end
-
-  def Arcadia.new_error_msg(_sender, _msg, _channel=nil)
-    process_event(ErrorMsgEvent.new(_sender, 'msg'=>_msg))
-  end
- 
-  def Arcadia.dialog(_sender, _type, _msg, _title=nil, _level=nil)
-    case _level
-      when 'info', nil
-        _event = process_event(DialogEvent.new(_sender, 'msg'=>_msg, 'title'=>_title, 'type'=>_type))  
-      when 'question'
-        _event = process_event(QuestionDialogEvent.new(_sender, 'msg'=>_msg, 'title'=>_title, 'type'=>_type))  
-      when 'warning'
-        _event = process_event(WarningDialogEvent.new(_sender, 'msg'=>_msg, 'title'=>_title, 'type'=>_type))  
-      when 'error'
-        _event = process_event(ErrorDialogEvent.new(_sender, 'msg'=>_msg, 'title'=>_title, 'type'=>_type))  
-    end
-    return _event.results[0].value if _event
+  def Arcadia.console(_sender, _args=Hash.new)
+    process_event(MsgEvent.new(_sender, _args))
   end
   
-  def Arcadia.ok(_sender, _args=nil)
-    Arcadia.dialog(_sender, 'ok', _args['msg'], _args['title'], _args['level']) if _args
+  def Arcadia.dialog(_sender, _args=Hash.new)
+    _event = process_event(DialogEvent.new(_sender, _args))  
+    return _event.results[0].value if _event
   end
 
-  def Arcadia.ok_cancel(_sender, _args=nil)
-    Arcadia.dialog(_sender, 'ok_cancel', _args['msg'], _args['title'], _args['level']) if _args
-  end
-  
-  def Arcadia.yes_no(_sender, _args=nil)
-    Arcadia.dialog(_sender, 'yes_no', _args['msg'], _args['title'], _args['level']) if _args
+  def Arcadia.style(_class)
+    Configurable.properties_group(_class, Arcadia.instance['conf'])
   end
   
-  def Arcadia.yes_no_cancel(_sender, _args=nil)
-    Arcadia.dialog(_sender, 'yes_no_cancel', _args['msg'], _args['title'], _args['level']) if _args
-  end
-  
-  def Arcadia.abort_retry_ignore(_sender, _args=nil)
-    Arcadia.dialog(_sender, 'abort_retry_ignore', _args['msg'], _args['title'], _args['level']) if _args
-  end
+
+
+#  def Arcadia.res(_res)
+#    theme = Arcadia.instance['conf']['theme']
+#    if theme
+#      ret = eval("#{theme}::#{_res}")
+#    end
+#    ret=Res::_res if ret.nil?
+#    return ret
+#  end
+
 
 end
 
@@ -410,6 +433,7 @@ class ArcadiaUserControl
   class UserItem
     attr_accessor :name
     attr_accessor :context
+    attr_accessor :context_caption
     attr_accessor :caption
     attr_accessor :hint
     attr_accessor :event_class
@@ -468,17 +492,18 @@ class ArcadiaMainToolbar < ArcadiaUserControl
       _command = proc{Arcadia.process_event(@event_class.new(_sender, @event_args))} if @event_class
       _hint = @hint
       _font = @font
-      _foreground = @foreground
-      _background = @background
       _caption = @caption
-      @item_obj = Tk::BWidget::Button.new(_args['frame']){
+      @item_obj = Tk::BWidget::Button.new(_args['frame'], Arcadia.style('toolbarbutton')){
         image  _image if _image
-        borderwidth 1
-        font _font if _font
-        background _background if _background
-        foreground _foreground if _foreground
+        #borderwidth 1
+        #font _font if _font
+        #activebackground Arcadia.conf('button.activebackground')
+        #activeforeground Arcadia.conf('button.activeforeground')
+        #background Arcadia.conf('button.background')
+        #foreground Arcadia.conf('button.foreground')
+        #highlightbackground Arcadia.conf('button.highlightbackground')
+        #relief Arcadia.conf('button.relief')
         command _command if _command
-        relief 'flat'
         #relief 'groove'
         width 20
         height 20
@@ -502,7 +527,11 @@ class ArcadiaMainToolbar < ArcadiaUserControl
   def initialize(_arcadia, _frame)
     @arcadia = _arcadia
     @frame = _frame
-#    @context_frames = Hash.new  
+    @frame.borderwidth(Arcadia.conf('panel.borderwidth'))
+    #@frame.highlightbackground(Arcadia.conf('panel.highlightbackground'))
+    @frame.relief(Arcadia.conf('panel.relief'))
+ 
+     @context_frames = Hash.new  
     @last_context = nil
   end
 
@@ -530,7 +559,10 @@ class ArcadiaMainToolbar < ArcadiaUserControl
   end
 
   def new_separator
-    Tk::BWidget::Separator.new(@frame, :orient=>'vertical').pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
+    Tk::BWidget::Separator.new(@frame, 
+    :orient=>'vertical',
+    :background=>Arcadia.conf('button.highlightbackground')
+    ).pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
   end  
 
 #  def load_toolbar_buttons
@@ -604,7 +636,9 @@ class ArcadiaMainMenu < ArcadiaUserControl
     def initialize(_sender, _args)
       super(_sender, _args)
       _image = TkPhotoImage.new('data' => @image_data) if @image_data
-      _command = proc{Arcadia.process_event(@event_class.new(_sender, @event_args))} if @event_class
+      _command = proc{
+        Arcadia.process_event(@event_class.new(_sender, @event_args))
+      } if @event_class
       #_menu = @menu[@parent]
       @item_obj = @menu.insert('end', :command, 
         'image'=>_image,
@@ -627,11 +661,12 @@ class ArcadiaMainMenu < ArcadiaUserControl
     # create main menu
     @menu = menu
     build
-    menu.foreground('black')
-    menu.activeforeground('#6679f1')
-    menu.relief('flat')
-    menu.borderwidth(0)
-    menu.font($arcadia['conf']['main.mainmenu.font'])
+    @menu.configure(Arcadia.style('menu'))
+#    menu.foreground('black')
+#    menu.activeforeground('#6679f1')
+#    menu.relief('flat')
+#    menu.borderwidth(0)
+#    menu.font(Arcadia.conf('main.mainmenu.font'))
   end
 
   def get_menu_context(_menubar, _context)
@@ -673,6 +708,8 @@ class ArcadiaMainMenu < ArcadiaUserControl
         :parent=>@pop_up,
         :tearoff=>0
       )
+      sub.configure(Arcadia.style('menu'))
+      #update_style(sub)
       menu_context.insert('end',
         :cascade,
         :label=>folder,
@@ -696,7 +733,12 @@ class ArcadiaMainMenu < ArcadiaUserControl
 
   def new_item(_sender, _args= nil)
     return if _args.nil?
-    _args['menu']=get_menu(@menu, _args['context'], _args['context_path'])
+    if _args['context_caption']
+      conte = _args['context_caption']
+    else
+      conte = _args['context']
+    end
+    _args['menu']=get_menu(@menu, conte, _args['context_path'])
     super(_sender, _args)
   end
 
@@ -759,7 +801,7 @@ class ArcadiaAboutSplash < TkToplevel
       text  'Arcadia'
       background  _bgcolor
       foreground  '#ffffff'
-      font Arcadia.instance['conf']['splash.title.font']
+      font Arcadia.conf('splash.title.font')
       justify  'left'
       place('width' => '190','x' => 110,'y' => 10,'height' => 25)
     }
@@ -794,7 +836,7 @@ class ArcadiaAboutSplash < TkToplevel
       place('width'=>-5,'relwidth' => 1,'x' => 5,'y' => 175,'height' => 19)
     }
     @tkLabel21 = TkLabel.new(self){
-      text  'by Antonio Galeone - 2007'
+      text  'by Antonio Galeone - 2008'
       background  _bgcolor
       foreground  '#ffffff'
       font Arcadia.instance['conf']['splash.credits.font']
@@ -845,28 +887,49 @@ class ArcadiaAboutSplash < TkToplevel
   
 end
 
+class ActionDispatcher
+
+  def initialize(_arcadia)
+    @arcadia = _arcadia
+    Arcadia.attach_listener(self, ActionEvent)
+  end
+  
+  def on_action(_event)
+    if _event.receiver != nil && _event.receiver.respond_to?(_event.action)
+      if _event.action_args.nil?
+        _event.receiver.send(_event.action)
+      else
+        _event.receiver.send(_event.action, _event.action_args)
+      end
+    end
+  end
+
+end
+
+
 class ArcadiaDialogManager
   def initialize(_arcadia)
     @arcadia = _arcadia
-    Arcadia.add_listener(self, DialogEvent)
+    Arcadia.attach_listener(self, DialogEvent)
   end
   def on_dialog(_event)
     type = _event.type
     if !DialogEvent::TYPE_PATTERNS.include?(_event.type)
       type = 'ok'
     end
-    case _event
-      when QuestionDialogEvent
-        icon = 'question'
-      when InfoDialogEvent
-        icon = 'info'
-      when WarningDialogEvent
-        icon = 'warning'
-      when ErrorDialogEvent
-        icon = 'error'
-      else
-        icon = 'info'
-    end
+    icon = _event.level
+#    case _event
+#      when QuestionDialogEvent
+#        icon = 'question'
+#      when InfoDialogEvent
+#        icon = 'info'
+#      when WarningDialogEvent
+#        icon = 'warning'
+#      when ErrorDialogEvent
+#        icon = 'error'
+#      else
+#        icon = 'info'
+#    end
      
     tktype = type.gsub('_','').downcase
     
@@ -918,7 +981,7 @@ class ArcadiaLayout
 	
   def _prepare_rows(_row,_col, _height, _perc=false, _top_name=nil, _bottom_name=nil)
     if (@frames[_row][_col] !=  nil)
-      _h = AGTkOSplittedFrames.new(@frames[_row][_col],_height, _perc)
+      _h = AGTkOSplittedFrames.new(@frames[_row][_col],_height, @arcadia['conf']['layout.splitter.length'].to_i,_perc)
       if @frames[_row + 1] == nil
       		@frames[_row + 1] = Array.new
       		@domains[_row + 1] = Array.new
@@ -957,10 +1020,9 @@ class ArcadiaLayout
   		_prepare_rows(_row,_col, _height, true, _top_name, _bottom_name)
   end
 
-
-  def add_cols(_row,_col, _width, _left_name=nil, _right_name=nil)
+  def _prepare_cols(_row,_col, _width, _perc=false, _left_name=nil, _right_name=nil)
     if (@frames[_row][_col] !=  nil)
-      _w = AGTkVSplittedFrames.new(@frames[_row][_col],_width)
+      _w = AGTkVSplittedFrames.new(@frames[_row][_col],_width,@arcadia['conf']['layout.splitter.length'].to_i,_perc)
       @frames[_row][_col] = _w.left_frame
       @frames[_row][_col + 1] = _w.right_frame
 
@@ -977,11 +1039,20 @@ class ArcadiaLayout
       @domains[_row][_col + 1] = _right_name
     end
   end
+ 	private :_prepare_cols
+  
+  def add_cols(_row,_col, _width, _left_name=nil, _right_name=nil)
+    _prepare_cols(_row,_col, _width, false, _left_name, _right_name)
+  end
+
+  def add_cols_perc(_row,_col, _width, _left_name=nil, _right_name=nil)
+    _prepare_cols(_row,_col, _width, true, _left_name, _right_name)
+  end
 
   def add_headers
     @domains.each{|row|
       row.each{|domain|
-        @panels[domain]['root']= TkTitledFrame.new(@panels[domain]['root'], '...').place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)  if @panels[domain]
+        @panels[domain]['root']= TkTitledFrame.new(@panels[domain]['root']).place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)  if @panels[domain]
       }
     }
     @headed = true
@@ -1000,6 +1071,7 @@ class ArcadiaLayout
   end
 
   def register_panel(_domain_name, _name, _title)
+    #p "register #{_name} ------ 1"
     p = @panels[_domain_name]
     if p!=nil
       num = p['sons'].length
@@ -1010,13 +1082,15 @@ class ArcadiaLayout
         root_frame = p['root']
       end
       if (num == 0 && @autotab)
+    #p "register #{_name} ------ 2"
         api = ArcadiaPanelInfo.new(_name,_title,nil)
-        api.frame = TkFrame.new(root_frame).place('x'=>0, 'y'=>0, 'relwidth'=>1, 'relheight'=>1)
+        api.frame = TkFrame.new(root_frame, Arcadia.style('panel')).place('x'=>0, 'y'=>0, 'relwidth'=>1, 'relheight'=>1)
         p['sons'][_name] = api
         return api.frame
       else
         if num == 1 && @autotab &&  p['notebook'] == nil
-          p['notebook'] = Tk::BWidget::NoteBook.new(root_frame){
+    #p "register #{_name} ------ 3"
+          p['notebook'] = Tk::BWidget::NoteBook.new(root_frame, Arcadia.style('tabpanel')){
             tabbevelsize 0
             internalborderwidth 0
             pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
@@ -1035,12 +1109,14 @@ class ArcadiaLayout
           api.frame.place('in'=>api_tab_frame, 'x'=>0, 'y'=>0, 'relwidth'=>1, 'relheight'=>1)
           api.frame.raise
         elsif (num==0 && !@autotab)
+    #p "register #{_name} ------ 4"
           p['notebook'] = Tk::BWidget::NoteBook.new(root_frame){
             tabbevelsize 0
             internalborderwidth 0
             pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
           }
         end
+     #   p "---- insert in notebook #{_name} "
         _panel = p['notebook'].insert('end',_name , 
         		'text'=>_title, 
         		#'background'=>_tab_bg,
@@ -1054,14 +1130,29 @@ class ArcadiaLayout
         p['notebook'].raise(_name)
         return _panel
       end
+    else
+      Arcadia.dialog(self, 
+        'type'=>'ok',
+        'msg'=>"domain #{_domain_name} do not exist\nfor '#{_title}'!",
+        'level'=>'warning' 
+      )
+      float_frame = new_float_frame
+      float_frame.title(_title)
+      return float_frame.frame
     end
   end
 
   def unregister_panel(_domain_name, _name)
+    #p "unregister #{_name} ------> 1"
     @panels[_domain_name]['sons'].delete(_name)
-    @panels[_domain_name]['notebook'].delete(_name)
+    #p "unregister #{_name} ------> 2"
+    #p @panels[_domain_name]['notebook'].pages
+    @panels[_domain_name]['notebook'].delete(_name) if @panels[_domain_name]['notebook'].index(_name) > 0
+    #p "unregister #{_name} ------> 3"
     new_raise_key = @panels[_domain_name]['sons'].keys[@panels[_domain_name]['sons'].length-1]
+    #p "unregister #{_name} ------> 4"
     @panels[_domain_name]['notebook'].raise(new_raise_key)
+    #p "unregister #{_name} ------> 5"
   end
 
   def raise_panel(_domain_name, _name)
@@ -1086,7 +1177,7 @@ class ArcadiaLayout
   
   def new_float_frame(_args=nil)
     if _args.nil?
-     _args = {'x'=>0, 'y'=>0, 'width'=>100, 'height'=>100}
+     _args = {'x'=>10, 'y'=>10, 'width'=>100, 'height'=>100}
     end
     _frame =  TkFloatTitledFrame.new(root)
     _frame.on_close=proc{_frame.hide}
@@ -1094,4 +1185,3 @@ class ArcadiaLayout
     return _frame
   end
 end
-Arcadia.new.run