arcadia 0.9.3 → 0.10.0

data/ext/ae-subprocess-inspector/ae-subprocess-inspector.rb

@@ -1,3 +1,10 @@
+#
+#   ae-subprocess-inspector.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "#{Dir.pwd}/lib/anigif"
+
 class SubProcessInspector < ArcadiaExt
 	attr_reader :processs
 	def on_before_build(_event)
@@ -6,7 +13,7 @@ class SubProcessInspector < ArcadiaExt
   end
   
   def on_sub_process(_event)
-    self.frame.show_anyway
+    #self.frame.show_anyway
     @processs << SubProcessWidget.new(self, _event)
   end
   
@@ -38,62 +45,37 @@ class SubProcessInspector < ArcadiaExt
   def do_delete_process(_process)
     @processs.delete(_process)
     if @processs.length == 0
-      self.frame.free
+      #self.frame.free
     end
   end
       
 end
 
-class SubProcessWidget < TkFrame
+class SubProcessWidget < Tk::BWidget::Button
   attr_reader :event
   def initialize(_parent=nil, _event=nil, *args)
-    super(_parent.frame.hinner_frame, Arcadia.style('panel'))
+    super(Arcadia['toolbar'].frame, Arcadia.style('button').update("background"=>'black',"activebackground"=>'black', 'relief'=>'groove'))
     @parent = _parent
     @event = _event
-    @progress  = TkVariable.new
-    @pb = Tk::BWidget::ProgressBar.new(
-      self, Arcadia.style('progress').update({
-        :variable=>@progress, 
-        :type=>'infinite', 
-        :maximum=>500})).place('width'=>-30,'relwidth' => '1','x' => 0,'y' => 2,'height' => 18)
-      #.pack('side' =>'left','fill'=>'x')
-
-      icon_button = TkButton.new(@pb){
-        background Arcadia.style('panel')['background']
-        relief 'flat'
-        image Arcadia.file_icon(_event.name)
-      }.pack
-      
-      b_command = proc{
-        message = "Really kill pid #{_event.pid} #{_event.name} ?"
-        r=Arcadia.dialog(self,
-            'type'=>'yes_no', 
-            'level'=>'warning',
-            'title'=> 'Confirm kill', 
-            'msg'=>message)
-        if r=="yes"
-          _event.abort_action.call
-        end
-      }
-      
-      
-    _b = Tk::BWidget::Button.new(self, 
-    #_b = TkButton.new(self, 
-         'command'=>b_command,
-         'borderwidth'=>0,
-         'background'=>Arcadia.conf('background'),
-         'helptext'=>"#{_event.name} [pid #{_event.pid}]",
-         'image'=> TkPhotoImage.new('data' => PROCESS_KILL_GIF),
-         'relief'=>'flat').pack('side' =>'right','padx'=>0)
-         #.pack('side' =>'left','padx'=>5)
-         #.place('x' => 2, 'width'=>20)
-    pack('side' =>'top','anchor'=>'nw','fill'=>'x','padx'=>5, 'pady'=>5)
-      #place('relwidth' => '1')
+    b_command = proc{
+      message = "Really kill pid #{_event.pid} #{_event.name} ?"
+      r=Arcadia.dialog(self,
+          'type'=>'yes_no', 
+          'level'=>'warning',
+          'title'=> 'Confirm kill', 
+          'msg'=>message)
+      if r=="yes"
+        _event.abort_action.call
+      end
+    }
+    command b_command  
+    helptext "#{_event.name} [pid #{_event.pid}]"
+    pack('side' =>'left', :padx=>2, :pady=>0)
+    Tk::Anigif.image(self, "#{Dir.pwd}/ext/ae-subprocess-inspector/process.res")
     start_check  
   end
   
   def start_check
-    @progress.numeric=0
     if @event.timecheck
       timecheck = @event.timecheck
     else
@@ -108,9 +90,80 @@ class SubProcessWidget < TkFrame
         @parent.do_delete_process(self)
         self.destroy
       end
-      @progress.numeric += 1
     }
     @timer.set_procs(timecheck,-1,proc_check)
     @timer.start
   end  
-end
+end
+
+
+#class SubProcessWidget < TkFrame
+#  attr_reader :event
+#  def initialize(_parent=nil, _event=nil, *args)
+#    super(_parent.frame.hinner_frame, Arcadia.style('panel'))
+#    @parent = _parent
+#    @event = _event
+#    @progress  = TkVariable.new
+#    @pb = Tk::BWidget::ProgressBar.new(
+#      self, Arcadia.style('progress').update({
+#        :variable=>@progress, 
+#        :type=>'infinite', 
+#        :maximum=>500})).place('width'=>-30,'relwidth' => '1','x' => 0,'y' => 2,'height' => 18)
+#      #.pack('side' =>'left','fill'=>'x')
+#
+#      icon_button = TkButton.new(@pb){
+#        background Arcadia.style('panel')['background']
+#        relief 'flat'
+#        image Arcadia.file_icon(_event.name)
+#      }.pack
+#      
+#      b_command = proc{
+#        message = "Really kill pid #{_event.pid} #{_event.name} ?"
+#        r=Arcadia.dialog(self,
+#            'type'=>'yes_no', 
+#            'level'=>'warning',
+#            'title'=> 'Confirm kill', 
+#            'msg'=>message)
+#        if r=="yes"
+#          _event.abort_action.call
+#        end
+#      }
+#      
+#      
+#    _b = Tk::BWidget::Button.new(self, 
+#    #_b = TkButton.new(self, 
+#         'command'=>b_command,
+#         'borderwidth'=>0,
+#         'background'=>Arcadia.conf('background'),
+#         'helptext'=>"#{_event.name} [pid #{_event.pid}]",
+#         'image'=> TkPhotoImage.new('data' => PROCESS_KILL_GIF),
+#         'relief'=>'flat').pack('side' =>'right','padx'=>0)
+#         #.pack('side' =>'left','padx'=>5)
+#         #.place('x' => 2, 'width'=>20)
+#    pack('side' =>'top','anchor'=>'nw','fill'=>'x','padx'=>5, 'pady'=>5)
+#      #place('relwidth' => '1')
+#    start_check  
+#  end
+#  
+#  def start_check
+#    @progress.numeric=0
+#    if @event.timecheck
+#      timecheck = @event.timecheck
+#    else
+#      timecheck = 1000
+#    end
+#    @timer = TkAfter.new
+#    proc_check = proc{
+#      alive = @event.alive_check.call
+#      #p "ALIVE=#{alive}"
+#      if !alive
+#        @timer.stop
+#        @parent.do_delete_process(self)
+#        self.destroy
+#      end
+#      @progress.numeric += 1
+#    }
+#    @timer.set_procs(timecheck,-1,proc_check)
+#    @timer.start
+#  end  
+#end

