arcadia 0.1.3 → 0.2.0

data/README

@@ -1,45 +1,42 @@
-Arcadia Ruby Ide
-version 0.1.3 
+= Arcadia Ruby Ide
+version 0.2.0
 
 by Antonio Galeone
-on Jul 2, 2007
+on Oct 25, 2007
 
 
-About
-=====
+== 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
--Debugging support
--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
-============
--added ruby-debug integration
-
-How to install
-==============
+* Editor with source browsing, syntax highlighting, code completion
+* Debugging support
+* Contextual ruby documentation
+* Working on any platform where ruby and tcl-tk work.
+* Highly extensibility architecture.
+
+== In this release
+* [mod] extension architecture changes
+* [fix] bug-fixing
+* [new] added "search in files" features (in Search menu item)
+
+== How to install
 There are two way:
-1)exec as root on command line "gem install arcadia"
-2)a) untar (on unix) tar -xzf arcadia-<version>.tar.gz
-  b) unzip (on windows) arcadia-<version>.zip
+1. exec as root on command line "gem install arcadia"
+   or as user "sudo gem install arcadia"
+2. using archive distribution
+   a. untar (on unix) (tar -xzf) arcadia-<version>.tar.gz
+   b. unzip (on windows) arcadia-<version>.zip
 
 
-How to run
-==========
-exec on command line "ruby arcadia.rb"
+== How to run
+* exec on command line "ruby arcadia.rb"
 
 
-Short User guide
-================
-I hope that you perceive Arcadia gui enough user frindly.
-As you can see the application is splitted in vertical 
+== Short User guide
+As you can see the application layout 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
@@ -47,43 +44,44 @@ The horizontal splitter has two little button for the same reason
 Every frame has a title and a button to expand or resizing it.
 In this beta release there are very essential feature:
 
-< Toolbar >
+==== Main 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, quit debug panel
-  (for the debug extension that is in very unstable state)
--quit (to exit from arcadia)
-
-< Editor >
+- new, open, save
+  (relatively to edit operation)
+- run current, run last 
+  (for execute the raised file in the editor or the last runned file)  
+- debug current, debug last, quit debug panel
+  (for debug need)
+- show rad palette
+  (for tk rad need)  
+- 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 breakpoint
-
-< File history >
+- 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)
+
+- Double-Click on line number set or unset a debug breakpoint
+
+==== 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 >
+==== Rad 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 
@@ -95,48 +93,42 @@ On the palette there are also two button, one for deselect and other for copy fr
 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 >
+==== Rad Object Inspector
 It is for modify the widget property at runtime
 
-< Debug >
+==== Debug
 It is created when a debug session init. 
 The debug button are: Step Next, Step Into, Step Over, Resume and quit.
 The debug frame show the local, instance and global variables for each
 step. 
 
-<Configuration>
+==== 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
-===========
+== 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.x, 
-Vector linux 5.8, 
-Windows 2000/XP, 
-Cygwin (note: same page fault error on dll under cygwin may be solved in this way:
-by ash.exe exec "/bin/rebaseall"). 
+* FreeBsd6.x, 
+* Vector linux 5.8, 
+* Windows 2000/XP, 
+* Cygwin (note: same page fault error on dll under cygwin may be solved in this way:
+  by ash.exe exec "/bin/rebaseall"). 
 If you will test arcadia on other operating system sends me an e-mail.
 
-Developers information
-=====================
+==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
-=======
+== License
 Arcadia is released under the Ruby License
 
-Contacts
-========
+== Contacts
 For questions:
 antonio-galeone@rubyforge.org
-For bugs, support request, feature request https://rubyforge.org/projects/arcadia:
-
-
+For bugs, support request, features request http://rubyforge.org/projects/arcadia

data/arcadia.rb

