arcadia 0.1.1 → 0.1.2

data/base/a-contracts.rb

@@ -3,7 +3,7 @@
 #   by Antonio Galeone <antonio-galeone@rubyforge.org>
 #
 
-# Catalog of all contracts used by exstension. This astraction guarantees 
+# Catalog of all contracts used by extensions. This astraction guarantees 
 # the separation of ext
 # contract must extend AeContract
 
@@ -23,24 +23,25 @@ class MainContract < ArcadiaContract
   RAISE_EXTENSION = "RAISE_EXTENSION"
 	EVENT_HANDLED = "EVENT_HANDLED"
 
-	def event_handled(_tobj)
-	  raise_event(EVENT_HANDLED, _tobj)
+
+	def event_handled(_sender, *args)
+	  raise_event(EVENT_HANDLED, TMainObj.new(_sender, *args))
 	end
   
-  def extension_before_build(_tobj)
-    raise_event(EXTENSION_BEFORE_BUILD, _tobj)
+  def extension_before_build(_sender, *args)
+    raise_event(EXTENSION_BEFORE_BUILD, TMainObj.new(_sender, *args))
   end
   
-  def extension_build(_tobj)
-    raise_event(EXTENSION_BUILD, _tobj)
+  def extension_build(_sender, *args)
+    raise_event(EXTENSION_BUILD, TMainObj.new(_sender, *args))
   end
   
-  def extension_after_build(_tobj)
-    raise_event(EXTENSION_AFTER_BUILD, _tobj)
+  def extension_after_build(_sender, *args)
+    raise_event(EXTENSION_AFTER_BUILD, TMainObj.new(_sender, *args))
   end
 
-  def raise_extension(_tobj)
-    raise_action(RAISE_EXTENSION, _tobj)
+  def raise_extension(_sender, *args)
+    raise_event(RAISE_EXTENSION, TMainObj.new(_sender, *args))
   end
 
 end
@@ -48,63 +49,111 @@ end
 
 class EditorContract < ArcadiaContract
   class TEditorObj < TObj
-  		attr_accessor :file, :line, :col, :title, :text, :candidates
+  		attr_accessor :file, :line, :col, :title, :text, :candidates, :xdoc, :ydoc, :doc_entry,:doc
   end
   OPEN_FILE = "OPEN_FILE"
   CLOSE_FILE = "CLOSE_FILE"
+  SHOW_SEARCH_DIALOG = "SHOW_SEARCH_DIALOG"
+  SHOW_GOTO_LINE_DIALOG = "SHOW_GOTO_LINE_DIALOG"
+  SAVE_FILE = "SAVE_FILE"
+  SAVE_AS_FILE = "SAVE_AS_FILE"
+  SAVE_FILE_RAISED = "SAVE_FILE_RAISED"
+  SAVE_AS_FILE_RAISED = "SAVE_AS_FILE_RAISED"
   OPEN_TEXT = "OPEN_TEXT"
+  COMPLETE_CODE = "COMPLETE_CODE"
+  DOC_CODE = "DOC_CODE"
 
-	AFTER_CREATE = "AFTER_CREATE"
+	#AFTER_CREATE = "AFTER_CREATE"
 	BREAKPOINT_AFTER_CREATE = "BREAKPOINT_AFTER_CREATE"
 	BREAKPOINT_AFTER_DELETE = "BREAKPOINT_AFTER_DELETE"
 	BREAKPOINTS_AFTER_CREATE = "BREAKPOINTS_AFTER_CREATE"
 	BREAKPOINTS_AFTER_DELETE = "BREAKPOINTS_AFTER_DELETE"
 	FILE_AFTER_OPEN = "FILE_AFTER_OPEN"
 	FILE_AFTER_CLOSE = "FILE_AFTER_CLOSE"
+	FILE_AFTER_SAVE = "FILE_AFTER_SAVE"
+	FILE_AFTER_CREATE = "FILE_AFTER_CREATE"
 	BUFFER_AFTER_RAISE = "BUFFER_AFTER_RAISE"
-	COMPLETE_CODE = "COMPLETE_CODE"
-	
-  def open_file(_tobj)
-  		raise_action(OPEN_FILE, _tobj)
+		
+  def open_file(_sender, *args)
+  		raise_action(OPEN_FILE, TEditorObj.new(_sender, *args))
   end