data/lib/a-commons.rb

@@ -210,6 +210,7 @@ class ArcadiaExt
     @arcadia = _arcadia
     @arcadia.register(self)
     Arcadia.attach_listener(self, BuildEvent)
+    Arcadia.attach_listener(self, InitializeEvent)
     Arcadia.attach_listener(self, ExitQueryEvent)
     Arcadia.attach_listener(self, FinalizeEvent)
     @name = _name
@@ -393,6 +394,7 @@ class Event
   def break
     @breaked = true
   end
+  
 end
 
 module EventBus #(or SourceEvent)
@@ -537,7 +539,9 @@ module Cacheble
 end
 
 module Configurable
-  
+  LINK_SYMBOL='>>>'
+  ADD_SYMBOL='+++'
+  FONT_TYPE_SYMBOL='$$font:::'
   def properties_file2hash(_property_file, _link_hash=nil)
     r_hash = Hash.new
     if _property_file &&  FileTest::exist?(_property_file)
@@ -549,7 +553,7 @@ module Configurable
           if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
             var_plat = _line.split('::')
             if var_plat.length > 1
-              if (RUBY_PLATFORM.include?(var_plat[0]))
+              if (RUBY_PLATFORM =~ Regexp::new(var_plat[0]))
                 _line = var_plat[1]
                 var_plat[2..-1].collect{|x| _line=_line+'::'+x} if var_plat.length > 2
               else
@@ -571,7 +575,7 @@ module Configurable
               _value = var[1].strip
               var[2..-1].collect{|x| _value=_value+'='+x} if var.length > 2
               if _link_hash 
-                _value = resolve_link(_value, _link_hash)
+                _value = resolve_value(_value, _link_hash)
               end
               r_hash[var[0].strip]=_value
             end
@@ -610,34 +614,34 @@ module Configurable
     Hash.new.update(@@conf_groups[group_key])
   end
 
-  def resolve_link(_value, _hash_source, _link_symbol='>>>', _add_symbol='+++')
+  def resolve_value(_value, _hash_source)
       if _value.length > 0 
-        _v, _vadd = _value.split(_add_symbol)
+        _v, _vadd = _value.split(ADD_SYMBOL)
       else
         _v = _value
       end
-      if _v.length > 3 && _v[0..2]==_link_symbol
+      if _v.length > 3 && _v[0..2]==LINK_SYMBOL
         _v=_hash_source[_v[3..-1]] if _hash_source[_v[3..-1]]
         _v=_v+_vadd if _vadd
       end
       return _v
   end
   
