arcadia 0.13.1 → 1.0.0

data/lib/a-contracts.rb

@@ -255,6 +255,9 @@ class SubProcessEvent < ArcadiaEvent
    attr_accessor :abort_action, :alive_check, :name, :pid, :timeout, :timecheck
 end
 
+class SubProcessProgressEvent < SubProcessEvent
+  attr_accessor :max, :varprogress
+end
 
 #class DebugMsgEvent < MsgEvent
 #end
@@ -315,7 +318,8 @@ end
 class InputKeyboardQueryEvent < ArcadiaEvent
   class Result < Result
     attr_accessor :input
-  end 
+  end
+  attr_accessor :pid
 end
 
 class InputEvent < ArcadiaEvent
@@ -367,6 +371,7 @@ class LowerCaseTextEvent < FocusEvent; end
 class DialogEvent < ArcadiaEvent
   TYPE_PATTERNS = ['ok', 'yes_no', 'ok_cancel', 'yes_no_cancel', 'abort_retry_ignore']
   MSG_MAX_CHARS = 500
+  TITLE_MAX_CHARS = 100
   class Result < Result
     attr_accessor :value
   end
@@ -379,7 +384,6 @@ end
 class HinnerDialogEvent < DialogEvent
 end
 
-
 #class QuestionDialogEvent < DialogEvent
 #end
 #

data/lib/a-core.rb

@@ -16,15 +16,17 @@ require "observer"
 
 class Arcadia < TkApplication
   include Observable
+  include OS
   attr_reader :layout
   attr_reader :wf
   attr_reader :mf_root
   attr_reader :localization
   def initialize
+    @initialized=false
     super(
       ApplicationParams.new(
         'arcadia',
-        '0.13.1',
+        '1.0.0',
         'conf/arcadia.conf',
         'conf/arcadia.pers'
       )
@@ -56,18 +58,19 @@ class Arcadia < TkApplication
       title _title
       withdraw
       protocol( "WM_DELETE_WINDOW", proc{Arcadia.process_event(QuitEvent.new(self))})
-      iconphoto(Arcadia.image_res(ARCADIA_RING_GIF)) if Arcadia.instance.tcltk_info.level >= '8.4.9'
+      iconphoto(Arcadia.image_res(A_LOGO_STRIP_GIF)) if Arcadia.instance.tcltk_info.level >= '8.4.9'
     }
     @on_event = Hash.new
 
-    @main_menu_bar = TkMenubar.new(
-    'background'=> self['conf']['background']
-    ).pack('fill'=>'x')
+#    @main_menu_bar = TkMenubar.new(
+#      'background'=> self['conf']['background']
+#    ).pack('fill'=>'x')
+    
     @mf_root = Tk::BWidget::MainFrame.new(@root,
     'background'=> self['conf']['background'],
     'height'=> 0
     ){
-      menu @main_menu_bar
+      #menu @main_menu_bar
     }.pack(
     'anchor'=> 'center',
     'fill'=> 'both',
@@ -82,7 +85,7 @@ class Arcadia < TkApplication
     @mf_root.show_toolbar(0,@is_toolbar_show)
     @use_splash = self['conf']['splash.show']=='yes'
     @splash = ArcadiaAboutSplash.new if @use_splash
-    @splash.set_progress(31) if @splash
+    @splash.set_progress(62) if @splash
     @splash.deiconify if @splash
     Tk.update
     @screenwidth=TkWinfo.screenwidth(@root)
@@ -113,7 +116,7 @@ class Arcadia < TkApplication
     else
       start_width = (@screenwidth-4)
       start_height = (@screenheight-20)
-      if RUBY_PLATFORM =~ /mswin|mingw/ # on doze don't go below the start gar
+      if OS.windows? # on doze don't go below the start gar
         start_height -= 50
         start_width -= 20
       end
@@ -150,16 +153,17 @@ class Arcadia < TkApplication
       Arcadia.runtime_error(e)
     end
     if self['conf']['geometry.state'] == 'zoomed'
-      if Arcadia.is_windows?
+      if Arcadia.is_windows? || OS.mac?
         @root.state('zoomed')
       else
         @root.wm_attributes('zoomed',1)
       end
     end
     #sleep(1)
+    @splash.last_step if @splash
     @splash.destroy  if @splash
     if @first_run # first ARCADIA ever
-      Arcadia.process_event(OpenBufferEvent.new(self,'file'=>'README'))
+      Arcadia.process_event(OpenBufferEvent.new(self,'file'=>'README.md'))
     elsif ARGV.length > 0
       ARGV.each{|_f|
         if  $pwd != File.dirname(__FILE__) && !File.exist?(_f)
@@ -171,6 +175,12 @@ class Arcadia < TkApplication
     Arcadia.attach_listener(self, QuitEvent)
     Arcadia.persistent("version", self['applicationParams'].version)
     @@last_input_keyboard_query_event=nil
+    @initialized=true
+ #   @focus_event_manager = FocusEventManager.new
+  end
+
+  def initialized?
+    @initialized
   end
 
   def on_quit(_event)
@@ -577,13 +587,14 @@ class Arcadia < TkApplication
   end
 
   def load_sysdefaultproperty
-    Tk.tk_call "eval","option add *background #{self['conf']['background']}"
-    Tk.tk_call "eval","option add *foreground #{self['conf']['foreground']}"
-    Tk.tk_call "eval","option add *activebackground #{self['conf']['activebackground']}"
-    Tk.tk_call "eval","option add *activeforeground #{self['conf']['activeforeground']}"
-    Tk.tk_call "eval","option add *highlightcolor  #{self['conf']['background']}"
-    Tk.tk_call "eval","option add *relief #{self['conf']['relief']}"
-
+    if !OS.mac?
+      Tk.tk_call "eval","option add *background #{self['conf']['background']}"
+      Tk.tk_call "eval","option add *foreground #{self['conf']['foreground']}"
+      Tk.tk_call "eval","option add *activebackground #{self['conf']['activebackground']}"
+      Tk.tk_call "eval","option add *activeforeground #{self['conf']['activeforeground']}"
+      Tk.tk_call "eval","option add *highlightcolor  #{self['conf']['background']}"
+      Tk.tk_call "eval","option add *relief #{self['conf']['relief']}"
+    end
     if !Arcadia.is_windows? && File.basename(Arcadia.ruby) != 'ruby'
       begin
         if !FileTest.exist?("#{local_dir}/bin")
@@ -611,7 +622,8 @@ class Arcadia < TkApplication
     publish('action.test.keys', proc{@keytest.show})
     publish('action.get.font', proc{Tk::BWidget::SelectFont::Dialog.new.create})
     publish('action.show_about', proc{ArcadiaAboutSplash.new.deiconify})
-    self['menubar'] = ArcadiaMainMenu.new(@main_menu_bar)
+#    self['menubar'] = ArcadiaMainMenu.new(@main_menu_bar)
+    self['menubar'] = ArcadiaMainMenu.new(@root)
     @splash.next_step(Arcadia.text('main.splash.building_extensions'))  if @splash
     self.do_build
     publish('objic.action.raise_active_obj',
@@ -634,6 +646,14 @@ class Arcadia < TkApplication
     }
     load_user_control(self['toolbar'],"","e")
     load_user_control(self['menubar'],"","e")
+    # Platform menus
+    if OS.mac?
+      apple = TkSysMenu_Apple.new(self['menubar'].menubar)
+      self['menubar'].menubar.add :cascade, :menu => apple
+    elsif OS.windows?
+      sysmenu = TkSysMenu_System.new(self['menubar'].menubar)
+      self['menubar'].menubar.add :cascade, :menu => sysmenu
+    end
     @splash.next_step(Arcadia.text('main.splash.loading_runners'))  if @splash
     load_runners
     do_make_clones
@@ -662,6 +682,11 @@ class Arcadia < TkApplication
         run = Hash.new.update(self['runners'][run[:runner]]).update(run)
         #self['runners'][name]=run
       end
+      if run[:image]
+        image = Arcadia.image_res(run[:image])
+      else
+        image = Arcadia.file_icon(run[:file_exts])
+      end
       _run_title = run[:title]
       run[:title] = nil
       run[:runner_name] = name
@@ -670,15 +695,20 @@ class Arcadia < TkApplication
         RunCmdEvent.new(self, run)
         )
       }
