arcadia 1.0.0 → 1.1.0

data/ext/ae-file-history/ae-file-history.rb

@@ -93,6 +93,7 @@ class FilesHistrory < ArcadiaExt
   def on_build(_event)
     @h_stack = Hash.new
     @h_stack_changed = false
+    #@content_root = Tk::ScrollFrame.new(self.frame.hinner_frame).pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes').baseframe
     @bookmarks_frame = TkFrame.new(self.frame.hinner_frame)    
     @history_frame = TkFrame.new(self.frame.hinner_frame).pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')    
     @panel = self.frame.root.add_panel(self.frame.name, "sync");
@@ -181,7 +182,7 @@ class FilesHistrory < ArcadiaExt
         _selected = @htree.selected
         _dir, _file = _selected.sub("%%%",":").split('@@@')
         if _dir && _file.nil? && File.ftype(node2file(_dir)) == 'directory'
-	        _file = Arcadia.open_file_dialog(node2file(_dir))
+	        _file = Arcadia.select_file_dialog(node2file(_dir))
 	        #Tk.getOpenFile('initialdir'=>node2file(_dir))
       	    if _file && _file.strip.length > 0 
       	       Arcadia.process_event(OpenBufferTransientEvent.new(self,'file'=>_file))
@@ -209,8 +210,8 @@ class FilesHistrory < ArcadiaExt
       font @font_italic
       cursor nil
     }
-    @hlist.bind_append('KeyPress'){|e| Tk.callback_break }
-    @hlist.bind_append('KeyRelease'){|e| Tk.callback_break }
+    @hlist.bind_append('KeyPress'){Tk.callback_break }
+    @hlist.bind_append('KeyRelease'){Tk.callback_break }
     @hlist.extend(TkScrollableWidget)
     @hlist.tag_configure("file_selected", 'foreground' => Arcadia.conf('hightlight.link.foreground'))
 	  build_list

data/ext/ae-output/ae-output.rb

@@ -68,7 +68,7 @@ class OutputView
     'background'=>Arcadia.conf('hightlight.sel.background'),
     'foreground'=>Arcadia.conf('hightlight.sel.foreground')
     )
-    @text.bind_append("KeyPress"){|e| input(e.keysym)}
+    @text.bind_append("KeyPress", "%K"){|_keysym| input(_keysym)}
     @input_buffer = nil
     pop_up_menu        
   end
@@ -172,7 +172,8 @@ class Output < ArcadiaExt
   attr_reader :main_frame
   attr_reader :prompt
   MARKSUF='mark-'
-  PROMPT_SIMBOL='$'
+#  PROMPT_SIMBOL='$'
+  PROMPT_SIMBOL='>'
   def on_before_build(_event)
     #ArcadiaContractListener.new(self, MsgContract, :do_msg_event)
     @tag_seq = 0
@@ -308,6 +309,8 @@ class Output < ArcadiaExt
       lines = @main_frame.text.value.to_a[_from_row.._to_row]
     end
     
+  #  p "parso "
+    
     if lines
       lines.each{|l|
         _row = _row+1
@@ -343,36 +346,46 @@ class Output < ArcadiaExt
   end
 
   def file_binding(_file, _line, _ibegin, _iend)
-    if _file == '<<current buffer>>'
-      _file = "*CURR"
+    if defined?(@file_binding)
+      while @file_binding
+        sleep(1)
+      end
     end
-    _line = '0' if _line.nil? || _line.strip.length == 0
-    tag_name = next_tag_name
-    @main_frame.text.tag_configure(tag_name,
-    'foreground' => Arcadia.conf('hightlight.link.foreground'),
-    'borderwidth'=>0,
-    'relief'=>'flat',
-    'underline'=>true
-    )
-    @main_frame.text.tag_add(tag_name,_ibegin,_iend)
-    #@main_frame.text.tag_bind(tag_name,"Double-ButtonPress-1",
-    @main_frame.text.tag_bind(tag_name,"ButtonPress-1",
-    proc{
-      Arcadia.process_event(OpenBufferTransientEvent.new(self,'file'=>_file, 'row'=>_line))
-    }
-    )
-    @main_frame.text.tag_bind(tag_name,"Enter",
-    proc{@main_frame.text.configure('cursor'=> 'hand2')}
-    )
-    @main_frame.text.tag_bind(tag_name,"Leave",
-    proc{@main_frame.text.configure('cursor'=> @cursor)}
-    )
-
-    if @main_frame.auto_open_file?
-      Arcadia.process_event(OpenBufferTransientEvent.new(self,'file'=>_file, 'row'=>_line))
-      self.frame.show
-      @main_frame.text.set_focus
-      @main_frame.text.see("end")
+    @file_binding=true
+    begin
+      if _file == '<<current buffer>>'
+        _file = "*CURR"
+      end
+      _line = '0' if _line.nil? || _line.strip.length == 0
+      tag_name = next_tag_name
+      @main_frame.text.tag_configure(tag_name,
+        'foreground' => Arcadia.conf('hightlight.link.foreground'),
+        'borderwidth'=>0,
+        'relief'=>'flat',
+        'underline'=>true
+      )
+      @main_frame.text.tag_add(tag_name,_ibegin,_iend)
+      #@main_frame.text.tag_bind(tag_name,"Double-ButtonPress-1",
+      @main_frame.text.tag_bind(tag_name,"ButtonPress-1",
+        proc{OpenBufferTransientEvent.new(self,'file'=>_file, 'row'=>_line).go!}
+#        proc{OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line).go!}
+      )
+      @main_frame.text.tag_bind(tag_name,"Enter",
+        proc{@main_frame.text.configure('cursor'=> 'hand2')}
+      )
+      @main_frame.text.tag_bind(tag_name,"Leave",
+        proc{@main_frame.text.configure('cursor'=> @cursor)}
+      )
+  
+      if @main_frame.auto_open_file?
+        OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line, 'debug'=>'yes').go!
+#        OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line).go!
+        self.frame.show
+        @main_frame.text.set_focus
+        @main_frame.text.see("end")
+      end
+    ensure
+      @file_binding = false
     end
   end
 

data/ext/ae-ruby-debug/ae-ruby-debug.conf

@@ -4,14 +4,15 @@ name=ruby-debug
 frames=0.0,1.1
 frames.labels=Debug Inspector,Debug Server
 frames.names=ruby_debug_inspector,ruby_debug_server
-active=yes
+active=no
+1.9:@:active=yes
 require=ext/ae-ruby-debug/ae-ruby-debug
 class=RubyDebug
 #gems=ruby-debug,whichr
 #1.9:@:gems=ruby-debug19,whichr
 gems=ruby-debug
 1.9:@:gems=debugger