-  def resolve_properties_link(_hash_target, _hash_source, _link_symbol='>>>', _add_symbol='+++')
+  def resolve_properties_link(_hash_target, _hash_source)
     loop_level_max = 10
 #    _hash_adding = Hash.new
     _keys_to_extend = Array.new
     _hash_target.each{|k,value|
       loop_level = 0
       if value.length > 0
-        v, vadd = value.split(_add_symbol)
+        v, vadd = value.split(ADD_SYMBOL)
       else
         v= value
       end
 #      p "value=#{value} class=#{value.class}"
 #      p "v=#{v} class=#{v.class}"
 #      p "vadd=#{vadd}"
-      while loop_level < loop_level_max && v.length > 3 && v[0..2]==_link_symbol
+      while loop_level < loop_level_max && v.length > 3 && v[0..2]==LINK_SYMBOL
         if k[-1..-1]=='.'
           _keys_to_extend << k
           break

data/lib/a-contracts.rb

@@ -13,6 +13,14 @@
 
 class ArcadiaEvent < Event
   # note--they all have attr_accessor :file, and :dir
+  def go!
+    Arcadia.process_event(self)
+  end
+  
+  def shot!
+    Arcadia.broadcast_event(self)
+  end
+
 end
 
 class QuitEvent < ArcadiaEvent
@@ -28,6 +36,10 @@ class BuildEvent < ArcadiaEvent
   attr_accessor :name
 end 
 
+class InitializeEvent < ArcadiaEvent
+end
+
+
 # ExitQueryEvent is processed by arcadia-core 
 # before process FinalizeEvent during quiet face.
 # If listener(Extension) set can_exit property to false then 
@@ -52,6 +64,13 @@ class NeedRubyGemWizardEvent < ArcadiaEvent
   attr_accessor :gem_events
 end
 
+class ArcadiaProblemEvent < ArcadiaEvent
+   DEPENDENCE_MISSING_TYPE = "DEPENDENCE_MISSING_TYPE"
+   RUNTIME_ERROR_TYPE = "RUNTIME_ERROR_TYPE"
+   attr_accessor :type, :level, :title, :detail
+end
+
+
 # +------------------------------------------+
 #     Generic Layout Event 
 #     
@@ -69,7 +88,7 @@ end
 #  +---------------------------------------------+
 
 class BufferEvent < ArcadiaEvent # Abstract
-  attr_accessor :file, :title, :text, :row, :col 
+  attr_accessor :file, :title, :text, :row, :col, :lang 
   # if file==nil && title==nil buffer=current buffer
 end
 
@@ -77,6 +96,7 @@ class NewBufferEvent < BufferEvent
 end
 
 class OpenBufferEvent < BufferEvent
+  attr_accessor :select_index
 end
 
 class OpenBufferTransientEvent < OpenBufferEvent
@@ -137,6 +157,8 @@ end
 class OneBufferExistEvent < BufferEvent
 end
 
+class BufferClosedEvent < BufferEvent
+end
 #  +---------------------------------------------+
 #         Debug event
 #  +---------------------------------------------+
@@ -245,6 +267,7 @@ class RunCmdEvent < ArcadiaEvent
   attr_accessor :title
   attr_accessor :persistent
   attr_accessor :runner_name
+  attr_accessor :lang
 end
 
 class InputEvent < ArcadiaEvent

data/lib/a-core.rb

@@ -3,7 +3,7 @@
 #   by Antonio Galeone <antonio-galeone@rubyforge.org>
 #
 #   &require_dir_ref=..
-#   &require_omissis=conf/arcadia.init
+#   &require_omissis=#{Dir.pwd}/conf/arcadia.init
 #   &require_omissis=tk
 #   &require_omissis=tk/label
 #   &require_omissis=tk/toplevel
@@ -18,11 +18,12 @@ class Arcadia < TkApplication
   include Observable
   attr_reader :layout
   attr_reader :wf
+  attr_reader :mf_root
   def initialize
     super(
       ApplicationParams.new(
         'arcadia',
-        '0.9.3',
+        '0.10.0',
         'conf/arcadia.conf',
         'conf/arcadia.pers'
       )
@@ -37,6 +38,7 @@ class Arcadia < TkApplication
 #    @splash.deiconify if @splash
 #    Tk.update
     @wf = TkWidgetFactory.new
+    ArcadiaProblemsShower.new(self)
     ArcadiaDialogManager.new(self)
     ArcadiaActionDispatcher.new(self)
     ArcadiaGemsWizard.new(self)
@@ -44,16 +46,15 @@ class Arcadia < TkApplication
     FocusEventManager.new
     #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}] [TclTk version = #{tcltk_info.level}]"
-    _title = "Arcadia ide "
+    _title = "Arcadia"
     @root = TkRoot.new(
       'background'=> self['conf']['background']
       ){
       title _title
       withdraw
-      protocol( "WM_DELETE_WINDOW", $arcadia['action.on_exit'])
-      iconphoto(TkPhotoImage.new('dat'=>ARCADIA_RING_GIF))
+      protocol( "WM_DELETE_WINDOW", proc{Arcadia.process_event(QuitEvent.new(self))})
+      iconphoto(Arcadia.image_res(ARCADIA_RING_GIF))
     }
     @on_event = Hash.new
 
@@ -71,9 +72,12 @@ class Arcadia < TkApplication
       '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)
+    
+    
+    
+    @mf_root.show_statusbar('status')
+    Arcadia.new_statusbar_item("Platform").text=RUBY_PLATFORM
+    self['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)
     @use_splash = self['conf']['splash.show']=='yes'
@@ -81,24 +85,67 @@ class Arcadia < TkApplication
     @splash.set_progress(50) if @splash
     @splash.deiconify if @splash
     Tk.update
-    @splash.next_step('..prepare')  if @splash
-    prepare
-    @splash.last_step('..load finish')  if @splash
+    @screenwidth=TkWinfo.screenwidth(@root)
+    @screenheight=TkWinfo.screenheight(@root)
+    @need_resize=false
+    @x_scale=1
+    @y_scale=1
     if self['conf']['geometry']
-      geometry = self['conf']['geometry']
+      w0,h0,x0,y0= geometry_to_a(self['conf']['geometry'])
+      g_array = []
+      if @screenwidth > 0 && w0.to_i > @screenwidth
+        g_array << (@screenwidth - x0.to_i).to_s
+        @need_resize = true
+        @x_scale = @screenwidth.to_f/w0.to_f
+      else 
+        g_array << w0
+      end 
+      if @screenheight > 0 && h0.to_i > @screenheight
+        g_array << (@screenheight - y0.to_i).to_s
+        @need_resize = true
+        @y_scale = @screenheight.to_f/h0.to_f 
+      else 
+        g_array << h0
+      end
+      g_array << x0 
+      g_array << y0 
+      geometry = geometry_from_a(g_array)
     else
-      start_width = (TkWinfo.screenwidth(@root)-4)
-      start_height = (TkWinfo.screenheight(@root)-20)
+      start_width = (@screenwidth-4)
+      start_height = (@screenheight-20)
       if RUBY_PLATFORM =~ /mswin|mingw/ # on doze don't go below the start gar
         start_height -= 50
         start_width -= 20
       end
       geometry = start_width.to_s+'x'+start_height.to_s+'+0+0'
     end
-    @root.deiconify
-    @root.focus(true)
-    @root.geometry(geometry)
-    @root.raise
+    @splash.next_step('..prepare')  if @splash
+    prepare
+    @splash.last_step('..load finish')  if @splash
+    begin
+      @root.deiconify
+    rescue RuntimeError => e
+      #p "RuntimeError : #{e.message}"
+      Arcadia.runtime_error(e)
+    end
+    begin
+      @root.focus(true)
+    rescue RuntimeError => e
+      #p "RuntimeError : #{e.message}"
+      Arcadia.runtime_error(e)
+    end
+    begin
+      @root.geometry(geometry)
+    rescue RuntimeError => e
+      #p "RuntimeError : #{e.message}"
+      Arcadia.runtime_error(e)
+    end
+    begin
+      @root.raise
+    rescue RuntimeError => e
+      #p "RuntimeError : #{e.message}"
+      Arcadia.runtime_error(e)
+    end
     Tk.update_idletasks
     if self['conf']['geometry.state'] == 'zoomed'
       if Arcadia.is_windows?
@@ -290,6 +337,10 @@ class Arcadia < TkApplication
       end
     end
   end
+
+  def do_initialize
+    _build_event = Arcadia.process_event(InitializeEvent.new(self))
+  end
   
   def load_maximized
     lm = self['conf']['layout.maximized']
@@ -387,7 +438,7 @@ class Arcadia < TkApplication
     end
   end
 
-  def init_layout
+  def initialize_layout
     @layout = ArcadiaLayout.new(self, @mf_root.get_frame)
     suf = "layout.split"
     elems = self['conf'][suf]
@@ -408,7 +459,12 @@ class Arcadia < TkApplication
               if perc 
                 @layout.add_cols_perc(pt[0].to_i, pt[1].to_i, w.to_i)
               else
-                @layout.add_cols(pt[0].to_i, pt[1].to_i, w.to_i)
+                if @need_resize
+                  w_c = (w.to_i*@x_scale).to_i
+                else
+                  w_c = w.to_i
+                end
+                @layout.add_cols(pt[0].to_i, pt[1].to_i, w_c)
               end
             else
               r = property.split('r')
@@ -419,7 +475,12 @@ class Arcadia < TkApplication
                 if perc 
                   @layout.add_rows_perc(pt[0].to_i, pt[1].to_i, w.to_i)
                 else
-                  @layout.add_rows(pt[0].to_i, pt[1].to_i, w.to_i)
+                  if @need_resize
+                    w_c = (w.to_i*@y_scale).to_i
+                  else
+                    w_c = w.to_i
+                  end
+                  @layout.add_rows(pt[0].to_i, pt[1].to_i, w_c)
                 end
               end
             end
@@ -452,18 +513,25 @@ class Arcadia < TkApplication
     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']}"
-    Tk.tk_call "eval","option add *activebackground #{self['conf']['activebackground']}"
-    Tk.tk_call "eval","option add *activeforeground #{self['conf']['activeforeground']}"
+  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 !Arcadia.is_windows? && File.basename(Arcadia.ruby) != 'ruby'
+      begin
+        if !FileTest.exist?("#{local_dir}/bin")
+          Dir.mkdir("#{local_dir}/bin")
+        end
+        system("ln -s #{Arcadia.ruby} #{local_dir}/bin/ruby") if !File.exist?("#{local_dir}/bin/ruby")
+      rescue Exception => e
+        Arcadia.runtime_error(e)
+      end
+    end
+    
   end
 
   def prepare
@@ -474,14 +542,10 @@ class Arcadia < TkApplication
     @splash.next_step  if @splash
     @splash.next_step('... load extensions')  if @splash
     #load_config
-    init_layout
+    initialize_layout
     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(Arcadia.open_file_dialog)})
     @splash.next_step('... load obj controller')  if @splash
     @splash.next_step('... load editor')  if @splash
-    publish('main.action.new_file',proc{$arcadia['editor'].open_buffer()})
     @splash.next_step('... load actions')  if @splash
     #provvisorio 
     @keytest = KeyTest.new
@@ -492,40 +556,37 @@ class Arcadia < TkApplication
     publish('action.get.font', proc{Tk::BWidget::SelectFont::Dialog.new.create})
     @splash.next_step  if @splash
     publish('action.show_about', proc{ArcadiaAboutSplash.new.deiconify})
-#    publish('main.menu', @main_menu)
-    @main_menu = ArcadiaMainMenu.new(@main_menu_bar)
+    self['menubar'] = ArcadiaMainMenu.new(@main_menu_bar)
     self.do_build
-    #publish('main.menu', ArcadiaMainMenu.new(@main_menu))
     @splash.next_step  if @splash
     publish('objic.action.raise_active_obj',
     proc{
     		InspectorContract.instance.raise_active_toplevel(self)
     }
     )
-    @splash.next_step('... toolbar buttons ')  if @splash
-    #@main_toolbar.load_toolbar_buttons
-    
-    #load user controls
+    @splash.next_step('... toolbar buttons ')  if @splash   
     #Arcadia control
-    load_user_control(@main_toolbar)
-    load_user_control(@main_menu)
+    load_user_control(self['toolbar'])
+    load_user_control(self['menubar'])
     #Extension control
     load_key_binding
     @exts.each{|ext|
       @splash.next_step("... load #{ext} user controls ")  if @splash
-      load_user_control(@main_menu, ext)
-      load_user_control(@main_toolbar, ext)
+      load_user_control(self['toolbar'], ext)
+      load_user_control(self['menubar'], ext)
       load_key_binding(ext)
     }
-    load_user_control(@main_menu,"","e")
-    load_user_control(@main_toolbar,"","e")
+    load_user_control(self['toolbar'],"","e")
+    load_user_control(self['menubar'],"","e")
     load_runners
+    do_initialize
     #@layout.build_invert_menu
   end
   
   def load_runners
     self['runners'] = Hash.new
     self['runners_by_ext'] = Hash.new
+    self['runners_by_lang'] = Hash.new
     mr = Arcadia.menu_root('runcurr')
     return if mr.nil?
 
@@ -535,6 +596,9 @@ class Arcadia < TkApplication
           self['runners_by_ext'][ext.strip.sub('.','')]=run
         }
       end
