arcadia 0.8.1 → 0.9.0

data/lib/a-commons.rb

@@ -67,12 +67,14 @@ class FixedFrameWrapper < AbstractFrameWrapper
   attr_accessor :domain
   attr_reader :name
   attr_reader :title
-  attr_reader :extension
-  def initialize(_extension, _domain, _name, _title='')
+  attr_reader :extension_name
+  def initialize(_extension, _domain, _name, _title='', _index=0)
     @extension = _extension
+    @extension_name = _extension.name
     @domain =_domain
     @name = _name
     @title = _title
+    @index = _index
     fixed_frame_forge
   end
   
@@ -96,6 +98,16 @@ class FixedFrameWrapper < AbstractFrameWrapper
     fixed_frame_forge
     Arcadia.layout.raise_panel(@domain, @name)
   end
+
+  def show_anyway
+    self.show
+    if !Arcadia.layout.registered_panel?(self)
+      if domain.nil?
+        self.domain = @extension.frame_domain_default(@index)
+      end
+      Arcadia.layout.register_panel(self, self.hinner_frame)
+    end
+  end
   
   def hide
   end
@@ -188,6 +200,7 @@ end
 
 class ArcadiaExt
   attr_reader :arcadia
+  attr_reader :name
   def initialize(_arcadia, _name=nil)
     @arcadia = _arcadia
     @arcadia.register(self)
@@ -226,11 +239,37 @@ class ArcadiaExt
 	  if @frames[_n] == nil && @frames_points[_n] && create_if_not_exist
 	    (@frames_labels[_n].nil?)? _label = @name : _label = @frames_labels[_n]
 	    (@frames_names[_n].nil?)? _name = @name : _name = @frames_names[_n]
-	    @frames[_n] = FixedFrameWrapper.new(@name, @frames_points[_n], _name, _label)
+	    @frames[_n] = FixedFrameWrapper.new(self, @frames_points[_n], _name, _label, _n)
 	  end
     return @frames[_n]
   end
   
+  def frame_domain(_n=0)
+    if conf('frames')
+       frs = conf('frames').split(',') 
+    else 
+      frs = Array.new
+    end
+    ret = nil
+    if frs.length > _n
+      ret = frs[_n]
+    end
+    ret
+  end
+
+  def frame_domain_default(_n=0)
+    if conf_default('frames')
+       frs = conf_default('frames').split(',') 
+    else 
+      frs = Array.new
+    end
+    ret = nil
+    if frs.length > _n
+      ret = frs[_n]
+    end
+    ret
+  end
+
   def float_frame(_n=0, _args=nil)
 	  if @float_frames[_n].nil? 
 	    (@float_labels[_n].nil?)? _label = @name : _label = @float_labels[_n]
@@ -243,6 +282,16 @@ class ArcadiaExt
 	  @arcadia['conf'][@name+'.'+_property]
   end
 
+  def conf_default(_property)
+	  @arcadia['conf_without_local'][@name+'.'+_property]
+  end
+
+  def restore_default_conf(_property)
+    if  @arcadia['conf'][@name+'.'+_property] && @arcadia['conf_without_local'][@name+'.'+_property]
+      @arcadia['conf'][@name+'.'+_property] = @arcadia['conf_without_local'][@name+'.'+_property]
+    end
+  end
+  
 #  def conf_global(_property)
 #	  @arcadia['conf'][_property]
 #  end
@@ -311,7 +360,7 @@ class Event
     if _args 
       _args.each do |key, value|
         #self.send(key, value)
-        self.send(key+'=', value)
+        self.send(key.to_s+'=', value) if self.respond_to?(key.to_s)
       end
     end
     @time = Time.new
@@ -526,20 +575,28 @@ module Configurable
     end
   end
   
-  def Configurable.properties_group(_group, _hash_source)
+#  def one_line_format_as_hash(_line)
+#    ret = Hash.new 
+#  end
+#  
+#  def hash_as_one_line_format(_name, _hash) 
+#  end
+
+  def Configurable.properties_group(_group, _hash_source, _hash_suff='conf', _refresh=false)
+    group_key="#{_hash_suff}.#{_group}"
     @@conf_groups = Hash.new if !defined?(@@conf_groups)