-2:@:gems=debugger
+2:@:gems=
 #========================================
 #========================================
 server.host=localhost

data/ext/ae-ruby-debug/ae-ruby-debug.rb

@@ -802,6 +802,7 @@ class RubyDebugServer
   def start_session(_debug_event, _host='localhost', _remote_port='8989')
     _filename = _debug_event.file
     commandLine = "#{Arcadia.ruby} #{@rdebug_file} --host #{_host} --port #{_remote_port} -sw '#{_filename}'"
+    #commandLine = "#{Arcadia.ruby} -r debug --host #{_host} --port #{_remote_port} -sw '#{_filename}'"
     #p commandLine
     begin
       @alive = true

data/ext/ae-search-in-files/ae-search-in-files.rb

@@ -33,8 +33,8 @@ class SearchInFiles < ArcadiaExt
     @find.b_go.bind('1', proc{update_all_combo;do_find}) # add trigger to button    
     #@find.b_go.bind('1', proc{Thread.new{update_all_combo;do_find}}) # add trigger to button    
     
-    enter_proc = proc {|e|
-      case e.keysym
+    enter_proc = proc {|_keysym|
+      case _keysym
       when 'Return'
         if @find.visible?
           update_all_combo    
@@ -46,7 +46,7 @@ class SearchInFiles < ArcadiaExt
     
     #for method in [:e_what_entry, :e_filter_entry, :e_dir_entry] do
     for method in [:e_what, :e_filter, :e_dir] do
-      @find.send(method).bind_append('KeyPress') { |*args| enter_proc.call *args } # ltodo why can't we pass it in like &enter_proc?
+      @find.send(method).bind_append('KeyPress', "%K") { |_keysym| enter_proc.call _keysym } # ltodo why can't we pass it in like &enter_proc?
     end
     @find.title(title)
   end

data/ext/ae-shell/ae-shell.rb

@@ -134,9 +134,25 @@ class Shell < ArcadiaExt
   @@next_number = 0
   def on_run_cmd(_event)
     if _event.cmd
-      #p "_event.cmd = #{_event.cmd}"
       begin
+        if _event.prompt
+          hd_args = {
+            'type'=>'ok_cancel',
+            'msg'=>_event.title,
+            'title' => _event.title, 
+            'prompt' => _event.prompt, 
+            'level' => 'info'
+          }
+            
+          hd_event = HinnerDialogEvent.new(self, hd_args).go!
+        end
+        if _event.file
+          process_name = _event.file
+        else
+          process_name = "#{_event.cmd[0..8]} ..."
+        end
         output_mark = Arcadia.console(self,'msg'=>"Running #{_event.title} as #{_event.lang}...", 'level'=>'info') # info?
+        output_mark = Arcadia.console(self,'msg'=>_event.cmd, 'level'=>'info', 'mark'=>output_mark)
         start_time = Time.now
         @arcadia['pers']['run.file.last']=_event.file if _event.persistent
         @arcadia['pers']['run.cmd.last']=_event.cmd if _event.persistent
@@ -147,6 +163,7 @@ class Shell < ArcadiaExt
           output_file_name = "out_#{@@next_number += 1}_#{Process.pid}.txt"
           output = File.open(output_file_name, 'wb')
           child = Process.create :command_line => _event.cmd,  :startup_info => {:stdout => output, :stderr => output}
+          RunCmdStartedEvent.new(self, 'parent'=>_event).shot!
           #----
           abort_action = proc{
             Process.kill(9,child.process_id)
@@ -154,23 +171,27 @@ class Shell < ArcadiaExt
           alive_check = proc{
             WMI::Win32_Process.find(:first, :conditions => {:ProcessId => child.process_id})
           }
-          Arcadia.process_event(SubProcessEvent.new(self,'pid'=>child.process_id, 'name'=>_event.file,'abort_action'=>abort_action, 'alive_check'=>alive_check))
+          Arcadia.process_event(SubProcessEvent.new(self,'pid'=>child.process_id, 'name'=>process_name,'abort_action'=>abort_action, 'alive_check'=>alive_check))
           #----
           timer=nil
           procy = proc {
             still_alive = WMI::Win32_Process.find(:first, :conditions => {:ProcessId => child.process_id})
             if !still_alive #&& File.exists?(output_file_name)
-              output.close
-              timer.stop
-              File.open(output_file_name, 'r') do |f|
-                _readed = f.read
-                _readed.strip!
-                
-                _readed += "\n" + Arcadia.text('ext.shell.done', [_event.title, Time.now - start_time])
-                output_mark = Arcadia.console(self,'msg'=>_readed, 'level'=>'debug', 'mark'=>output_mark)
-                _event.add_result(self, 'output'=>_readed)
+              begin
+                output.close
+                timer.stop
+                File.open(output_file_name, 'r') do |f|
+                  _readed = f.read
+                  _readed.strip!
+                  
+                  _readed += "\n" + Arcadia.text('ext.shell.done', [_event.title, Time.now - start_time])
+                  output_mark = Arcadia.console(self,'msg'=>_readed, 'level'=>'debug', 'mark'=>output_mark)
+                  _event.add_result(self, 'output'=>_readed)
+                end
+                File.delete output_file_name
+              ensure
+                RunCmdEndedEvent.new(self, 'parent'=>_event).shot!
               end
-              File.delete output_file_name
             end
           }
 
@@ -189,10 +210,10 @@ class Shell < ArcadiaExt
               Open3.popen3(_cmd_){|stdin, stdout, stderr, th|
                 fi_pid = th.pid if th
                 output_mark = Arcadia.console(self,'msg'=>" [pid #{fi_pid}]", 'level'=>'info', 'mark'=>output_mark, 'append'=>true)
+                RunCmdStartedEvent.new(self, 'parent'=>_event).shot!
                 alive_check = proc{th.status != false}
-                abort_action = proc{Process.kill(9,fi_pid.to_i)}
-
-    	           Arcadia.process_event(SubProcessEvent.new(self, 'pid'=>fi_pid, 'name'=>_event.file,'abort_action'=>abort_action, 'alive_check'=>alive_check))
+                abort_action = proc{Process.kill(9,fi_pid.to_i); th.exit}
+    	           Arcadia.process_event(SubProcessEvent.new(self, 'pid'=>fi_pid, 'name'=>process_name, 'abort_action'=>abort_action, 'alive_check'=>alive_check))
 
                 to = Thread.new(stdout) do |tout|
                   begin
@@ -200,6 +221,7 @@ class Shell < ArcadiaExt
                       output_mark = Arcadia.console(self,'msg'=>line, 'level'=>'debug', 'mark'=>output_mark)
                       _event.add_result(self, 'output'=>line)
                     end
+                    RunCmdEndedEvent.new(self, 'parent'=>_event).shot!
                   rescue Exception => e
                     output_mark = Arcadia.console(self,'msg'=>e.to_s, 'level'=>'debug', 'mark'=>output_mark)
                   end

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

@@ -20,7 +20,7 @@ class SubProcessInspector < ArcadiaExt
   def on_exit_query(_event)
     _event.can_exit=true
     @processs.each{|pr|
-      if !pr.nil? 
+      if !pr.nil? && pr.event.abort_dialog_yes != false
         message = Arcadia.text("ext.spi.d.exit_query.msg")
         r=Arcadia.hinner_dialog(self,
             'type'=>'yes_no', 
@@ -106,13 +106,19 @@ class SubProcessWidget
   def initialize(_parent=nil, _event=nil, *args)
     @parent = _parent
     @event = _event
+    @anigif = _event.anigif.nil? ? "process.res" : _event.anigif
+    abort_dialog_yes = _event.abort_dialog_yes.nil? || _event.abort_dialog_yes == true
     b_command = proc{
-      message = Arcadia.text('ext.spi.d.kill.msg', [_event.pid, _event.name])
-      r=Arcadia.hinner_dialog(self,
-          'type'=>'yes_no', 
-          'level'=>'warning',
-          'title'=> Arcadia.text('ext.spi.d.kill.title'), 
-          'msg'=>message)
+      if abort_dialog_yes
+        message = Arcadia.text('ext.spi.d.kill.msg', [_event.pid, _event.name])
+        r=Arcadia.hinner_dialog(self,
+            'type'=>'yes_no', 
+            'level'=>'warning',
+            'title'=> Arcadia.text('ext.spi.d.kill.title'), 
+            'msg'=>message)
+      else
+        r="yes"
+      end
       if r=="yes"
         _event.abort_action.call
       end
@@ -131,7 +137,7 @@ class SubProcessWidget
       text l_text
       pack('side' =>'left', :padx=>2, :pady=>0)
     }
-    Tk::Anigif.image(@label, "#{Dir.pwd}/ext/ae-subprocess-inspector/process.res")
+    Tk::Anigif.image(@label, "#{Dir.pwd}/ext/ae-subprocess-inspector/#{@anigif}")
 
     @button = Arcadia.wf.toolbutton(Arcadia['toolbar'].frame){
       command b_command

data/lib/a-commons.rb

@@ -1099,7 +1099,7 @@ module Persistable
         if f
           if _persistent_hash
             _persistent_hash.each{|key,value|
-              f.syswrite(key+'='+value+"\n")
+              f.syswrite(key+'='+value+"\n") if key && value
             }
           end
         end

data/lib/a-contracts.rb

@@ -116,7 +116,7 @@ class NewBufferEvent < BufferEvent
 end
 
 class OpenBufferEvent < BufferEvent
-  attr_accessor :select_index
+  attr_accessor :select_index, :debug
 end
 
 class OpenBufferTransientEvent < OpenBufferEvent
@@ -182,6 +182,9 @@ end
 class BufferClosedEvent < BufferEvent
 end
 
+class DeleteFileBufferEvent < BufferEvent
+end
+
 #  +---------------------------------------------+
 #         Bookmark event
 #  +---------------------------------------------+
@@ -252,7 +255,7 @@ class MsgEvent < ArcadiaEvent
 end
 
 class SubProcessEvent < ArcadiaEvent
-   attr_accessor :abort_action, :alive_check, :name, :pid, :timeout, :timecheck
+   attr_accessor :abort_action, :alive_check, :name, :pid, :timeout, :timecheck, :abort_dialog_yes, :anigif
 end
 
 class SubProcessProgressEvent < SubProcessEvent
@@ -313,6 +316,13 @@ class RunCmdEvent < ArcadiaEvent
   attr_accessor :persistent
   attr_accessor :runner_name
   attr_accessor :lang
+  attr_accessor :prompt
+end
+
+class RunCmdStartedEvent < RunCmdEvent
+end
+
+class RunCmdEndedEvent < RunCmdEvent
 end
 
 class InputKeyboardQueryEvent < ArcadiaEvent
@@ -375,7 +385,7 @@ class DialogEvent < ArcadiaEvent
   class Result < Result
     attr_accessor :value
   end
-  attr_accessor :title, :msg, :type, :level, :exception
+  attr_accessor :title, :msg, :type, :level, :exception, :prompt
 end
 
 class SystemDialogEvent < DialogEvent

data/lib/a-core.rb

@@ -21,12 +21,13 @@ class Arcadia < TkApplication
   attr_reader :wf
   attr_reader :mf_root
   attr_reader :localization
+  attr_reader :exts
   def initialize
     @initialized=false
     super(
       ApplicationParams.new(
         'arcadia',
-        '1.0.0',
+        '1.1.0',
         'conf/arcadia.conf',
         'conf/arcadia.pers'
       )
@@ -53,7 +54,7 @@ class Arcadia < TkApplication
     #_title = "Arcadia Ruby ide :: [Platform = #{RUBY_PLATFORM}] [Ruby version = #{RUBY_VERSION}] [TclTk version = #{tcltk_info.level}]"
     _title = "Arcadia"
     @root = TkRoot.new(
-    'background'=> self['conf']['background']
+      'background'=> self['conf']['background']
     ){
       title _title
       withdraw
@@ -69,12 +70,10 @@ class Arcadia < TkApplication
     @mf_root = Tk::BWidget::MainFrame.new(@root,
     'background'=> self['conf']['background'],
     'height'=> 0
-    ){
-      #menu @main_menu_bar
-    }.pack(
-    'anchor'=> 'center',
-    'fill'=> 'both',
-    'expand'=> 1
+    ).pack(
+      'anchor'=> 'center',
+      'fill'=> 'both',
+      'expand'=> 1
     )
     #.place('x'=>0,'y'=>0,'relwidth'=>1,'relheight'=>1)
 
@@ -179,6 +178,10 @@ class Arcadia < TkApplication
  #   @focus_event_manager = FocusEventManager.new
   end
 
+  def root_height
+    @root.winfo_height
+  end
+
   def initialized?
     @initialized
   end
@@ -662,54 +665,123 @@ class Arcadia < TkApplication
     #@layout.build_invert_menu
   end
 
-  def load_runners
-    self['runners'] = Hash.new
-    self['runners_by_ext'] = Hash.new
-    self['runners_by_lang'] = Hash.new
+  def refresh_runners_on_menu(root_menu=nil, _file=nil, _dir=nil)
+    return if root_menu.nil?
+    if !root_menu.index('end').nil?
+      index_end = root_menu.index('end')-1
+      root_menu.delete('0',index_end)
+    end
+    self['runners'].each{|name, run|
+      newrun = {}.update(run)
+      newrun[:file] = _file if !_file.nil?
+      newrun[:dir] = _dir if !_dir.nil?
+      insert_runner_item(root_menu, name, newrun)
+    }
+  end
+
+  def reload_runners
     mr = Arcadia.menu_root('runcurr')
     return if mr.nil?
+    self['runners'].clear if self['runners']
+    self['runners_by_ext'].clear if self['runners_by_ext']
+    self['runners_by_lang'].clear if self['runners_by_lang']
+    index_end = mr.index('end')-1
+    mr.delete('0',index_end)
+    load_runners
+  end
 
-    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[: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
-      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
-      _command = proc{
-        _event = Arcadia.process_event(
-        RunCmdEvent.new(self, run)
-        )
+  def insert_runner_item(root_menu=nil, name, run)
+    return if root_menu.nil?
+    if run[:file_exts]
+      run[:file_exts].split(',').each{|ext|
+        self['runners_by_ext'][ext.strip.sub('.','')]=run
       }
-      if run[:pos]
-        pos = run[:pos]
-      else
-        pos = '0'
-      end
-      args = {
-        :image => image,
-        :label => _run_title,
-        :compound => 'left',
-        :command => _command
-      }
-      args[:font] = Arcadia.conf('menu.font') #if !OS.mac?
-      
-      mr.insert(pos, :command , args)
+    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
+    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
+    _command = proc{
+      _event = Arcadia.process_event(
+        RunCmdEvent.new(self, run)
+      )
     }
+    if run[:pos]
+      pos = run[:pos]
+    else
+      pos = '0'
+    end
+    args = {
+      :image => image,
+      :label => _run_title,
+      :compound => 'left',
+      :command => _command
+    }
+    args[:font] = Arcadia.conf('menu.font') #if !OS.mac?
+    
+    root_menu.insert(pos, :command , args)
+  end
+  
+
+  def load_runners
+    self['runners'] = Hash.new if self['runners'].nil?
+    self['runners_by_ext'] = Hash.new if self['runners_by_ext'].nil?
+    self['runners_by_lang'] = Hash.new if self['runners_by_lang'].nil?
+    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[: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
+#      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
+#      _command = proc{
+#        _event = Arcadia.process_event(
+#          RunCmdEvent.new(self, run)
+#        )
+#      }
+#      if run[:pos]
+#        pos = run[:pos]
+#      else
+#        pos = '0'
+#      end
+#      args = {
+#        :image => image,
+#        :label => _run_title,
+#        :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|
       if run[:runner] && self['runners'][run[:runner]]
@@ -741,7 +813,7 @@ class Arcadia < TkApplication
     }
 
     #conf runner
-    runs=Arcadia.conf_group('runners')
+    runs=Arcadia.conf_group('runners', true)
     mr.insert('0', :separator) if runs && !runs.empty?
 
     runs.each{|name, hash_string|
@@ -749,19 +821,21 @@ class Arcadia < TkApplication
     }
 
     self['runners'].each{|name, run|
-      insert_runner_item.call(name, run)
+      #insert_runner_item.call(name, run)
+      insert_runner_item(mr, name, run)
     }
 
 
     #conf exts runner
     @exts.each{|ext|
       if ext_active?(ext)
-        ext_runs=Arcadia.conf_group("#{ext}.runners")
+        ext_runs=Arcadia.conf_group("#{ext}.runners", true)
         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])
+          #insert_runner_item.call(name, self['runners'][name])
+          insert_runner_item(mr, name, self['runners'][name])
         }
       end
     }
@@ -769,7 +843,7 @@ class Arcadia < TkApplication
 
 
     # pers runner instance
-    runs=Arcadia.pers_group('runners')
+    runs=Arcadia.pers_group('runners', true)
     mr.insert('0', :separator) if runs && !runs.empty?
     pers_runner = Hash.new
     runs.each{|name, hash_string|
@@ -786,12 +860,16 @@ class Arcadia < TkApplication
   end
 
   def manage_runners
-    if !@runm
+    if !@runm || @runm.nil? 
       @runm = RunnerManager.new(Arcadia.layout.root)
-      @runm.on_close=proc{@runm.hide}
+      @runm.on_close=proc{@runm = nil}
+      @runm.clear_items
+      @runm.load_tips
+      @runm.load_items(:runtime)
+      @runm.load_items(:config)
     end
-    @runm.show
-    @runm.load_items
+    #@runm.show
+    #@runm.load_items
   end
 
   def register_key_binding(_self_target, k, v)
@@ -802,8 +880,8 @@ class Arcadia < TkApplication
     if key_dits[1]
       key_sym=key_dits[1][0..-2]
     end
-    @root.bind_append(key_event){|e|
-      if key_sym == e.keysym
+    @root.bind_append(key_event, "%K"){|_keysym|
+      if key_sym == _keysym
         Arcadia.process_event(_self_target.instance_eval(value))
       end
     }
@@ -897,6 +975,8 @@ class Arcadia < TkApplication
     'title' => Arcadia.text("main.d.confirm_exit.title"),
     'level' => 'question')=='yes')
     if q1 && can_exit?
+      @root.geometry('1x1-1-1')
+      #ArcadiaAboutSplash.new.deiconify
       do_finalize
       @root.destroy
       #      Tk.mainloop_exist?
@@ -1106,6 +1186,10 @@ class Arcadia < TkApplication
     Configurable.properties_group(_path, Arcadia.instance['conf'], 'conf', _refresh)
   end
 
+  def Arcadia.conf_group_without_local(_path, _refresh=false)
+    Configurable.properties_group(_path, Arcadia.instance['conf_without_local'], 'conf_without_local', _refresh)
+  end
+
   def Arcadia.conf_group_copy(_path_source, _path_target, _suff = 'conf')
     _target = conf_group(_path_source)
     _postfix = _path_target.sub(_path_source,"")
@@ -1172,12 +1256,12 @@ class Arcadia < TkApplication
     Tk.getOpenFile 'initialdir' => MonitorLastUsedDir.get_last_dir
   end
 
-  def Arcadia.open_file_dialog(_initial_dir=MonitorLastUsedDir.get_last_dir)
-    HinnerFileDialog.new.file(_initial_dir)
+  def Arcadia.select_file_dialog(_initial_dir=MonitorLastUsedDir.get_last_dir, _label=nil)
+    HinnerFileDialog.new(HinnerFileDialog::SELECT_FILE_MODE, nil, _label).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)
+  def Arcadia.select_dir_dialog(_initial_dir=MonitorLastUsedDir.get_last_dir, must_exist = nil, _label=nil)
+    HinnerFileDialog.new(HinnerFileDialog::SELECT_DIR_MODE, must_exist, _label).dir(_initial_dir)
   end
 
   def Arcadia.save_file_dialog(_initial_dir=MonitorLastUsedDir.get_last_dir)
@@ -1196,6 +1280,10 @@ class Arcadia < TkApplication
     end
   end
 
+  def Arcadia.open_string_dialog(_label=nil)
+    HinnerStringDialog.new(_label).string
+  end
+
   def Arcadia.is_windows?
     OS.windows?
     #RUBY_PLATFORM =~ /mingw|mswin/
@@ -1360,6 +1448,12 @@ class Arcadia < TkApplication
     end
   end
 
+  def Arcadia.extensions
+    if @@instance && @@instance.exts
+      return @@instance.exts
+    end
+  end
+
   def Arcadia.runtime_error(_e, _title=Arcadia.text("main.e.runtime.title"))
     ArcadiaProblemEvent.new(self, "type"=>ArcadiaProblemEvent::RUNTIME_ERROR_TYPE,"title"=>"#{_title} : [#{_e.class}] #{_e.message} at :", "detail"=>_e.backtrace).go!
   end
@@ -1707,26 +1801,104 @@ class ArcadiaMainMenu < ArcadiaUserControl
 
 end
 
-class RunnerManager < TkFloatTitledFrame
-  class RunnerMangerItem  < TkFrame
-    def initialize(_parent=nil, _runner_hash=nil, *args)
-      super(_parent, Arcadia.style('panel'))
+#class RunnerManager < TkFloatTitledFrame
+class RunnerManager < HinnerSplittedDialogTitled
+  ROW_GAP = 25
+  attr_reader  :ext_width, :name_width, :title_width, :cmd_width
+  class RunnerMangerItem #  < TkFrame
+    attr_reader :runner_hash , :readonly
+    def initialize(_runner_manager, _parent=nil, _runner_hash=nil, _row=0, _state_array=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{
+      @readonly = _state_array && _state_array.include?(:disabled)
+      @enable_close_button = !@readonly || _runner_hash[:origin] == 'runtime'
+      
+      @h_hash = {}
+            
+      p_update_height = proc{|tktext|
+        index = tktext.index('end -1 chars')
+        r,c = index.split('.')
+        if tktext.cget('wrap') != 'none'
+          w = tktext.width
+          h = ((c.to_i-1)/w.to_i).round + 1
+        else
+          h = r.to_i
+        end
+        h_to_set = h
+        @h_hash.each{|k,v|  h_to_set = v if k != tktext && v > h_to_set }
+        @h_hash[tktext] = h
+        if tktext.height != h_to_set
+          tktext.height(h_to_set)
+          @h_hash.each{|k,v|
+            p_update_height.call(k) if k != tktext
+          }
+          
+        end
+      }
+    
+      row_fill = false
+
+      # ICON
+      @ttklicon = Arcadia.wf.label(_parent,
+        'image'=> _runner_hash[:image].nil? ? Arcadia.file_icon(_runner_hash[:file_exts]) : Arcadia.image_res(_runner_hash[:image]) ,
+        'relief'=>'flat').grid(:column => 0, :row => _row, :sticky => "W", :padx=>1, :pady=>1)
+      @ttklicon.state(:disabled) if @readonly
+
+      # NAME
+      @ename_old = _runner_hash[:name]  
+      @ttkename = Arcadia.wf.text(_parent, 'width' => _runner_manager.name_width,
+        "height" => 1).hint(_runner_hash[:file]).grid(:column => 1, :row => _row, :sticky => "WE", :padx=>1, :pady=>1)
+      @ttkename.insert('end', _runner_hash[:name])
+      @ttkename.state(:disabled) && @ttkename.fg('darkgray') if @readonly
+      
+      row_fill = row_fill || @ttkename.value.strip.length > 0
+
+      # TITLE
+      @etitle_old = _runner_hash[:title]  
+      @ttketitle = Arcadia.wf.text(_parent, 'width' => _runner_manager.title_width,
+        "height" => 1).hint(_runner_hash[:file]).grid(:column => 2, :row => _row, :sticky => "WE", :padx=>1, :pady=>1)
+      @ttketitle.insert('end', _runner_hash[:title])
+      @ttketitle.state(:disabled) && @ttketitle.fg('darkgray') if @readonly
+
+      row_fill = row_fill || @ttketitle.value.strip.length > 0
+
+      # CMD
+      @ecmd_old = _runner_hash[:cmd]
+      @ttkecmd = Arcadia.wf.text(_parent,  'width' => _runner_manager.cmd_width, 'wrap'=>'word',
+        "height" => 1).grid(:column => 3, :row => _row, :sticky => "WE", :padx=>1, :pady=>1)
+      @ttkecmd.insert('end', _runner_hash[:cmd])
+      @ttkecmd.state(:disabled) && @ttkecmd.fg('darkgray') if @readonly
+
+      row_fill = row_fill || @ttkecmd.value.strip.length > 0
+      
+      # FILE EXTS
+      @eexts_old = _runner_hash[:file_exts]  
+      @ttkeexts = Arcadia.wf.text(_parent,  'width' => _runner_manager.ext_width,
+        "height" => 1).grid(:column => 4, :row => _row, :sticky => "WE", :padx=>1, :pady=>1)
+      @ttkeexts.insert('end', _runner_hash[:file_exts])
+      @ttkeexts.state(:disabled) && @ttkeexts.fg('darkgray') if @readonly
+
+      row_fill = row_fill || @ttkeexts.value.strip.length > 0
+
+      # COPY BUTTON
+      copy_command = proc{ _runner_manager.do_add(self) }
+      @ttkbcopy = Arcadia.wf.toolbutton(_parent,
+        'command'=> copy_command,
+        'image'=> Arcadia.image_res(COPY_GIF)
+      ).grid(:column => 5, :row => _row, :sticky => "W", :padx=>1, :pady=>1)
+        
+      # DELETE BUTTON
+      close_command = proc{
         if (Arcadia.hinner_dialog(self, 'type'=>'yes_no',
           'msg'=> Arcadia.text("main.d.confirm_delete_runner.msg", [_runner_hash[:name]]),
           'title' => Arcadia.text("main.d.confirm_delete_runner.title"),
           'level' => 'question')=='yes')
 
-          Arcadia.unpersistent("runners.#{_runner_hash[:name]}")
+          if _runner_hash[:origin] == 'runtime'
+            Arcadia.unpersistent("runners.#{_runner_hash[:name]}")
+          else
+            Arcadia.del_conf("runners.#{_runner_hash[:name]}")
+          end
           mr = Arcadia.menu_root('runcurr')
           index_to_delete = -1
           i_end = mr.index('end')
@@ -1745,47 +1917,334 @@ class RunnerManager < TkFloatTitledFrame
           if index_to_delete > -1
             mr.delete(index_to_delete)
           end
+          _runner_manager.do_delete_item(self)
           self.destroy
         end
       }
-      #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]
+      @ttkbclose = Arcadia.wf.toolbutton(_parent,
+        'command'=> close_command,
+        'image'=> Arcadia.image_res(CLOSE_FRAME_GIF)
+        ).grid(:column => 6, :row => _row, :sticky => "W", :padx=>1, :pady=>1)
+      @ttkbclose.hint=@runner_hash[:file]
+      @ttkbclose.state(:disabled) if !@enable_close_button
+
+      [@ttkename, @ttketitle, @ttkecmd, @ttkeexts].each{|tktext|
+        p_update_height.call(tktext) if row_fill
+        tktext.bind_append("KeyRelease"){p_update_height.call(tktext)}
+      }
+
+    end
+    
+    def destroy
+      @ttklicon.destroy
+      @ttkename.destroy
+      @ttketitle.destroy
+      @ttkecmd.destroy
+      @ttkeexts.destroy
+      @ttkbcopy.destroy
+      @ttkbclose.destroy
+    end
+    
+    def hash_value
+      ret = {}
+      ret[:name]=@ttkename.value
+      ret[:title]=@ttketitle.value
+      ret[:cmd]=@ttkecmd.value
+      ret[:file_exts]=@ttkeexts.value
+      ret[:image]=@runner_hash[:image] if @runner_hash[:image] 
+      ret  
+    end
+    
+    def name_change?
+      @ename_old != @ttkename.value
+    end
+
+    def title_change?
+      @etitle_old != @ttketitle.value
+    end
 
-      pack('side' =>'top','anchor'=>'nw','fill'=>'x','padx'=>5, 'pady'=>5)
+    def cmd_change?
+      @ecmd_old != @ttkecmd.value
     end
 
+    def exts_change?
+      @eexts_old != @ttkeexts.value
+    end
+    
+    def change?
+      title_change? || cmd_change? || exts_change? || exts_change? || name_change?
+    end
+    
+    def reset_change
+      @ename_old = @ttkename.value
+      @etitle_old = @ttketitle.value
+      @ecmd_old = @ttkecmd.value
+      @eexts_old = @ttkeexts.value
+    end
   end
 
   def initialize(_parent)
-    super(_parent)
-    title("Runners manager")
+    super("Runners manager")
+    @addb = @titled_frame.add_fixed_button('[Add Runner]',proc{do_add})
+    @saveb = @titled_frame.add_fixed_button('[Save]',proc{do_save})
+
     @items = Hash.new
-    place('x'=>100,'y'=>100,'height'=> 220,'width'=> 300)
+    @content = Hash.new
+    @content_root = Tk::ScrollFrame.new(self.hinner_frame).place('x'=>0, 'y'=>0, 'relheight'=>1, 'relwidth'=>1)
+    @content_root_frame = @content_root.baseframe
+
+    #screen_width = TkWinfo.vrootwidth(self.hinner_frame) - 140
+    #char_width = 8
+    
+    font_metrics = TkFont.new(Arcadia.conf('edit.font')).metrics
+    screen_width = TkWinfo.vrootwidth(self.hinner_frame) - 140
+    font_metrics_hash = {}
+    font_metrics.each{|a| font_metrics_hash[a[0]] = a[1] }
+    char_width = font_metrics_hash["ascent"] - font_metrics_hash["descent"] - 1
+    
+    screen_width_in_chars = screen_width.to_f/char_width
+     
+    #proporzioni
+    ext_part = 1
+    name_part = 3
+    title_part = 4
+    cmd_part = 8
+    tot_part = ext_part+name_part+title_part+cmd_part
+    one_part = screen_width_in_chars/tot_part
+
+    @ext_width = (one_part*ext_part).round
+    @name_width = (one_part*name_part).round
+    @title_width = (one_part*title_part).round
+    @cmd_width = (one_part*cmd_part).round
+     
+  end
+
+  def do_close
+    if something_has_changed?
+      if Arcadia.dialog(self,
+        'type'=>'yes_no',
+        'msg'=> Arcadia.text("main.d.confirm_exit_runners_manager.msg"),
+        'title' => Arcadia.text("main.d.confirm_exit_runners_manager.title"),
+        'level' => 'question')!='yes'
+        return
+      end
+    end
+    super()
   end
 
-  def clear_items
-    @items.each_value{|i| i.destroy }
-    @items.clear
+  def do_add(_runner_from=nil)
+    if _runner_from
+      runner_hash = _runner_from.hash_value
+      runner_hash[:name]="copy of #{runner_hash[:name]}"
+    else
+      runner_hash = {}
+    end
+    @items[:config]["item#{@items[:config].count}"]=RunnerMangerItem.new(self, @content[:config], runner_hash, @items[:config].count+1)
+   # @content[:config].pack
+#    root_height = Arcadia.instance.root_height
+#    
+#    self.height(self.height + ROW_GAP) if self.height < root_height
+    add_gap
+    @content_root.yview_moveto('1.0')
+  end
+  
+  def add_gap
+    #p @content_root.y_scrolled?
+    root_height = Arcadia.instance.root_height
+    if self.height < root_height/2
+      self.height(self.height + ROW_GAP)
+      @content_root.vscroll(true) if !@content_root.y_scrolled?
+    end
+  end
+  
+  def del_gap
+    self.height(self.height - ROW_GAP)
+  end
+  
+  def do_delete_item(_item, _tyme=:config)
+    @items[:config].delete_if{|k,v| v == _item}
+    del_gap
+    #self.height(self.height - ROW_GAP)
   end
 
-  def load_items
-    clear_items
-    runs=Arcadia.pers_group('runners', true)
-    runs.each{|name, hash_string|
+  def something_has_changed?
+    ret = false
+    @items.each_value{|i|
+      i.each_value{|j| 
+        ret = ret || (!j.readonly && j.change?)
+        break if ret
+      }
+      break if ret
+    }
+    ret 
+  end
+
+  def do_save
+    items_saved = []
+    @items.each_value{|i| 
+      i.each_value{|j| 
+        if !j.readonly && j.change?
+          jhash = j.hash_value 
+          name = jhash[:name].gsub(" ", "_")
+          Arcadia.conf("runners.#{name}", jhash.to_s)
+          j.reset_change
+          items_saved << name
+        end
+      }
+    }
+    Arcadia.instance.update_local_config
+    Arcadia.instance.reload_runners
+    if items_saved.count >0
+      Arcadia.dialog(self, 
+        'type'=>'ok', 
+        'title' => "Save info", 
+            'msg'=>"Saved #{items_saved.to_s}!",
+            'level'=>'info')
+    else
+      Arcadia.dialog(self, 
+        'type'=>'ok', 
+        'title' => "Save info", 
+            'msg'=>"Nothing done!",
+            'level'=>'info')
+    end
+  end
+  
+  def clear_items
+    @items.each_value{|i| 
+      i.each_value{|j|  j.destroy }
+      i.clear
+    }
+    #@items.clear
+  end
+
+  def load_tips
+    # Runners keywords related the current file => <<FILE>>, <<DIR>>, <<FILE_BASENAME>>, <<FILE_BASENAME_WITHOUT_EXT>>, <<INPUT>>, <<INPUT_FILE>>
+    # INPUT is required to user
+    text = Arcadia.wf.text(@content_root_frame,
+              "height" => 2,
+              "bg" => '#009999'  
+           )
+    text.pack('side' =>'top','anchor'=>'nw','fill'=>'x','padx'=>5, 'pady'=>5)
+    text.insert("end", "Keywords => <<RUBY>>, <<FILE>>, <<DIR>>, <<FILE_BASENAME>>, <<FILE_BASENAME_WITHOUT_EXT>>, <<INPUT_FILE>>, <<INPUT_DIR>>, <<INPUT_STRING>>")
+    add_gap
+    #self.height(self.height + ROW_GAP)
+  end
+
+  def load_titles(_content)
+    bg = Arcadia.conf("titlelabel.background")
+    fg = Arcadia.conf("titlelabel.foreground")
+#    # ICON
+#    Arcadia.wf.label(_content,
+#      'text'=> "" ,
+#      'background'=> bg,
+#      'relief'=>'flat').grid(:column => 0, :row => 0, :sticky => "WE", :padx=>1, :pady=>1)
+
+    # NAME
+    Arcadia.wf.label(_content,
+      'text'=> "Name",
+      'background'=> bg,
+      'foreground'=> fg,
+      'relief'=>'flat').grid(:column => 1, :row => 0, :sticky => "WE", :padx=>1, :pady=>1)
+
+
+    # TITLE
+    Arcadia.wf.label(_content,
+      'text'=> "Title" ,
+      'background'=> bg,
+      'foreground'=> fg,
+      'relief'=>'flat').grid(:column => 2, :row => 0, :sticky => "WE", :padx=>1, :pady=>1)
+
+    # CMD
+    Arcadia.wf.label(_content,
+      'text'=> "CMD" ,
+      'background'=> bg,
+      'foreground'=> fg,
+      'relief'=>'flat').grid(:column => 3, :row => 0, :sticky => "WE", :padx=>1, :pady=>1)
+    
+    # FILE EXTS
+    Arcadia.wf.label(_content,
+      'text'=> "Exts" ,
+      'background'=> bg,
+      'foreground'=> fg,
+      'relief'=>'flat').grid(:column => 4, :row => 0, :sticky => "WE", :padx=>1, :pady=>1)
+  end
+
+  def load_items(_kind = :runtime)
+    items = @items[_kind]
+    if items.nil?
+      items = @items[_kind] = Hash.new
+    end
+    if _kind == :runtime
+      runs_pers=Arcadia.pers_group('runners', true)
+      runs = {}
+      runs_pers.each{|k, v|
+        runs[k]="#{v}|||runtime"
+      }
+    elsif _kind == :config
+      runs_with_local=Arcadia.conf_group('runners', true)
+      runs_without_local = Arcadia.conf_group_without_local('runners', false)
+      runs = {}
+
+      # loading extensions runners
+      Arcadia.extensions.each{|ext|
+        ext_runs = Arcadia.conf_group("#{ext}.runners", true)
+        if ext_runs && !ext_runs.empty?
+          ext_runs_enanched = {}
+          ext_runs.each{|k, v|
+            ext_runs_enanched[k]="#{v}|||#{ext}"
+          }
+          runs.update(ext_runs_enanched)
+        end
+      }      
+      
+      # loading main runners
+      runs_with_local.each{|k,v|
+        if runs_without_local.include?(k)
+          runs[k]="#{v}|||main"
+        else
+          runs[k]=v
+        end
+      }
+      
+    end
+    @content[_kind] = Arcadia.wf.frame(@content_root_frame){padding "3 3 12 12"}
+
+    @content[_kind].pack('fill'=>'both', :padx=>0, :pady=>0, :expand => 'yes')
+ 
+   
+    #@content.extend(TkScrollableWidget).show
+    # ICON
+    TkGrid.columnconfigure(@content[_kind], 0, :weight => 0 , :uniform => 'a')
+    # NAME
+    TkGrid.columnconfigure(@content[_kind], 1, :weight => 1 )
+    # TITLE
+    TkGrid.columnconfigure(@content[_kind], 2, :weight => 2 )
+    # CMD
+    TkGrid.columnconfigure(@content[_kind], 3, :weight => 3 )
+    # FILE EXTS
+    TkGrid.columnconfigure(@content[_kind], 4, :weight => 1 )
+    # COPY BUTTON
+    TkGrid.columnconfigure(@content[_kind], 5, :weight => 0, :uniform => 'a' )
+    # DELETE BUTTON
+    TkGrid.columnconfigure(@content[_kind], 6, :weight => 0, :uniform => 'a' )
+    TkGrid.propagate(@content[_kind], true)
+    load_titles(@content[_kind])
+    runs.keys.reverse.each{|name|
+      hash_string = runs[name]
+      hash_string, origin = hash_string.split("|||")
       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)
-    }
+      if origin
+        item_hash[:origin] = origin
+        state_array = [] << :disabled
+      end
+      items[name]=RunnerMangerItem.new(self, @content[_kind], item_hash, items.count+1, state_array)
+      #self.height(self.height + ROW_GAP)
+      add_gap
+   }
   end
 end
 
@@ -1807,7 +2266,8 @@ class ArcadiaAboutSplash < TkToplevel
     @llogo = TkLabel.new(self){
       image  Arcadia.image_res(A_LOGO_GIF)
       background  _bgcolor
-      place('x'=> 20,'y' => 20)
+      #place('x'=> 20,'y' => 20)
+      place('x'=> 140,'y' => 55)
     }
 
 
@@ -1820,74 +2280,82 @@ class ArcadiaAboutSplash < TkToplevel
     #      place('width' => '190','x' => 110,'y' => 10,'height' => 25)
     #    }
 
+#    @tkLabel1 = TkLabel.new(self){
+#      image  Arcadia.image_res(ARCADIA_JAP_WHITE_GIF)
+#      background  _bgcolor
+#      justify  'left'
+#      place('x' => 90,'y' => 10)
+#    }
+
     @tkLabel1 = TkLabel.new(self){
-      image  Arcadia.image_res(ARCADIA_JAP_WHITE_GIF)
+      image  Arcadia.image_res(ARCADIA_7THE_GIF)
       background  _bgcolor
       justify  'left'
-      place('x' => 90,'y' => 10)
+      place('x' => 26,'y' => 10)
     }
 
-    @tkLabelRuby = TkLabel.new(self){
-      image Arcadia.image_res(RUBY_DOCUMENT_GIF)
-      background  _bgcolor
-      place('x'=> 210,'y' => 12)
-    }
+#    @tkLabelRuby = TkLabel.new(self){
+#      image Arcadia.image_res(RUBY_DOCUMENT_GIF)
+#      background  _bgcolor
+#      place('x'=> 210,'y' => 12)
+#    }
+
+#    @tkLabel2 = TkLabel.new(self){
+#      text  'Arcadia IDE'
+#      background  _bgcolor
+#      foreground  '#ffffff'
+#      font Arcadia.instance['conf']['splash.subtitle.font']
+#      justify  'left'
+#      place('x' => 100,'y' => 40,'height' => 19)
+#    }
 
-    @tkLabel2 = TkLabel.new(self){
-      text  'Arcadia IDE'
-      background  _bgcolor
-      foreground  '#ffffff'
-      font Arcadia.instance['conf']['splash.subtitle.font']
-      justify  'left'
-      place('x' => 100,'y' => 40,'height' => 19)
-    }
     @tkLabelVersion = TkLabel.new(self){
       text Arcadia.text('main.about.version', [$arcadia['applicationParams'].version])
       background  _bgcolor
-      foreground  '#ffffff'
+      foreground  '#009999'
       font Arcadia.instance['conf']['splash.version.font']
       justify  'left'
-      place('x' => 100,'y' => 65,'height' => 19)
+      #place('x' => 100,'y' => 65,'height' => 19)
+      place('x' => 28,'y' => 47,'height' => 19)
     }
     @tkLabel21 = TkLabel.new(self){
-      text  Arcadia.text("main.about.by", ['Antonio Galeone - 2004/2014'])
+      text  Arcadia.text("main.about.by", ['Antonio Galeone - 2004/2015'])
       background  _bgcolor
-      foreground  '#ffffff'
+      foreground  '#009999'
       font Arcadia.instance['conf']['splash.credits.font']
       justify  'left'
       anchor 'w'
-      place('width' => '220','x' => 100,'y' => 95,'height' => 25)
+      place('width' => '220','x' => 28,'y' => 32,'height' => 19)
     }
 
-    @tkLabelCredits = TkLabel.new(self){
-      text  Arcadia.text("main.about.contributors", ['Roger D. Pack'])
-      background  _bgcolor
-      foreground  '#ffffff'
-      font Arcadia.instance['conf']['splash.credits.font']
-      justify  'left'
-      anchor 'w'
-      place('width' => '210','x' => 100,'y' => 115,'height' => 25)
-    }
+#    @tkLabelCredits = TkLabel.new(self){
+#      text  Arcadia.text("main.about.contributors", ['Roger D. Pack'])
+#      background  _bgcolor
+#      foreground  '#ffffff'
+#      font Arcadia.instance['conf']['splash.credits.font']
+#      justify  'left'
+#      anchor 'w'
+#      place('width' => '210','x' => 100,'y' => 115,'height' => 25)
+#    }
 
     @tkLabelStep = TkLabel.new(self){
       text  ''
       background  _bgcolor
-      foreground  '#666666'
+      foreground  '#009999'
       font Arcadia.instance['conf']['splash.banner.font']
       justify  'left'
       anchor  'w'
-      place('width'=>-5,'relwidth' => 1,'x' => 5,'y' => 160,'height' => 45)
+      place('width'=>-28,'relwidth' => 1,'x' => 28,'y' => 160,'height' => 45)
     }
     @progress  = TkVariable.new
     reset
-    _width = 380
+    _width = 345
     _height = 210
     #_width = 0;_height = 0
     _x = TkWinfo.screenwidth(self)/2 -  _width / 2
     _y = TkWinfo.screenheight(self)/2 -  _height / 2
     geometry = _width.to_s+'x'+_height.to_s+'+'+_x.to_s+'+'+_y.to_s
     Tk.tk_call('wm', 'geometry', self, geometry )
-    #bind("ButtonPress-1", proc{self.destroy})
     bind("Double-Button-1", proc{self.destroy})
     info = TkApplication.sys_info
     set_sysinfo(info)
@@ -1918,7 +2386,7 @@ class ArcadiaAboutSplash < TkToplevel
       @tkAlert = TkLabel.new(self){
         image Arcadia.image_res(ALERT_GIF)
         background  'black'
-        place('x'=> 10,'y' => 152)
+        place('x'=> 28,'y' => 152)
       }
 
       @tkLabelProblems = TkLabel.new(self){
@@ -1928,7 +2396,7 @@ class ArcadiaAboutSplash < TkToplevel
         font Arcadia.instance['conf']['splash.problems.font']
         justify  'left'
         anchor 'w'
-        place('width' => '210','x' => 28,'y' => 150,'height' => 25)
+        place('width' => '210','x' => 46,'y' => 150,'height' => 25)
       }
     end
     @problems_nums=@problems_nums+1
@@ -1941,14 +2409,16 @@ class ArcadiaAboutSplash < TkToplevel
 
   def set_progress(_max=10)
     @max = _max
-    Tk::BWidget::ProgressBar.new(self, :width=>150, :height=>10,
+    Tk::BWidget::ProgressBar.new(self, :width=>340, :height=>5,
       :background=>'#000000',
       :troughcolor=>'#000000',
-      :foreground=>'#666666',
+      :foreground=>'#990000',
       :variable=>@progress,
       :borderwidth=>0,
       :relief=>'flat',
-      :maximum=>_max).place('relwidth' => '1','y' => 144,'height' => 6)
+#      :maximum=>_max).place('relwidth' => '1','y' => 145,'height' => 1)
+#      :maximum=>_max).place('width' => '280','x'=>28,'y' => 33,'height' => 1)
+      :maximum=>_max).place('width' => '280','x'=>28,'y' => 189,'height' => 10)
   end
 
   def reset
@@ -2290,7 +2760,7 @@ class ArcadiaSh < TkToplevel
     @wait = true
     @result = false
     prompt
-    @text.bind_append("KeyPress"){|e| input(e.keysym)}
+    @text.bind_append("KeyPress","%K"){|_keysym| input(_keysym)}
   end
 
   def exec_buffer