+      if run[:lang]
+        self['runners_by_lang'][run[:lang]]=run
+      end
       if run[:runner] && self['runners'][run[:runner]]
         run = Hash.new.update(self['runners'][run[:runner]]).update(run)
         #self['runners'][name]=run
@@ -551,6 +615,7 @@ class Arcadia < TkApplication
         :command ,{
           :image => Arcadia.file_icon(run[:file_exts]),
           :label => _run_title,
+          :font => Arcadia.conf('menu.font'),
           :compound => 'left',
           :command => _command
         }
@@ -566,14 +631,15 @@ class Arcadia < TkApplication
       run[:title] = nil
       run[:runner_name] = name
       _command = proc{
-          _event = Arcadia.process_event(
-            RunCmdEvent.new(self, run)
-          )
+         _event = Arcadia.process_event(
+           RunCmdEvent.new(self, run)
+         )
       }
       mr.insert('0', 
         :command ,{
           :image => Arcadia.file_icon(run[:file_exts]),
           :label => _run_title,
+          :font => Arcadia.conf('menu.font'),
           :compound => 'left',
           :command => _command
         }
@@ -737,7 +803,7 @@ class Arcadia < TkApplication
     begin
       a = geometry_to_a(_geometry)
       toolbar_height = @root.winfo_height-@root.winfo_screenheight
-      a[3] = (a[3].to_i - toolbar_height).to_s
+      a[3] = (a[3].to_i - toolbar_height.abs).abs.to_s
       geometry_from_a(a)
     rescue
       return _geometry
@@ -869,6 +935,12 @@ class Arcadia < TkApplication
     end
   end
 
+  def  Arcadia.runner_for_lang(_lang=nil)
+    if @@instance
+      return @@instance['runners_by_lang'][_lang]  
+    end
+  end
+
   def  Arcadia.runner(_name=nil)
     if @@instance
       return @@instance['runners'][_name]  
@@ -893,11 +965,6 @@ class Arcadia < TkApplication
     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?
@@ -940,18 +1007,74 @@ class Arcadia < TkApplication
     RUBY_PLATFORM =~ /mingw|mswin/
   end
   
+  def Arcadia.ruby
+    @ruby_interpreter=Gem.ruby if !defined?(@ruby_interpreter)
+    @ruby_interpreter
+  end
+
   def Arcadia.which(_command=nil)
     return nil if _command.nil?
     _ret = nil
-    ENV['PATH'].split(File::PATH_SEPARATOR).each{|_path|
-      _file = File.join(_path, _command)
+    _file = _command
+    # command check
+    if FileTest.exist?(_file)
+      _ret = _file
+    end
+    # current dir check
+    if _ret.nil?
+      _file = File.join(Dir.pwd, _command)
+      if FileTest.exist?(_file)
+        _ret = _file
+      end
+    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
+      }
+    end
+    # gem path check
+    gem_path = Gem.path
+    gem_path.each{|_path|
+      _file = File.join(_path,'bin',_command)
       if FileTest.exist?(_file)
         _ret = _file
         break
+      end      
+    } if gem_path && gem_path.kind_of?(Array)
+    # gem specific bin check
+    if _ret.nil?
+      begin
+        _ret = Gem.bin_path(_command)
+      rescue
+        _ret = nil
       end
-    }
+    end
     _ret
   end
