arcadia 0.1.0

data/README

@@ -0,0 +1,122 @@
+Arcadia Ruby Ide
+version 0.1.0 
+
+by Antonio Galeone
+on Feb 25, 2007
+
+"Thank you for consider this project"
+
+About
+=====
+Arcadia is a Integrated Development Environment (IDE) for Ruby language 
+written in Ruby using the classic tcl/tk GUI toolkit.
+
+Some of Arcadia ruby ide project features include:
+-Editor with source browsing and syntax highlighting
+-Supporting RAD gui building
+-Generation of widget-wrapper-independent ruby code  
+-Working on any platform where ruby and tcl-tk work.
+-Highly extensibility architecture.
+
+This release
+============
+This is the first public version. A lot of things are to do
+but i have decided to begin to release something. I use Arcadia
+to develop Arcadia so there is something!
+
+Short User guide
+================
+I hope that you perceive Arcadia gui enough user frindly.
+As you can see the application is splitted in vertial 
+and horizontal resizing frames. Clicking on vertical splitter 
+appear two button for left or right one shot frame close. 
+The horizontal splitter has two little button for the same reason
+(perhaps i will conform them to the vertical style).
+Every frame has a title and a button to expand or resizing it.
+In this beta release there are very essential feature:
+
+< Toolbar >
+The toolbar button are in order:
+-new, open, save 
+	(relatively to editor extension)
+-run current, run last 
+ 	(for execute the raised file in the editor or the last file executed)  
+-debug current, debug last, stop debug
+  (for the debug extension that is in very unstable state)
+-quit (to exit from arcadia)
+
+< Editor >
+Editor use the notebook metaphor. Same command are on the popup menu 
+that is raised on "Button-3" click event fundamentalally for closing the tab 
+under the mouse pointer.
+These are same editor short-cut:
+Ctrl-c  => copy selected text
+Ctrl-v  => paste copied text
+Ctrl-x  => cut selected text
+Ctrl-z  => undo
+Ctrl-f  => copy the selected text on input combobox of find bar and moves focus
+Ctrl-s  => save
+Ctrl-shift-i => indent the selected block
+Ctrl-shift-u => unindent the selected block
+Ctrl-shift-c => comment/uncomment the selected code block
+F5 => execute the file 
+F3 => find/ find next
+
+Double-Click on line number set or unset a debug breckpoint
+
+< File history >
+The last used files are organizing in tree so you can reopen them or there  
+directory by clicking on the tree node.
+
+< Palette >
+It containe the wrapper components for the tk gui building. 
+It is in very unstabled and incomplete state. 
+The first component is a TkTopLevel wrapper, when you click on it a new form is created and a 
+Object inspector appears.
+The other component must be first selected and then created by clicking on container widget.
+The so created widgets has a popup menu for deleting them or in the toplevel case to switch
+to a code view.
+On the palette there are also two button, one for deselect and other for copy from the selected 
+created widget. The copy action copy also the code into the clipboard, so you can copy the
+code rapresenting the gui into the embedded editor or into external editor.
+
+< Object Inspector >
+It is for modify the widget property at runtime
+
+< Debug >
+It is created when a debug session init. 
+The debug button are: Step Next, Step Into, Step Over, Resume.
+The debug frame show the local, instance and global variables for each
+step. (you must have patience!)
+
+<Configuration>
+Same Arcadia properties are locally configurabled by editing the file arcadia.conf
+under ~/.arcadia  directory. The format of property definition are:
+<OPERATING SYSTEM IDENTIFY:>PROPERTY_NAME=PROPERTY_VALUE
+
+
+Requirement
+===========
+I include into distribution also the BWidget lib (under tcl directory) so
+are require realy only the standard tcl tk lib (tested on tcl tk 8.4).
+I have tested arcadia with ruby 1.8.4 and 1.8.5 on FreeBsd6 and windows 2000 os. If you
+will test arcadia on other operating system sends me a e-mail.
+
+Developers information
+=====================
+Soon i will write samething about the arcadia software architecture (when it is more stable)
+in order to allow extensions writing and collaborations.
+
+
+ 
+License
+=======
+Arcadia is released under the Ruby License
+
+Contacts
+========
+For questions:
+antonio-galeone@rubyforge.org
+For bugs, support request, feature request https://rubyforge.org/projects/arcadia:
+
+