-    if @@conf_groups[_group].nil?
-      @@conf_groups[_group] = Hash.new
+    if @@conf_groups[group_key].nil? || _refresh
+      @@conf_groups[group_key] = Hash.new
       glen=_group.length
       _hash_source.keys.sort.each{|k|
         if k[0..glen] == "#{_group}."
-          @@conf_groups[_group][k[glen+1..-1]]=_hash_source[k]
-        elsif @@conf_groups[_group].length > 0
+          @@conf_groups[group_key][k[glen+1..-1]]=_hash_source[k]
+        elsif @@conf_groups[group_key].length > 0
           break
         end
       }
     end
-    Hash.new.update(@@conf_groups[_group])
+    Hash.new.update(@@conf_groups[group_key])
   end
 
   def resolve_link(_value, _hash_source, _link_symbol='>>>', _add_symbol='+++')
@@ -687,15 +744,16 @@ class Application
     "[Platform = #{RUBY_PLATFORM}]\n[Ruby version = #{RUBY_VERSION}]"
   end
   
-  def Application.conf_group(_group)
+  def Application.conf_group(_group, _suff = 'conf')
+    group_key="#{_hash_suff}.#{_group}"
     @@conf_groups = Hash.new if !defined?(@@conf_groups)
-    if @@conf_groups[_group].nil?
-      @@conf_groups[_group] = Hash.new
+    if @@conf_groups[group_key].nil?
+      @@conf_groups[group_key] = Hash.new
       glen=_group.length
       @@instance['conf'].keys.sort.each{|k|
         if k[0..glen] == "#{_group}."
-          @@conf_groups[_group][k[glen+1..-1]]=@@instance['conf'][k]
-        elsif @@conf_groups[_group].length > 0
+          @@conf_groups[group_key][k[glen+1..-1]]=@@instance['conf'][k]
+        elsif @@conf_groups[group_key].length > 0
           break
         end
       }
@@ -791,7 +849,7 @@ class Application
       self['conf_theme'] = self.properties_file2hash(_theme_file)
       self['conf'].update(self['conf_theme'])
       self['conf_without_local'].update(self['conf_theme'])
-      _theme_res_file = "conf/theme-#{_name}.res.rb"
+      _theme_res_file = "#{Dir.pwd}/conf/theme-#{_name}.res.rb"
       if _theme_res_file && File.exist?(_theme_res_file)
         begin
           require _theme_res_file

data/lib/a-contracts.rb

@@ -177,9 +177,14 @@ end
 #  +---------------------------------------------+
 
 class MsgEvent < ArcadiaEvent
-   attr_accessor :msg, :level
+   attr_accessor :msg, :level, :mark, :append
 end
 
+class SubProcessEvent < ArcadiaEvent
+   attr_accessor :abort_action, :alive_check, :name, :pid, :timeout, :timecheck
+end
+
+
 #class DebugMsgEvent < MsgEvent
 #end
 #
@@ -223,6 +228,18 @@ class RunRubyFileEvent < ArcadiaEvent
   attr_accessor :persistent
 end
 
+class RunCmdEvent < ArcadiaEvent
+  class Result < Result
+    attr_accessor :output
+  end
+  attr_accessor :file
+  attr_accessor :dir
+  attr_accessor :cmd
+  attr_accessor :title
+  attr_accessor :persistent
+  attr_accessor :runner_name
+end
+
 class InputEvent < ArcadiaEvent
 end
 

data/lib/a-core.rb

@@ -8,28 +8,35 @@
 #   &require_omissis=tk/label
 #   &require_omissis=tk/toplevel
 
-require "conf/arcadia.res"
+require "#{Dir.pwd}/conf/arcadia.res"
 require 'tkextlib/bwidget'
-require "lib/a-tkcommons"
-require "lib/a-contracts"
+require "#{Dir.pwd}/lib/a-tkcommons"
+require "#{Dir.pwd}/lib/a-contracts"
 require "observer"
 
 class Arcadia < TkApplication
   include Observable
   attr_reader :layout
+  attr_reader :wf
   def initialize
     super(
       ApplicationParams.new(
         'arcadia',
-        '0.8.1',
+        '0.9.0',
         'conf/arcadia.conf',
         'conf/arcadia.pers'
       )
-    )
+    ) 
     load_config
     if self['conf']['encoding']
       Tk.encoding=self['conf']['encoding']
     end