+
+  def Arcadia.[](_name)
+    @@instance[_name]
+  end
+  
+  def Arcadia.new_statusbar_item(_help=nil)
+    _other =  @@last_status_item if defined?(@@last_status_item) 
+    @@last_status_item=@@instance.mf_root.add_indicator()
+    @@last_status_item.configure(:background=>Arcadia.conf("background"))
+    @@last_status_item.configure(:foreground=>Arcadia.conf("foreground"))
+    @@last_status_item.configure(:font=>Arcadia.conf("font"))
+    if _other
+      @@last_status_item.pack('before'=>_other)
+    end
+    if _help
+      Tk::BWidget::DynamicHelp::add(@@last_status_item, 'text'=>_help)
+    end
+    @@last_status_item
+  end
   
   def Arcadia.menu_root(_menu_root_name, _menu_root=nil)
     if @@instance['menu_roots'] == nil
@@ -963,12 +1086,31 @@ class Arcadia < TkApplication
     @@instance['menu_roots'][_menu_root_name]
   end
 
-  
+  def Arcadia.image_res(_name)
+    if @@instance['image_res'] == nil
+      @@instance['image_res'] = Hash.new
+    end 
+    if @@instance['image_res'][_name].nil?
+      @@instance['image_res'][_name] = TkPhotoImage.new('data' => _name)
+    end
+    @@instance['image_res'][_name]
+  end
+
+  def Arcadia.lang_icon(_lang=nil)
+    icon = "FILE_ICON_#{_lang.upcase if _lang}" 
+    if _lang && eval("defined?(#{icon})")
+      image_res(eval(icon))
+    else
+      image_res(FILE_ICON_DEFAULT)
+    end
+  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)
+      @@instance['file_icons']['default']= image_res(FILE_ICON_DEFAULT)
+      #TkPhotoImage.new('dat' => FILE_ICON_DEFAULT)
     end
     _base_name= File.basename(_file_name)
     if _base_name.include?('.')
@@ -980,7 +1122,8 @@ class Arcadia < TkApplication
       file_icon_name="FILE_ICON_#{file_dn.upcase}"
       begin
         if eval("defined?(#{file_icon_name})")
-          @@instance['file_icons'][file_dn]= TkPhotoImage.new('dat' => eval(file_icon_name))
+          @@instance['file_icons'][file_dn]=image_res(eval(file_icon_name)) 
+          #TkPhotoImage.new('dat' => eval(file_icon_name))
         else
           @@instance['file_icons'][file_dn]= @@instance['file_icons']['default']
         end
@@ -1000,6 +1143,22 @@ class Arcadia < TkApplication
 #    return ret
 #  end
 
+  def Arcadia.menubar_item(_name=nil)
+    if _name && @@instance && @@instance['menubar']
+        return @@instance['menubar'].items(_name)
+	  end
+  end
+
+  def Arcadia.toolbar_item(_name=nil)
+    if _name && @@instance && @@instance['toolbar']
+        #@@instance['toolbar'].items.each{|k, v | p k}
+        return @@instance['toolbar'].items[_name]
+	  end
+  end
+
+  def Arcadia.runtime_error(_e, _title="Runtime Error")
+    ArcadiaProblemEvent.new(self, "type"=>ArcadiaProblemEvent::RUNTIME_ERROR_TYPE,"title"=>"#{_title}:#{_e.message}", "detail"=>_e.backtrace).go!
+  end 
 
 end
 
@@ -1066,12 +1225,13 @@ end
 
 class ArcadiaMainToolbar < ArcadiaUserControl
   SUF='user_toolbar'
+  attr_reader :frame
   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
+      _image = Arcadia.image_res(@image_data) if @image_data
       _command = @command #proc{Arcadia.process_event(@event_class.new(_sender, @event_args))} if @event_class
       _hint = @hint
       _font = @font
@@ -1092,8 +1252,8 @@ class ArcadiaMainToolbar < ArcadiaUserControl
       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)
+          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)
@@ -1103,9 +1263,9 @@ class ArcadiaMainToolbar < ArcadiaUserControl
       #Tk::BWidget::Separator.new(@frame, :orient=>'vertical').pack('side' =>'left', :padx=>2, :pady=>2, :fill=>'y',:anchor=> 'w')
     end
 
-    def enabled=(_value)
+    def enable=(_value)
       if _value
-        @item_obj.state='enable'
+        @item_obj.state='normal'
       else
         @item_obj.state='disable'
       end
@@ -1152,69 +1312,7 @@ class ArcadiaMainToolbar < ArcadiaUserControl
     :orient=>'vertical',
     :background=>Arcadia.conf('button.highlightbackground')
     ).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
   
 end
 
@@ -1226,27 +1324,26 @@ class ArcadiaMainMenu < ArcadiaUserControl
     attr_accessor :type
     def initialize(_sender, _args)
       super(_sender, _args)