-      mr.insert('0',
-      :command ,{
-        :image => Arcadia.file_icon(run[:file_exts]),
+      if run[:pos]
+        pos = run[:pos]
+      else
+        pos = '0'
+      end
+      args = {
+        :image => image,
         :label => _run_title,
-        :font => Arcadia.conf('menu.font'),
         :compound => 'left',
         :command => _command
       }
-      )
+      args[:font] = Arcadia.conf('menu.font') #if !OS.mac?
+      
+      mr.insert(pos, :command , args)
     }
 
     insert_runner_instance_item = proc{|name, run|
@@ -689,23 +719,28 @@ class Arcadia < TkApplication
       _run_title = run[:title]
       run[:title] = nil
       run[:runner_name] = name
+      if run[:image]
+        image = Arcadia.image_res(run[:image])
+      else
+        image = Arcadia.file_icon(run[:file_exts])
+      end
+
       _command = proc{
         _event = Arcadia.process_event(
         RunCmdEvent.new(self, run)
         )
       }
-      mr.insert('0',
-      :command ,{
-        :image => Arcadia.file_icon(run[:file_exts]),
+      args = {
+        :image => image,
         :label => _run_title,
-        :font => Arcadia.conf('menu.font'),
         :compound => 'left',
         :command => _command
       }
-      )
+      args[:font] = Arcadia.conf('menu.font') #if !OS.mac?
+      mr.insert('0', :command , args)
     }
 
-    # conf runner
+    #conf runner
     runs=Arcadia.conf_group('runners')
     mr.insert('0', :separator) if runs && !runs.empty?
 
@@ -717,6 +752,22 @@ class Arcadia < TkApplication
       insert_runner_item.call(name, run)
     }
 
+
+    #conf exts runner
+    @exts.each{|ext|
+      if ext_active?(ext)
+        ext_runs=Arcadia.conf_group("#{ext}.runners")
+        mr.insert(self['runners'].count, :separator) if ext_runs && !ext_runs.empty?
+        ext_runs.each{|name, hash_string|
+          self['runners'][name]=eval hash_string
+          self['runners'][name][:pos]=self['runners'].count
+          insert_runner_item.call(name, self['runners'][name])
+        }
+      end
+    }
+
+
+
     # pers runner instance
     runs=Arcadia.pers_group('runners')
     mr.insert('0', :separator) if runs && !runs.empty?
@@ -725,8 +776,6 @@ class Arcadia < TkApplication
       begin
         pers_runner[name]=eval hash_string
       rescue Exception => e
-        p Arcadia("main.e.loading_runner.title", [name])
-        p Arcadia("main.e.loading_runner.msg", [hash_string, e.message])
         Arcadia.unpersistent("runners.#{name}")
       end
     }
@@ -887,7 +936,7 @@ class Arcadia < TkApplication
   def save_layout
     self['conf']['geometry']= geometry_refine(TkWinfo.geometry(@root))
     begin
-      if Arcadia.is_windows?
+      if Arcadia.is_windows? || OS.mac?
         self['conf']['geometry.state'] = @root.state.to_s
       else
         if @root.wm_attributes('zoomed') == '1'
@@ -984,14 +1033,14 @@ class Arcadia < TkApplication
     _event.mark
   end
 
-  def Arcadia.console_input(_sender)
+  def Arcadia.console_input(_sender, _pid=nil)
     @@input_ready = true if !defined?(@@input_ready)
     while !@@input_ready && !@@input_ready.nil?
       sleep(0.1)
     end
     begin
       @@input_ready=false
-      @@last_input_keyboard_query_event = InputKeyboardQueryEvent.new(_sender)
+      @@last_input_keyboard_query_event = InputKeyboardQueryEvent.new(_sender, :pid => _pid)
       @@last_input_keyboard_query_event.go!
       ret = @@last_input_keyboard_query_event.results.length > 0 ? @@last_input_keyboard_query_event.results[0].input : nil
     ensure
@@ -1032,8 +1081,12 @@ class Arcadia < TkApplication
 
 
   def Arcadia.dialog(_sender, _args=Hash.new)
-    _event = process_event(SystemDialogEvent.new(_sender, _args))
-    return _event.results[0].value if _event
+    if @@instance && @@instance.initialized?
+      Arcadia.hinner_dialog(_sender, _args)
+    else
+      _event = process_event(SystemDialogEvent.new(_sender, _args))
+      return _event.results[0].value if _event
+    end
   end
 
   def Arcadia.hinner_dialog(_sender, _args=Hash.new)
@@ -1115,12 +1168,37 @@ class Arcadia < TkApplication
     end
   end
 
-  def Arcadia.open_file_dialog
+  def Arcadia.open_system_file_dialog
     Tk.getOpenFile 'initialdir' => MonitorLastUsedDir.get_last_dir
   end
 
+  def Arcadia.open_file_dialog(_initial_dir=MonitorLastUsedDir.get_last_dir)
+    HinnerFileDialog.new.file(_initial_dir)
+  end
+
+  def Arcadia.select_dir_dialog(_initial_dir=MonitorLastUsedDir.get_last_dir, must_exist = nil)
+    HinnerFileDialog.new(HinnerFileDialog::SELECT_DIR_MODE, must_exist).dir(_initial_dir)
+  end
+
+  def Arcadia.save_file_dialog(_initial_dir=MonitorLastUsedDir.get_last_dir)
+    file = HinnerFileDialog.new(HinnerFileDialog::SAVE_FILE_MODE).file(_initial_dir)
+    if !file.nil? && File.exists?(file) 
+      if (Arcadia.dialog(self, 'type'=>'yes_no',
+      'msg'=>Arcadia.text('main.d.confirm_override_file.msg', [file]),
+      'title' => Arcadia.text('main.d.confirm_override_file.title'),
+      'level' => 'question')=='yes')
+          return file
+      else
+        return nil
+      end
+    else
+      return file
+    end
+  end
+
   def Arcadia.is_windows?
