arcadia 0.10.0 → 0.11.0

data/ext/ae-editor/langs/coderay.tokens

@@ -1,17 +1,23 @@
 #coderay.classes=annotation,attribute_name,attribute_name_fat,attribute_value,attribute_value_fat,bin,char,class,class_variable,color,comment,constant,content,definition,delimiter,directive,doc,doctype,doc_string,entity,error,escape,exception,float,function,global_variable,hex,important,include,inline,inline_delimiter,instance_variable,integer,interpreted,keyword,key,label,local_variable,modifier,oct,operator_fat,pre_constant,pre_type,predefined,preprocessor,pseudo_class,regexp,reserved,shell,string,symbol,tag,tag_fat,tag_special,type,variable,value,xml_text,insert,delete,change,head,
 
 
-coderay.classes=reserved,method,class,char,comment,instance_variable,constant,string,content,integer
-coderay.hightlight.reserved.foreground=>>>hightlight.reserved.foreground
-coderay.hightlight.reserved.style=bold
+coderay.classes=keyword,method,class,char,comment,instance_variable,class_variable,symbol,constant,string,content,integer
+#coderay.hightlight.reserved.foreground=>>>hightlight.reserved.foreground
+#coderay.hightlight.reserved.style=bold
+coderay.hightlight.keyword.foreground=>>>hightlight.reserved.foreground
+coderay.hightlight.keyword.style=bold
 coderay.hightlight.method.foreground=>>>hightlight.method.foreground
 coderay.hightlight.method.style=bold
+#coderay.hightlight.ident.style=bold
+#coderay.hightlight.delimiter.style=bold
 coderay.hightlight.class.foreground=>>>hightlight.class.foreground
 coderay.hightlight.class.style=bold
 coderay.hightlight.module_name.foreground=>>>hightlight.class.foreground
 coderay.hightlight.module_name.style=bold
 coderay.hightlight.instance_variable.foreground=>>>hightlight.instance_variable.foreground
 coderay.hightlight.instance_variable.style=bold
+coderay.hightlight.class_variable.foreground=>>>hightlight.class_variable.foreground
+coderay.hightlight.class_variable.style=bold
 coderay.hightlight.constant.foreground=>>>hightlight.constant.foreground
 coderay.hightlight.constant.style=bold
 coderay.hightlight.global_variable.foreground=>>>hightlight.global_variable.foreground
@@ -39,3 +45,5 @@ coderay.hightlight.directive.style=bold
 coderay.hightlight.type.foreground=>>>hightlight.reserved.foreground
 coderay.hightlight.type.style=bold
 coderay.hightlight.operator.style=bold
+coderay.hightlight.predefined_type.foreground=>>>hightlight.class.foreground
+coderay.hightlight.exception.foreground=>>>hightlight.exception.foreground

data/ext/ae-editor/langs/java.lang

@@ -2,4 +2,4 @@ language=java
 exts=java
 scanner=coderay
 @include=coderay.tokens
-coderay.classes=keyword,directive,type,pre_type,operator,delimiter,method,class,char,comment,instance_variable,constant,string,content,integer
+coderay.classes=keyword,directive,type,predefined_type,operator,delimiter,method,class,char,comment,instance_variable,constant,string,content,integer,exception

data/ext/ae-editor/langs/ruby.lang

@@ -1,6 +1,6 @@
 language=ruby
 
-exts=rb,rbw
+exts=rb,rbw,gemspec
 
 scanner=coderay
 #scanner=re

data/ext/ae-rad/ae-rad-palette.rb

@@ -194,7 +194,7 @@ class WrapperContainer < TkFrame
     @selected_class = nil
     @selected_require = nil
     @selected_class_obj = nil
-    Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text('')
+    Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text_clear
   end
 
   def add_palette(_lib_obj)

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

@@ -1570,9 +1570,12 @@ class RubyDebug < ArcadiaExt
 
   def on_exit_query(_event)
     if @rdc && @rdc.is_alive?