-  
-  def close_file(_tobj)
-  		raise_action(CLOSE_FILE, _tobj)
+
+  def close_file(_sender, *args)
+  		raise_action(CLOSE_FILE, TEditorObj.new(_sender, *args))
   end
-  
-  def open_text(_tobj)
-    raise_action(OPEN_TEXT, _tobj)
+
+  def save_file(_sender, *args)
+  		raise_action(SAVE_FILE, TEditorObj.new(_sender, *args))
+  end
+
+  def save_file_raised(_sender, *args)
+  		raise_action(SAVE_FILE_RAISED, TEditorObj.new(_sender, *args))
+  end
+
+  def save_as_file(_sender, *args)
+  		raise_action(SAVE_AS_FILE, TEditorObj.new(_sender, *args))
+  end
+
+  def save_as_file_raised(_sender, *args)
+  		raise_action(SAVE_AS_FILE_RAISED, TEditorObj.new(_sender, *args))
+  end
+
+  def show_search_dialog(_sender, *args)
+  		raise_action(SHOW_SEARCH_DIALOG, TEditorObj.new(_sender, *args))
+  end
+
+
+  def show_goto_line_dialog(_sender, *args)
+  		raise_action(SHOW_GOTO_LINE_DIALOG, TEditorObj.new(_sender, *args))
+  end
+
+  def open_text(_sender, *args)
+    raise_action(OPEN_TEXT, TEditorObj.new(_sender, *args))
 	end
 
-	def complete_code(_tobj)
-	  raise_action(COMPLETE_CODE, _tobj)
+	def complete_code(_sender, *args)
+	  raise_action(COMPLETE_CODE, TEditorObj.new(_sender, *args))
 	end
 
-  def file_opened(_tobj=nil)
-  		raise_event(FILE_AFTER_OPEN, _tobj)
+	def doc_code(_sender, *args)
+	  raise_action(DOC_CODE, TEditorObj.new(_sender, *args))
+	end
+
+  def file_opened(_sender, *args)
+  		raise_event(FILE_AFTER_OPEN, TEditorObj.new(_sender, *args))
   end
 
-  def buffer_raised(_tobj=nil)
-  		raise_event(BUFFER_AFTER_RAISE, _tobj)
+  def file_saved(_sender, *args)
+  		raise_event(FILE_AFTER_SAVE, TEditorObj.new(_sender, *args))
   end
 
-  def file_closed(_tobj=nil)
-  		raise_event(FILE_AFTER_CLOSE, _tobj)
+  def file_created(_sender, *args)
+  		raise_event(FILE_AFTER_CREATE, TEditorObj.new(_sender, *args))
   end
- 
-  def breakpoint_created(_tobj=nil)
-  		raise_event(BREAKPOINT_AFTER_CREATE, _tobj)
+
+  def buffer_raised(_sender, *args)
+  		raise_event(BUFFER_AFTER_RAISE, TEditorObj.new(_sender, *args))
   end
-  
-  def breakpoint_deleted(_tobj=nil)
-  		raise_event(BREAKPOINT_AFTER_DELETE, _tobj)
+
+  def file_closed(_sender, *args)
+  		raise_event(FILE_AFTER_CLOSE, TEditorObj.new(_sender, *args))
   end
-  def breakpoints_created(_array_of_tobj=nil)
-  		raise_event(BREAKPOINTS_AFTER_CREATE, _array_of_tobj)
+ 
+  def breakpoint_created(_sender, *args)
+  		raise_event(BREAKPOINT_AFTER_CREATE, TEditorObj.new(_sender, *args))
   end
-  def breakpoints_deleted(_array_of_tobj=nil)
-  		raise_event(BREAKPOINTS_AFTER_DELETE, _array_of_tobj)
+  
+  def breakpoint_deleted(_sender, *args)
+  		raise_event(BREAKPOINT_AFTER_DELETE, TEditorObj.new(_sender, *args))
   end
+  
+#  def breakpoints_created(_array_of_tobj=nil)
+#  		raise_event(BREAKPOINTS_AFTER_CREATE, _array_of_tobj)
+#  end
+#  def breakpoints_deleted(_array_of_tobj=nil)
+#  		raise_event(BREAKPOINTS_AFTER_DELETE, _array_of_tobj)
+#  end
+
 end
 
 class MsgContract < ArcadiaContract
