arcadia 0.1.1 → 0.1.2

data/README

@@ -1,123 +1,126 @@
-Arcadia Ruby Ide
-version 0.1.1 
-
-by Antonio Galeone
-on Mar 31, 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
-============
--[fixed] Bugs fixed
--[new] Added completion code support (Ctrl-space) based upon rcodetools package (must be installed)
--[modified] in file config the <OPERATING SYSTEM IDENTIFY> separator modified from <:> to <::> 
-
-Short User guide
-================
-I hope that you perceive Arcadia gui enough user frindly.
-As you can see the application is splitted in vertical 
-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-space => completion code
-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 contain 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 components 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, 1.8.5, 1.8.6 on FreeBsd6 and windows 2000/XP os. If you
-will test arcadia on other operating system sends me an 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:
-
-Bye
+Arcadia Ruby Ide
+version 0.1.2 
+
+by Antonio Galeone
+on May 8, 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, syntax highlighting, code completion
+-Contextual ruby documentation
+-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
+============
+-[fixed] Bugs fixed and general restyling
+-[new] Added integration with ri--Ruby (F1) for display contextual ruby documentation 
+-[new] Enhanced find/replace dialog
+
+Short User guide
+================
+I hope that you perceive Arcadia gui enough user frindly.
+As you can see the application is splitted in vertical 
+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 dialog and moves focus
+Ctrl-s  => save
+Ctrl-space => completion code
+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
+F1 => contextual ruby documentation (called from editor or from code completion item, if 
+no corrispondation is founded a doc tree is build in left side)
+
+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 contain 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 components 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, 1.8.5, 1.8.6 on FreeBsd6, Vector linux and windows 2000/XP os. If you
+will test arcadia on other operating system sends me an 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:
+
+Bye

data/arcadia.rb

@@ -1,756 +1,770 @@
-#
-#   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.1',
-        '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
-    )
-
-    #.place('x'=>0,'y'=>0,'relwidth'=>1,'relheight'=>1)
-    @mf_root.show_statusbar('none')
-    @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,225)
-    @layout.add_rows(0,0,180)
-#    @layout.add_rows(0,1,500)
-    @layout.add_rows_perc(0,1,70)
-    
-
-    @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 _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)
-      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
- 	private :_prepare_rows
-
-  def add_rows(_row,_col, _height, _top_name=nil, _bottom_name=nil)
-  		_prepare_rows(_row,_col, _height, false, _top_name, _bottom_name)
-  end
-
-  def add_rows_perc(_row,_col, _height, _top_name=nil, _bottom_name=nil)
-  		_prepare_rows(_row,_col, _height, true, _top_name, _bottom_name)
-  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
+#
+#   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.2',
+        '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
+    )
+
+    #.place('x'=>0,'y'=>0,'relwidth'=>1,'relheight'=>1)
+    @mf_root.show_statusbar('none')
+    @toolbar = @mf_root.add_toolbar
+    @is_toolbar_show=self['conf']['toolbar_show']=='yes'
+    @mf_root.show_toolbar(0,@is_toolbar_show)
+    @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(self, 'file'=>'README')
+    end
+  end
+  
+  def show_hide_toolbar
+    if @is_toolbar_show
+    		@mf_root.show_toolbar(0,false)
+    		@is_toolbar_show = false
+    else
+    		@mf_root.show_toolbar(0,true)
+    		Tk.update
+    		@is_toolbar_show = true
+    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(self, 'obj'=>self[extension])
+      end
+    }
+    
+    # build extensions
+    @exts.each{|extension|
+      if extension && ext_active?(extension)
+        @splash.next_step('... building '+extension)
+        ext_method(extension, :build)
+        MainContract.instance.extension_build(self, 'obj'=>self[extension])
+      end
+    }
+    
+    # after build extensions
+    @exts.each{|extension|
+      if extension && ext_active?(extension)
+        @splash.next_step('... after building '+extension)
+        ext_method(extension, :after_build)
+        MainContract.instance.extension_after_build(self, 'obj'=>self[extension])
+      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,225)
+    @layout.add_rows(0,0,180)
+#    @layout.add_rows(0,1,500)
+    @layout.add_rows_perc(0,1,70)
+    
+
+    @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', @main_menu)
+    publish('main.menu', AMainMenu.new(@main_menu))
+    @splash.next_step
+    publish('objic.action.raise_active_obj',
+    proc{
+    		InspectorContract.instance.raise_active_toplevel(self)
+    }
+    )
+    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('groove')
+    menu.borderwidth(0)
+    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],
+      ['Save', proc{EditorContract.instance.save_file_raised(self)},0],
+      ['Save as ...', proc{EditorContract.instance.save_as_file_raised(self)},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_search = [['Search', 0],
+      ['Find ...', proc{EditorContract.instance.show_search_dialog(self)}, 2],
+      ['Go to line ...', proc{EditorContract.instance.show_goto_line_dialog(self)}, 2]]
+      menu_spec_view = [['View', 0],['Show/Hide Toolbar', proc{$arcadia.show_hide_toolbar}, 2]]
+      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_search)
+    @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 root
+		@panels['_domain_root_']['root']
+	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 _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)
+      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
+ 	private :_prepare_rows
+
+  def add_rows(_row,_col, _height, _top_name=nil, _bottom_name=nil)
+  		_prepare_rows(_row,_col, _height, false, _top_name, _bottom_name)
+  end
+
+  def add_rows_perc(_row,_col, _height, _top_name=nil, _bottom_name=nil)
+  		_prepare_rows(_row,_col, _height, true, _top_name, _bottom_name)
+  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