data/arcadia.rb

@@ -0,0 +1,748 @@
+#
+#   arcadia.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-utils"
+require "base/a-ext"
+require "base/a-contracts"
+require "observer"
+
+class Arcadia < TkApplication
+  include Observable
+  attr_reader :layout
+  attr_reader :libs
+  #attr_reader :main_contract
+  def initialize
+    super(
+      ApplicationParams.new(
+        'arcadia',
+        '0.1.0',
+        'conf/arcadia.conf',
+        'conf/arcadia.pers'
+      )
+    )
+    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{
+      title _title
+      withdraw
+      protocol( "WM_DELETE_WINDOW", $arcadia['action.on_exit'])
+    }
+    @on_event = Hash.new
+    @main_menu = TkMenubar.new.pack('fill'=>'x')
+    @mf_root = Tk::BWidget::MainFrame.new(@root){
+      menu @main_menu
+    }.pack(
+    'anchor'=> 'center',
+    'fill'=> 'both',
+    'expand'=> 1
+    )
+    @toolbar = @mf_root.add_toolbar
+    @mf_root.show_toolbar(1,true)
+    @splash = ArcadiaAboutSplash.new('... initialize')
+    @splash.set_progress(50)
+    @splash.deiconify
+    Tk.update
+    sleep(1)
+    @splash.next_step('..prepare')
+    prepare
+    @splash.last_step('..load finish')
+    geometry = (TkWinfo.screenwidth(@root)-4).to_s+'x'+
+    (TkWinfo.screenheight(@root)-20).to_s+'+0+0'
+    @root.deiconify
+    @root.raise
+    @root.focus(true)
+    @root.geometry(geometry)
+    Tk.update_idletasks
+    sleep(1)
+    @splash.destroy
+    if @first_run
+      EditorContract.instance.open_file(EditorContract::TEditorObj.new(self, 'file'=>'README'))
+    end
+  end
+  
+  def Arcadia.finalize(id)
+    puts "\nArcadia #{id} dying at #{Time.new}"
+  end
+
+  def load_libs
+    @libs = ArcadiaLibs.new(self)
+    libs = self['conf']['libraries'].split(',')
+    libs.each{|lib|
+      if lib
+        @splash.next_step('... loading library  '+lib)
+        begin
+          require self['conf']['libraries.'+lib+'.source']
+          @libs.add_lib(
+          ArcadiaLibs::ArcadiaLibParams.new(
+          self['conf']['libraries.'+lib+'.name'],
+          self['conf']['libraries.'+lib+'.source'],
+          self['conf']['libraries.'+lib+'.require'],
+          eval(self['conf']['libraries.'+lib+'.collection.class']))
+          )
+        rescue Exception
+          msg = "Loading lib "+'"'+lib+'"'+" ("+$!.class.to_s+") "+" : "+$! + " at : "+$@.to_s
+          if Tk.messageBox('icon' => 'error', 'type' => 'okcancel',
+            'title' => '(Arcadia) Libs', 'parent' => @root,
+            'message' => msg) == 'cancel'
+            raise
+            exit
+          else
+            Tk.update
+          end
+        end
+      end
+    }
+  end
+
+  def load_toolbar_buttons
+    suf = 'toolbar_buttons'
+    @buttons = Hash.new
+    toolbar_buttons = self['conf'][suf].split(',')
+    toolbar_buttons.each{|groups|
+      if groups
+        suf1 = suf+'.'+groups
+        @splash.next_step('... loading '+suf1)
+        begin
+          buttons = self['conf'][suf1].split(',')
+          buttons.each{|button|
+            suf2 = suf1+'.'+button
+            name = self['conf'][suf2+'.name']
+            text = self['conf'][suf2+'.text']
+            image = self['conf'][suf2+'.image']
+            font = self['conf'][suf2+'.font']
+            background = self['conf'][suf2+'.background']
+            foreground = self['conf'][suf2+'.foreground']
+            hint = self['conf'][suf2+'.hint']
+            action = self['conf'][suf2+'.action']
+            actions = action.split('->')  if action
+            if actions && actions.length>1
+              _command = proc{
+                action_obj = $arcadia[actions[0]]
+                1.upto(actions.length-2) do |x|
+                  action_obj = action_obj.send(actions[x])
+                end
+                action_obj.send(actions[actions.length-1])
+              }
+            elsif action
+              _command = proc{$arcadia[action].call}
+            end
+            @buttons[name] = Tk::BWidget::Button.new(@toolbar){
+              image  TkPhotoImage.new('data' => eval(image)) if image
+              borderwidth 1
+              font font if font
+              background background if background
+              foreground foreground if foreground
+              command _command if action
+              relief 'flat'
+              helptext  hint if hint
+              text text if text
+              pack('side' =>'left', :padx=>2, :pady=>2)
+            }
+          }
+        rescue Exception
+          msg = 'Loading '+groups+'" -> '+buttons.to_s+ '" (' + $!.class.to_s + ") : " + $!.to_s + " at : "+$@.to_s
+          if Tk.messageBox('icon' => 'error', 'type' => 'okcancel',
+            'title' => '(Arcadia) Toolbar', 'parent' => @root,
+            'message' => msg) == 'cancel'
+            raise
+            exit
+          else
+            Tk.update
+          end
+        end
+      end
+      Tk::BWidget::Separator.new(@toolbar, :orient=>'vertical').pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
+    }
+  end
+	
+	def ext_active?(_name)
+	   return (self['conf'][_name+'.active'] != nil && self['conf'][_name+'.active']=='yes')||
+       	  (self['conf'][_name+'.active'] == nil)
+	end
+	
+	def load_exts_conf
+  		@exts = Array.new
+  		dirs = Array.new
+  		files = Dir['ext/*'].concat(Dir[ENV["HOME"]+'/.arcadia/ext/*'])
+  		files.each{|f|
+  			 dirs << f if File.stat(f).directory? && FileTest.exist?(f+'/'+File.basename(f)+'.conf')
+  		}
+  		dirs.each{|ext_dir|
+  	    conf_hash = self.config_file2hash(ext_dir+'/'+File.basename(ext_dir)+'.conf') 
+     	 conf_hash2 = Hash.new
+     	 name = conf_hash['name']
+       	 conf_hash.each{|key, value|
+           var_plat = key.split(':')
+           if var_plat.length > 1
+             new_key = var_plat[0] + ':' + name + '.' + var_plat[1]
+           else
+             new_key = name+'.'+key
+           end	
+       	   conf_hash2[new_key]= value
+       	 }
+       @exts << name	 	
+    		 self['conf'].update(conf_hash2)	
+  		}
+	end
+
+  def load_exts
+  
+    # create extensions
+    @exts.each{|extension|
+      if extension && ext_active?(extension)
+        @splash.next_step('... creating '+extension)
+        ext_create(extension)
+      end
+    }
+    
+    # before_build extensions
+    @exts.each{|extension|
+      if extension && ext_active?(extension)
+        @splash.next_step('... before building '+extension)
+        ext_method(extension, :before_build)
+        MainContract.instance.extension_before_build(MainContract::TMainObj.new(self, 'obj'=>self[extension]))
+      end
+    }
+    
+    # build extensions
+    @exts.each{|extension|
+      if extension && ext_active?(extension)
+        @splash.next_step('... building '+extension)
+        ext_method(extension, :build)
+        _tobj = MainContract::TMainObj.new(self)
+        _tobj.obj = self[extension]
+        MainContract.instance.extension_build(_tobj)
+      end
+    }
+    
+    # after build extensions
+    @exts.each{|extension|
+      if extension && ext_active?(extension)
+        @splash.next_step('... after building '+extension)
+        ext_method(extension, :after_build)
+        _tobj = MainContract::TMainObj.new(self)
+        _tobj.obj = self[extension]
+        MainContract.instance.extension_after_build(_tobj)
+      end
+    }
+    
+  end
+
+  def ext_create(_extension)
+    begin
+      source = self['conf'][_extension+'.require']
+      class_name = self['conf'][_extension+'.class']
+      if source.strip.length > 0
+        #p source
+        eval('require ' + "'" + source + "'")
+      end
+      if class_name.strip.length > 0
+        publish(_extension, eval(class_name).new(self, _extension))
+      end
+    rescue Exception
+      raise
+      msg = "Loading "+'"'+extension+'"'+" ("+$!.class.to_s+") "+" : "+$! + " at : "+$@.to_s
+      ans = Tk.messageBox('icon' => 'error', 'type' => 'abortretryignore',
+      'title' => '(Arcadia) Extensions', 'parent' => @root,
+      'message' => msg)
+      if  ans == 'abort'
+        raise
+        exit
+      elsif ans == 'retry'
+        retry
+      else
+        Tk.update
+      end
+    end
+  end
+
+  def ext_method(_extension, _method)
+    begin
+      self[_extension].send(_method)
+    rescue Exception
+      msg = _method.to_s+' "'+_extension.to_s+'"'+" ("+$!.class.to_s+") "+" : "+$! + "\n at : "+$@.to_s
+      ans = Tk.messageBox('icon' => 'warning', 'type' => 'abortretryignore',
+      'title' => '(Arcadia) Extensions', 'parent' => @root,
+      'message' => msg)
+      if ans == 'abort'
+        raise
+        exit
+      elsif ans == 'retry'
+        retry
+      else
+        Tk.update
+      end
+    end
+  end
+
+
+  def prepare
+    super
+    @splash.next_step('...initialize')
+    @layout = ArcadiaLayout.new(self, @mf_root.get_frame)
+
+    #@layout.add_cols(0,0,230,'_mosca_','_white_street_')
+    #@layout.add_rows(0,1,80,'_tokyo_','_red_street_')
+    #@layout.add_rows(1,1,450,'_los_angeles_','_rome_')
+
+    @layout.add_cols(0,0,230)
+    @layout.add_rows(0,0,190)
+    #@layout.add_rows(0,1,80)
+    #@layout.add_rows(1,1,450)
+    @layout.add_rows(0,1,500)
+    
+
+    @layout.add_headers
+    @splash.next_step
+    self.load_libs
+    @splash.next_step
+    @splash.next_step('... load extensions')
+    self.load_exts_conf
+    self.load_local_config
+    self.load_exts
+    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')
+    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')
+    publish('action.test.keys', proc{KetTest.new})
+    publish('action.get.font', proc{Tk::BWidget::SelectFont::Dialog.new.create})
+    @splash.next_step
+    publish('action.show_about', proc{ArcadiaAboutSplash.new.deiconify})
+    publish('main.menu', AMainMenu.new(@main_menu))
+    @splash.next_step
+    publish('objic.action.raise_active_obj',
+    proc{
+    		InspectorContract.instance.raise_active_toplevel(InspectorContract::TInspectorObj.new(self))
+#      if $arcadia['objic'].active
+#        agobj = $arcadia['objic'].active.active_object
+#        while agobj.ag_parent
+#          agobj = agobj.ag_parent
+#        end
+#        agobj.obj.raise
+#      end
+    }
+    )
+    #@root.bind("Button-1", $arcadia['objic.action.raise_active_obj'] )
+    load_toolbar_buttons
+  end
+
+  def do_exit
+    q1 = (Tk.messageBox('icon' => 'question', 'type' => 'yesno',
+    'title' => '(Arcadia) Exit', 'parent' => @root,
+    'message' => "Do you want exit?")=='yes')
+    if q1 && can_exit?
+      do_finalize
+      @root.destroy
+    end
+  end
+
+  def can_exit?
+    _can_exit = true
+    @exts.each{|extension|
+      if ext_active?(extension) && !self[extension].can_exit_query
+        _can_exit = false
+        break
+      end
+    }
+    return _can_exit
+  end
+
+  def do_finalize
+    @exts.each{|extension|
+      self[extension].finalize if ext_active?(extension)
+    }
+    self.write_persist
+  end
+end
+
+class AMainMenu < TkMenubar
+  
+  def initialize(menu)
+    # create main menu
+    @menu = menu
+    build
+    menu.foreground('grey40')
+    menu.activeforeground('red')
+    menu.relief('flat')
+    menu.font($arcadia['conf']['main.mainmenu.font'])
+  end
+
+  def build
+    menu_spec_file = [
+      ['File', 0],
+      ['Open', $arcadia['main.action.open_file'], 0],
+      ['New', $arcadia['main.action.new_file'], 0],
+      '---',
+      ['Quit', $arcadia['action.on_exit'], 0]]
+      menu_spec_edit = [['Edit', 0],
+      ['Cut', $arcadia['main.action.edit_cut'], 2],
+      ['Copy', $arcadia['main.action.edit_copy'], 0],
+      ['Paste', $arcadia['main.action.edit_paste'], 0]]
+      menu_spec_view = [['View', 0],'---']
+      menu_spec_tools = [['Utils', 0],
+      ['Keys-test', $arcadia['action.test.keys'], 2],
+      ['Load code from buffer', $arcadia['action.load_code_from_buffers'], 2]
+    ]
+    menu_spec_help = [['Help', 0],
+    ['About', $arcadia['action.show_about'], 2],]
+    @menu.add_menu(menu_spec_file)
+    @menu.add_menu(menu_spec_edit)
+    #@menu.add_menu(menu_spec_view)
+    @menu.add_menu(menu_spec_tools)
+    @menu.add_menu(menu_spec_help)
+  end
+  
+end
+
+class ArcadiaAboutSplash < TkToplevel
+  attr :progress
+  
+  def initialize(_txt=nil)
+    #_bgcolor = '#B83333'
+    _bgcolor = '#000000'
+    super()
+    relief 'flat'
+    background  _bgcolor
+    highlightbackground  _bgcolor
+    highlightthickness  6
+    borderwidth 1
+    withdraw 
+    overrideredirect(true)
+    
+    @tkLabel3 = TkLabel.new(self){
+      image  TkPhotoImage.new('format'=>'GIF','data' =>A_LOGO_GIF)
+      background  _bgcolor
+      place('x'=> 20,'y' => 20)
+    }
+    @tkLabel1 = TkLabel.new(self){
+      text  'Arcadia'
+      background  _bgcolor
+      foreground  '#ffffff'
+      font Arcadia.instance['conf']['splash.title.font']
+      justify  'left'
+      place('width' => '190','x' => 120,'y' => 10,'height' => 25)
+    }
+    @tkLabelRuby = TkLabel.new(self){
+      image TkPhotoImage.new('data' =>RUBY_DOCUMENT_GIF)
+      background  _bgcolor
+      place('x'=> 150,'y' => 40)
+    }
+    @tkLabel2 = TkLabel.new(self){
+      text  'Ruby ide'
+      background  _bgcolor
+      foreground  '#ffffff'
+      font Arcadia.instance['conf']['splash.subtitle.font']
+      justify  'left'
+      place('width' => '90','x' => 170,'y' => 40,'height' => 19)
+    }
+    @tkLabelVersion = TkLabel.new(self){
+      text  'version: '+$arcadia['applicationParams'].version
+      background  _bgcolor
+      foreground  '#ffffff'
+      font Arcadia.instance['conf']['splash.version.font']
+      justify  'left'
+      place('width' => '100','x' => 150,'y' => 60,'height' => 19)
+    }
+    @tkLabelStep = TkLabel.new(self){
+      text  _txt
+      background  _bgcolor
+      foreground  'yellow'
+      font Arcadia.instance['conf']['splash.banner.font']
+      justify  'left'
+      anchor  'w'
+      place('width'=>-5,'relwidth' => 1,'x' => 5,'y' => 175,'height' => 19)
+    }
+    @tkLabel21 = TkLabel.new(self){
+      text  'by Antonio Galeone - 2007'
+      background  _bgcolor
+      foreground  '#ffffff'
+      font Arcadia.instance['conf']['splash.credits.font']
+      justify  'left'
+      place('width' => '190','x' => 130,'y' => 146,'height' => 19)
+    }
+    @progress  = TkVariable.new
+    reset
+    _width = 340
+    _height = 210
+    #_width = 0;_height = 0
+    _x = TkWinfo.screenwidth(self)/2 -  _width / 2
+    _y = TkWinfo.screenheight(self)/2 -  _height / 2
+    geometry = _width.to_s+'x'+_height.to_s+'+'+_x.to_s+'+'+_y.to_s
+    Tk.tk_call('wm', 'geometry', self, geometry )
+    bind("Double-Button-1", proc{self.destroy})
+  end
+
+  def set_progress(_max=10)
+    @max = _max
+    Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
+    :background=>'black',
+    :foreground=>'yellow',
+    :variable=>@progress,
+    :borderwidth=>0,
+    :relief=>'flat',
+    :maximum=>_max).place('width' => '150','x' => 145,'y' => 95,'height' => 15)
+  end
+
+  def reset
+    @progress.value = -1
+  end
+
+  def next_step(_txt = nil)
+    @progress.numeric += 1
+    labelStep(_txt) if _txt
+  end
+
+  def labelStep(_txt)
+    @tkLabelStep.text = _txt
+    Tk.update
+  end
+
+  def last_step(_txt = nil)
+    @progress.numeric = @max
+    labelStep(_txt) if _txt
+  end
+  
+end
+
+class TkBuffersChoiseView < TkToplevel
+  
+  def initialize
+    super
+    Tk.tk_call('wm', 'title', self, '...hello' )
+    Tk.tk_call('wm', 'geometry', self, '150x217+339+198' )
+    @lb = TkListbox.new(self){
+      background  '#fedbd7'
+      relief  'groove'
+      place('relwidth' => '1','relx' => 0,'x' => '0','y' => '0','relheight' => '1','rely' => 0,'height' => '0','bordermode' => 'inside','width' => '0')
+    }
+  end
+  
+end
+
+class TkBuffersChoise < TkBuffersChoiseView
+  
+  def initialize
+    super
+    @lb.value= $arcadia['buffers.code.in_memory'].keys
+    @lb.bind("Double-ButtonPress-1",proc{
+      _sel = @lb.get('active')
+      Revparsel.new($arcadia['buffers.code.in_memory'][_sel])
+      @lb.delete('active')
+      $arcadia['buffers.code.in_memory'].delete(_sel)
+      destroy
+    })
+    raise
+  end
+  
+end
+
+class ArcadiaLayout
+  include Observable
+  ArcadiaPanelInfo = Struct.new( "ArcadiaPanelInfo",
+  :name,
+  :title,
+  :frame
+  )
+
+  def initialize(_arcadia, _frame, _autotab=true)
+    @arcadia = _arcadia
+    @frames = Array.new
+    @frames[0] = Array.new
+    @frames[0][0] = _frame
+    @domains = Array.new
+    @domains[0] = Array.new
+    @domains[0][0] = '_domain_root_'
+    @panels = Hash.new
+    @panels['_domain_root_']= Hash.new
+    @panels['_domain_root_']['root']= _frame
+    @panels['_domain_root_']['sons'] = 	Hash.new
+    @autotab = _autotab
+    @headed = false
+    ArcadiaContractListener.new(self, MainContract, :do_main_event)
+  end
+
+  def do_main_event(_event)
+     case _event.signature 
+     		when MainContract::RAISE_EXTENSION
+     		 p = @panels[_event.context.domain]
+     		 if p && p['notebook'] != nil && _event.channel == '0'
+     		   p['notebook'].raise(_event.context.extension)
+     		 end
+		 end    
+  end
+
+  def add_rows(_row,_col, _height, _top_name=nil, _bottom_name=nil)
+    if (@frames[_row][_col] !=  nil)
+      _h = AGTkOSplittedFrames.new(@frames[_row][_col],_height)
+      if @frames[_row + 1] == nil
+      		@frames[_row + 1] = Array.new
+      		@domains[_row + 1] = Array.new
+      end
+      @frames[_row][_col] = _h.top_frame
+      @frames[_row + 1][_col] = _h.bottom_frame
+
+      _top_name = _row.to_s+'.'+_col.to_s if _top_name == nil
+      @panels[_top_name] = Hash.new
+      @panels[_top_name]['root'] = @frames[_row][_col]
+      @panels[_top_name]['sons'] = 	Hash.new
+      @domains[_row][_col] = _top_name
+
+      _bottom_name = (_row+1).to_s+'.'+_col.to_s if _bottom_name == nil
+      @panels[_bottom_name] = Hash.new
+      @panels[_bottom_name]['root'] = @frames[_row + 1][_col]
+      @panels[_bottom_name]['sons'] = Hash.new
+    		@domains[_row + 1][_col] = _bottom_name
+    end
+  end
+
+  def add_cols(_row,_col, _width, _left_name=nil, _right_name=nil)
+    if (@frames[_row][_col] !=  nil)
+      _w = AGTkVSplittedFrames.new(@frames[_row][_col],_width)
+      @frames[_row][_col] = _w.left_frame
+      @frames[_row][_col + 1] = _w.right_frame
+
+      _left_name = _row.to_s+'.'+_col.to_s if _left_name == nil
+      @panels[_left_name] = Hash.new
+      @panels[_left_name]['root'] = @frames[_row][_col]
+      @panels[_left_name]['sons'] = Hash.new
+      @domains[_row][_col] = _left_name
+
+      _right_name = _row.to_s+'.'+(_col+1).to_s if _right_name == nil
+      @panels[_right_name] = Hash.new
+      @panels[_right_name]['root'] = @frames[_row][_col + 1]
+      @panels[_right_name]['sons'] = Hash.new
+      @domains[_row][_col + 1] = _right_name
+    end
+  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]
+      }
+    }
+    @headed = true
+  end
+
+  def headed?
+    @headed
+  end
+
+  def autotab?
+    @autotab
+  end
+
+  def registed?(_domain_name, _name)
+    @panels[_domain_name]['sons'][_name] != nil
+  end
+
+  def register_panel(_domain_name, _name, _title)
+    p = @panels[_domain_name]
+    if p!=nil
+      num = p['sons'].length
+      if @headed
+        p['root'].title(_title)
+        root_frame = p['root'].frame
+      else
+        root_frame = p['root']
+      end
+      if (num == 0 && @autotab)
+        api = ArcadiaPanelInfo.new(_name,_title,nil)
+        api.frame = TkFrame.new(root_frame).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){
+            tabbevelsize 0
+            internalborderwidth 0
+            pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
+          }
+          api = p['sons'].values[0]
+          api_tab_frame = p['notebook'].insert('end',
+          api.name,
+          'text'=>api.title,
+          'raisecmd'=>proc{
+					  p['root'].title(api.title)
+					  p['root'].top_text('')            
+            changed
+            notify_observers('RAISE', api.name)
+          }
+          )
+          api.frame.place('in'=>api_tab_frame, 'x'=>0, 'y'=>0, 'relwidth'=>1, 'relheight'=>1)
+          api.frame.raise
+        elsif (num==0 && !@autotab)
+          p['notebook'] = Tk::BWidget::NoteBook.new(root_frame){
+            tabbevelsize 0
+            internalborderwidth 0
+            pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
+          }
+        end
+        _panel = p['notebook'].insert('end',_name , 
+        		'text'=>_title, 
+        		#'background'=>_tab_bg,
+          'raisecmd'=>proc{
+					  p['root'].title(_title)            
+            changed
+            notify_observers('RAISE', _name)
+          }
+        		)
+
+#        if _tab_bg
+#          _panel = p['notebook'].insert('end',_name , 'text'=>_title, 'background'=>_tab_bg)
+#        else
+#          _panel = p['notebook'].insert('end',_name , 'text'=>_title)
+#        end
+        p['sons'][_name] = ArcadiaPanelInfo.new(_name,_title,_panel)
+        p['notebook'].raise(_name)
+        return _panel
+      end
+    end
+  end
+
+  def unregister_panel(_domain_name, _name)
+    @panels[_domain_name]['sons'].delete(_name)
+    @panels[_domain_name]['notebook'].delete(_name)
+    new_raise_key = @panels[_domain_name]['sons'].keys[@panels[_domain_name]['sons'].length-1]
+    @panels[_domain_name]['notebook'].raise(new_raise_key)
+  end
+
+  def raise_panel(_domain_name, _name)
+    @panels[_domain_name]['notebook'].raise(_name) if @panels[_domain_name] && @panels[_domain_name]['notebook']
+  end
+
+  def [](_row, _col)
+    @frames[_row][_col]
+  end
+
+  def frame(_domain_name, _name)
+    @panels[_domain_name]['sons'][_name].frame
+  end
+
+  def domain(_domain_name)
+    @panels[_domain_name]
+  end
+  
+  def domain_root_frame(_domain_name)
+    @panels[_domain_name]['root'].frame
+  end
+end
+
+Arcadia.new.run