-      _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
-      item_args['label']=@caption
-      item_args['underline']=@underline.to_i if @underline != nil
-      item_args['compound']='left'
-      item_args['command']=_command
-      if @type.nil? && _commnad.nil? && @name == '-'
+      item_args[:image]=Arcadia.image_res(@image_data) if @image_data
+      item_args[:label]=@caption
+      item_args[:font]=Arcadia.conf('menu.font')
+      item_args[:underline]=@underline.to_i if @underline != nil
+      item_args[:compound]='left'
+      item_args[:command]=@command
+      if @type.nil? && @commnad.nil? && @name == '-'
         @type=:separator
         item_args.clear
       elsif @type.nil?
         @type=:command
       end
-      @item_obj = @menu.insert('end', @type ,item_args)  
+      @item_obj = @menu.insert('end', @type ,item_args)
       @index = @menu.index('last')
     end
 
-    def enabled=(_value)
+    def enable=(_value)
       if _value
-        @item_obj.entryconfigure(@index, 'state'=>'enable')
+        @item_obj.entryconfigure(@index,'state'=>'normal')
       else
         @item_obj.entryconfigure(@index,'state'=>'disable')
       end
@@ -1257,7 +1354,12 @@ class ArcadiaMainMenu < ArcadiaUserControl
     # create main menu
     @menu = menu
     build
-    @menu.configure(Arcadia.style('menu'))
+    begin
+      @menu.configure(Arcadia.style('menu'))
+    rescue RuntimeError => e
+      #p "RuntimeError : #{e.message}"
+      Arcadia.runtime_error(e)
+    end
   end
 
   def get_menu_context(_menubar, _context, _underline=nil)
@@ -1360,12 +1462,12 @@ class ArcadiaMainMenu < ArcadiaUserControl
     menu_spec_file = [
       ['File', 0],
       ['Open', proc{Arcadia.process_event(OpenBufferEvent.new(self,'file'=>Arcadia.open_file_dialog))}, 0],
-      ['New', $arcadia['main.action.new_file'], 0],
+      ['New', proc{Arcadia.process_event(NewBufferEvent.new(self))}, 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]]
+      ['Quit', proc{Arcadia.process_event(QuitEvent.new(self))}, 0]]
       menu_spec_edit = [['Edit', 0],
       ['Cut', proc{Arcadia.process_event(CutTextEvent.new(self))}, 2],
       ['Copy', proc{Arcadia.process_event(CopyTextEvent.new(self))}, 0],
@@ -1393,13 +1495,17 @@ class ArcadiaMainMenu < ArcadiaUserControl
     ]
     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)
-  
+    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
@@ -1450,6 +1556,7 @@ class ArcadiaMainMenu < ArcadiaUserControl
 #          @last_post=nil
 #        end
 #      })
+
      @menu.extend(TkAutoPostMenu)      
      @menu.event_posting_on
   end
@@ -1501,7 +1608,7 @@ class RunnerManager < TkFloatTitledFrame
          'command'=>_close_command,
          'helptext'=>@runner_hash[:file],
          'background'=>'white',
-         'image'=> TkPhotoImage.new('data' => TRASH_GIF),
+         'image'=> Arcadia.image_res(TRASH_GIF),
          'relief'=>'flat').pack('side' =>'right','padx'=>0)
       pack('side' =>'top','anchor'=>'nw','fill'=>'x','padx'=>5, 'pady'=>5)
     end
@@ -1550,7 +1657,7 @@ class ArcadiaAboutSplash < TkToplevel
     overrideredirect(true)
     
     @tkLabel3 = TkLabel.new(self){
-      image  TkPhotoImage.new('format'=>'GIF','data' =>A_LOGO_GIF)
+      image  Arcadia.image_res(A_LOGO_GIF)
       background  _bgcolor
       place('x'=> 20,'y' => 20)
     }
@@ -1566,14 +1673,14 @@ class ArcadiaAboutSplash < TkToplevel
 #    }
 
     @tkLabel1 = TkLabel.new(self){
-      image  TkPhotoImage.new('format'=>'GIF','data' =>ARCADIA_JAP_GIF)
+      image  Arcadia.image_res(ARCADIA_JAP_GIF)
       background  _bgcolor
       justify  'left'
       place('x' => 90,'y' => 10)
     }
 
     @tkLabelRuby = TkLabel.new(self){
-      image TkPhotoImage.new('data' =>RUBY_DOCUMENT_GIF)
+      image Arcadia.image_res(RUBY_DOCUMENT_GIF)
       background  _bgcolor
       place('x'=> 210,'y' => 12)
     }
@@ -1636,6 +1743,35 @@ class ArcadiaAboutSplash < TkToplevel
     bind("Double-Button-1", proc{self.destroy})
     info = TkApplication.sys_info
     set_sysinfo(info)
+    Arcadia.attach_listener(self, ArcadiaProblemEvent)
+  end
+  
+  def problem_str
+    @problems_nums > 1 ? "#{@problems_nums} problems found!" : "#{@problems_nums} problem found!"
+  end
+  
+  def on_arcadia_problem(_event)
+    if !defined?(@problems_nums)
+      @problems_nums=0
+      #@problem_str = proc{@problems_nums > 1 ? "#{@problems_nums} problems found!" : "#{@problem_nums} problem found!"}
+      @tkAlert = TkLabel.new(self){
+        image Arcadia.image_res(ALERT_GIF)
+        background  'black'
+        place('x'=> 10,'y' => 150)
+      }
+
+      @tkLabelProblems = TkLabel.new(self){
+        text  ''
+        background  'black'
+        foreground  'red'
+        font Arcadia.instance['conf']['splash.problems.font']
+        justify  'left'
+        anchor 'w'
+        place('width' => '210','x' => 28,'y' => 150,'height' => 25)
+      }      
+    end
+    @problems_nums=@problems_nums+1
+    @tkLabelProblems.text=problem_str if @tkLabelProblems
   end
 
   def set_sysinfo(_info)
@@ -1647,11 +1783,11 @@ class ArcadiaAboutSplash < TkToplevel
     Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
       :background=>'#000000',
       :troughcolor=>'#000000',
-      :foreground=>'#a11934',
+      :foreground=>'#666666',
       :variable=>@progress,
       :borderwidth=>0,
       :relief=>'flat',