@@ -1,770 +1,1097 @@
-#
-#   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.3',
-        '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 = [['Tools', 0],
-      ['Build ruby doc tree', proc{EditorContract.instance.build_doc_tree(self)}, 2],
-      ['Keys-test', $arcadia['action.test.keys'], 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
+#
+#   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-tkcommons"
+require "base/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',
+        'conf/arcadia.conf',
+        'conf/arcadia.pers'
+      )
+    )
+    ArcadiaDialogManager.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{
+      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){
+      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
+    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
+      Arcadia.process_event(OpenBufferEvent.new(self,'file'=>'README'))
+    elsif ARGV.length > 0
+      ARGV.each{|_f|
+        Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_f)) if File.exist?(_f)
+      }
+    end
+    Arcadia.add_listener(self, QuitEvent)
+  end
+  
+  def on_quit(_event)
+    self.do_exit
+  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 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/*']).sort
+  		files.each{|f|
+  			 dirs << f if File.stat(f).directory? && FileTest.exist?(f+'/'+File.basename(f)+'.conf')
+  		}
+  		dirs.each{|ext_dir|
+  	    conf_hash = self.properties_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 do_build
+  
+    # create extensions
+    @exts.each{|extension|
+      if extension && ext_active?(extension)
+        @splash.next_step('... creating '+extension)
+        ext_create(extension)
+      end
+    }
+    _build_event = Arcadia.process_event(BuildEvent.new(self))
+  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_perc(0,1,70)
+
+#    @layout.add_rows_perc(0,0,70)
+#    @layout.add_cols(0,0,225)
+#    @layout.add_rows(0,0,180)
+
+    
+
+    @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.do_build
+    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)
+    @main_menu = ArcadiaMainMenu.new(@main_menu_bar)
+    #publish('main.menu', ArcadiaMainMenu.new(@main_menu))
+    @splash.next_step
+    publish('objic.action.raise_active_obj',
+    proc{
+    		InspectorContract.instance.raise_active_toplevel(self)
+    }
+    )
+    @splash.next_step('... toolbar buttons ')
+    #@main_toolbar.load_toolbar_buttons
+    
+    #load user controls
+    #Arcadia control
+    load_user_control(@main_menu)
+    load_user_control(@main_toolbar)
+    #Extension control
+    @exts.each{|ext|
+      @splash.next_step("... load #{ext} user controls ")
+      load_user_control(@main_menu, ext)
+      load_user_control(@main_toolbar, ext)
+    }
+    load_user_control(@main_menu,"","e")
+    load_user_control(@main_toolbar,"","e")
+  end
+
+  def load_user_control(_user_control, _ext='', _pre='')
+    return unless _ext && ext_active?(_ext)
+    
+    if _ext.length > 0 && self[_ext]
+      _self_on_eval = self[_ext]
+      suf = "#{_ext}.#{_user_control.class::SUF}"
+    else
+      _self_on_eval = self
+      suf = "#{_user_control.class::SUF}"
+    end
+    if _pre.length > 0
+      suf = "#{_pre}.#{suf}"
+    end
+    contexts = self['conf']["#{suf}.contexts"]
+    return if contexts.nil?
+    groups = contexts.split(',')
+    groups.each{|group|
+      if group
+        suf1 = suf+'.'+group
+        begin
+          context_path = self['conf']["#{suf1}.context_path"]
+          property = proc{|_str, _suf| self['conf']["#{_suf}.#{_str}"]} 
+          property_to_eval = proc{|_str, _suf| 
+            p = self['conf']["#{_suf}.#{_str}"]
+            _self_on_eval.instance_eval(p) if p 
+          } 
+          items = self['conf'][suf1].split(',')
+          items.each{|item|
+            suf2 = suf1+'.'+item
+            disabled = !self['conf']["#{suf2}.disabled"].nil?
+#            property = proc{|_str| self['conf']["#{suf2}.#{_str}"]} 
+#            property_to_eval = proc{|_str| 
+#              p = self['conf']["#{suf2}.#{_str}"]
+#              _self_on_eval.instance_eval(p) if p 
+#            } 
+            name = property.call('name',suf2)
+            caption = property.call('caption',suf2)
+            hint = property.call('hint',suf2)
+            event_class = property_to_eval.call('event_class',suf2)
+            
+            event_args = property_to_eval.call('event_args',suf2)
+            image_data = property_to_eval.call('image_data',suf2)
+            i = _user_control.new_item(self, 
+              'name'=>name,
+              'caption'=>caption,
+              'hint'=>hint,
+              'event_class' =>event_class,
+              'event_args' =>event_args,
+              'image_data' =>image_data,
+              'context'=>group,
+              'context_path'=>context_path)
+            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'
+            raise
+            exit
+          else
+            Tk.update
+          end
+        end
+      end
+    }
+    
+  end
+
+
+  def do_exit
+    q1 = (Arcadia.yes_no(self,
+                        'msg'=>"Do you want exit?",
+                        'title' => '(Arcadia) Exit',
+                        'level' => 'question')=='yes')
+    if q1 && can_exit?
+      do_finalize
+      @root.destroy
+    end
+  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
+  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
+  end
+  
+  def Arcadia.ok(_sender, _args=nil)
+    Arcadia.dialog(_sender, 'ok', _args['msg'], _args['title'], _args['level']) if _args
+  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
+  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
+
+end
+
+class ArcadiaUserControl
+  SUF='user_control'
+  class UserItem
+    attr_accessor :name
+    attr_accessor :context
+    attr_accessor :caption
+    attr_accessor :hint
+    attr_accessor :event_class
+    attr_accessor :event_args
+    attr_accessor :image_data
+    def initialize(_sender, _args)
+      @sender = _sender
+      if _args 
+        _args.each do |key, value|
+          self.send(key+'=', value)
+        end
+      end
+      #@item_obj = ?
+    end
+
+    def method_missing(m, *args)  
+      if @item_obj && m.respond_to?(m)
+        @item_obj.send(m, *args)
+      end
+    end  
+
+        
+    def enable=(_value)
+    end
+    
+    def background
+    end
+    
+    def foreground
+    end
+    
+  end
+#  def initialize
+#    @items = Hash.new
+#  end
+  def items
+    @items = Hash.new if @items.nil?
+    @items
+  end
+  
+  def new_item(_sender, _args)
+    item = self.class::UserItem.new(_sender, _args)
+    items[_args['name']]= item if _args['name']
+  end
+  
+end
+
+
+class ArcadiaMainToolbar < ArcadiaUserControl
+  SUF='user_toolbar'
+  class UserItem < UserItem
+    attr_accessor :frame
+    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
+      _hint = @hint
+      _font = @font
+      _foreground = @foreground
+      _background = @background
+      _caption = @caption
+      @item_obj = Tk::BWidget::Button.new(_args['frame']){
+        image  _image if _image
+        borderwidth 1
+        font _font if _font
+        background _background if _background
+        foreground _foreground if _foreground
+        command _command if _command
+        relief 'flat'
+        #relief 'groove'
+        width 20
+        height 20
+        helptext  _hint if _hint
+        text _caption if _caption
+        pack('side' =>'left', :padx=>2, :pady=>0)
+      }
+      #Tk::BWidget::Separator.new(@frame, :orient=>'vertical').pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
+    end
+
+    def enabled=(_value)
+      if _value
+        @item_obj.state='enable'
+      else
+        @item_obj.state='disable'
+      end
+    end
+  end
+  
+  
+  def initialize(_arcadia, _frame)
+    @arcadia = _arcadia
+    @frame = _frame
+#    @context_frames = Hash.new  
+    @last_context = nil
+  end
+
+  def new_item(_sender, _args= nil)
+     _context = _args['context']
+#    if _context
+#      if @context_frames[_context]
+#      else
+#        @context_frames[_context] = TkLabelFrame.new(@frame){
+#          text  ""
+#          relief 'groove'
+#          pack('side' =>'left', :padx=>0, :pady=>0)
+#        } 
+#      end
+#      _args['frame']=@context_frames[_context]
+#    else
+#      _args['frame']=@frame
+#    end
+    if @last_context && _context != @last_context 
+      new_separator
+    end
+    @last_context = _context
+    _args['frame']=@frame
+    super(_sender, _args)
+  end
+
+  def new_separator
+    Tk::BWidget::Separator.new(@frame, :orient=>'vertical').pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
+  end  
+
+#  def load_toolbar_buttons
+#    suf = 'toolbar_buttons'
+#    return if @arcadia['conf'][suf].nil?
+#    @buttons = Hash.new
+#    toolbar_buttons = @arcadia['conf'][suf].split(',')
+#    toolbar_buttons.each{|groups|
+#      if groups
+#        suf1 = suf+'.'+groups
+#        begin
+#          buttons = @arcadia['conf'][suf1].split(',')
+#          buttons.each{|button|
+#            suf2 = suf1+'.'+button
+#            name = @arcadia['conf'][suf2+'.name']
+#            text = @arcadia['conf'][suf2+'.text']
+#            image = @arcadia['conf'][suf2+'.image']
+#            font = @arcadia['conf'][suf2+'.font']
+#            background = @arcadia['conf'][suf2+'.background']
+#            foreground = @arcadia['conf'][suf2+'.foreground']
+#            hint = @arcadia['conf'][suf2+'.hint']
+#            action = @arcadia['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(@frame){
+#              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=>0)
+#            }
+#          }
+#        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' => @frame,
+#            'message' => msg) == 'cancel'
+#            raise
+#            exit
+#          else
+#            Tk.update
+#          end
+#        end
+#      end
+#      Tk::BWidget::Separator.new(@frame, :orient=>'vertical').pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
+#    }
+#  end
+
+  
+end
+
+class ArcadiaMainMenu < ArcadiaUserControl
+  SUF='user_menu'
+  class UserItem < UserItem
+    attr_accessor :menu
+    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
+      #_menu = @menu[@parent]
+      @item_obj = @menu.insert('end', :command, 
+        'image'=>_image,
+        'label'=>@caption, 
+        'compound'=>'left',
+        'command'=>_command )
+      @index = @menu.index('last')
+    end
+
+    def enabled=(_value)
+      if _value
+        @item_obj.entryconfigure(@index, 'state'=>'enable')
+      else
+        @item_obj.entryconfigure(@index,'state'=>'disable')
+      end
+    end
+  end
+  
+  def initialize(menu)
+    # 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'])
+  end
+
+  def get_menu_context(_menubar, _context)
+    menubuttons =  _menubar[0..-1]
+    # cerchiamo il context
+    m_i = -1
+    menubuttons.each_with_index{|mb, i|
+      _t = mb[0].cget('text')
+      if _t==_context
+        m_i = i 
+        break
+      end
+    }
+    if m_i > -1
+      _menubar[m_i][1]
+    else
+      _menubar.add_menu([[_context],[]])[1].delete(0)
+    end
+  end
+  
+  def get_sub_menu(menu_context, folder=nil)
+    if folder
+      s_i = -1 
+      i_end = menu_context.index('end')
+      if i_end
+        0.upto(i_end){|j|
+          l = menu_context.entrycget(j,'label')
+          if l == folder
+           s_i = j
+           break
+          end
+        }
+      end
+    end
+    if s_i > -1 && menu_context.menutype(s_i) == 'cascade'
+      sub = menu_context.entrycget(s_i, 'menu')
+    else
+      sub = TkMenu.new(
+        :parent=>@pop_up,
+        :tearoff=>0
+      )
+      menu_context.insert('end',
+        :cascade,
+        :label=>folder,
+        :menu=>sub,
+        :hidemargin => false
+      )
+    end
+    sub
+  end
+  
+  def get_menu(_menubar, _context, context_path)
+    context_menu = get_menu_context(_menubar, _context)
+    folders = context_path.split('/')
+    sub = context_menu
+    folders.each{|folder|
+      sub = get_sub_menu(sub, folder)
+    }
+    sub
+  end
+
+
+  def new_item(_sender, _args= nil)
+    return if _args.nil?
+    _args['menu']=get_menu(@menu, _args['context'], _args['context_path'])
+    super(_sender, _args)
+  end
+
+
+  def build
+    menu_spec_file = [
+      ['File', 0],
+      ['Open', proc{Arcadia.process_event(OpenBufferEvent.new(self,'file'=>Tk.getOpenFile))}, 0],
+      ['New', $arcadia['main.action.new_file'], 0],
+      #['Save', proc{EditorContract.instance.save_file_raised(self)},0],
+      ['Save', proc{Arcadia.process_event(SaveBufferEvent.new(self))},0],
+      ['Save as ...', proc{Arcadia.process_event(SaveAsBufferEvent.new(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{Arcadia.process_event(SearchBufferEvent.new(self))}, 2],
+      ['Find in files...', proc{Arcadia.process_event(SearchInFilesEvent.new(self))}, 2],
+      ['Go to line ...', proc{Arcadia.process_event(GoToLineBufferEvent.new(self))}, 2]]
+      menu_spec_view = [['View', 0],['Show/Hide Toolbar', proc{$arcadia.show_hide_toolbar}, 2]]
+      menu_spec_tools = [['Tools', 0],
+      ['Keys-test', $arcadia['action.test.keys'], 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 'groove'
+    #relief 'flat'
+    background  _bgcolor
+    highlightbackground  _bgcolor
+    highlightthickness  1
+    borderwidth 2
+    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' => 110,'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' => 65,'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 ArcadiaDialogManager
+  def initialize(_arcadia)
+    @arcadia = _arcadia
+    Arcadia.add_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
+     
+    tktype = type.gsub('_','').downcase
+    
+    res =  Tk.messageBox(
+            'icon' => icon,
+            'type' => tktype,
+            'title' => _event.title, 
+            'message' => _event.msg)
+    _event.add_result(self, 'value'=>res)
+  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 raise_panel(_domain, _extension)
+    p = @panels[_domain]
+    if p && p['notebook'] != nil
+      p['notebook'].raise(_extension)
+    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
+# TODO: bisogna schiftare di uno tutti i frame a partire da _row + 1
+#      if @frames[_row + 1][_col] != nil
+#        if @frames[_row + 2] == nil
+#        		@frames[_row + 2] = Array.new
+#        		@domains[_row + 2] = Array.new
+#        end
+#        @frames[_row + 2][_col]=@frames[_row + 1][_col]
+#      end
+      @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)
+          }
+        		)
+        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
+  
+  def new_float_frame(_args=nil)
+    if _args.nil?
+     _args = {'x'=>0, 'y'=>0, 'width'=>100, 'height'=>100}
+    end
+    _frame =  TkFloatTitledFrame.new(root)
+    _frame.on_close=proc{_frame.hide}
+    _frame.place(_args)
+    return _frame
+  end
+end
+Arcadia.new.run