-      query = (Tk.messageBox('icon' => 'question', 'type' => 'yesno',
+      query = (Arcadia.dialog(self, 'icon' => 'question', 'type' => 'yes_no',
       'title' => '(Arcadia) Debug',
       'message' => "Debug in course, do you want to exit?")=='yes')
+#      query = (Tk.messageBox('icon' => 'question', 'type' => 'yesno',
+#      'title' => '(Arcadia) Debug',
+#      'message' => "Debug in course, do you want to exit?")=='yes')
       if query
         debug_quit
         _event.can_exit=true
@@ -1657,10 +1660,15 @@ class RubyDebug < ArcadiaExt
     if @rdc 
       if @rdc.is_alive?
         Thread.new{
-          Tk.messageBox('icon' => 'info', 
-          						'type' => 'ok',
-        						 'title' => '(Arcadia) Debug',
-        						 'message' => "Debug in course, stop it before exit")
+          Arcadia.dialog(self, 
+              'type'=>'ok', 
+              'title' => "(Arcadia) Debug", 
+              'msg'=>"Debug in course, stop it before exit",
+              'level'=>'info')
+#          Tk.messageBox('icon' => 'info', 
+#          						'type' => 'ok',
+#        						 'title' => '(Arcadia) Debug',
+#        						 'message' => "Debug in course, stop it before exit")
         }
       else
         begin

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

@@ -4,7 +4,7 @@ frames.labels=Search in files
 frames.names=search_in_files
 active=yes
 require=ext/ae-search-in-files/ae-search-in-files
-class=SearchInFilesService
+class=SearchInFiles
 
 font=courier 10
 font.bold=courier 10 bold

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

@@ -3,20 +3,13 @@
 #   by Antonio Galeone <antonio-galeone@rubyforge.org>
 #
 
-class SearchInFilesService < ArcadiaExt
+class SearchInFiles < ArcadiaExt
 
   def on_before_build(_event)
-    Arcadia.attach_listener(SearchInFilesListener.new(self),SearchInFilesEvent)
-  end
-
-end
-
-class SearchInFilesListener
-  def initialize(_service)
-    @service = _service
     create_find 'Search in files'
+    Arcadia.attach_listener(self, SearchInFilesEvent)
   end
-
+  
   def on_before_search_in_files(_event)
     if _event.what.nil?
       if _event.dir
@@ -32,9 +25,9 @@ class SearchInFilesListener
 
   #def on_after_search_in_files(_event)
   #end
-  
+
   def create_find title
-    @find = FindFrame.new(@service.arcadia.layout.root)
+    @find = FindFrame.new(self.arcadia.layout.root)
     @find.on_close=proc{@find.hide}
     @find.hide
     @find.b_go.bind('1', proc{update_all_combo;do_find}) # add trigger to button    
@@ -89,9 +82,9 @@ class SearchInFilesListener
     return if @find.e_what.text.strip.length == 0  || @find.e_filter.text.strip.length == 0  || @find.e_dir.text.strip.length == 0
     @find.hide
     if !defined?(@search_output)
-      @search_output = SearchOutput.new(@service)
+      @search_output = SearchOutput.new(self)
     end
-    @service.frame.show_anyway
+    self.frame.show_anyway
     Thread.new do
       begin    
         MonitorLastUsedDir.set_last @find.e_dir.text # save it away TODO make it into a message
@@ -101,7 +94,7 @@ class SearchInFilesListener
         _files = Dir[_filter]
         _node = @search_output.new_result(_search_title, _files.length)
         progress_stop=false
-        progress_bar = TkProgressframe.new(@service.arcadia.layout.root, _files.length)		  
+        progress_bar = TkProgressframe.new(self.arcadia.layout.root, _files.length)		  
         progress_bar.title('Searching')
         progress_bar.on_cancel=proc{progress_stop=true}
         #@progress_bar.on_cancel=proc{cancel}
@@ -129,7 +122,7 @@ class SearchInFilesListener
         #Arcadia.new_error_msg(self, e.message)
       ensure
         progress_bar.destroy if progress_bar
-        @service.frame.show_anyway
+        self.frame.show_anyway
       end
     end
   end
@@ -343,6 +336,7 @@ class FindFrame < TkFloatTitledFrame
     super
     self.focus
     @e_what.focus
+    @e_what_entry.select_throw
     @e_what_entry.selection_range(0,'end')
   end
 end

data/ext/ae-search-in-files/ext/ack-in-files/ack-in-files.conf

@@ -4,7 +4,7 @@ frames.labels=Ack in files
 frames.names=ack_in_files
 active=yes
 require=ext/ae-search-in-files/ext/ack-in-files/ack-in-files
-class=AckInFilesService
+class=AckInFiles
 font=courier 10
 font.bold=courier 10 bold
 color.background=#ffffff

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

@@ -3,16 +3,11 @@
 #   by Roger D. Pack
 #
 
-class AckInFilesService < ArcadiaExt
-  def on_before_build(_event)
-    Arcadia.attach_listener(AckInFilesListener.new(self),AckInFilesEvent)
-  end
-end
+class AckInFiles <  SearchInFiles
 
-class AckInFilesListener <  SearchInFilesListener
-  def initialize(_service)
-    @service = _service
+  def on_before_build(_event)
     create_find 'Ack in files'
+    Arcadia.attach_listener(self, AckInFilesEvent)
   end
 
   def on_before_ack_in_files(_event)
@@ -23,9 +18,9 @@ class AckInFilesListener <  SearchInFilesListener
     return if @find.e_what.text.strip.length == 0  || @find.e_filter.text.strip.length == 0  || @find.e_dir.text.strip.length == 0
     @find.hide
     if !defined?(@search_output)
-      @search_output = SearchOutput.new(@service)
+      @search_output = SearchOutput.new(self)
     else
-      @service.frame.show
+      self.frame.show
     end
     begin
       # unfortunately, it uses regex instead of glob. Oh well.
@@ -40,13 +35,13 @@ class AckInFilesListener <  SearchInFilesListener
       _filter = @find.e_dir.text+'/**/'+@find.e_filter.text
       _node = @search_output.new_result(_search_title, '')
       progress_stop=false
-      @progress_bar = TkProgressframe.new(@service.arcadia.layout.root, 2)
+      @progress_bar = TkProgressframe.new(self.arcadia.layout.root, 2)
       @progress_bar.title('Running')
 
       answer = `#{command}`
       answer_lines = answer.split("\n")
       @progress_bar.destroy # destroy the old one
-      @progress_bar = TkProgressframe.new(@service.arcadia.layout.root, answer_lines.length)		  
+      @progress_bar = TkProgressframe.new(self.arcadia.layout.root, answer_lines.length)		  
       @progress_bar.title('Parsing')
       @progress_bar.on_cancel=proc{progress_stop=true}
 

data/lib/a-commons.rb

@@ -12,45 +12,45 @@ require 'singleton'
 
 
 class AbstractFrameWrapper
-#  def AbstractFrameWrapper.inherited(sub)
-#    unless sub.respond_to? :hinner_frame
-#      raise NoMethodError, "#{sub} needs to respond to `:hinner_frame'" 
-#    end
-#    unless sub.respond_to? :title
-#      raise NoMethodError, "#{sub} needs to respond to `:title'" 
-#    end
-#  
-#    unless sub.respond_to? :show
-#      raise NoMethodError, "#{sub} needs to respond to `:show'" 
-#    end
-#  
-#    unless sub.respond_to? :hide
-#      raise NoMethodError, "#{sub} needs to respond to `:hide'" 
-#    end
-#  
-#    unless sub.respond_to? :free
-#      raise NoMethodError, "#{sub} needs to respond to `:free'" 
-#    end
-#  end
+  #  def AbstractFrameWrapper.inherited(sub)
+  #    unless sub.respond_to? :hinner_frame
+  #      raise NoMethodError, "#{sub} needs to respond to `:hinner_frame'"
+  #    end
+  #    unless sub.respond_to? :title
+  #      raise NoMethodError, "#{sub} needs to respond to `:title'"
+  #    end
+  #
+  #    unless sub.respond_to? :show
+  #      raise NoMethodError, "#{sub} needs to respond to `:show'"
+  #    end
+  #
+  #    unless sub.respond_to? :hide
+  #      raise NoMethodError, "#{sub} needs to respond to `:hide'"
+  #    end
+  #
+  #    unless sub.respond_to? :free
+  #      raise NoMethodError, "#{sub} needs to respond to `:free'"
+  #    end
+  #  end
 
   def initialize
     unless sub.respond_to? :hinner_frame
-      raise NoMethodError, "#{sub} needs to respond to `:hinner_frame'" 
+      raise NoMethodError, "#{sub} needs to respond to `:hinner_frame'"
     end
     unless sub.respond_to? :title
-      raise NoMethodError, "#{sub} needs to respond to `:title'" 
+      raise NoMethodError, "#{sub} needs to respond to `:title'"
     end
-  
+
     unless sub.respond_to? :show
-      raise NoMethodError, "#{sub} needs to respond to `:show'" 
+      raise NoMethodError, "#{sub} needs to respond to `:show'"
     end
-  
+
     unless sub.respond_to? :hide
-      raise NoMethodError, "#{sub} needs to respond to `:hide'" 
+      raise NoMethodError, "#{sub} needs to respond to `:hide'"
     end
-  
+
     unless sub.respond_to? :free
-      raise NoMethodError, "#{sub} needs to respond to `:free'" 
+      raise NoMethodError, "#{sub} needs to respond to `:free'"
     end
   end
 
@@ -58,12 +58,12 @@ end
 
 #module AbstractFrameWrapper
 #  def hinner_frame
-#     raise NoMethodError, "#{self} needs to respond to `:hinner_frame'" 
+#     raise NoMethodError, "#{self} needs to respond to `:hinner_frame'"
 #  end
 #end
 
 class FixedFrameWrapper < AbstractFrameWrapper
-#  include AbstractFrameWrapper
+  #  include AbstractFrameWrapper
   attr_accessor :domain
   attr_reader :name
   attr_reader :title
@@ -77,27 +77,31 @@ class FixedFrameWrapper < AbstractFrameWrapper
     @index = _index
     fixed_frame_forge
   end
-  
+
   def fixed_frame_forge
     @fixed_frame = Arcadia.layout.register_panel(self) if @fixed_frame.nil?
   end
   private :fixed_frame_forge
-  
+
   def hinner_frame
     fixed_frame_forge
     @fixed_frame
   end
-  
+
   def root
     fixed_frame_forge
-    Arcadia.layout.domain(@domain)['root']
+    if Arcadia.layout.domain(@domain)
+      Arcadia.layout.domain(@domain)['root']
+    else
+      Arcadia.layout.domain('nil')['root']
+    end
   end
-  
-#  def top_text(_top_text=nil)
-#    fixed_frame_forge
-#    Arcadia.layout.domain(@domain)['root'].top_text(_top_text)
-#    #@arcadia.layout.domain_for_frame(@domain, @name)['root'].top_text(_title)
-#  end
+
+  #  def top_text(_top_text=nil)
+  #    fixed_frame_forge
+  #    Arcadia.layout.domain(@domain)['root'].top_text(_top_text)
+  #    #@arcadia.layout.domain_for_frame(@domain, @name)['root'].top_text(_title)
+  #  end
 
   def show
     fixed_frame_forge
@@ -113,10 +117,10 @@ class FixedFrameWrapper < AbstractFrameWrapper
       Arcadia.layout.register_panel(self, self.hinner_frame)
     end
   end
-  
+
   def hide
   end
-  
+
   def raised?
     Arcadia.layout.raised?(@domain, @name)
   end
@@ -132,7 +136,7 @@ class FixedFrameWrapper < AbstractFrameWrapper
   def resize
     Arcadia.layout.domain(@domain)['root'].resize
   end
-  
+
   def free
     Arcadia.layout.unregister_panel(self)
     @fixed_frame = nil
@@ -141,7 +145,7 @@ end
 
 
 class FloatFrameWrapper < AbstractFrameWrapper
-#  include AbstractFrameWrapper
+  #  include AbstractFrameWrapper
   def initialize(_arcadia, _geometry=nil, _title=nil)
     @arcadia = _arcadia
     @geometry = _geometry
@@ -152,27 +156,27 @@ class FloatFrameWrapper < AbstractFrameWrapper
   def float_frame_forge
     if @obj.nil?
       a = @geometry.scan(/[+-]*\d\d*%*/)
-      p_height = TkWinfo.screenheight(@arcadia.layout.root)    
-      p_width = TkWinfo.screenwidth(@arcadia.layout.root)    
+      p_height = TkWinfo.screenheight(@arcadia.layout.root)
+      p_width = TkWinfo.screenwidth(@arcadia.layout.root)
       if a[0][-1..-1]=='%'
         n = a[0][0..-2].to_i.abs
-      		a[0] = (p_width/100*n).to_i
+        a[0] = (p_width/100*n).to_i
       end
       if a[1][-1..-1]=='%'
         n = a[1][0..-2].to_i.abs
-      		a[1] = (p_height/100*n).to_i
+        a[1] = (p_height/100*n).to_i
       end
       if a[2][-1..-1]=='%'
         n = a[2][0..-2].to_i.abs
-      		a[2] = (p_width/100*n).to_i
+        a[2] = (p_width/100*n).to_i
       end
       if a[3][-1..-1]=='%'
         n = a[3][0..-2].to_i.abs
-      		a[3] = (p_height/100*n).to_i
+        a[3] = (p_height/100*n).to_i
       end
-      
+
       args = {'width'=>a[0], 'height'=>a[1], 'x'=>a[2], 'y'=>a[3]}
-      @obj = @arcadia.layout.new_float_frame(args)
+      @obj = @arcadia.layout.add_float_frame(args)
       @obj.title(@title) if @title
     end
   end
@@ -181,7 +185,7 @@ class FloatFrameWrapper < AbstractFrameWrapper
     float_frame_forge
     @obj.frame if @obj
   end
-  
+
   def title(_title=nil)
     float_frame_forge
     @obj.title(_title)  if @obj
@@ -189,16 +193,16 @@ class FloatFrameWrapper < AbstractFrameWrapper
 
   def show
     float_frame_forge
-    @obj.show if @obj 
+    @obj.show if @obj
   end
-  
+
   def hide
     float_frame_forge
-    @obj.hide if @obj 
+    @obj.hide if @obj
   end
-  
+
   def free
-    @obj.destroy if @obj 
+    @obj.destroy if @obj
     @obj = nil
   end
 end
@@ -209,10 +213,6 @@ class ArcadiaExt
   def initialize(_arcadia, _name=nil)
     @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
     @frames = Array.new
     @frames_points = conf_array("#{_name}.frames")
@@ -221,39 +221,74 @@ class ArcadiaExt
     @float_frames = Array.new
     @float_geometries = conf_array("#{_name}.float_frames")
     @float_labels = conf_array("#{_name}.float_labels")
+    Arcadia.attach_listener(self, BuildEvent)
+    Arcadia.attach_listener(self, InitializeEvent)
+    Arcadia.attach_listener(self, ExitQueryEvent)
+    Arcadia.attach_listener(self, FinalizeEvent)
     #ObjectSpace.define_finalizer(self, self.method(:finalize).to_proc)
   end
-  
-  
+
+
   def conf_array(_name)
     res = []
     value = @arcadia['conf'][_name]
     res.concat(value.split(',')) if value
     res
   end
-  
+
+  def array_conf(_name, _array)
+    value = ''
+    _array.each{|e|
+      if value.length > 0
+        value = "#{value},#{e}"
+      else
+        value = "#{e}"
+      end
+    }
+    @arcadia['conf'][_name]=value
+    value
+  end
+
+  def add_to_conf_property(_name, _value)
+    a = conf_array(_name)
+    if !a.include?(_value)
+      a << _value
+      array_conf(_name,a)
+    end
+  end
+
+  def del_from_conf_property(_name, _value)
+    a = conf_array(_name)
+    a.delete(_value)
+    array_conf(_name,a)
+  end
+
   def frame_def_visible?(_n=0)
     @arcadia.layout.domains.include?(@frames_points[_n])
     #@frames_points[_n] != '-1.-1'
   end
-  
+
   def frame_visible?(_n=0)
     @frames[_n] != nil && @frames[_n].hinner_frame && TkWinfo.mapped?(@frames[_n].hinner_frame)
   end
-  
+
   def frame(_n=0,create_if_not_exist=true)
-	  if @frames[_n] == nil && @frames_points[_n] && create_if_not_exist
-	    (@frames_labels[_n].nil?)? _label = @name : _label = @frames_labels[_n]
-	    (@frames_names[_n].nil?)? _name = @name : _name = @frames_names[_n]
-	    @frames[_n] = FixedFrameWrapper.new(self, @frames_points[_n], _name, _label, _n)
-	  end
+    if @frames_points[_n].nil?
+      @frames_points[_n] = '0.0'
+      Arcadia['conf']["#{@name}.frames"]+=',0.0'
+    end  
+    if @frames[_n] == nil && @frames_points[_n] && create_if_not_exist
+      (@frames_labels[_n].nil?)? _label = @name : _label = @frames_labels[_n]
+      (@frames_names[_n].nil?)? _name = @name : _name = @frames_names[_n]
+      @frames[_n] = FixedFrameWrapper.new(self, @frames_points[_n], _name, _label, _n)
+    end
     return @frames[_n]
   end
-  
+
   def frame_domain(_n=0)
     if conf('frames')
-       frs = conf('frames').split(',') 
-    else 
+      frs = conf('frames').split(',')
+    else
       frs = Array.new
     end
     ret = nil
@@ -265,8 +300,8 @@ class ArcadiaExt
 
   def frame_domain_default(_n=0)
     if conf_default('frames')
-       frs = conf_default('frames').split(',') 
-    else 
+      frs = conf_default('frames').split(',')
+    else
       frs = Array.new
     end
     ret = nil
@@ -277,19 +312,19 @@ class ArcadiaExt
   end
 
   def float_frame(_n=0, _args=nil)
-	  if @float_frames[_n].nil? 
-	    (@float_labels[_n].nil?)? _label = @name : _label = @float_labels[_n]
-	    @float_frames[_n] =  FloatFrameWrapper.new(@arcadia, @float_geometries[_n], _label)
-	  end
-     @float_frames[_n]
+    if @float_frames[_n].nil?
+      (@float_labels[_n].nil?)? _label = @name : _label = @float_labels[_n]
+      @float_frames[_n] =  FloatFrameWrapper.new(@arcadia, @float_geometries[_n], _label)
+    end
+    @float_frames[_n]
   end
 
   def conf(_property)
-	  @arcadia['conf'][@name+'.'+_property]
+    @arcadia['conf'][@name+'.'+_property]
   end
 
   def conf_default(_property)
-	  @arcadia['conf_without_local'][@name+'.'+_property]
+    @arcadia['conf_without_local'][@name+'.'+_property]
   end
 
   def restore_default_conf(_property)
@@ -297,17 +332,17 @@ class ArcadiaExt
       @arcadia['conf'][@name+'.'+_property] = @arcadia['conf_without_local'][@name+'.'+_property]
     end
   end
-  
-#  def conf_global(_property)
-#	  @arcadia['conf'][_property]
-#  end
-	
+
+  #  def conf_global(_property)
+  #	  @arcadia['conf'][_property]
+  #  end
+
   def exec(_method, _args=nil)
     if self.respond_to(_method)
       self.send(_method, _args)
     end
   end
-  
+
   def maximized?(_n=0)
     ret= false
     ret=@frames[_n].maximized? if @frames[_n]
@@ -317,23 +352,164 @@ class ArcadiaExt
   def maximize(_n=0)
     @frames[_n].maximize if @frames[_n]
   end
-  
+
   def resize(_n=0)
     @frames[_n].resize if @frames[_n]
   end
 end
 
+class ArcadiaExtPlus < ArcadiaExt
+  attr_reader :index
+
+  def initialize(_arcadia, _name=nil)
+    @@instances = {} if !defined?(@@instances)
+    @@main_instance = {} if !defined?(@@main_instance)
+    @@active_instance = {} if !defined?(@@active_instance)
+    @@instances[self.class] = [] if @@instances[self.class] == nil
+    @@instances[self.class] << self
+    @@main_instance[self.class] = self if @@main_instance[self.class] == nil
+    Arcadia.attach_listener(self, ActivateInstanceEvent)
+    super(_arcadia, _name)
+    if self.frame != nil
+      self.frame.hinner_frame.bind_append("Enter", proc{activate})
+      if @@main_instance[self.class] == self
+        frame.root.add_state_button(
+        self.name,
+        'Duplicate',
+        proc{duplicate},
+        PLUS_EX_GIF,
+        'left')
+        activate(self, false)
+      else
+        frame.root.add_state_button(
+        self.name,
+        'Destroy',
+        proc{deduplicate},
+        MINUS_EX_GIF,
+        'left')
+        activate(self, false)
+      end
+    end
+  end
+
+  def ArcadiaExtPlus.instances(_class)
+    @@instances[_class]
+  end
+
+  def active_instance
+    @@active_instance[self.class]
+  end
+
+  def main_instance
+    @@main_instance[self.class]
+  end
+
+  def activate(_obj=self, _raise_event=true)
+    @@active_instance[self.class] = _obj
+    @@active_instance[self.class].frame.root.shift_on if @@active_instance[self.class].frame != nil
+    instances.each{|i|
+      i.frame.root.shift_off if i != @@active_instance[self.class] && i.frame != nil && i.frame.root != @@active_instance[self.class].frame.root
+    }
+    ActivateInstanceEvent.new(Arcadia.instance, 'name'=>self.name).go! if _raise_event
+  end
+
+  def activate_main
+    activate(@@main_instance[self.class])
+  end
+
+  def active?
+    @@active_instance[self.class] == self
+  end
+
+  def instances
+    @@instances[self.class]
+  end
+
+  def instance_index
+    instances.index(self)
+  end
+
+  def new_name
+    #"#{main_instance.name}#{instances.length}"
+    name = main_instance.name
+    i=0
+    while exist_name?(name) 
+      i+=1
+      name = "#{main_instance.name}#{i}"
+    end
+    name
+  end
+  
+  def exist_name?(_name)
+    exist = false
+    instances.each{|i|
+      exist = exist || i.name == _name
+      break if exist
+    }
+    exist
+  end
+  
+  def duplicate(_name=new_name)
+    #create conf properties
+    Arcadia.conf_group_copy(@@main_instance[self.class].name, _name)
+    instance = clone(_name)
+    #initialize
+    Arcadia.process_event(InitializeEvent.new(Arcadia.instance), [instance])
+    add_to_conf_property("#{main_instance.name}.clones", _name)
+  end
+  
+  def clone(_name)
+    #create
+    instance = self.class.new(Arcadia.instance, _name)
+    #build
+    Arcadia.process_event(BuildEvent.new(Arcadia.instance), [instance])
+    Arcadia.attach_listener(instance, ClearCacheInstanceEvent)
+    Arcadia.attach_listener(instance, DestroyInstanceEvent)
+    instance
+  end
+
+  def on_destroy_instance(_event)
+    Arcadia.detach_listener(self)
+    @arcadia.unregister(self)
+    @frames.each{|f| f.free }
+  end
+
+#  def on_before_layout_raising_frame(_event)
+#    if _event.extension_name == @name
+#      activate
+#    end
+#  end
+
+  def deduplicate
+    if (Arcadia.dialog(self, 'type'=>'yes_no',
+      'msg'=>"Shure delete '#{@name}'?",
+      'title' => "(Arcadia) Delete #{@name}",
+      'level' => 'question')=='yes')
+      exit_query_event = Arcadia.process_event(ExitQueryEvent.new(self, 'can_exit'=>true))
+      if exit_query_event.can_exit
+        activate_main
+        @@instances[self.class].delete(self) if @@instances[self.class]
+        Arcadia.del_conf_group(Arcadia['conf'],@name)
+        Arcadia.del_conf_group(Arcadia['pers'],@name)
+        del_from_conf_property("#{main_instance.name}.clones", @name)
+        Arcadia.process_event(ClearCacheInstanceEvent.new(Arcadia.instance), [self])
+        Arcadia.process_event(DestroyInstanceEvent.new(Arcadia.instance), [self])
+      end
+    end
+  end
+
+end
 
 class ObserverCallback
-	def initialize(_publisher, _subscriber, _method_update_to_call=:update)
-		@publisher = _publisher
-		@subscriber = _subscriber
-		@method=_method_update_to_call
-		@publisher.add_observer(self)
-	end
-	def update(*args)
-		@subscriber.send(@method,*args)
-	end
+  def initialize(_publisher, _subscriber, _method_update_to_call=:update)
+    @publisher = _publisher
+    @subscriber = _subscriber
+    @method=_method_update_to_call
+    @publisher.add_observer(self)
+  end
+  def update(*args)
+    @subscriber.send(@method,*args)
+  end
 end
 
 # +------------------------------------------+
@@ -346,7 +522,7 @@ class Event
     attr_reader :time
     def initialize(_sender, _args=nil)
       @sender = _sender
-      if _args 
+      if _args
         _args.each do |key, value|
           self.send(key+'=', value)
         end
@@ -363,7 +539,7 @@ class Event
     @breaked = false
     @sender = _sender
     @channel = '0'
-    if _args 
+    if _args
       _args.each do |key, value|
         #self.send(key, value)
         self.send(key.to_s+'=', value) if self.respond_to?(key.to_s)
@@ -372,11 +548,11 @@ class Event
     @time = Time.new
     @results = Array.new
   end
-  
+
   def add_finalize_callback(_proc)
-    ObjectSpace.define_finalizer(self, _proc) 
+    ObjectSpace.define_finalizer(self, _proc)
   end
-  
+
   def add_result(_sender, _args=nil)
     if self.class::Result
       res = self.class::Result.new(_sender, _args)
@@ -386,39 +562,64 @@ class Event
     @results << res
     res
   end
-  
+
   def is_breaked?
     @breaked
   end
-  
+
   def break
     @breaked = true
   end
-  
+
 end
 
 module EventBus #(or SourceEvent)
-  def process_event(_event)
+  def process_event(_event, _listeners=nil)
+    # _listener rapresent a filter on @@listeners if != nil
     return _event if !defined?(@@listeners)
     event_classes = _event_class_stack(_event.class)
     #before fase
     event_classes.each do |_c|
-      _process_fase(_c, _event, 'before')
+      if _listeners.nil?
+        _process_fase(_c, _event, @@listeners[_c], 'before')
+      else
+        listeners_to_process = []
+        _listeners.each{|lis|
+          listeners_to_process << lis if @@listeners[_c] && @@listeners[_c].include?(lis)
+        }
+        _process_fase(_c, _event, listeners_to_process, 'before')
+      end
       break if _event.is_breaked? # not responding to this means "you need to pass in an instance, not a class name
     end unless _event.is_breaked?
     # fase
     event_classes.each do |_c|
-      _process_fase(_c, _event)
+      if _listeners.nil?
+        _process_fase(_c, _event, @@listeners[_c])
+      else
+        listeners_to_process = []
+        _listeners.each{|lis|
+          listeners_to_process << lis if @@listeners[_c] && @@listeners[_c].include?(lis)
+        }
+        _process_fase(_c, _event, listeners_to_process)
+      end
       break if _event.is_breaked?
     end unless _event.is_breaked?
     #after fase
     event_classes.each do |_c|
-      _process_fase(_c, _event, 'after')
+      if _listeners.nil?
+        _process_fase(_c, _event, @@listeners[_c], 'after')
+      else
+        listeners_to_process = []
+        _listeners.each{|lis|
+          listeners_to_process << lis if @@listeners[_c] && @@listeners[_c].include?(lis)
+        }
+        _process_fase(_c, _event, listeners_to_process, 'after')
+      end
       break if _event.is_breaked?
     end unless _event.is_breaked?
     _event
   end
-  
+
   def broadcast_event(_event)
     return _event if !defined?(@@listeners)
     event_classes = _event_class_stack(_event.class)
@@ -426,47 +627,45 @@ module EventBus #(or SourceEvent)
       _broadcast_fase(_c, _event)
     end
   end
-  
+
   def _event_class_stack(_class)
     #p "------> chiamato _event_class_stack for class #{_class}"
     res = Array.new
     cur_class = _class
     while cur_class != Object
-	#p "#{cur_class} son on #{cur_class.superclass}"
-       res << cur_class
-       cur_class = cur_class.superclass
+      #p "#{cur_class} son on #{cur_class.superclass}"
+      res << cur_class
+      cur_class = cur_class.superclass
     end
     return res
   end
   private :_event_class_stack
-  
-  def _process_fase(_class, _event, _fase_name = nil)
-    # _fase_name cicle
-    return if @@listeners[_class].nil?
+
+  def _process_fase(_class, _event, _listeners=nil, _fase_name = nil)
+    return if _listeners.nil?
     _fase_name.nil?? suf = '':suf = _fase_name
-    #method_name = 'on_'+suf+_class.to_s.downcase.gsub('event','')
     method_name = _method_name(_class, suf)
-    #p _method_name(_event, suf)+' == '+method_name
-    #p method_name
     if _class != _event.class
-      #sub_method_name = 'on_'+suf+_event.class.to_s.downcase.gsub('event','')
       sub_method_name = _method_name(_event.class, suf)
-      @@listeners[_class].each do|_listener|
-         if _listener.respond_to?(sub_method_name)
-           _listener.send(sub_method_name, _event)
-         elsif _listener.respond_to?(method_name)
-           _listener.send(method_name, _event)
-         end
-         break if _event.is_breaked?
+      _listeners.each do|_listener|
+        next if _listener.kind_of?(ArcadiaExtPlus) && !(_listener.active? || _class == ArcadiaSysEvent || _class.superclass == ArcadiaSysEvent || _event.class.kind_of?(ArcadiaSysEvent))
+        if _listener.respond_to?(sub_method_name)
+          _listener.send(sub_method_name, _event)
+        elsif _listener.respond_to?(method_name)
+          _listener.send(method_name, _event)
+        end
+        break if _event.is_breaked?
       end
     else
-      @@listeners[_class].each do|_listener|
+      _listeners.each do|_listener|
+        next if _listener.kind_of?(ArcadiaExtPlus) && !(_listener.active? || (_event.kind_of?(ArcadiaSysEvent)))
         _listener.send(method_name, _event) if _listener.respond_to?(method_name)
         break if _event.is_breaked?
       end
     end
   end
   private :_process_fase
+
   def _method_name(_class, _suf='')
     _str = _class.to_s
     _pre = _str[0..1]
@@ -482,9 +681,9 @@ module EventBus #(or SourceEvent)
       sub_method_name = _method_name(_event.class)
       @@listeners[_class].each do|_listener|
         if _listener.respond_to?(sub_method_name)
-  	         Thread.new{_listener.send(sub_method_name, _event)}
+          Thread.new{_listener.send(sub_method_name, _event)}
         elsif _listener.respond_to?(method_name)
-            Thread.new{_listener.send(method_name, _event)}
+          Thread.new{_listener.send(method_name, _event)}
         end
       end
     else
@@ -497,12 +696,19 @@ module EventBus #(or SourceEvent)
   end
   private :_broadcast_fase
 
-  def detach_listener(_listener, _class_event)
-    if @@listeners[_class_event]
-      @@listeners[_class_event].delete(_listener)
+  def detach_listener(_listener, _class_event=nil)
+    if _class_event != nil
+      if @@listeners[_class_event]
+        @@listeners[_class_event].delete(_listener)
+      end
+    else
+      #delete all the issues of listenere
+      @@listeners.each{|klass, header|
+        header.delete(_listener)
+      }
     end
   end
-  
+
   def attach_listener(_listener, _class_event)
     @@listeners = {} unless defined? @@listeners
     @@listeners[_class_event] = []   unless @@listeners.has_key?(_class_event)
@@ -514,7 +720,7 @@ end
 
 module Cacheble
   def self.extended(_obj)
-    _obj.__initialize_cache(_obj) 
+    _obj.__initialize_cache(_obj)
   end
 
   def self.included(_obj)
@@ -524,15 +730,15 @@ module Cacheble
   def __initialize_cache(_obj)
     @@cache = Hash.new
   end
-  
+
   def self.clear_cache
     @@cache.clear
   end
-  
+
   def self.set_cache(_key, _value)
     @@cache[_key]=_value
   end
-  
+
   def self.get_cache(_key, _value)
     @@cache[_key]
   end
@@ -569,12 +775,12 @@ module Configurable
                 _line = ''
               end
             end
-            
+
             var = _line.split('=')
             if var.length > 1
               _value = var[1].strip
               var[2..-1].collect{|x| _value=_value+'='+x} if var.length > 2
-              if _link_hash 
+              if _link_hash
                 _value = resolve_value(_value, _link_hash)
               end
               r_hash[var[0].strip]=_value
@@ -584,18 +790,18 @@ module Configurable
       ensure
         f.close unless f.nil?
       end
-      return r_hash      
+      return r_hash
     else
       puts 'warning--file does not exist', _property_file
     end
   end
-  
-#  def one_line_format_as_hash(_line)
-#    ret = Hash.new 
-#  end
-#  
-#  def hash_as_one_line_format(_name, _hash) 
-#  end
+
+  #  def one_line_format_as_hash(_line)
+  #    ret = Hash.new
+  #  end
+  #
+  #  def hash_as_one_line_format(_name, _hash)
+  #  end
 
   def Configurable.properties_group(_group, _hash_source, _hash_suff='conf', _refresh=false)
     group_key="#{_hash_suff}.#{_group}"
@@ -615,21 +821,21 @@ module Configurable
   end
 
   def resolve_value(_value, _hash_source)
-      if _value.length > 0 
-        _v, _vadd = _value.split(ADD_SYMBOL)
-      else
-        _v = _value
-      end
-      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
+    if _value.length > 0
+      _v, _vadd = _value.split(ADD_SYMBOL)
+    else
+      _v = _value
+    end
+    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)
     loop_level_max = 10
-#    _hash_adding = Hash.new
+    #    _hash_adding = Hash.new
     _keys_to_extend = Array.new
     _hash_target.each{|k,value|
       loop_level = 0
@@ -638,9 +844,9 @@ module Configurable
       else
         v= value
       end
-#      p "value=#{value} class=#{value.class}"
-#      p "v=#{v} class=#{v.class}"
-#      p "vadd=#{vadd}"
+      #      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
         if k[-1..-1]=='.'
           _keys_to_extend << k
@@ -667,15 +873,15 @@ module Configurable
       _hash_target.delete(k)
     end
   end
-  
+
   def make_value(_self_context=self, _value='')
     value = _value.strip
     if value[0..0]=='!'
-      value=_self_context.instance_eval(value[1..-1])  
+      value=_self_context.instance_eval(value[1..-1])
     end
     value
   end
-  
+
 end
 
 module Persistable
@@ -702,7 +908,7 @@ module Persistable
       begin
         if f
           if _persistent_key
-              f.syswrite(_persistent_key+'='+_persistent_value+"\n")
+            f.syswrite(_persistent_key+'='+_persistent_value+"\n")
           end
         end
       ensure
@@ -710,7 +916,7 @@ module Persistable
       end
     end
   end
-  
+
 end
 
 class Application
@@ -718,10 +924,10 @@ class Application
   include Configurable
   include Persistable
   ApplicationParams = Struct.new( "ApplicationParams",
-    :name,
-    :version,
-    :config_file,
-    :persistent_file
+  :name,
+  :version,
+  :config_file,
+  :persistent_file
   )
 
   def initialize(_ap=ApplicationParams.new)
@@ -742,47 +948,48 @@ class Application
     publish('pers', properties_file2hash(self['applicationParams'].persistent_file)) if self['applicationParams'].persistent_file
     yield(self) if block_given?
   end
-  
+
   def Application.instance
     @@instance
   end
 
   def Application.conf(_property)
-	  @@instance['conf'][_property] if @@instance
+    @@instance['conf'][_property] if @@instance
   end
 
   def conf(_property)
-	  self['conf'][_property]
+    self['conf'][_property]
   end
-  
+
   def Application.sys_info
     "[Platform = #{RUBY_PLATFORM}]\n[Ruby version = #{RUBY_VERSION}]"
   end
-  
-  def Application.conf_group(_group, _suff = 'conf')
-    group_key="#{_hash_suff}.#{_group}"
-    @@conf_groups = Hash.new if !defined?(@@conf_groups)
-    if @@conf_groups[group_key].nil?
-      @@conf_groups[group_key] = Hash.new
-      glen=_group.length
-      @@instance['conf'].keys.sort.each{|k|
-        if k[0..glen] == "#{_group}."
-          @@conf_groups[group_key][k[glen+1..-1]]=@@instance['conf'][k]
-        elsif @@conf_groups[group_key].length > 0
-          break
-        end
-      }
-    end
-    @@conf_groups[_group]
-  end
+
+
+  #  def Application.conf_group(_group, _suff = 'conf')
+  #    group_key="#{_suff}.#{_group}"
+  #    @@conf_groups = Hash.new if !defined?(@@conf_groups)
+  #    if @@conf_groups[group_key].nil?
+  #      @@conf_groups[group_key] = Hash.new
+  #      glen=_group.length
+  #      @@instance['conf'].keys.sort.each{|k|
+  #        if k[0..glen] == "#{_group}."
+  #          @@conf_groups[group_key][k[glen+1..-1]]=@@instance['conf'][k]
+  #        elsif @@conf_groups[group_key].length > 0
+  #          break
+  #        end
+  #      }
+  #    end
+  #    @@conf_groups[_group]
+  #  end
 
   def Application.del_conf_group(_conf_hash, _group)
-      glen=_group.length
-      _conf_hash.keys.sort.each{|k|
-        if k[0..glen] == "#{_group}."
-          _conf_hash.delete(k)
-        end
-      }
+    glen=_group.length
+    _conf_hash.keys.sort.each{|k|
+      if k[0..glen] == "#{_group}."
+        _conf_hash.delete(k)
+      end
+    }
   end
 
   def Application.del_conf(_k)
@@ -804,60 +1011,60 @@ class Application
   def local_file_config
     File.join(local_dir, File.basename(self['applicationParams'].config_file))
   end
-  
+
   def update_local_config
-      # local_dir is ~/arcadia
-      if FileTest.exist?(local_file_config)
-        if FileTest.writable?(local_dir)
-          f = File.new(local_file_config, "w")
-          begin
-            if f
-              properties = self['conf']
-              if properties
-                properties.keys.sort.each{|key|
-                  if self['conf_without_local'][key] == self['conf'][key] || (self['origin_conf'][key] && self['origin_conf'][key].include?('>>>')) # || self['local_conf'][key].nil?
-                    f.syswrite("# #{key}=#{self['origin_conf'][key]}\n") # write it as a comment since it isn't a real change
-                  elsif self['conf'][key]
-                    f.syswrite("#{key}=#{self['conf'][key]}\n")
-                  end
-                }
-              end
+    # local_dir is ~/arcadia
+    if FileTest.exist?(local_file_config)
+      if FileTest.writable?(local_dir)
+        f = File.new(local_file_config, "w")
+        begin
+          if f
+            properties = self['conf']
+            if properties
+              properties.keys.sort.each{|key|
+                if self['conf_without_local'][key] == self['conf'][key] || (self['origin_conf'][key] && self['origin_conf'][key].include?('>>>')) # || self['local_conf'][key].nil?
+                  f.syswrite("# #{key}=#{self['origin_conf'][key]}\n") # write it as a comment since it isn't a real change
+                elsif self['conf'][key]
+                  f.syswrite("#{key}=#{self['conf'][key]}\n")
+                end
+              }
             end
-          ensure
-            f.close unless f.nil?
           end
+        ensure
+          f.close unless f.nil?
         end
       end
+    end
   end
-  
+
   # this method load config file from local directory for personalizations
   def load_local_config(_create_if_not_exist=true)
-      if FileTest.exist?(local_file_config)
-        self['local_conf']= self.properties_file2hash(local_file_config)
-        self['conf'].update(self['local_conf'])
-      elsif _create_if_not_exist
-        if FileTest.writable?(local_dir)
-          f = File.new(local_file_config, "w")
-          begin
-            if f
-              p = self['conf']
-              if p
-                p.keys.sort.each{|key|
-                  f.syswrite('#'+key+'='+self['conf'][key]+"\n")
-                }
-              end
+    if FileTest.exist?(local_file_config)
+      self['local_conf']= self.properties_file2hash(local_file_config)
+      self['conf'].update(self['local_conf'])
+    elsif _create_if_not_exist
+      if FileTest.writable?(local_dir)
+        f = File.new(local_file_config, "w")
+        begin
+          if f
+            p = self['conf']
+            if p
+              p.keys.sort.each{|key|
+                f.syswrite('#'+key+'='+self['conf'][key]+"\n")
+              }
             end
-          ensure
-            f.close unless f.nil?
           end
-        else
-          msg = "Locad dir "+'"'+local_dir+'"'+" must be writable!"
-          Arcadia.dialog(self, 'type'=>'ok','title' => '(Arcadia)', 'msg' => msg, 'level'=>'error')
-          exit
+        ensure
+          f.close unless f.nil?
         end
+      else
+        msg = "Locad dir "+'"'+local_dir+'"'+" must be writable!"
+        Arcadia.dialog(self, 'type'=>'ok','title' => '(Arcadia)', 'msg' => msg, 'level'=>'error')
+        exit
       end
+    end
   end
-  
+
   def load_theme(_name=nil)
     _theme_file = "conf/theme-#{_name}.conf" if !_name.nil?
     if _theme_file && File.exist?(_theme_file)
@@ -868,13 +1075,13 @@ class Application
       if _theme_res_file && File.exist?(_theme_res_file)
         begin
           require _theme_res_file
-        rescue Exception => e  
+        rescue Exception => e
         end
 
       end
-    end  
+    end
   end
-  
+
   def local_dir
     home = File.expand_path '~'
     _local_dir = File.join(home,'.'+self['applicationParams'].name) if home
@@ -910,9 +1117,9 @@ class Application
 
   def []=(_name, _value)
     @objs[_name] = _value
-#    if @objs[_name]
-#      @objs[_name] = _value
-#    end
+    #    if @objs[_name]
+    #      @objs[_name] = _value
+    #    end
   end