-      :maximum=>_max).place('relwidth' => '1','y' => 146,'height' => 2)
+      :maximum=>_max).place('relwidth' => '1','y' => 144,'height' => 6)
   end
 
   def reset
@@ -1671,7 +1807,213 @@ class ArcadiaAboutSplash < TkToplevel
   def last_step(_txt = nil)
     @progress.numeric = @max
     labelStep(_txt) if _txt
+    Arcadia.detach_listener(self, ArcadiaProblemEvent)
+  end
+end
+
+class ArcadiaProblemsShower
+  def initialize(_arcadia)
+    @arcadia = _arcadia
+    @showed = false
+    @initialized = false
+    #@visible = false
+    @problems = Array.new 
+    @seq = 0
+    @dmc=0
+    @rec=0
+    Arcadia.attach_listener(self, ArcadiaProblemEvent)
+    Arcadia.attach_listener(self, InitializeEvent)
+  end
+  
+  def on_arcadia_problem(_event)
+    @problems << _event
+    if @initialized 
+      if !@showed
+        show_problems
+      else
+        append_problem(_event)
+        @b_err.configure('text'=> button_text)
+      end
+    end
+  end
+  
+  def on_after_initialize(_event)
+    @initialized = true
+    if @problems.count > 0   
+      show_problems
+    end
+  end
+  
+  def show_problems
+    begin
+      initialize_gui
+      @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
+      @showed=true
+    rescue RuntimeError => e
+      Arcadia.detach_listener(self, ArcadiaProblemEvent)
+      Arcadia.detach_listener(self, InitializeEvent)      
+    end
+  end
+
+  def button_text
+    @problems.count > 1 ? "#{@problems.count} problems" : "#{@problems.count} problem"
+  end
+
+  
+  def initialize_gui
+    # float_frame
+    args = {'width'=>600, 'height'=>300, 'x'=>400, 'y'=>100}
+    @ff = @arcadia.layout.new_float_frame(args).hide
+    @ff.title("Arcadia problems")
+
+    #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)
+    
+  end
+  
+  
+  def new_sequence_value
+    @seq+=1
   end
+  
+  def append_problem(e)
+    parent_node='root'
+    case e.type
+      when ArcadiaProblemEvent::DEPENDENCE_MISSING_TYPE
+        parent_node='dependences_missing_node'
+        text = "Dependences missings"
+        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')}))
+          )       
+        
+        end
+        @dmc+=1
+        @tree.itemconfigure('dependences_missing_node','text'=>"#{text} (#{@dmc})" )
+      when ArcadiaProblemEvent::RUNTIME_ERROR_TYPE
+        parent_node='runtime_error_node'
+        text = "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
+    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')}))
+        )
+         
+      }
+    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')}))
+      )
+    end
+        
+
+  end  
 end
 
 class ArcadiaActionDispatcher
@@ -1698,7 +2040,7 @@ class ArcadiaSh < TkToplevel
   def initialize
     super
     title 'ArcadiaSh'