-    RUBY_PLATFORM =~ /mingw|mswin/
+    OS.windows?
+    #RUBY_PLATFORM =~ /mingw|mswin/
   end
 
   def Arcadia.ruby
@@ -1145,13 +1223,17 @@ class Arcadia < TkApplication
     end
     # $PATH check
     if _ret.nil?
-      ENV['PATH'].split(File::PATH_SEPARATOR).each{|_path|
-        _file = File.join(_path, _command)
-        if FileTest.exist?(_file)
-          _ret = _file
-          break
-        end
-      }
+      begin
+        ENV['PATH'].split(File::PATH_SEPARATOR).each{|_path|
+          _file = File.join(_path, _command)
+          if FileTest.exist?(_file)
+            _ret = _file
+            break
+          end
+        }
+      rescue RuntimeError => e
+        Arcadia.runtime_error(e)
+      end
     end
     # gem path check
     gem_path = Gem.path
@@ -1361,28 +1443,52 @@ class ArcadiaMainToolbar < ArcadiaUserControl
       _hint = @hint
       _font = @font
       _caption = @caption
-      @item_obj = Tk::BWidget::Button.new(_args['frame'], Arcadia.style('toolbarbutton')){
+      @item_obj = Arcadia.wf.toolbutton(_args['frame']){
         image  _image if _image
         command _command if _command
+#        height 23
         width 23
-        height 23
-        helptext  _hint if _hint
+        padding "5 0"
         text _caption if _caption
       }
+      return if @item_obj.nil?
+      @item_obj.hint=_hint
+
+#      @item_obj = Tk::BWidget::Button.new(_args['frame'], Arcadia.style('toolbarbutton')){
+#        image  _image if _image
+#        command _command if _command
+#        width 23
+#        height 23
+#        helptext  _hint if _hint
+#        #compound 'left'
+#      }
       if _args['context_path'] && _args['last_item_for_context']
         @item_obj.pack('after'=>_args['last_item_for_context'].item_obj, 'side' =>'left', :padx=>2, :pady=>0)
       else
         @item_obj.pack('side' =>'left', :padx=>2, :pady=>0)
       end
       if _args['menu_button'] && _args['menu_button'] == 'yes'
-        @menu_button = TkMenuButton.new(_args['frame'], Arcadia.style('toolbarbutton')){|mb|
-          indicatoron false
-          menu TkMenu.new(mb, Arcadia.style('menu'))
-          image Arcadia.image_res(MENUBUTTON_ARROW_DOWN_GIF)
-          padx 0
-          pady 0
+
+#        item_menu = TkMenu.new(mb)
+#        if !OS.mac?
+#          item_menu.configure(Arcadia.style('menu'))
+#        end
+        item_menu = Arcadia.wf.menu(mb)
+        @menu_button = Arcadia.wf.menubutton(_args['frame']){|mb|
+          menu item_menu
+         # image Arcadia.image_res(MENUBUTTON_ARROW_DOWN_GIF)
           pack('side'=> 'left','anchor'=> 's','pady'=>3)
         }
+      
+      
+#        @menu_button = TkMenuButton.new(_args['frame'], Arcadia.style('toolbarbutton')){|mb|
+#          indicatoron false
+#          menu TkMenu.new(mb, Arcadia.style('menu'))
+#          image Arcadia.image_res(MENUBUTTON_ARROW_DOWN_GIF)
+#          padx 0
+#          pady 0
+#          pack('side'=> 'left','anchor'=> 's','pady'=>3)
+#        }
         Arcadia.menu_root(_args['name'], @menu_button.cget('menu'))
       end
       #Tk::BWidget::Separator.new(@frame, :orient=>'vertical').pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
@@ -1392,7 +1498,7 @@ class ArcadiaMainToolbar < ArcadiaUserControl
       if _value
         @item_obj.state='normal'
       else
-        @item_obj.state='disable'
+        @item_obj.state='disabled' if !OS.mac? # Workaround for #1100117 on mac
       end
     end
   end
@@ -1413,7 +1519,6 @@ class ArcadiaMainToolbar < ArcadiaUserControl
   def new_item(_sender, _args= nil)
     _context = _args['context']
     _context_path = _args['context_path']
-
     if @last_context && _context != @last_context && _context_path.nil?
       new_separator
     end
@@ -1443,6 +1548,7 @@ end
 
 class ArcadiaMainMenu < ArcadiaUserControl
   SUF='user_menu'
+  attr_reader :menubar
   class UserItem < UserItem
     attr_accessor :menu
     attr_accessor :underline
@@ -1452,7 +1558,7 @@ class ArcadiaMainMenu < ArcadiaUserControl
       item_args = Hash.new
       item_args[:image]=Arcadia.image_res(@image_data) if @image_data
       item_args[:label]=@caption
-      item_args[:font]=Arcadia.conf('menu.font')
+      item_args[:font]=Arcadia.conf('menu.font') if !OS.mac?
       item_args[:underline]=@underline.to_i if @underline != nil
       item_args[:compound]='left'
       item_args[:command]=@command
@@ -1474,34 +1580,40 @@ class ArcadiaMainMenu < ArcadiaUserControl
       end
     end
   end
-
-  def initialize(menu)
-    # create main menu
-    @menu = menu
-    build
+  
+  def initialize(root)
+    # Creating Menubar
+    @menubar = Arcadia.wf.menu(root)
+#    @menubar = TkMenu.new(root)
     begin
-      @menu.configure(Arcadia.style('menu'))
+#      if !OS.mac?
+#        @menubar.configure(Arcadia.style('menu').delete_if {|key, value| key=='tearoff'}) 
+#        @menubar.extend(TkAutoPostMenu)
+#        @menubar.event_posting_on
+#      end
+      root['menu'] = @menubar
+      @menu_contexts = {}
     rescue RuntimeError => e
-      #p "RuntimeError : #{e.message}"
       Arcadia.runtime_error(e)
     end
   end
-
+  
   def get_menu_context(_menubar, _context, _underline=nil)
-    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]
+    m = @menu_contexts[_context]
+    if !m.nil? 
+      m
     else
-      _menubar.add_menu([[_context,_underline],[]])[1].delete(0)
+      topmenu = Arcadia.wf.menu(_menubar)
+#      topmenu = TkMenu.new(_menubar)
+#      if !OS.mac?
+#        topmenu.configure(Arcadia.style('menu'))
+#        topmenu.extend(TkAutoPostMenu)
+#      end
+      opt = {:menu => topmenu, :label => _context}
+      opt[:underline]=_underline if _underline
+      _menubar.add(:cascade, opt)
+      @menu_contexts[_context] = topmenu
+      topmenu
     end
   end
 
@@ -1533,12 +1645,14 @@ class ArcadiaMainMenu < ArcadiaUserControl
   def get_sub_menu(menu_context, folder=nil)
     sub = ArcadiaMainMenu.sub_menu(menu_context, folder)
     if sub.nil?
-      sub = TkMenu.new(
-      :parent=>@pop_up,
-      :tearoff=>0
-      )
-      sub.configure(Arcadia.style('menu'))
-      sub.extend(TkAutoPostMenu)
+      sub = Arcadia.wf.menu(:tearoff=>0)
+#      sub = TkMenu.new(
+#      :tearoff=>0
+#      )
+#      if !OS.mac?
+#        sub.configure(Arcadia.style('menu'))
+#        sub.extend(TkAutoPostMenu)
+#      end
       #update_style(sub)
       menu_context.insert('end',
       :cascade,
@@ -1566,13 +1680,14 @@ class ArcadiaMainMenu < ArcadiaUserControl
 
   def new_item(_sender, _args= nil)
     return if _args.nil?
+
     if _args['context_caption']
       conte = _args['context_caption']
     else
       conte = _args['context']
     end
     if _args['rif'] == 'main'
-      _args['menu']=make_menu_in_menubar(@menu, conte, _args['context_path'], _args['context_underline'])
+      _args['menu']=make_menu_in_menubar(@menubar, conte, _args['context_path'], _args['context_underline'])
     else
       if Arcadia.menu_root(_args['rif'])
         _args['menu']=make_menu(Arcadia.menu_root(_args['rif']), _args['context_path'], _args['context_underline'])
@@ -1584,122 +1699,12 @@ class ArcadiaMainMenu < ArcadiaUserControl
         'msg'=>msg,
         'level'=>'error')
 
-        _args['menu']=make_menu_in_menubar(@menu, conte, _args['context_path'], _args['context_underline'])
+        _args['menu']=make_menu_in_menubar(@menubar, conte, _args['context_path'], _args['context_underline'])
       end
     end
     super(_sender, _args)
   end
 
-
-  def build
-    menu_spec_file = [
-      [Arcadia.text('main.menu.file'), 0],
-      [Arcadia.text('main.menu.file.open'), proc{Arcadia.process_event(OpenBufferEvent.new(self,'file'=>Arcadia.open_file_dialog))}, 0],
-      [Arcadia.text('main.menu.file.new'), proc{Arcadia.process_event(NewBufferEvent.new(self))}, 0],
-      #['Save', proc{EditorContract.instance.save_file_raised(self)},0],
-      [Arcadia.text('main.menu.file.save'), proc{Arcadia.process_event(SaveBufferEvent.new(self))},0],
-      [Arcadia.text('main.menu.file.save_as'), proc{Arcadia.process_event(SaveAsBufferEvent.new(self))},0],
-      '---',
-    [Arcadia.text('main.menu.file.quit'), proc{Arcadia.process_event(QuitEvent.new(self))}, 0]]
-
-    menu_spec_edit = [[Arcadia.text('main.menu.edit'), 0],
-      [Arcadia.text('main.menu.edit.cut'), proc{Arcadia.process_event(CutTextEvent.new(self))}, 2],
-      [Arcadia.text('main.menu.edit.copy'), proc{Arcadia.process_event(CopyTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.paste'), proc{Arcadia.process_event(PasteTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.undo'), proc{Arcadia.process_event(UndoTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.redo'), proc{Arcadia.process_event(RedoTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.select_all'), proc{Arcadia.process_event(SelectAllTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.invert_selection'), proc{Arcadia.process_event(InvertSelectionTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.uppercase'), proc{Arcadia.process_event(UpperCaseTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.lowercase'), proc{Arcadia.process_event(LowerCaseTextEvent.new(self))}, 0],
-      [Arcadia.text('main.menu.edit.prettify_current'), proc{Arcadia.process_event(PrettifyTextEvent.new(self))}, 0],
-      '---',
-    [Arcadia.text('main.menu.edit.preferences'), proc{}, 0]]
-
-    menu_spec_search = [[Arcadia.text('main.menu.search'), 0],
-      [Arcadia.text('main.menu.search.find_replace'), proc{Arcadia.process_event(SearchBufferEvent.new(self))}, 2],
-      [Arcadia.text('main.menu.search.find_in_files'), proc{Arcadia.process_event(SearchInFilesEvent.new(self))}, 2],
-      [Arcadia.text('main.menu.search.ack_im_file'), proc{Arcadia.process_event(AckInFilesEvent.new(self))}, 2],
-    [Arcadia.text('main.menu.search.go_to_line'), proc{Arcadia.process_event(GoToLineBufferEvent.new(self))}, 2]]
-
-    menu_spec_view = [[Arcadia.text('main.menu.view'), 0],
-      [Arcadia.text('main.menu.view.show_hide_toolbar'), proc{$arcadia.show_hide_toolbar}, 2],
-      [Arcadia.text('main.menu.view.close_current_tab'), proc{Arcadia.process_event(CloseCurrentTabEvent.new(self))}, 0],
-    ]
-
-    menu_spec_tools = [[Arcadia.text('main.menu.tools'), 0],
-      [Arcadia.text('main.menu.tools.keys_test'), $arcadia['action.test.keys'], 2],
-      [Arcadia.text('main.menu.tools.edit_prefs'), proc{Arcadia.process_event(OpenBufferEvent.new(self,'file'=>$arcadia.local_file_config))}, 0],
-      [Arcadia.text('main.menu.tools.load_from_edited_prefs'), proc{$arcadia.load_local_config}, 0]
-    ]
-    menu_spec_help = [[Arcadia.text('main.menu.help'), 0],
-    [Arcadia.text('main.menu.help.about'), $arcadia['action.show_about'], 2],]
-    begin
-      @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)
-    rescue RuntimeError => e
-      #p "RuntimeError : #{e.message}"
-      Arcadia.runtime_error(e)
-    end
-    #    #@menu.bind_append("1", proc{
-    #      chs = TkWinfo.children(@menu)
-    #      hh = 25
-    #      @last_post = nil
-    #      chs.each{|ch|
-    #        ch.bind_append("Enter", proc{|x,y,rx,ry|
-    #          @last_post.unpost if @last_post && @last_post != ch.menu
-    #          ch.menu.post(x-rx,y-ry+hh)
-    #          @last_post=ch.menu}, "%X %Y %x %y")
-    #        ch.bind_append("Leave", proc{
-    #          @last_post.unpost if @last_post
-    #          @last_post=nil
-    #        })
-    #      }
-    #
-    #    #})
-
-    #      @menu.bind_append("Leave", proc{
-    #        if Tk.focus != @last_menu_posted
-    #          @last_post.unpost if @last_post
-    #          @last_post=nil
-    #        end
-    #      })
-    #
-
-
-    #      chs = TkWinfo.children(@menu)
-    #      hh = 25
-    #      @last_post = nil
-    #      chs.each{|ch|
-    #        ch.bind_append("Enter", proc{|x,y,rx,ry|
-    #          @last_post.unpost if @last_post && @last_post != ch.menu
-    #          ch.menu.post(x-rx,y-ry+hh)
-    #          chmenus = TkWinfo.children(ch)
-    #          @last_menu_posted = chmenus[0]
-    #          @last_menu_posted.set_focus
-    #          #@last_post=ch.menu
-    #          }, "%X %Y %x %y")
-    #        ch.bind_append("Leave", proc{
-    #          @last_post.unpost if @last_post
-    #          #@last_post=nil
-    #          @last_post=ch.menu
-    #        })
-    #      }
-    #      @menu.bind_append("Leave", proc{
-    #        if Tk.focus != @last_menu_posted
-    #          @last_post.unpost if @last_post
-    #          @last_post=nil
-    #        end
-    #      })
-
-    @menu.extend(TkAutoPostMenu)
-    @menu.event_posting_on
-  end
-
 end
 
 class RunnerManager < TkFloatTitledFrame
@@ -1743,12 +1748,16 @@ class RunnerManager < TkFloatTitledFrame
           self.destroy
         end
       }
-      Tk::BWidget::Button.new(self,
-      'command'=>_close_command,
-      'helptext'=>@runner_hash[:file],
-      'background'=>'white',
-      'image'=> Arcadia.image_res(TRASH_GIF),
-      'relief'=>'flat').pack('side' =>'right','padx'=>0)
+      #Tk::BWidget::Button.new(self,
+      b = Arcadia.wf.toolbutton(self,
+        'command'=>_close_command,
+       # 'helptext'=>@runner_hash[:file],
+       # 'background'=>'white',
+        'image'=> Arcadia.image_res(TRASH_GIF)
+       # 'relief'=>'flat'
+        ).pack('side' =>'right','padx'=>0)
+      b.hint=@runner_hash[:file]
+
       pack('side' =>'top','anchor'=>'nw','fill'=>'x','padx'=>5, 'pady'=>5)
     end
 
@@ -1825,7 +1834,7 @@ class ArcadiaAboutSplash < TkToplevel
     }
 
     @tkLabel2 = TkLabel.new(self){
-      text  'Arcadia Ide'
+      text  'Arcadia IDE'
       background  _bgcolor
       foreground  '#ffffff'
       font Arcadia.instance['conf']['splash.subtitle.font']
@@ -1841,7 +1850,7 @@ class ArcadiaAboutSplash < TkToplevel
       place('x' => 100,'y' => 65,'height' => 19)
     }
     @tkLabel21 = TkLabel.new(self){
-      text  Arcadia.text("main.about.by", ['Antonio Galeone - 2004/2013'])
+      text  Arcadia.text("main.about.by", ['Antonio Galeone - 2004/2014'])
       background  _bgcolor
       foreground  '#ffffff'
       font Arcadia.instance['conf']['splash.credits.font']
@@ -1863,7 +1872,7 @@ class ArcadiaAboutSplash < TkToplevel
     @tkLabelStep = TkLabel.new(self){
       text  ''
       background  _bgcolor
-      foreground  'yellow'
+      foreground  '#666666'
       font Arcadia.instance['conf']['splash.banner.font']
       justify  'left'
       anchor  'w'
@@ -1883,6 +1892,19 @@ class ArcadiaAboutSplash < TkToplevel
     info = TkApplication.sys_info
     set_sysinfo(info)
     Arcadia.attach_listener(self, ArcadiaProblemEvent)
+    Arcadia.attach_listeners_listener(self, BuildEvent)
+  end
+  
+  def on_build(_event, _listener)
+    next_step("... building #{_listener.class}")
+  end
+
+  def on_before_build(_event, _listener)
+    next_step("... pre building #{_listener.class}")
+  end
+
+  def on_after_build(_event, _listener)
+    next_step("... after building #{_listener.class}")
   end
 
   def problem_str
@@ -1896,7 +1918,7 @@ class ArcadiaAboutSplash < TkToplevel
       @tkAlert = TkLabel.new(self){
         image Arcadia.image_res(ALERT_GIF)
         background  'black'
-        place('x'=> 10,'y' => 150)
+        place('x'=> 10,'y' => 152)
       }
 
       @tkLabelProblems = TkLabel.new(self){
@@ -1935,7 +1957,12 @@ class ArcadiaAboutSplash < TkToplevel
 
   def next_step(_txt = nil)
     @progress.numeric += 1
-    labelStep(_txt) if _txt
+    labelStep("#{perc}% #{_txt}")
+  end
+
+  def perc
+    ret = @progress.numeric*100/@max
+    ret > 100 ? 100:ret
   end
 
   def labelStep(_txt)
@@ -1947,9 +1974,11 @@ class ArcadiaAboutSplash < TkToplevel
     @progress.numeric = @max
     labelStep(_txt) if _txt
     Arcadia.detach_listener(self, ArcadiaProblemEvent)
+    Arcadia.detach_listeners_listener(self, BuildEvent)
   end
 end
 
+
 class ArcadiaProblemsShower
   def initialize(_arcadia)
     @arcadia = _arcadia
@@ -1971,7 +2000,7 @@ class ArcadiaProblemsShower
         show_problems
       else
         append_problem(_event)
-        @b_err.configure('text'=> button_text)
+        #@b_err.configure('text'=> button_text)
       end
     end
   end
@@ -2000,12 +2029,12 @@ class ArcadiaProblemsShower
       @problems.each{|e|
         append_problem(e)
       }
-      if @tree.exist?('dependences_missing_node')
-        @tree.open_tree('dependences_missing_node', true)
-      end
-      if @tree.exist?('runtime_error_node')
-        @tree.open_tree('runtime_error_node', true)
-      end
+#      if @tree.exist?('dependences_missing_node')
+#        @tree.open_tree('dependences_missing_node', true)
+#      end
+#      if @tree.exist?('runtime_error_node')
+#        @tree.open_tree('runtime_error_node', true)
+#      end
       @showed=true
     rescue RuntimeError => e
       Arcadia.detach_listener(self, ArcadiaProblemEvent)
@@ -2020,71 +2049,66 @@ class ArcadiaProblemsShower
 
   def initialize_gui
     # float_frame
-    args = {'width'=>600, 'height'=>300, 'x'=>400, 'y'=>100}
-    @ff = @arcadia.layout.add_float_frame(args).hide
-    @ff.title(Arcadia.text("main.ps.title"))
-
-    #tree
-    @tree = BWidgetTreePatched.new(@ff.frame, Arcadia.style('treepanel')){
-      showlines false
-      deltay 22
-      # opencmd do_open_folder_cmd
-      # closecmd do_close_folder_cmd
-      # selectcommand do_select_item
-      # crosscloseimage  TkPhotoImage.new('dat' => PLUS_GIF)
-      # crossopenimage  TkPhotoImage.new('dat' => MINUS_GIF)
-    }
-    @tree.extend(TkScrollableWidget).show(0,0)
-
-    do_double_click = proc{
-      _selected = @tree.selected
-      _selected_text = @tree.itemcget(_selected, 'text')
-      if _selected_text
-        _file, _row, _other = _selected_text.split(':')
-        if File.exist?(_file)
-          begin
-            r = _row.strip.to_i
-            integer = true
-          rescue Exception => e
-            integer = false
-          end
-          if integer
-            OpenBufferTransientEvent.new(self,'file'=>_file, 'row'=>r).go!
-          end
-        end
-      end
-    }
-    @tree.textbind_append('Double-1',do_double_click)
-
-
-    # call button
-    command = proc{
-      if @ff.visible?
-        @ff.hide
-        #@visible = false
-      else
-        @ff.show
-        #@visible = true
-      end
-    }
-
-    b_style = Arcadia.style('toolbarbutton')
-    b_style["relief"]='groove'
-    #    b_style["borderwidth"]=2
-    b_style["highlightbackground"]='red'
-
-    b_text = button_text
-
-    @b_err = Tk::BWidget::Button.new(@arcadia['toolbar'].frame, b_style){
-      image  Arcadia.image_res(ALERT_GIF)
-      compound 'left'
-      padx  2
-      command command if command
-      #width 100
-      #height 20
-      #helptext  _hint if _hint
-      text b_text
-    }.pack('side' =>'left','before'=>@arcadia['toolbar'].items.values[0].item_obj, :padx=>2, :pady=>0)
+#    args = {'width'=>600, 'height'=>300, 'x'=>400, 'y'=>100}
+#    @ff = @arcadia.layout.add_float_frame(args).hide
+#    @ff.title(Arcadia.text("main.ps.title"))
+#
+#    #tree
+#    @tree = BWidgetTreePatched.new(@ff.frame, Arcadia.style('treepanel')){
+#      showlines false
+#      deltay 22
+#    }
+#    @tree.extend(TkScrollableWidget).show(0,0)
+#
+#    do_double_click = proc{
+#      _selected = @tree.selected
+#      _selected_text = @tree.itemcget(_selected, 'text')
+#      if _selected_text
+#        _file, _row, _other = _selected_text.split(':')
+#        if File.exist?(_file)
+#          begin
+#            r = _row.strip.to_i
+#            integer = true
+#          rescue Exception => e
+#            integer = false
+#          end
+#          if integer
+#            OpenBufferTransientEvent.new(self,'file'=>_file, 'row'=>r).go!
+#          end
+#        end
+#      end
+#    }
+#    @tree.textbind_append('Double-1',do_double_click)
+#
+#
+#    # call button
+#    command = proc{
+#      if @ff.visible?
+#        @ff.hide
+#        #@visible = false
+#      else
+#        @ff.show
+#        #@visible = true
+#      end
+#    }
+#
+#    b_style = Arcadia.style('toolbarbutton')
+#    b_style["relief"]='groove'
+#    #    b_style["borderwidth"]=2
+#    b_style["highlightbackground"]='red'
+#
+#    b_text = button_text
+#
+#    @b_err = Tk::BWidget::Button.new(@arcadia['toolbar'].frame, b_style){
+#      image  Arcadia.image_res(ALERT_GIF)
+#      compound 'left'
+#      padx  2
+#      command command if command
+#      #width 100
+#      #height 20
+#      #helptext  _hint if _hint
+#      text b_text
+#    }.pack('side' =>'left','before'=>@arcadia['toolbar'].items.values[0].item_obj, :padx=>2, :pady=>0)
 
   end
 
@@ -2094,78 +2118,85 @@ class ArcadiaProblemsShower
   end
 
   def append_problem(e)
-    parent_node='root'
+#    parent_node='root'
     case e.type
     when ArcadiaProblemEvent::DEPENDENCE_MISSING_TYPE
-      parent_node='dependences_missing_node'
+#      parent_node='dependences_missing_node'
       text = Arcadia.text("main.ps.dependences_missing")
-      if !@tree.exist?(parent_node)
-        @tree.insert('end', 'root' ,parent_node, {
-          'text' =>  text ,
-          'helptext' => text,
-          'drawcross'=>'auto',
-          'deltax'=>-1,
-          'image'=> Arcadia.image_res(BROKEN_GIF)
-        }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
-        )
+#      if !@tree.exist?(parent_node)
+#        @tree.insert('end', 'root' ,parent_node, {
+#          'text' =>  text ,
+#          'helptext' => text,
+#          'drawcross'=>'auto',
+#          'deltax'=>-1,
+#          'image'=> Arcadia.image_res(BROKEN_GIF)
+#        }.update(Arcadia.style('treeitem'))
+#        )
+#
+#      end
+#      @dmc+=1
+#      @tree.itemconfigure('dependences_missing_node','text'=>"#{text} (#{@dmc})" )
 
-      end
-      @dmc+=1
-      @tree.itemconfigure('dependences_missing_node','text'=>"#{text} (#{@dmc})" )
     when ArcadiaProblemEvent::RUNTIME_ERROR_TYPE
-      parent_node='runtime_error_node'
+#      parent_node='runtime_error_node'
       text = Arcadia.text("main.ps.runtime_errors")
-      if !@tree.exist?(parent_node)
-        @tree.insert('end', 'root' ,parent_node, {
-          'text' =>  text ,
-          'helptext' => text,
-          'drawcross'=>'auto',
-          'deltax'=>-1,
-          'image'=> Arcadia.image_res(ERROR_GIF)
-        }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
-        )
-      end
-      @rec+=1
-      @tree.itemconfigure('runtime_error_node','text'=>"#{text} (#{@rec})" )
-    end
+#      if !@tree.exist?(parent_node)
+#        @tree.insert('end', 'root' ,parent_node, {
+#          'text' =>  text ,
+#          'helptext' => text,
+#          'drawcross'=>'auto',
+#          'deltax'=>-1,
+#          'image'=> Arcadia.image_res(ERROR_GIF)
+#        }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
+#        )
+#      end
+#      @rec+=1
+#      @tree.itemconfigure('runtime_error_node','text'=>"#{text} (#{@rec})" )
+    end
+
+    output_mark = Arcadia.console(self,'msg'=>"#{text} : ", 'level'=>'system_error', 'mark'=>output_mark)      
+
     title_node="node_#{new_sequence_value}"
     detail_node="detail_of_#{title_node}"
 
-    @tree.insert('end', parent_node ,title_node, {
-      'text' =>  e.title ,
-      'helptext' => e.title,
-      'drawcross'=>'auto',
-      'deltax'=>-1,
-      'image'=> Arcadia.image_res(ITEM_GIF)
-    }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
-    )
-    if e.detail.kind_of?(Array)
-      e.detail.each_with_index{|line,i|
-        @tree.insert('end', title_node , "#{detail_node}_#{i}" , {
-          'text' =>  line ,
-          'helptext' => i.to_s,
-          'drawcross'=>'auto',
-          'deltax'=>-1,
-          'image'=> Arcadia.image_res(ITEM_DETAIL_GIF)
-        }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
-        )
+#    @tree.insert('end', parent_node ,title_node, {
+#      'text' =>  e.title ,
+#      'helptext' => e.title,
+#      'drawcross'=>'auto',
+#      'deltax'=>-1,
+#      'image'=> Arcadia.image_res(ITEM_GIF)
+#    }.update(Arcadia.style('treeitem'))  
+#    )
 
-      }
+
+    if e.detail.kind_of?(Array)
+#      e.detail.each_with_index{|line,i|
+#        @tree.insert('end', title_node , "#{detail_node}_#{i}" , {
+#          'text' =>  line ,
+#          'helptext' => i.to_s,
+#          'drawcross'=>'auto',
+#          'deltax'=>-1,
+#          'image'=> Arcadia.image_res(ITEM_DETAIL_GIF)
+#        }.update(Arcadia.style('treeitem'))  
+#        )
+#     }
     else
-      @tree.insert('end', title_node , detail_node , {
-        'text' =>  e.detail ,
-        'helptext' => e.title,
-        'drawcross'=>'auto',
-        'deltax'=>-1,
-        'image'=> Arcadia.image_res(ITEM_DETAIL_GIF)
-      }.update(Arcadia.style('treeitem'))  #.update({'fill'=>Arcadia.conf('inactiveforeground')}))
-      )
+#      @tree.insert('end', title_node , detail_node , {
+#        'text' =>  e.detail ,
+#        'helptext' => e.title,
+#        'drawcross'=>'auto',
+#        'deltax'=>-1,
+#        'image'=> Arcadia.image_res(ITEM_DETAIL_GIF)
+#      }.update(Arcadia.style('treeitem'))  
+#      )
     end
 
+    output_mark = Arcadia.console(self,'msg'=>"#{e.title}\n> #{e.detail}", 'level'=>'system_error', 'mark'=>output_mark, 'append'=>true)      
 
   end
 end
 
+
 class ArcadiaActionDispatcher
 
   def initialize(_arcadia)
@@ -2322,7 +2353,7 @@ class ArcadiaSh < TkToplevel
       @text.delete('0.0','end')
     else
       begin
-        if RUBY_PLATFORM =~ /mingw|mswin/
+        if OS.windows?
           p = IO::popen("#{_cmd} 2>&1")
           out(p.read, 'response')
           @result = true
@@ -2411,13 +2442,13 @@ class ArcadiaGemsWizard
 
 end
 
-
 class ArcadiaDialogManager
   DialogParams = Struct.new("DialogParams",
     :type,
     :res_array,
     :level,
-    :msg
+    :msg,
+    :title
   )
 
   def initialize(_arcadia)
@@ -2443,6 +2474,11 @@ class ArcadiaDialogManager
       else
         ret.msg = _event.msg
       end
+      if _event.title && _event.title.length > _event.class::TITLE_MAX_CHARS
+        ret.title = _event.title[0.._event.class::TITLE_MAX_CHARS]+' ...'
+      else
+        ret.title = _event.title
+      end
     end
     ret
   end
@@ -2480,14 +2516,7 @@ class ArcadiaDialogManager
 
   def do_hinner_dialog(_event)
     par = dialog_params(_event, false)
-    dialog_frame = TkFrame.new(Arcadia.layout.base_frame, Arcadia.style('panel')){
-      #relief 'solid'
-      #borderwidth 3
-      highlightbackground Arcadia.conf('hightlight.link.foreground')
-      #highlightcolor 'red'
-      highlightthickness 1
-    }
-    dialog_frame.pack('side' =>'top','after'=>Arcadia.layout.root, 'anchor'=>'nw','fill'=>'x', 'padx'=>0, 'pady'=>0)
+    dialog_frame = HinnerDialog.new
     max_width = 0
     par.res_array.each{|v| 
       l = v.length
@@ -2495,38 +2524,27 @@ class ArcadiaDialogManager
     }
     res = nil
     par.res_array.reverse_each{|value|
-      Tk::BWidget::Button.new(dialog_frame, Arcadia.style('button')){
-        command proc{res = value}
+    #  Tk::BWidget::Button.new(dialog_frame, Arcadia.style('button')){
+      Arcadia.wf.button(dialog_frame){
+        command proc{res = value;dialog_frame.release}
         text value.capitalize
-        helptext  value.capitalize
+        #helptext  value.capitalize
         width max_width*2
-      }.pack('side' =>'right','padx'=>5, 'pady'=>5)
+        pack('side' =>'right','padx'=>5, 'pady'=>5)
+      }.hint=value.capitalize
     }
 
     Tk::BWidget::Label.new(dialog_frame,Arcadia.style('label')){
       text  par.msg
-      helptext _event.msg
-#    }.pack('fill'=>'x','side' =>'left')
+      helptext _event.title
     }.pack('side' =>'right','padx'=>5, 'pady'=>5)
 
-#    Tk::BWidget::Label.new(dialog_frame,Arcadia.style('label')){
-#      compound 'left'
-#      Tk::Anigif.image(self, "#{Dir.pwd}/ext/ae-subprocess-inspector/process.res")
-#    }.pack('side' =>'right','padx'=>10)
+    Tk::BWidget::Label.new(dialog_frame,Arcadia.style('label')){
+      compound 'left'
+      Tk::Anigif.image(self, "#{Dir.pwd}/ext/ae-subprocess-inspector/process.res")
+    }.pack('side' =>'right','padx'=>10)
 
-    
-    Tk.update
-    dialog_frame.grab("set")
-    begin
-      while res == nil do 
-        Tk.update
-        sleep(0.1) 
-      end
-    ensure
-      dialog_frame.grab("release")
-    end
-    dialog_frame.destroy
-    Tk.update
+    dialog_frame.show_modal
     _event.add_result(self, 'value'=>res)
   end
 
@@ -2557,13 +2575,13 @@ class ArcadiaLayout
   #    :frame,
   #    :ffw
   #  )
-  attr_reader :base_frame
+  attr_reader :parent_frame
   HIDDEN_DOMAIN = '-1.-1'
   def initialize(_arcadia, _frame, _autotab=true)
     @arcadia = _arcadia
     @frames = Array.new
     @frames[0] = Array.new
-    @base_frame = _frame
+    @parent_frame = _frame
     @content_frame = TkFrame.new(_frame).pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
 #    @dialog_frame = TkFrame.new(_frame)
 
@@ -3318,7 +3336,7 @@ class ArcadiaLayout
   def change_domain(_target_domain, _source_name)
     source_domain = @wrappers[_source_name].domain
     source_has_domain = !source_domain.nil?
-    if @arcadia.conf('layout.exchange_panel_if_no_tabbed')=='true' && source_has_domain && @panels[source_domain]['sons'].length ==1 && @panels[_target_domain]['sons'].length > 0
+    if @arcadia.conf('layout.exchange_panel_if_no_tabbed')=='true' && source_has_domain && @panels[source_domain]['sons'].length == 1 && @panels[_target_domain]['sons'].length > 0
       # change ------
       ffw1 = raised_fixed_frame(_target_domain)
       ffw2 = @panels[source_domain]['sons'].values[0]
@@ -3331,7 +3349,7 @@ class ArcadiaLayout
       @panels[_target_domain]['root'].save_caption(ffw2.name, @panels[source_domain]['root'].last_caption(ffw2.name), @panels[source_domain]['root'].last_caption_image(ffw2.name))
       @panels[source_domain]['root'].save_caption(ffw1.name, @panels[_target_domain]['root'].last_caption(ffw1.name), @panels[_target_domain]['root'].last_caption_image(ffw1.name))
       @panels[_target_domain]['root'].restore_caption(ffw2.name)
-      @panels[source_domain]['root'].restore_caption(ffw1.name)
+       @panels[source_domain]['root'].restore_caption(ffw1.name)
       @panels[_target_domain]['root'].change_adapters(ffw2.name, @panels[source_domain]['root'].forge_transient_adapter(ffw2.name))
       @panels[source_domain]['root'].change_adapters(ffw1.name, @panels[_target_domain]['root'].forge_transient_adapter(ffw1.name))
     elsif source_has_domain && @panels[source_domain]['sons'].length >= 1
@@ -3342,6 +3360,7 @@ class ArcadiaLayout
       @panels[_target_domain]['root'].save_caption(ffw2.name, @panels[source_domain]['root'].last_caption(ffw2.name), @panels[source_domain]['root'].last_caption_image(ffw2.name))
       @panels[_target_domain]['root'].restore_caption(ffw2.name)
       @panels[_target_domain]['root'].change_adapters(ffw2.name, @panels[source_domain]['root'].forge_transient_adapter(ffw2.name))
+      #Tk.event_generate(ffw2.hinner_frame, "Map")
     elsif !source_has_domain
       ffw2 = @wrappers[_source_name]
       ffw2.domain = _target_domain
@@ -3357,33 +3376,6 @@ class ArcadiaLayout
     LayoutChangedDomainEvent.new(self, 'old_domain'=>source_domain, 'new_domain'=>_target_domain).go!
   end
 
-  #  def change_domain_old(_dom1, _dom2, _name2)
-  #    tt1= @panels[_dom1]['root'].top_text
-  #    tt2= @panels[_dom2]['root'].top_text
-  #    if  @panels[_dom2]['sons'].length ==1 && @panels[_dom1]['sons'].length > 0
-  #      # change ------
-  #      ffw1 = raised_fixed_frame(_dom1)
-  #      ffw2 = @panels[_dom2]['sons'].values[0]
-  #      unregister_panel(ffw1,false,false) if ffw1
-  #      unregister_panel(ffw2,false,false)
-  #      ffw1.domain = _dom2 if ffw1
-  #      ffw2.domain = _dom1
-  #      register_panel(ffw1, ffw1.hinner_frame) if ffw1
-  #      register_panel(ffw2, ffw2.hinner_frame)
-  #      @panels[_dom1]['root'].top_text(tt2)
-  #      @panels[_dom2]['root'].top_text(tt1)
-  #    elsif @panels[_dom2]['sons'].length > 1
-  #      ffw2 = @panels[_dom2]['sons'][_name2]
-  #      unregister_panel(ffw2, false, false)
-  #      ffw2.domain = _dom1
-  #      register_panel(ffw2, ffw2.hinner_frame)
-  #      @panels[_dom1]['root'].top_text(tt2)
-  #      @panels[_dom2]['root'].top_text('')
-  #    end
-  #    # refresh -----
-  #    build_invert_menu
-  #  end
-
   def sorted_menu_index(_menu, _label)
     index = '0'
     i_end = _menu.index('end').to_i - 4
@@ -3435,13 +3427,15 @@ class ArcadiaLayout
           submenu = ArcadiaMainMenu.sub_menu(_menu, submenu_title)
         end
         if submenu.nil?
-          submenu = TkMenu.new(
+        
+          #submenu = TkMenu.new(
+          submenu = Arcadia.wf.menu(
             :parent=>_menu,
             :tearoff=>0,
             :title => submenu_title
           )
-          submenu.extend(TkAutoPostMenu)
-          submenu.configure(Arcadia.style('menu'))
+          #submenu.extend(TkAutoPostMenu)
+          #submenu.configure(Arcadia.style('menu'))
           _menu.insert(ind,
             :cascade,
             :image=>Arcadia.image_res(ARROW_LEFT_GIF),
@@ -3479,7 +3473,7 @@ class ArcadiaLayout
   end
 
   def process_frame(_ffw)
-    #p "processo frame #{_ffw.title}"
+    #p "process frame #{_ffw.title}"
     #-------
     is_plus = Arcadia.extension(_ffw.name).kind_of?(ArcadiaExtPlus)
     #-------
@@ -3749,7 +3743,20 @@ class ArcadiaLayout
   def view_panel
   end
 
-  def hide_panel
+  def hide_panel(_domain, _extension)
+    pan = @panels[_domain]
+    if @tabbed
+      if pan && pan['notebook'] != nil
+        pan['notebook'].unpack
+      end
+    elsif pan
+      pan['sons'].each{|k,v|
+        if k == _extension
+          v.hide
+          break
+        end
+      }
+    end
   end
 
   def [](_row, _col)
@@ -3757,7 +3764,7 @@ class ArcadiaLayout
   end
 
   def frame(_domain_name, _name)
-    @panels[_domain_name]['sons'][_name].frame
+    @panels[_domain_name]['sons'][_name].hinner_frame
   end
 
   #  def domain_for_frame(_domain_name, _name)
@@ -3782,6 +3789,21 @@ class ArcadiaLayout
     return _frame
   end
 
+  def add_hinner_dialog(side='top', args=nil)
+    hd = HinnerDialog.new(side, args)
+    return hd
+  end
+
+  def add_hinner_splitted_dialog(side='top', height=100, args=nil)
+    hd = HinnerSplittedDialog.new(side, height, args)
+    return hd
+  end
+
+  def add_hinner_splitted_dialog_titled(title=nil, side='top', height=100, args=nil)
+    hd = HinnerSplittedDialogTitled.new(title, side, height, args)
+    return hd
+  end
+
   def dump_splitter(_splitter)
     ret = ''
     if  _splitter.instance_of?(AGTkVSplittedFrames)
@@ -4112,4 +4134,18 @@ class ArcadiaUtils
     }
     ret.concat(subpids)
   end
+  
+  def ArcadiaUtils.exec(_cmd_=nil)
+    return nil if _cmd_.nil?
+    to_ret = ''
+    begin
+      open("|#{_cmd_}", "r"){|f| 
+        #to_ret = f.readlines
+        to_ret = f.read
+      }
+    rescue RuntimeError => e
+      Arcadia.runtime_error(e)
+    end
+    to_ret
+  end
 end