@@ -118,29 +167,20 @@ class MsgContract < ArcadiaContract
   end
   
   EVENT_EXT_MSG_OUT = "EVENT_EXT_MSG_OUT"
-  def out(_tobj)
-    raise_event(EVENT_EXT_MSG_OUT, _tobj)
+  def out(_sender, *args)
+    raise_event(EVENT_EXT_MSG_OUT, TMsgObj.new(_sender, *args))
   end
   
   def out_simple(_sender, _msg, _channel=nil)
-    _tobj = TMsgObj.new(_sender, 'channel'=>_channel)
-    _tobj.type = TYPE_SIMPLE
-    _tobj.text = _msg
-    self.out(_tobj)
+    self.out(_sender, 'type'=>TYPE_SIMPLE, 'text'=>_msg, 'channel'=>_channel)
   end
   
   def out_debug(_sender, _msg, _channel=nil)
-    _tobj = TMsgObj.new(_sender, 'channel'=>_channel)
-    _tobj.type = TYPE_DEBUG
-    _tobj.text = _msg
-    self.out(_tobj)
+    self.out(_sender, 'type'=>TYPE_DEBUG, 'text'=>_msg, 'channel'=>_channel)
   end
 
   def out_error(_sender, _msg, _channel=nil)
-    _tobj = TMsgObj.new(_sender, 'channel'=>_channel)
-    _tobj.type = TYPE_ERROR
-    _tobj.text = _msg
-    self.out(_tobj)
+    self.out(_sender, 'type'=>TYPE_ERROR, 'text'=>_msg, 'channel'=>_channel)
   end
 end
 
@@ -151,10 +191,11 @@ class ShellContract < ArcadiaContract
   		attr_accessor :file
   end
 
-  def run(_tobj)
-	end  
-  def debug(_tobj)
-	end  
+  def run(_sender, *args)
+  end  
+  
+  def debug(_sender, *args)
+  end  
 end
 
 
@@ -169,14 +210,14 @@ class DebugContract < ArcadiaContract
   DEBUG_END="DEBUG_END"
   DEBUG_STEP="DEBUG_STEP"
   
-  def debug_begin(_tobj=nil)
-  		raise_event(DEBUG_BEGIN, _tobj)
+  def debug_begin(_sender, *args)
+  		raise_event(DEBUG_BEGIN, TDebugObj.new(_sender, *args))
 	end
-  def debug_end(_tobj=nil)
-  		raise_event(DEBUG_END, _tobj)
+  def debug_end(_sender, *args)
+  		raise_event(DEBUG_END, TDebugObj.new(_sender, *args))
 	end
-	def debug_step(_tobj=nil)
-  		raise_event(DEBUG_STEP, _tobj)
+	def debug_step(_sender, *args)
+  		raise_event(DEBUG_STEP, TDebugObj.new(_sender, *args))
 	end
 end
 
@@ -197,36 +238,32 @@ class InspectorContract < ArcadiaContract
   RAISE_LAST_WIDGET = "RAISE_LAST_WIDGET"
   RAISE_ACTIVE_TOPLEVEL = "RAISE_ACTIVE_TOPLEVEL"
   
-  def delete_wrapper(_tobj=nil)
-  		raise_action(DELETE_WRAPPER, _tobj)
+  def delete_wrapper(_sender, *args)
+  		raise_action(DELETE_WRAPPER, TInspectorObj.new(_sender, *args))
   end
   
-  def raise_last_widget(_tobj=nil)
-  		raise_action(RAISE_LAST_WIDGET, _tobj)
+  def raise_last_widget(_sender, *args)
+  		raise_action(RAISE_LAST_WIDGET, TInspectorObj.new(_sender, *args))
   end
 
-  def raise_active_toplevel(_tobj=nil)
-  		raise_action(RAISE_ACTIVE_TOPLEVEL, _tobj)
+  def raise_active_toplevel(_sender, *args)
+  		raise_action(RAISE_ACTIVE_TOPLEVEL, TInspectorObj.new(_sender, *args))
   end
   
-  def select(_tobj=nil)
-  		raise_action(SELECT_WRAPPER, _tobj)
+  def select(_sender, *args)
+  		raise_action(SELECT_WRAPPER, TInspectorObj.new(_sender, *args))
   end 
 