+#    @use_splash = self['conf']['splash.show']=='yes'
+#    @splash = ArcadiaAboutSplash.new if @use_splash
+#    @splash.set_progress(50) if @splash
+#    @splash.deiconify if @splash
+#    Tk.update
+    @wf = TkWidgetFactory.new
     ArcadiaDialogManager.new(self)
     ArcadiaActionDispatcher.new(self)
     ArcadiaGemsWizard.new(self)
@@ -303,7 +310,7 @@ class Arcadia < TkApplication
     begin
       source = self['conf'][_extension+'.require']
       if source.strip.length > 0
-	      require source 
+	      require "#{Dir.pwd}/#{source}" 
       end
       @exts_loaded << _extension
     rescue Exception,LoadError
@@ -435,12 +442,18 @@ class Arcadia < TkApplication
     self.load_exts_conf
     self.load_local_config
     self.load_theme(self['conf']['theme'])
-    self.load_sysdefaultproperty
     self.resolve_properties_link(self['conf'],self['conf'])
     self.resolve_properties_link(self['conf_without_local'],self['conf_without_local'])
+    self.load_sysdefaultproperty
   end
 
   def load_sysdefaultproperty
+#    colors = Hash.new
+#    colors['background']=self['conf']['background']
+#    colors['foreground']=self['conf']['foreground']
+#    
+#    TkPalette.set(colors)
+  
     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 *font #{self['conf']['font']}"
@@ -489,8 +502,8 @@ class Arcadia < TkApplication
     
     #load user controls
     #Arcadia control
-    load_user_control(@main_menu)
     load_user_control(@main_toolbar)
+    load_user_control(@main_menu)
     #Extension control
     load_key_binding
     @exts.each{|ext|
@@ -501,9 +514,102 @@ class Arcadia < TkApplication
     }
     load_user_control(@main_menu,"","e")
     load_user_control(@main_toolbar,"","e")
+    load_runners
     #@layout.build_invert_menu
   end
+  
+  def load_runners
+    self['runners'] = Hash.new
+    self['runners_by_ext'] = Hash.new
+    mr = Arcadia.menu_root('runcurr')
+    return if mr.nil?
+
+    insert_runner_item = proc{|name, run|
+      if run[:file_exts]
+        run[:file_exts].split(',').each{|ext|
+          self['runners_by_ext'][ext.strip.sub('.','')]=run
+        }
+      end
+      if run[:runner] && self['runners'][run[:runner]]
+        run = Hash.new.update(self['runners'][run[:runner]]).update(run)
+        #self['runners'][name]=run
+      end
+      _run_title = run[:title]
+      run[:title] = nil
+      run[:runner_name] = name
+      _command = proc{
+          _event = Arcadia.process_event(
+            RunCmdEvent.new(self, run)
+          )
+      }
+      mr.insert('0', 
+        :command ,{
+          :image => Arcadia.file_icon(run[:file_exts]),
+          :label => _run_title,
+          :compound => 'left',
+          :command => _command
+        }
+      )
+    }
+
+    insert_runner_instance_item = proc{|name, run|
+      if run[:runner] && self['runners'][run[:runner]]
+        run = Hash.new.update(self['runners'][run[:runner]]).update(run)
+        #self['runners'][name]=run
+      end
+      _run_title = run[:title]
+      run[:title] = nil
+      run[:runner_name] = name
+      _command = proc{
+          _event = Arcadia.process_event(
+            RunCmdEvent.new(self, run)
+          )
+      }
+      mr.insert('0', 
+        :command ,{
+          :image => Arcadia.file_icon(run[:file_exts]),
+          :label => _run_title,
+          :compound => 'left',
+          :command => _command
+        }
+      )
+    }
+
+    # conf runner
+    runs=Arcadia.conf_group('runners')
+    mr.insert('0', :separator) if runs && !runs.empty?
+
+    runs.each{|name, hash_string|
+      self['runners'][name]=eval hash_string
+    }
+    
+    self['runners'].each{|name, run|
+      insert_runner_item.call(name, run)
+    }
+
+    # pers runner instance
+    runs=Arcadia.pers_group('runners')
+    mr.insert('0', :separator) if runs && !runs.empty?
+    pers_runner = Hash.new
+    runs.each{|name, hash_string|
+      pers_runner[name]=eval hash_string
+    }
+    
+    pers_runner.each{|name, run|
+      insert_runner_instance_item.call(name, run)
+    }
+  end
+
+  def manage_runners
+    if !@runm
+      @runm = RunnerManager.new(Arcadia.layout.root)
+      @runm.on_close=proc{@runm.hide}
+    end
+    @runm.show
+    @runm.load_items 
 