-    iconphoto(TkPhotoImage.new('dat'=>ARCADIA_RING_GIF))
+    iconphoto(Arcadia.image_res(ARCADIA_RING_GIF))
     geometry = '800x200+10+10'
     geometry(geometry)
     @text = TkText.new(self, Arcadia.style('text')){
@@ -1845,30 +2187,28 @@ class ArcadiaGemsWizard
     @arcadia = _arcadia
     Arcadia.attach_listener(self, NeedRubyGemWizardEvent)
   end
-  
+
   def on_need_ruby_gem_wizard(_event)
-    # ... todo implamentation
-    msg = "Appears that gem : '#{_event.gem_name}' required by : '#{_event.extension_name}' is not installed!\n Do you want to try install it now?" 
-    ans = Tk.messageBox('icon' => 'error', 'type' => 'yesno',
-      'title' => "(Arcadia) Extensions '#{_event.extension_name}'",
-      'message' => msg)
-      if  ans == 'yes'
-        _event.add_result(self, 'installed'=>try_to_install_gem(_event.gem_name,_event.gem_repository))
-      else
-        _event.add_result(self, 'installed'=>false)
-      end
+    msg = "Appears that gem : '#{_event.gem_name}' required by : '#{_event.extension_name}' is not installed!\n Install it from gem?" 
+
+    ArcadiaProblemEvent.new(self, "type"=>ArcadiaProblemEvent::DEPENDENCE_MISSING_TYPE,"title"=>"Gem '#{_event.gem_name}' missing!", "detail"=>msg).go!
+    
+#    Arcadia.process_event(ArcadiaProblemEvent.new(self, "type"=>ArcadiaProblemEvent::DEPENDENCE_MISSING_TYPE,"title"=>"Gem '#{_event.gem_name}' missing!", "detail"=>msg))
   end
+
   
-#  def try_to_install_gem(name, repository=nil, version = '>0')
-#    ret = false
-#    require 'rubygems/command.rb'
-#    require 'rubygems/dependency_installer.rb'
-#    
-#    inst.install name, version
-#    # TODO WIZARD
-#    # TODO accept repository, too
+#  def on_need_ruby_gem_wizard(_event)
+#    msg = "Appears that gem : '#{_event.gem_name}' required by : '#{_event.extension_name}' is not installed!\n Do you want to try install it now?" 
+#    ans = Tk.messageBox('icon' => 'error', 'type' => 'yesno',
+#      'title' => "(Arcadia) Extensions '#{_event.extension_name}'",
+#      'message' => msg)
+#      if  ans == 'yes'
+#        _event.add_result(self, 'installed'=>try_to_install_gem(_event.gem_name,_event.gem_repository))
+#      else
+#        _event.add_result(self, 'installed'=>false)
+#      end
 #  end
-
+  
   def try_to_install_gem(name, repository=nil, version = '>0')
     ret = false
     
@@ -2536,14 +2876,14 @@ class ArcadiaLayout
       _menu.insert('end', :separator)
       _menu.insert('end',:command,
           :label=>"add column",
-          :image=>TkPhotoImage.new('dat'=>ADD_GIF),
+          :image=>Arcadia.image_res(ADD_GIF),
           :compound=>'left',
           :command=>proc{add_cols_runtime(_domain)},
           :hidemargin => true
       )
       _menu.insert('end',:command,
           :label=>"add row",
-          :image=>TkPhotoImage.new('dat'=>ADD_GIF),
+          :image=>Arcadia.image_res(ADD_GIF),
           :compound=>'left',
           :command=>proc{add_rows_runtime(_domain)},
           :hidemargin => true
@@ -2551,7 +2891,7 @@ class ArcadiaLayout
       if @panels.keys.length > 2
         _menu.insert('end',:command,
             :label=>"close",
-            :image=>TkPhotoImage.new('dat'=>CLOSE_FRAME_GIF),
+            :image=>Arcadia.image_res(CLOSE_FRAME_GIF),
             :compound=>'left',
             :command=>proc{close_runtime(_domain)},
             :hidemargin => true
@@ -2701,7 +3041,7 @@ class ArcadiaLayout
           menu = @panels[dom]['root'].menu_button('ext').cget('menu')
           menu.insert('0',:command,
                 :label=>_ffw.title,
-                :image=>TkPhotoImage.new('dat'=>ARROW_LEFT_GIF),
+                :image=>Arcadia.image_res(ARROW_LEFT_GIF),
                 :compound=>'left',
                 :command=>proc{change_domain(dom, _ffw.name)},
                 :hidemargin => true
@@ -2724,7 +3064,7 @@ class ArcadiaLayout
         end
         mymenu.insert(index,:command,
            :label=>"close \"#{_ffw.title}\"",
-           :image=>TkPhotoImage.new('dat'=>CLOSE_FRAME_GIF),
+           :image=>Arcadia.image_res(CLOSE_FRAME_GIF),
            :compound=>'left',
            :command=>proc{unregister_panel(_ffw, false, true)},
            :hidemargin => true
@@ -2789,7 +3129,7 @@ class ArcadiaLayout
           if _adapter
             adapter = _adapter
           else
-            adapter = TkFrameAdapter.new(self.root, Arcadia.style('frame'))
+            adapter = TkFrameAdapter.new(self.root)
           end
           adapter.attach_frame(root_frame)
           adapter.raise
@@ -2846,7 +3186,7 @@ class ArcadiaLayout
         if _adapter
           adapter = _adapter
         else
-          adapter = TkFrameAdapter.new(self.root, Arcadia.style('frame'))
+          adapter = TkFrameAdapter.new(self.root)
         end
         adapter.attach_frame(_panel)
         adapter.raise
@@ -2861,7 +3201,7 @@ class ArcadiaLayout
     else
       _ffw.domain = nil
       process_frame(_ffw)
-      return TkFrameAdapter.new(self.root, Arcadia.style('frame'))
+      return TkFrameAdapter.new(self.root)
 #
 #      Arcadia.dialog(self, 
 #        'type'=>'ok',
@@ -3113,13 +3453,29 @@ class MonitorLastUsedDir
 
 end
 
+require 'tk/clipboard'
+
 class FocusEventManager
   def initialize
     Arcadia.attach_listener(self, FocusEvent)
+    Arcadia.attach_listener(self, InputEvent)
+  end
+  
+  def on_input(_event)
+    case _event
+      when InputEnterEvent
+        @last_focus_widget = _event.receiver
+      when InputExitEvent
+        @last_focus_widget = nil
+    end  
   end
   
   def on_focus(_event)
-    _event.focus_widget=Tk.focus
+    if @last_focus_widget
+      _event.focus_widget = @last_focus_widget
+    else
+      _event.focus_widget=Tk.focus
+    end
     case _event
       when CutTextEvent
         do_cut(_event.focus_widget)
@@ -3143,15 +3499,36 @@ class FocusEventManager
   end
   
   def do_cut(_focused_widget)
-    _focused_widget.text_cut if _focused_widget.respond_to?(:text_cut)
+    if _focused_widget.respond_to?(:text_cut)
+      _focused_widget.text_cut
+    elsif _focused_widget.kind_of?(Tk::Entry)
+      if _focused_widget.selection_present
+        i1= _focused_widget.index("sel.first")
+        i2= _focused_widget.index("sel.last")
+        TkClipboard::set(_focused_widget.value[i1.to_i..i2.to_i-1])
+        _focused_widget.delete(i1,i2)
+      end
+    end
   end
   
   def do_copy(_focused_widget)
-    _focused_widget.text_copy if _focused_widget.respond_to?(:text_copy)
+    if _focused_widget.respond_to?(:text_copy)
+      _focused_widget.text_copy
+    elsif _focused_widget.kind_of?(Tk::Entry)
+      if _focused_widget.selection_present
+        i1= _focused_widget.index("sel.first")
+        i2= _focused_widget.index("sel.last")
+        TkClipboard::set(_focused_widget.value[i1.to_i..i2.to_i-1])
+      end
+    end
   end
 
   def do_paste(_focused_widget)
-    _focused_widget.text_paste if _focused_widget.respond_to?(:text_paste)
+    if _focused_widget.respond_to?(:text_paste)
+      _focused_widget.text_paste
+    elsif _focused_widget.kind_of?(Tk::Entry)
+      _focused_widget.insert(_focused_widget.index("insert"), TkClipboard::get)
+    end      
   end
 
   def do_undo(_focused_widget)
@@ -3171,7 +3548,12 @@ class FocusEventManager
   end
 
   def do_select_all(_focused_widget)
-    _focused_widget.tag_add('sel','1.0','end') if _focused_widget.respond_to?(:tag_add)
+    if _focused_widget.respond_to?(:tag_add)
+      _focused_widget.tag_add('sel','1.0','end')
+    elsif _focused_widget.kind_of?(Tk::Entry)
+      _focused_widget.selection_from('0')
+      _focused_widget.selection_to('end')
+    end    
   end
 
   def do_invert_selection(_focused_widget)
@@ -3208,6 +3590,14 @@ class FocusEventManager
           _focused_widget.insert(r[0][0],target_text.send(_method))
         end
       end
+    elsif _focused_widget.kind_of?(Tk::Entry)
+      if _focused_widget.selection_present
+        i1= _focused_widget.index("sel.first")
+        i2= _focused_widget.index("sel.last")
+        target_text = _focused_widget.value[i1.to_i..i2.to_i-1]
+        _focused_widget.delete(i1,i2)
+        _focused_widget.insert(i1,target_text.send(_method))
+      end
     end
   end
 end