-	def add_require(_tobj=nil)
-  		raise_action(ADD_REQUIRE, _tobj)
+	def add_require(_sender, *args)
+  		raise_action(ADD_REQUIRE, TInspectorObj.new(_sender, *args))
 	end
 	
-  def register(_tobj=nil)
-  		raise_action(REGISTER_WRAPPER, _tobj)
+  def register(_sender, *args)
+  		raise_action(REGISTER_WRAPPER, TInspectorObj.new(_sender, *args))
   end 
   
-#  def update_property(_tobj=nil)
-#    raise_action(UPDATE_PROPERTY, _tobj)
-#  end
-  
-  def delete_inspector(_tobj=nil)
-    raise_action(DELETE_INSPECTOR, _tobj)
+  def delete_inspector(_sender, *args)
+    raise_action(DELETE_INSPECTOR, TInspectorObj.new(_sender, *args))
   end
   
   publish_action :raise_active_object
@@ -234,8 +271,8 @@ end
 
 class PublishContract < ArcadiaContract
   ADD_COMAND_ACTOR = "ADD_COMAND_ACTOR"
-  def add_command_actor(_tobj)
-    raise_action(ADD_COMAND_ACTOR, _tobj)
+  def add_command_actor(_sender, *args)
+    raise_action(ADD_COMAND_ACTOR, TObj.new(_sender, *args))
   end
 end
 
@@ -248,14 +285,14 @@ class WrapperContract < ArcadiaContract
   WRAPPER_AFTER_CREATE="WRAPPER_AFTER_CREATE"
   PROPERTY_AFTER_UPDATE="PROPERTY_AFTER_UPDATE"
   UPDATE_PROPERTY="UPDATE_PROPERTY"
-  def update_property(_tobj)
-    raise_action(UPDATE_PROPERTY, _tobj)
+  def update_property(_sender, *args)
+    raise_action(UPDATE_PROPERTY, TWrapperObj.new(_sender, *args))
   end
-  def property_updated(_tobj)
-    raise_event(PROPERTY_AFTER_UPDATE, _tobj)
+  def property_updated(_sender, *args)
+    raise_event(PROPERTY_AFTER_UPDATE, TWrapperObj.new(_sender, *args))
   end
-  def wrapper_created(_tobj)
-    raise_event(WRAPPER_AFTER_CREATE, _tobj)
+  def wrapper_created(_sender, *args)
+    raise_event(WRAPPER_AFTER_CREATE, TWrapperObj.new(_sender, *args))
   end
 end
 
@@ -264,7 +301,7 @@ class PaletteContract < ArcadiaContract
   		attr_accessor	 :parent, :x, :y
   end
   MAKE_SELECTED_WRAPPER = "MAKE_SELECTED_WRAPPER"
-  def make_selected(_tobj)
-    raise_action(MAKE_SELECTED_WRAPPER, _tobj)
+  def make_selected(_sender, *args)
+    raise_action(MAKE_SELECTED_WRAPPER, TPaletteObj.new(_sender, *args))
   end
 end

data/base/a-ext.rb