+  end
+  
   def load_key_binding(_ext='')
     return unless _ext && ext_active?(_ext)
     if _ext.length > 0 
@@ -557,6 +663,7 @@ class Arcadia < TkApplication
         suf1 = suf+'.'+group
         begin
           context_path = self['conf']["#{suf1}.context_path"]
+          rif = self['conf']["#{suf1}.rif"] == nil ? 'main': self['conf']["#{suf1}.rif"]
           context_underline = self['conf']["#{suf1}.context_underline"]
           items = self['conf'][suf1].split(',')
           items.each{|item|
@@ -569,15 +676,8 @@ class Arcadia < TkApplication
               item_args[k]= make_value(_self_on_eval, v)
             }
 
-#            iprops.each{|k,v|
-#              value = v.strip
-#              if value[0..0]=='!'
-#                item_args[k]=_self_on_eval.instance_eval(value[1..-1])  
-#              else
-#                item_args[k]=value
-#              end
-#            }
             item_args['name'] = item if item_args['name'].nil?
+            item_args['rif'] = rif
             item_args['context'] = group
             item_args['context_path'] = context_path
             item_args['context_caption'] = groups_caption[gi] if groups_caption
@@ -603,7 +703,6 @@ class Arcadia < TkApplication
     
   end
 
-
   def do_exit
     q1 = conf('confirm-on-exit')!='yes' || (Arcadia.dialog(self,
                         'type'=>'yes_no',
@@ -613,6 +712,7 @@ class Arcadia < TkApplication
     if q1 && can_exit?
       do_finalize
       @root.destroy
+      Tk.exit
     end
   end
 
@@ -704,8 +804,29 @@ class Arcadia < TkApplication
   end
 
   def Arcadia.console(_sender, _args=Hash.new)
-    process_event(MsgEvent.new(_sender, _args))
+    _event = process_event(MsgEvent.new(_sender, _args))
+    _event.mark
   end
+
+  def Arcadia.file_extension(_filename=nil)
+    if _filename
+      _m = /(.*\.)(.*$)/.match(File.basename(_filename))
+    end
+    _ret = (_m && _m.length > 1)?_m[2]: nil
+  end
+
+  def  Arcadia.runner_for_file(_filename=nil)
+    if @@instance
+      return @@instance['runners_by_ext'][Arcadia.file_extension(_filename)]  
+    end
+  end
+
+  def  Arcadia.runner(_name=nil)
+    if @@instance
+      return @@instance['runners'][_name]  
+    end
+  end
+
   
   def Arcadia.dialog(_sender, _args=Hash.new)
     _event = process_event(DialogEvent.new(_sender, _args))  
@@ -716,10 +837,19 @@ class Arcadia < TkApplication
     Configurable.properties_group(_class, Arcadia.instance['conf'])
   end
 
-  def Arcadia.conf_group(_path)
-    Configurable.properties_group(_path, Arcadia.instance['conf'])
+  def Arcadia.pers_group(_path, _refresh=false)
+    Configurable.properties_group(_path, Arcadia.instance['pers'], 'pers', _refresh)
+  end
+
+  def Arcadia.conf_group(_path, _refresh=false)
+    Configurable.properties_group(_path, Arcadia.instance['conf'], 'conf', _refresh)
   end
   
+  def Arcadia.runner(_name)
+	  @@instance['runners'][_name] if @@instance
+  end
+
+  
   def Arcadia.persistent(_property, _value=nil, _immediate=false)
     if @@instance
       if _value.nil?
@@ -733,11 +863,26 @@ class Arcadia < TkApplication
 	  end
   end
 
+  def Arcadia.unpersistent(_property, _immediate=false)
+    if @@instance
+      @@instance['pers'].delete(_property)
+      if _immediate      
+        # not yet supported
+      end
+	  end
+  end
+
   def Arcadia.layout
     if @@instance
         return @@instance.layout
 	  end
   end
+
+  def Arcadia.wf
+    if @@instance
+        return @@instance.wf
+	  end
+  end
   
   def Arcadia.open_file_dialog
      Tk.getOpenFile 'initialdir' => MonitorLastUsedDir.get_last_dir
@@ -747,8 +892,19 @@ class Arcadia < TkApplication
     RUBY_PLATFORM =~ /mingw|mswin/
   end
 
+  def Arcadia.menu_root(_menu_root_name, _menu_root=nil)
+    if @@instance['menu_roots'] == nil
+      @@instance['menu_roots'] = Hash.new
+    end
+    if _menu_root != nil
+      @@instance['menu_roots'][_menu_root_name]= _menu_root
+    end
+    @@instance['menu_roots'][_menu_root_name]
+  end
+
   
   def Arcadia.file_icon(_file_name)
+    _file_name = '' if _file_name.nil?
     if @@instance['file_icons'] == nil
       @@instance['file_icons'] = Hash.new 
       @@instance['file_icons']['default']= TkPhotoImage.new('dat' => FILE_ICON_DEFAULT)
@@ -790,25 +946,32 @@ class ArcadiaUserControl
   SUF='user_control'
   class UserItem
     attr_accessor :name
+    attr_accessor :rif
     attr_accessor :context
     attr_accessor :context_caption
     attr_accessor :caption
     attr_accessor :hint
+    attr_accessor :action
     attr_accessor :event_class
     attr_accessor :event_args
     attr_accessor :image_data
+    attr_reader :item_obj
     def initialize(_sender, _args)
       @sender = _sender
       if _args 
         _args.each do |key, value|
-          self.send(key+'=', value)
+          self.send(key+'=', value) if self.respond_to?(key)
         end
       end
-      #@item_obj = ?
+      if @action 
+        @command = proc{Arcadia.process_event(_sender.instance_eval(@action))}
+      elsif @event_class
+        @command = proc{Arcadia.process_event(@event_class.new(_sender, @event_args))}
+      end
     end
 
     def method_missing(m, *args)  
-      if @item_obj && m.respond_to?(m)
+      if @item_obj && @item_obj.respond_to?(m)
         @item_obj.send(m, *args)
       end
     end  
@@ -844,31 +1007,39 @@ class ArcadiaMainToolbar < ArcadiaUserControl
   SUF='user_toolbar'
   class UserItem < UserItem
     attr_accessor :frame
+    attr_accessor :menu_button
     def initialize(_sender, _args)
       super(_sender, _args)
       _image = TkPhotoImage.new('data' => @image_data) if @image_data
-      _command = proc{Arcadia.process_event(@event_class.new(_sender, @event_args))} if @event_class
+      _command = @command #proc{Arcadia.process_event(@event_class.new(_sender, @event_args))} if @event_class
       _hint = @hint
       _font = @font
       _caption = @caption
       @item_obj = Tk::BWidget::Button.new(_args['frame'], Arcadia.style('toolbarbutton')){
         image  _image if _image
-        #borderwidth 1
-        #font _font if _font
-        #activebackground Arcadia.conf('button.activebackground')
-        #activeforeground Arcadia.conf('button.activeforeground')
-        #background Arcadia.conf('button.background')
-        #foreground Arcadia.conf('button.foreground')
-        #highlightbackground Arcadia.conf('button.highlightbackground')
-        #relief Arcadia.conf('button.relief')
         command _command if _command
-        #relief 'groove'
         width 20
         height 20
         helptext  _hint if _hint
         text _caption if _caption
-        pack('side' =>'left', :padx=>2, :pady=>0)
+        
       }
+      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('titlemenu'))
+          image TkPhotoImage.new('dat' => 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')
     end
 
@@ -889,31 +1060,31 @@ class ArcadiaMainToolbar < ArcadiaUserControl
     #@frame.highlightbackground(Arcadia.conf('panel.highlightbackground'))
     @frame.relief(Arcadia.conf('panel.relief'))
  
-     @context_frames = Hash.new  
+    @context_frames = Hash.new  
     @last_context = nil
+    @last_item_for_context = Hash.new
   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 
+    _context = _args['context']
+    _context_path = _args['context_path']
+    
+    if @last_context && _context != @last_context && _context_path.nil? 
       new_separator
     end
     @last_context = _context
     _args['frame']=@frame
+    if _context_path && @last_item_for_context[_context_path]
+      _args['last_item_for_context']=@last_item_for_context[_context_path]
+    end
+    
     super(_sender, _args)
+    if _context_path && items[_args['name']]
+      @last_item_for_context[_context_path] = items[_args['name']]
+    end
+    if _context && items[_args['name']]
+      @last_item_for_context[_context] = items[_args['name']]
+    end
   end
 
   def new_separator
@@ -995,9 +1166,7 @@ class ArcadiaMainMenu < ArcadiaUserControl
     attr_accessor :type
     def initialize(_sender, _args)
       super(_sender, _args)
-      _command = proc{
-        Arcadia.process_event(@event_class.new(_sender, @event_args))
-      } if @event_class
+      _command = @command #proc{ Arcadia.process_event(@event_class.new(_sender, @event_args)) } if @event_class
       #_menu = @menu[@parent]
       item_args = Hash.new
       item_args['image']=TkPhotoImage.new('data' => @image_data) if @image_data
@@ -1079,6 +1248,7 @@ class ArcadiaMainMenu < ArcadiaUserControl
         :tearoff=>0
       )
       sub.configure(Arcadia.style('menu'))
+      sub.extend(TkAutoPostMenu)
       #update_style(sub)
       menu_context.insert('end',
         :cascade,
@@ -1090,17 +1260,20 @@ class ArcadiaMainMenu < ArcadiaUserControl
     sub
   end
   
-  def get_menu(_menubar, _context, context_path, context_underline=nil)
+  def make_menu_in_menubar(_menubar, _context, context_path, context_underline=nil)
     context_menu = get_menu_context(_menubar, _context, context_underline)
+    make_menu(context_menu, context_path, context_underline)
+  end
+
+  def make_menu(_menu, context_path, context_underline=nil)
     folders = context_path.split('/')
-    sub = context_menu
+    sub = _menu
     folders.each{|folder|
       sub = get_sub_menu(sub, folder)
     }
     sub
   end
 
-
   def new_item(_sender, _args= nil)
     return if _args.nil?
     if _args['context_caption']
@@ -1108,7 +1281,22 @@ class ArcadiaMainMenu < ArcadiaUserControl
     else
       conte = _args['context']
     end
-    _args['menu']=get_menu(@menu, conte, _args['context_path'], _args['context_underline'])
+    if _args['rif'] == 'main'
+      _args['menu']=make_menu_in_menubar(@menu, 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'])
+      else
+        msg = "During building of menu item \"#{_args['name']}\" rif \"#{_args['rif']}\" not found!"
+        Arcadia.dialog(self, 
+            'type'=>'ok', 
+            'title' => "(Arcadia) #{self.class::SUF}", 
+            'msg'=>msg,
+            'level'=>'error')
+
+        _args['menu']=make_menu_in_menubar(@menu, conte, _args['context_path'], _args['context_underline'])
+      end
+    end
     super(_sender, _args)
   end
 
@@ -1157,7 +1345,7 @@ class ArcadiaMainMenu < ArcadiaUserControl
     @menu.add_menu(menu_spec_tools)
     @menu.add_menu(menu_spec_help)
   
-    #@menu.bind_append("1", proc{
+#    #@menu.bind_append("1", proc{
 #      chs = TkWinfo.children(@menu)
 #      hh = 25
 #      @last_post = nil
@@ -1171,10 +1359,124 @@ class ArcadiaMainMenu < ArcadiaUserControl
 #          @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
+  class RunnerMangerItem  < TkFrame
+    def initialize(_parent=nil, _runner_hash=nil, *args)
+      super(_parent, Arcadia.style('panel'))
+      @runner_hash = _runner_hash
+      Tk::BWidget::Label.new(self, 
+         'image'=> Arcadia.file_icon(_runner_hash[:file_exts]),
+         'relief'=>'flat').pack('side' =>'left')
+      Tk::BWidget::Label.new(self, 
+         'text'=>_runner_hash[:title],
+         'helptext'=>_runner_hash[:file],
+         'compound'=>:left, 
+         'relief'=>'flat').pack('fill'=>'x','side' =>'left')
+      _close_command = proc{
+        if (Arcadia.dialog(self, 'type'=>'yes_no',
+                        'msg'=>"Do you want delete runner item '#{_runner_hash[:name]}'?",
+                        'title' => '(Arcadia) Manage runners',
+                        'level' => 'question')=='yes')
+        
+          Arcadia.unpersistent("runners.#{_runner_hash[:name]}")
+          mr = Arcadia.menu_root('runcurr')
+          index_to_delete = -1
+          i_end = mr.index('end')
+          if i_end
+            0.upto(i_end){|j|
+              type = mr.menutype(j)
+              if type != 'separator'
+                l = mr.entrycget(j,'label')
+                if l == _runner_hash[:title]
+                  index_to_delete = j
+                  break
+                end
+              end
+            }
+          end
+          if index_to_delete > -1
+            mr.delete(index_to_delete)
+          end
+          self.destroy
+        end
+      }   
+      Tk::BWidget::Button.new(self, 
+         'command'=>_close_command,
+         'helptext'=>@runner_hash[:file],
+         'background'=>'white',
+         'image'=> TkPhotoImage.new('data' => TRASH_GIF),
+         'relief'=>'flat').pack('side' =>'right','padx'=>0)
+      pack('side' =>'top','anchor'=>'nw','fill'=>'x','padx'=>5, 'pady'=>5)
+    end
+      
+  end
+
+  def initialize(_parent)
+    super(_parent)
+    title("Runners manager")
+    @items = Hash.new
+    place('x'=>100,'y'=>100,'height'=> 220,'width'=> 300)
+  end
+  
+  def clear_items
+    @items.each_value{|i| i.destroy }
+    @items.clear
   end
   
+  def load_items
+    clear_items
+    runs=Arcadia.pers_group('runners', true)
+    runs.each{|name, hash_string|
+      item_hash = eval hash_string
+      item_hash[:name]=name
+      if item_hash[:runner] && Arcadia.runner(item_hash[:runner])
+        item_hash = Hash.new.update(Arcadia.runner(item_hash[:runner])).update(item_hash)
+      end
+      @items[name]=RunnerMangerItem.new(self.frame, item_hash)
+    }
+  end
 end
 
 class ArcadiaAboutSplash < TkToplevel
@@ -1197,26 +1499,37 @@ class ArcadiaAboutSplash < TkToplevel
       background  _bgcolor
       place('x'=> 20,'y' => 20)
     }
+    
+    
+#    @tkLabel1 = TkLabel.new(self){
+#      text 'Arcadia'  
+#      background  _bgcolor
+#      foreground  '#ffffff'
+#      font Arcadia.conf('splash.title.font')
+#      justify  'left'
+#      place('width' => '190','x' => 110,'y' => 10,'height' => 25)
+#    }
+
     @tkLabel1 = TkLabel.new(self){
-      text  'Arcadia'
+      image  TkPhotoImage.new('format'=>'GIF','data' =>ARCADIA_JAP_GIF)
       background  _bgcolor
-      foreground  '#ffffff'
-      font Arcadia.conf('splash.title.font')
       justify  'left'
-      place('width' => '190','x' => 110,'y' => 10,'height' => 25)
+      place('x' => 90,'y' => 10)
     }
+
     @tkLabelRuby = TkLabel.new(self){
       image TkPhotoImage.new('data' =>RUBY_DOCUMENT_GIF)
       background  _bgcolor
-      place('x'=> 150,'y' => 40)
+      place('x'=> 210,'y' => 12)
     }
+    
     @tkLabel2 = TkLabel.new(self){
-      text  'Ruby ide'
+      text  'Arcadia Ide'
       background  _bgcolor
       foreground  '#ffffff'
       font Arcadia.instance['conf']['splash.subtitle.font']
       justify  'left'
-      place('width' => '90','x' => 170,'y' => 40,'height' => 19)
+      place('x' => 100,'y' => 40,'height' => 19)
     }
     @tkLabelVersion = TkLabel.new(self){
       text  'version: '+$arcadia['applicationParams'].version
@@ -1224,7 +1537,7 @@ class ArcadiaAboutSplash < TkToplevel
       foreground  '#ffffff'
       font Arcadia.instance['conf']['splash.version.font']
       justify  'left'
-      place('width' => '120','x' => 150,'y' => 65,'height' => 19)
+      place('x' => 100,'y' => 65,'height' => 19)
     }
     @tkLabel21 = TkLabel.new(self){
       text  'by Antonio Galeone - 2004/2010'
@@ -1233,7 +1546,7 @@ class ArcadiaAboutSplash < TkToplevel
       font Arcadia.instance['conf']['splash.credits.font']
       justify  'left'
       anchor 'w'
-      place('width' => '210','x' => 100,'y' => 95,'height' => 25)
+      place('width' => '220','x' => 100,'y' => 95,'height' => 25)
     }
 
     @tkLabelCredits = TkLabel.new(self){
@@ -1258,7 +1571,7 @@ class ArcadiaAboutSplash < TkToplevel
     @progress  = TkVariable.new
     reset
     _width = 380
-    _height = 240
+    _height = 210
     #_width = 0;_height = 0
     _x = TkWinfo.screenwidth(self)/2 -  _width / 2
     _y = TkWinfo.screenheight(self)/2 -  _height / 2
@@ -1304,7 +1617,6 @@ class ArcadiaAboutSplash < TkToplevel
     @progress.numeric = @max
     labelStep(_txt) if _txt
   end
-  
 end
 
 class ArcadiaActionDispatcher
@@ -1331,9 +1643,10 @@ class ArcadiaSh < TkToplevel
   def initialize
     super
     title 'ArcadiaSh'
+    iconphoto(TkPhotoImage.new('dat'=>ARCADIA_RING_GIF))
     geometry = '800x200+10+10'
     geometry(geometry)
-    @text = TkScrollText.new(self, Arcadia.style('text')){
+    @text = TkText.new(self, Arcadia.style('text')){
       wrap  'none'
       undo true
       insertofftime 200
@@ -1345,9 +1658,7 @@ class ArcadiaSh < TkToplevel
     @text.set_focus
     @text.tag_configure('error', 'foreground' => '#d93421')
     @text.tag_configure('response', 'foreground' => '#2c51d9')
-    @text.show
-    @text.show_v_scroll
-    @text.show_h_scroll
+    @text.extend(TkScrollableWidget).show
     #@input_buffer = ''
     @wait = true
     @result = false
@@ -1508,7 +1819,7 @@ class ArcadiaGemsWizard
     ret = false
     
     sh=ArcadiaSh.new
-    cmd = "gem install #{name}"
+    cmd = "gem install --remote --include-dependencies #{name}"
     cmd="sudo #{cmd}" if !is_windows?
     cmd+=" --source=#{repository}" if repository
     sh.prepare_exec(cmd)    
@@ -2632,6 +2943,10 @@ class ArcadiaLayout
 
   end
 
+  def registered_panel?(_ffw)
+    _ffw.domain.nil? || _ffw.domain.length == 0 ?false:registed?(_ffw.domain, _ffw.name)
+  end
+
   def register_panel(_ffw, _adapter=nil)
     _domain_name = _ffw.domain
     _name = _ffw.name
@@ -2675,7 +2990,7 @@ class ArcadiaLayout
             'raisecmd'=>proc{
   					    pan['root'].title(api.title)
   					    pan['root'].top_text('') 
-         	         Arcadia.process_event(LayoutRaisingFrameEvent.new(self,'extension_name'=>pan['sons'][api.name].extension, 'frame_name'=>pan['sons'][api.name].name))
+         	         Arcadia.process_event(LayoutRaisingFrameEvent.new(self,'extension_name'=>pan['sons'][api.name].extension_name, 'frame_name'=>pan['sons'][api.name].name))
 #               changed
 #               notify_observers('RAISE', api.name)
             }
@@ -2695,7 +3010,7 @@ class ArcadiaLayout
         		'text'=>_title, 
           'raisecmd'=>proc{
 					  pan['root'].title(_title)            
-      	     Arcadia.process_event(LayoutRaisingFrameEvent.new(self,'extension_name'=>_ffw.extension, 'frame_name'=>_ffw.name))
+      	     Arcadia.process_event(LayoutRaisingFrameEvent.new(self,'extension_name'=>_ffw.extension_name, 'frame_name'=>_ffw.name))
 #            changed
 #            notify_observers('RAISE', _name)
           }
@@ -3054,4 +3369,22 @@ class FocusEventManager
       end
     end
   end
+end
+
+
+class ArcadiaUtils
+  def ArcadiaUtils.unix_child_pids(_ppid)
+    ret = Array.new
+    readed = ''
+    open("|ps -o pid,ppid ax | grep #{_ppid}", "r"){|f|  readed = f.read  }
+    apids = readed.split
+    apids.each_with_index do |v,i|
+      ret << v if i % 2 == 0 && v != _ppid.to_s
+    end
+    subpids = Array.new
+    ret.each{|ccp|
+      subpids.concat(unix_child_pids(ccp))
+    }
+    ret.concat(subpids)
+  end  
 end