@@ -1,280 +1,280 @@
-#
-#   a-ext.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require "observer"
-require 'singleton'
-
-class ArcadiaExt
-  attr_reader :arcadia
-
-  def initialize(_arcadia, _name=nil)
-    @arcadia = _arcadia
-    @name = _name
-    unless self.respond_to? :build
-      raise NoMethodError, "ArcadiaExt needs to respond to `:build'" 
-    end
-    unless self.respond_to? :before_build
-      raise NoMethodError, "ArcadiaExt needs to respond to `:before_build'" 
-    end
-    unless self.respond_to? :after_build
-      raise NoMethodError, "ArcadiaExt needs to respond to `:after_build'" 
-    end
-    if self.respond_to? :arcadia_update
-    		ObserverCallback.new(@arcadia.main_contract, self, :arcadia_update)
-    end
-    ObjectSpace.define_finalizer(self, self.method(:finalize).to_proc)
-  end
-
-  def before_build
-    #must be implemented in child
-  end
-  
-  def build
-    #must be implemented in child
-  end
-
-  def after_build
-    #must be implemented in child
-  end
-
-	def frame
-	  if @frame == nil
-	    @frame = @arcadia.layout.register_panel(@arcadia['conf'][@name+'.frame'],@name, @arcadia['conf'][@name+'.label'])
-	  end
-    return @frame
-	end
-
-	def frame_free
-	  @arcadia.layout.unregister_panel(@arcadia['conf'][@name+'.frame'],@name)
-	  @frame = nil
-	end
-
-	def conf(_property)
-	  @arcadia['conf'][@name+'.'+_property]
-	end
-#  def arcadia_update(_sender, _event)
-    #must be implemented to activate
-#  end
-
-  def can_exit_query
-    return true
-  end
-
-  def finalize
-  		#may be extendeded in child
-  end
-
-  def verbose
-    '??????'
-  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
-end
-
-class ObserverCallbackContract < ObserverCallback
-	def initialize(_publisher, _subscriber, _method_update_to_call=:update, _channel=nil)
-	  super(_publisher, _subscriber, _method_update_to_call)
-	  @channel = _channel
-	  @channel_conf = @subscriber.conf(@publisher.class.to_s+'.channel') if @subscriber.respond_to?(:conf)
-  end
-
-	def filter(_event)
-	  @channel_conf != nil && @channel_conf != _event.channel
-	end
-  
-	def update(_event, *args)
-	  super(_event, *args) if !filter(_event)
-  end
-end
-
-
-class ObserverCallbackContractThread < ObserverCallbackContract
-	def update(*args)
-		Thread.new do
-		  super(*args)
-		end
-	end
-
-end
-
-
-# The contract define the interface beetwhen extension
-# in particulare define method than raise event to observers client
-# and a way to retreive state from client
-
-class ArcadiaContract
-  include Observable
-  include Singleton
-  class ContractEvent 
-    	attr_reader :contract
-    	attr_reader :signature
-    	attr_reader :context
-    	attr_reader :channel
-    	attr_reader :time
-    	attr_writer :action
-    	
-    	SIGNATURE = "NOT_DEFINED"
-     def initialize(_contract, _signature=SIGNATURE, _context=nil)
-       @contract = _contract
-     		@signature = _signature
-     		@context = _context
-     		_context.channel != nil ?@channel=_context.channel: @channel='0'
-     		@time = Time.new
-     		@action = false
-     end
-     
-    	def handled(_from)
-    	  MainContract.instance.event_handled(MainContract::TMainObj.new(_from,'caused_by'=>self))
-    	end
-    	
-    	def is_action? 
-    	  @action
-    	end
-  end
-  
-  class TObj
-   	attr_reader :sender
-    attr_accessor :caused_by
-   	attr_accessor :channel
-   	DEFAULT_CHANNEL='0'
-   	def initialize(_sender, _args=nil)
-		  @sender=_sender
-		  @channel = DEFAULT_CHANNEL
-		  if _args 
-		  	  _args.each do |key, value|
-		  	    self.send(key+'=', value)
-		  	  end
-		  end
-		  
-	  end
-	  
-#	  properties.each do |prop|
-#	    define_method(prop) {
-#        instance_variable_get("@#{prop}")
-#      }
-#      define_method("#{prop}=") do |value|
-#        instance_variable_set("@#{prop}", value)
-#      end
-#		end
-
-#			define_method(prop)
-#				attr_reader prop.to_sym # prop by itself also worked for me
-#				# code snip ? setter method
-#			end
-
-			
-#		def TObj.property(*properties)
-#      properties.each { |property|
-#        class_eval(%Q[
-#          def #{property}
-#            @#{property}
-#          end
-#  
-#          def #{property}=(value)
-#            @#{property} = value
-#          end
-#        ])
-#      }
-#		end	  
-	end
-	
-  class EventInfo
-  	 attr_reader :method
-  	 attr_reader :label
-  	 attr_reader :icon
-    def initialize(_method)
-      @method = @method
-    end
-  end
-
-  SObj = Struct.new("GenericState",
-    :caller
-  )
- 
-  def _event_forge(_event_signature, _tobj) 
-    ContractEvent.new(self, _event_signature, _tobj)
-  end
-  private :_event_forge
-  
-  
-  def raise_event(_event_signature, _tobj, *args)
-     _raise_event(_event_forge(_event_signature, _tobj),*args)
-  end
-
-  def _raise_event(_event, *args)
-     changed
-     notify_observers(_event, *args)
-     if self.class != ArcadiaContract
-       self.class.superclass.instance._raise_event(_event, *args)
-     end
-  end
-  #protected :_raise_event
-  
-  def raise_action(_event_signature, _tobj, *args)
-     _raise_action(_event_forge(_event_signature, _tobj),*args)
-  end
-
-  def _raise_action(_event, *args)
- 	  _event.action = true 
- 		_raise_event(_event, *args)
-  end
-  private :_raise_action
-
-  def ArcadiaContract.publish_action(_method)
-    _info = EventInfo.new(_method)
-    @@actions = Array.new if !defined?(@@actions)
-    @@actions << _info
-  end
-
-end
-
-class ArcadiaContractListener
-	def initialize(_subscriber, _class, _method, _channel=nil)
-	  @subscriber = _subscriber
-	  @class = _class
-	  @method = _method
-	  @channel = _channel
-	  create_callback(_class.instance)
-	end
-	
-	def create_callback(_contract)
-	  ObserverCallbackContract.new(_contract, @subscriber, @method, @channel)
-	end
-	
-end
-
-class ArcadiaContractListenerThread < ArcadiaContractListener
-	
-	def create_callback(_contract)
-	  #Thread.new do super(_contract, _subscriber, _method) end
-	  ObserverCallbackContractThread.new(_contract, @subscriber, @method, @channel)
-	end
-	
-end
-
-
-
-
-#class AeContractListener
-#	def initialize(_arcadia)
-#	  
-#	end
-#	def listen_on(_aeclip_name, _method_update_to_call=:update)
-#	end
-#	def update(_tobj)
-#	end
-#end
+#
+#   a-ext.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "observer"
+require 'singleton'
+
+class ArcadiaExt
+  attr_reader :arcadia
+
+  def initialize(_arcadia, _name=nil)
+    @arcadia = _arcadia
+    @name = _name
+    unless self.respond_to? :build
+      raise NoMethodError, "ArcadiaExt needs to respond to `:build'" 
+    end
+    unless self.respond_to? :before_build
+      raise NoMethodError, "ArcadiaExt needs to respond to `:before_build'" 
+    end
+    unless self.respond_to? :after_build
+      raise NoMethodError, "ArcadiaExt needs to respond to `:after_build'" 
+    end
+    if self.respond_to? :arcadia_update
+    		ObserverCallback.new(@arcadia.main_contract, self, :arcadia_update)
+    end
+    ObjectSpace.define_finalizer(self, self.method(:finalize).to_proc)
+  end
+
+  def before_build
+    #must be implemented in child
+  end
+  
+  def build
+    #must be implemented in child
+  end
+
+  def after_build
+    #must be implemented in child
+  end
+
+	def frame
+	  if @frame == nil
+	    @frame = @arcadia.layout.register_panel(@arcadia['conf'][@name+'.frame'],@name, @arcadia['conf'][@name+'.label'])
+	  end
+    return @frame
+	end
+
+	def frame_free
+	  @arcadia.layout.unregister_panel(@arcadia['conf'][@name+'.frame'],@name)
+	  @frame = nil
+	end
+
+	def conf(_property)
+	  @arcadia['conf'][@name+'.'+_property]
+	end
+#  def arcadia_update(_sender, _event)
+    #must be implemented to activate
+#  end
+
+  def can_exit_query
+    return true
+  end
+
+  def finalize
+  		#may be extendeded in child
+  end
+
+  def verbose
+    '??????'
+  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
+end
+
+class ObserverCallbackContract < ObserverCallback
+	def initialize(_publisher, _subscriber, _method_update_to_call=:update, _channel=nil)
+	  super(_publisher, _subscriber, _method_update_to_call)
+	  @channel = _channel
+	  @channel_conf = @subscriber.conf(@publisher.class.to_s+'.channel') if @subscriber.respond_to?(:conf)
+  end
+
+	def filter(_event)
+	  @channel_conf != nil && @channel_conf != _event.channel
+	end
+  
+	def update(_event, *args)
+	  super(_event, *args) if !filter(_event)
+  end
+end
+
+
+class ObserverCallbackContractThread < ObserverCallbackContract
+	def update(*args)
+		Thread.new do
+		  super(*args)
+		end
+	end
+
+end
+
+
+# The contract define the interface beetwhen extension
+# in particulare define method than raise event to observers client
+# and a way to retreive state from client
+
+class ArcadiaContract
+  include Observable
+  include Singleton
+  class ContractEvent 
+    	attr_reader :contract
+    	attr_reader :signature
+    	attr_reader :context
+    	attr_reader :channel
+    	attr_reader :time
+    	attr_writer :action
+    	
+    	SIGNATURE = "NOT_DEFINED"
+     def initialize(_contract, _signature=SIGNATURE, _context=nil)
+       @contract = _contract
+     		@signature = _signature
+     		@context = _context
+     		_context.channel != nil ?@channel=_context.channel: @channel='0'
+     		@time = Time.new
+     		@action = false
+     end
+     
+    	def handled(_from)
+    	  MainContract.instance.event_handled(_from,'caused_by'=>self)
+    	end
+    	
+    	def is_action? 
+    	  @action
+    	end
+  end
+  
+  class TObj
+   	attr_reader :sender
+    attr_accessor :caused_by
+   	attr_accessor :channel
+   	DEFAULT_CHANNEL='0'
+   	def initialize(_sender, _args=nil)
+		  @sender=_sender
+		  @channel = DEFAULT_CHANNEL
+		  if _args 
+		  	  _args.each do |key, value|
+		  	    self.send(key+'=', value)
+		  	  end
+		  end
+		  
+	  end
+	  
+#	  properties.each do |prop|
+#	    define_method(prop) {
+#        instance_variable_get("@#{prop}")
+#      }
+#      define_method("#{prop}=") do |value|
+#        instance_variable_set("@#{prop}", value)
+#      end
+#		end
+
+#			define_method(prop)
+#				attr_reader prop.to_sym # prop by itself also worked for me
+#				# code snip ? setter method
+#			end
+
+			
+#		def TObj.property(*properties)
+#      properties.each { |property|
+#        class_eval(%Q[
+#          def #{property}
+#            @#{property}
+#          end
+#  
+#          def #{property}=(value)
+#            @#{property} = value
+#          end
+#        ])
+#      }
+#		end	  
+	end
+	
+  class EventInfo
+  	 attr_reader :method
+  	 attr_reader :label
+  	 attr_reader :icon
+    def initialize(_method)
+      @method = @method
+    end
+  end
+
+  SObj = Struct.new("GenericState",
+    :caller
+  )
+ 
+  def _event_forge(_event_signature, _tobj) 
+    ContractEvent.new(self, _event_signature, _tobj)
+  end
+  private :_event_forge
+  
+  
+  def raise_event(_event_signature, _tobj, *args)
+     _raise_event(_event_forge(_event_signature, _tobj),*args)
+  end
+
+  def _raise_event(_event, *args)
+     changed
+     notify_observers(_event, *args)
+     if self.class != ArcadiaContract
+       self.class.superclass.instance._raise_event(_event, *args)
+     end
+  end
+  #protected :_raise_event
+  
+  def raise_action(_event_signature, _tobj, *args)
+     _raise_action(_event_forge(_event_signature, _tobj),*args)
+  end
+
+  def _raise_action(_event, *args)
+ 	  _event.action = true 
+ 		_raise_event(_event, *args)
+  end
+  private :_raise_action
+
+  def ArcadiaContract.publish_action(_method)
+    _info = EventInfo.new(_method)
+    @@actions = Array.new if !defined?(@@actions)
+    @@actions << _info
+  end
+
+end
+
+class ArcadiaContractListener
+	def initialize(_subscriber, _class, _method, _channel=nil)
+	  @subscriber = _subscriber
+	  @class = _class
+	  @method = _method
+	  @channel = _channel
+	  create_callback(_class.instance)
+	end
+	
+	def create_callback(_contract)
+	  ObserverCallbackContract.new(_contract, @subscriber, @method, @channel)
+	end
+	
+end
+
+class ArcadiaContractListenerThread < ArcadiaContractListener
+	
+	def create_callback(_contract)
+	  #Thread.new do super(_contract, _subscriber, _method) end
+	  ObserverCallbackContractThread.new(_contract, @subscriber, @method, @channel)
+	end
+	
+end
+
+
+
+
+#class AeContractListener
+#	def initialize(_arcadia)
+#	  
+#	end
+#	def listen_on(_aeclip_name, _method_update_to_call=:update)
+#	end
+#	def update(_tobj)
+#	end
+#end