arcadia 0.1.2.1 → 0.1.3

data/base/a-contracts-work.rb

@@ -0,0 +1,219 @@
+#the caller must call the action then the contract must exec 
+#the time sequence before, do, after
+#
+#es.
+#
+#def event(_event)
+#  do_before_event(_event)
+#  do_event(_event)
+#  do_after_event(_event)
+#end
+
+# event composition
+#
+#  [_<TIME>]_<VERBO>_<TARGET>_
+#
+#  es.  _BEFORE_OPEN_FILE_
+#              _OPEN_FILE_
+#        _AFTER_OPEN_FILE_
+#     
+#
+#
+#  class Contract
+#    def raise_event(_event_signature, _tobj, *args)
+#       _event = _raise_event(_event_forge(_BEFORE+_event_signature, _tobj),*args)
+#       if _event.continue_query
+#          _event = _raise_event(_event_forge(_event_signature, _tobj),*args)
+#       if _event...
+#       _raise_event(_event_forge(_AFTER+_event_signature, _tobj),*args)
+#    end
+#
+#  end
+#  
+#    sequence
+#      _BEFORE='BEFORE'
+#      _AFTER='AFTER'
+#    
+#    verbos
+#      _OPEN='OPEN'
+#      _CLOSE='CLOSE'
+#      _SAVE='SAVE'
+#      _SAVEAS='SAVEAS'
+#      _SHOW='SHOW'
+#      _BUILD='BUILD'
+#      _SET='SET'
+#      _UNSET='UNSET'
+#      _GET='GET'
+#      _COMPLETE='COMPLETE'
+#      _DOCUMENT='DOCUMENT'
+#      _START='START'
+#      _STOP='STOP'
+#      _CREATE='CREATE'
+#      _DESTROY='DESTROY'
+#
+#    target
+#      _FILE_='FILE'
+#        verbos=[OPEN,CLOSE,SAVE,SAVEAS]
+#        detail=[filename,line]
+#      _EXTENSION_='EXTENSION'
+#      _BREAKPOINT_='BREAKPOINT'
+#      _DIALOG_='DIALOG'
+#      _BUFFER_='BUFFER'
+#      _CODE_='CODE'
+#      _DEBUGGER_='DEBUGGER'
+#
+#    
+#    event
+#      _OPEN_FILE_ = _OPEN<<_FILE_
+#      CLOSE+FILE
+#  
+#    transfert_detail
+#      _FILE_
+#        filename
+#        line
+#      _EXTENSION_
+#        name
+#      _BREAKPOINT_
+#        filename
+#        line
+#      _DIALOG_
+#        type=[search,generic]
+#      _BUFFER_
+#        title
+#      _CODE_
+#        filename
+#        row
+#        column
+#
+#    
+#    EXTENSION
+#      name
+#
+#    FileContract
+#    
+#    ExtensionContract
+#
+#
+#    #####     raise_event(_OPEN_FILE_, file=>_file)
+#    ##### or  raise_event(_OPEN, _FILE_, file=>_file)
+#    ##### or  open_file(file=>_file)
+
+module  Sequence
+  BEFORE='BEFORE'
+  AFTER='AFTER'
+end
+
+module Action
+  OPEN='OPEN'
+  CLOSE='CLOSE'
+  SAVE='SAVE'
+  SAVEAS='SAVEAS'
+  SHOW='SHOW'
+  BUILD='BUILD'
+  SET='SET'
+  UNSET='UNSET'
+  GET='GET'
+  COMPLETE='COMPLETE'
+  DOCUMENT='DOCUMENT'
+  START='START'
+  STOP='STOP'
+  CREATE='CREATE'
+  DESTROY='DESTROY'
+end
+  
+module Target
+  FILE='FILE'
+  EXTENSION='EXTENSION'
+  BREAKPOINT='BREAKPOINT'
+  DIALOG='DIALOG'
+  BUFFER='BUFFER'
+  CODE='CODE'
+  DEBUGGER='DEBUGGER'
+end
+
+    
+#  module Event
+#     include Verbos 
+#     include Target 
+#      _OPEN_FILE_ = _OPEN<<_FILE
+#  end
+  
+class ArcadiaContract
+  include Sequence
+  include Action
+  include Target
+
+  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
+	end
+
+
+  def ArcadiaContract::signature(_verbos,_target)
+    _verbos<<'_'<<_target
+  end
+  def ArcadiaContract::after_signature(_sig)
+    signature(AFTER,_sig)
+  end
+  def ArcadiaContract::before_signature(_sig)
+    signature(BEFORE,_sig)
+  end
+  def ArcadiaContract::add_action(_action, _target)
+    _s = signature(_action,_target)
+    _bs = before_signature(_s)
+    _as = after_signature(_s)
+    class_eval(%Q[
+      #{_s}='#{_s}'
+      #{_bs}='#{_bs}'
+      #{_as}='#{_as}'
+    ])
+  end
+end
+
+class << ArcadiaContract
+  include Sequence
+  include Action
+  include Target
+end
+  
+class FileContract < ArcadiaContract
+  add_action OPEN,FILE
+  add_action CLOSE,FILE
+  add_action SAVE,FILE
+  class TFileObj < TObj
+  		attr_accessor :file, :line, :col, :title, :text, :candidates, :xdoc, :ydoc, :doc_entry,:doc
+  end
+end  
+
+class CodeContract < ArcadiaContract
+  add_action COMPLETE,CODE
+  add_action DOCUMENT,CODE  
+  class TCodeObj < TObj
+#    attr_accessor_output :file, :line, :col, , :xdoc, :ydoc, :doc_entry
+#    attr_accessor_input :candidates,:doc
+  end
+end  
+
+#  def do_file_event(_event)
+#    case _event.signature 
+##     when FileContract::BEFORE_OPEN_FILE
+#      when ArcadiaContract::before_signature(FileContract::OPEN_FILE)
+#      when FileContract::OPEN
+#      when 
+#    end
+#  end
+
+p FileContract::AFTER_OPEN_FILE
+p FileContract::BEFORE_OPEN_FILE
+#p CodeContract::OPEN_FILE

data/base/a-contracts.rb

@@ -1,307 +1,322 @@
-#
-#   a-contracts.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-# Catalog of all contracts used by extensions. This astraction guarantees 
-# the separation of ext
-# contract must extend AeContract
-
-require "base/a-ext"
-
-#---------------- contracts ----------------------
-class MainContract < ArcadiaContract
-  class TMainObj < TObj
-  		attr_accessor :obj, :domain, :extension
-  end
-
-  EXTENSION_BEFORE_BUILD = "EXTENSION_BEFORE_BUILD"
-  EXTENSION_BUILD = "EXTENSION_BUILD"
-  EXTENSION_AFTER_BUILD = "EXTENSION_AFTER_BUILD"
-  EXTENSION_FINALIZE = "EXTENSION_FINALIZE"
-  CONTRACT_RETRIVE = "CONTRACT_RETRIVE"
-  RAISE_EXTENSION = "RAISE_EXTENSION"
-	EVENT_HANDLED = "EVENT_HANDLED"
-
-
-	def event_handled(_sender, *args)
-	  raise_event(EVENT_HANDLED, TMainObj.new(_sender, *args))
-	end
-  
-  def extension_before_build(_sender, *args)
-    raise_event(EXTENSION_BEFORE_BUILD, TMainObj.new(_sender, *args))
-  end
-  
-  def extension_build(_sender, *args)
-    raise_event(EXTENSION_BUILD, TMainObj.new(_sender, *args))
-  end
-  
-  def extension_after_build(_sender, *args)
-    raise_event(EXTENSION_AFTER_BUILD, TMainObj.new(_sender, *args))
-  end
-
-  def raise_extension(_sender, *args)
-    raise_event(RAISE_EXTENSION, TMainObj.new(_sender, *args))
-  end
-
-end
-
-
-class EditorContract < ArcadiaContract
-  class TEditorObj < TObj
-  		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"
-	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"
-		
-  def open_file(_sender, *args)
-  		raise_action(OPEN_FILE, TEditorObj.new(_sender, *args))
-  end
-
-  def close_file(_sender, *args)
-  		raise_action(CLOSE_FILE, TEditorObj.new(_sender, *args))
-  end
-
-  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(_sender, *args)
-	  raise_action(COMPLETE_CODE, TEditorObj.new(_sender, *args))
-	end
-
-	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 file_saved(_sender, *args)
-  		raise_event(FILE_AFTER_SAVE, TEditorObj.new(_sender, *args))
-  end
-
-  def file_created(_sender, *args)
-  		raise_event(FILE_AFTER_CREATE, TEditorObj.new(_sender, *args))
-  end
-
-  def buffer_raised(_sender, *args)
-  		raise_event(BUFFER_AFTER_RAISE, TEditorObj.new(_sender, *args))
-  end
-
-  def file_closed(_sender, *args)
-  		raise_event(FILE_AFTER_CLOSE, TEditorObj.new(_sender, *args))
-  end
- 
-  def breakpoint_created(_sender, *args)
-  		raise_event(BREAKPOINT_AFTER_CREATE, TEditorObj.new(_sender, *args))
-  end
-  
-  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
-  TYPE_SIMPLE = "TYPE_SIMPLE"
-  TYPE_DEBUG = "TYPE_DEBUG"
-  TYPE_ERROR = "TYPE_ERROR"
-  SObj = Struct.new("MsgState"
-  )
-  class TMsgObj < TObj
-  		attr_accessor :type, :text
-  end
-  
-  EVENT_EXT_MSG_OUT = "EVENT_EXT_MSG_OUT"
-  def out(_sender, *args)
-    raise_event(EVENT_EXT_MSG_OUT, TMsgObj.new(_sender, *args))
-  end
-  
-  def out_simple(_sender, _msg, _channel=nil)
-    self.out(_sender, 'type'=>TYPE_SIMPLE, 'text'=>_msg, 'channel'=>_channel)
-  end
-  
-  def out_debug(_sender, _msg, _channel=nil)
-    self.out(_sender, 'type'=>TYPE_DEBUG, 'text'=>_msg, 'channel'=>_channel)
-  end
-
-  def out_error(_sender, _msg, _channel=nil)
-    self.out(_sender, 'type'=>TYPE_ERROR, 'text'=>_msg, 'channel'=>_channel)
-  end
-end
-
-class ShellContract < ArcadiaContract
-  SObj = Struct.new("ShellState"
-  )
-  class TShellObj < TObj
-  		attr_accessor :file
-  end
-
-  def run(_sender, *args)
-  end  
-  
-  def debug(_sender, *args)
-  end  
-end
-
-
-class DebugContract < ArcadiaContract
-  SObj = Struct.new("DebugState"
-  )
-  class TDebugObj < TObj
-    attr_accessor :file, :line, :error_text, :error_class,:callers, :variables
-  end
-  
-  DEBUG_BEGIN="DEBUG_BEGIN"
-  DEBUG_END="DEBUG_END"
-  DEBUG_STEP="DEBUG_STEP"
-  
-  def debug_begin(_sender, *args)
-  		raise_event(DEBUG_BEGIN, TDebugObj.new(_sender, *args))
-	end
-  def debug_end(_sender, *args)
-  		raise_event(DEBUG_END, TDebugObj.new(_sender, *args))
-	end
-	def debug_step(_sender, *args)
-  		raise_event(DEBUG_STEP, TDebugObj.new(_sender, *args))
-	end
-end
-
-class InspectorContract < ArcadiaContract
-  SObj = Struct.new("InspectorActionState"
-  )
-  class TInspectorObj < TObj
-  		attr_accessor	 :wrapper, :requires, :property_family,:property_name,:property_value
-  end
-
-  SELECT_WRAPPER = "SELECT_WRAPPER"
-  #ACTIVATE_WRAPPER = "ACTIVATE_WRAPPER"
-  DELETE_WRAPPER = "DELETE_WRAPPER"
-  ADD_REQUIRE = "ADD_REQUIRE"
-  REGISTER_WRAPPER = "REGISTER_WRAPPER"
-#  UPDATE_PROPERTY = "UPDATE_PROPERTY"
-  DELETE_INSPECTOR = "DELETE_INSPECTOR"
-  RAISE_LAST_WIDGET = "RAISE_LAST_WIDGET"
-  RAISE_ACTIVE_TOPLEVEL = "RAISE_ACTIVE_TOPLEVEL"
-  
-  def delete_wrapper(_sender, *args)
-  		raise_action(DELETE_WRAPPER, TInspectorObj.new(_sender, *args))
-  end
-  
-  def raise_last_widget(_sender, *args)
-  		raise_action(RAISE_LAST_WIDGET, TInspectorObj.new(_sender, *args))
-  end
-
-  def raise_active_toplevel(_sender, *args)
-  		raise_action(RAISE_ACTIVE_TOPLEVEL, TInspectorObj.new(_sender, *args))
-  end
-  
-  def select(_sender, *args)
-  		raise_action(SELECT_WRAPPER, TInspectorObj.new(_sender, *args))
-  end 
-
-	def add_require(_sender, *args)
-  		raise_action(ADD_REQUIRE, TInspectorObj.new(_sender, *args))
-	end
-	
-  def register(_sender, *args)
-  		raise_action(REGISTER_WRAPPER, TInspectorObj.new(_sender, *args))
-  end 
-  
-  def delete_inspector(_sender, *args)
-    raise_action(DELETE_INSPECTOR, TInspectorObj.new(_sender, *args))
-  end
-  
-  publish_action :raise_active_object
-end
-
-class PublishContract < ArcadiaContract
-  ADD_COMAND_ACTOR = "ADD_COMAND_ACTOR"
-  def add_command_actor(_sender, *args)
-    raise_action(ADD_COMAND_ACTOR, TObj.new(_sender, *args))
-  end
-end
-
-
-
-class WrapperContract < ArcadiaContract
-  class TWrapperObj < TObj
-  		attr_accessor	 :wrapper, :property_name, :property_family, :property_old_value, :property_new_value
-  end
-  WRAPPER_AFTER_CREATE="WRAPPER_AFTER_CREATE"
-  PROPERTY_AFTER_UPDATE="PROPERTY_AFTER_UPDATE"
-  UPDATE_PROPERTY="UPDATE_PROPERTY"
-  def update_property(_sender, *args)
-    raise_action(UPDATE_PROPERTY, TWrapperObj.new(_sender, *args))
-  end
-  def property_updated(_sender, *args)
-    raise_event(PROPERTY_AFTER_UPDATE, TWrapperObj.new(_sender, *args))
-  end
-  def wrapper_created(_sender, *args)
-    raise_event(WRAPPER_AFTER_CREATE, TWrapperObj.new(_sender, *args))
-  end
-end
-
-class PaletteContract < ArcadiaContract
-  class TPaletteObj < TObj
-  		attr_accessor	 :parent, :x, :y
-  end
-  MAKE_SELECTED_WRAPPER = "MAKE_SELECTED_WRAPPER"
-  def make_selected(_sender, *args)
-    raise_action(MAKE_SELECTED_WRAPPER, TPaletteObj.new(_sender, *args))
-  end
-end
+#
+#   a-contracts.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+# Catalog of all contracts used by extensions. This astraction guarantees 
+# the separation of ext
+# contract must extend AeContract
+
+require "base/a-ext"
+
+
+
+
+#---------------- contracts ----------------------
+class MainContract < ArcadiaContract
+  class TMainObj < TObj
+  		attr_accessor :obj, :domain, :extension
+  end
+
+  EXTENSION_BEFORE_BUILD = "EXTENSION_BEFORE_BUILD"
+  EXTENSION_BUILD = "EXTENSION_BUILD"
+  EXTENSION_AFTER_BUILD = "EXTENSION_AFTER_BUILD"
+  EXTENSION_FINALIZE = "EXTENSION_FINALIZE"
+  CONTRACT_RETRIVE = "CONTRACT_RETRIVE"
+  RAISE_EXTENSION = "RAISE_EXTENSION"
+  EVENT_HANDLED = "EVENT_HANDLED"
+
+
+  def event_handled(_sender, *args)
+    raise_event(EVENT_HANDLED, TMainObj.new(_sender, *args))
+  end
+  
+  def extension_before_build(_sender, *args)
+    raise_event(EXTENSION_BEFORE_BUILD, TMainObj.new(_sender, *args))
+  end
+  
+  def extension_build(_sender, *args)
+    raise_event(EXTENSION_BUILD, TMainObj.new(_sender, *args))
+  end
+  
+  def extension_after_build(_sender, *args)
+    raise_event(EXTENSION_AFTER_BUILD, TMainObj.new(_sender, *args))
+  end
+
+  def raise_extension(_sender, *args)
+    raise_event(RAISE_EXTENSION, TMainObj.new(_sender, *args))
+  end
+
+end
+
+
+class EditorContract < ArcadiaContract
+  class TEditorObj < TObj
+    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"
+  BUILD_DOC_TREE = "BUILD_DOC_TREE"
+
+  #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"
+  EVAL_EXPRESSION = "EVAL_EXPRESSION"  
+  def open_file(_sender, *args)
+    raise_action(OPEN_FILE, TEditorObj.new(_sender, *args))
+  end
+
+  def close_file(_sender, *args)
+    raise_action(CLOSE_FILE, TEditorObj.new(_sender, *args))
+  end
+
+  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(_sender, *args)
+    raise_action(COMPLETE_CODE, TEditorObj.new(_sender, *args))
+  end
+
+  def doc_code(_sender, *args)
+    raise_action(DOC_CODE, TEditorObj.new(_sender, *args))
+  end
+
+  def build_doc_tree(_sender, *args)
+    raise_action(BUILD_DOC_TREE, TEditorObj.new(_sender, *args))
+  end
+
+  def file_opened(_sender, *args)
+    raise_event(FILE_AFTER_OPEN, TEditorObj.new(_sender, *args))
+  end
+
+  def file_saved(_sender, *args)
+    raise_event(FILE_AFTER_SAVE, TEditorObj.new(_sender, *args))
+  end
+
+  def file_created(_sender, *args)
+    raise_event(FILE_AFTER_CREATE, TEditorObj.new(_sender, *args))
+  end
+
+  def buffer_raised(_sender, *args)
+    raise_event(BUFFER_AFTER_RAISE, TEditorObj.new(_sender, *args))
+  end
+
+  def file_closed(_sender, *args)
+    raise_event(FILE_AFTER_CLOSE, TEditorObj.new(_sender, *args))
+  end
+ 
+  def breakpoint_created(_sender, *args)
+    raise_event(BREAKPOINT_AFTER_CREATE, TEditorObj.new(_sender, *args))
+  end
+  
+  def breakpoint_deleted(_sender, *args)
+    raise_event(BREAKPOINT_AFTER_DELETE, TEditorObj.new(_sender, *args))
+  end
+
+  def eval_expression(_sender, *args)
+    raise_action(EVAL_EXPRESSION, 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
+  TYPE_SIMPLE = "TYPE_SIMPLE"
+  TYPE_DEBUG = "TYPE_DEBUG"
+  TYPE_ERROR = "TYPE_ERROR"
+  SObj = Struct.new("MsgState"
+  )
+  class TMsgObj < TObj
+  		attr_accessor :type, :text
+  end
+  
+  EVENT_EXT_MSG_OUT = "EVENT_EXT_MSG_OUT"
+  def out(_sender, *args)
+    raise_event(EVENT_EXT_MSG_OUT, TMsgObj.new(_sender, *args))
+  end
+  
+  def out_simple(_sender, _msg, _channel=nil)
+    self.out(_sender, 'type'=>TYPE_SIMPLE, 'text'=>_msg, 'channel'=>_channel)
+  end
+  
+  def out_debug(_sender, _msg, _channel=nil)
+    self.out(_sender, 'type'=>TYPE_DEBUG, 'text'=>_msg, 'channel'=>_channel)
+  end
+
+  def out_error(_sender, _msg, _channel=nil)
+    self.out(_sender, 'type'=>TYPE_ERROR, 'text'=>_msg, 'channel'=>_channel)
+  end
+end
+
+class ShellContract < ArcadiaContract
+  SObj = Struct.new("ShellState"
+  )
+  class TShellObj < TObj
+  		attr_accessor :file
+  end
+
+  def run(_sender, *args)
+  end  
+  
+  def debug(_sender, *args)
+  end  
+end
+
+
+class DebugContract < ArcadiaContract
+  SObj = Struct.new("DebugState"
+  )
+  class TDebugObj < TObj
+    attr_accessor :file, :line, :error_text, :error_class,:callers, :variables
+  end
+  
+  DEBUG_BEGIN="DEBUG_BEGIN"
+  DEBUG_END="DEBUG_END"
+  DEBUG_STEP="DEBUG_STEP"
+  
+  def debug_begin(_sender, *args)
+  		raise_event(DEBUG_BEGIN, TDebugObj.new(_sender, *args))
+  end
+  def debug_end(_sender, *args)
+  		raise_event(DEBUG_END, TDebugObj.new(_sender, *args))
+  end
+  def debug_step(_sender, *args)
+  		raise_event(DEBUG_STEP, TDebugObj.new(_sender, *args))
+  end
+end
+
+class InspectorContract < ArcadiaContract
+  SObj = Struct.new("InspectorActionState"
+  )
+  class TInspectorObj < TObj
+  		attr_accessor	 :wrapper, :requires, :property_family,:property_name,:property_value
+  end
+
+  SELECT_WRAPPER = "SELECT_WRAPPER"
+  #ACTIVATE_WRAPPER = "ACTIVATE_WRAPPER"
+  DELETE_WRAPPER = "DELETE_WRAPPER"
+  ADD_REQUIRE = "ADD_REQUIRE"
+  REGISTER_WRAPPER = "REGISTER_WRAPPER"
+#  UPDATE_PROPERTY = "UPDATE_PROPERTY"
+  DELETE_INSPECTOR = "DELETE_INSPECTOR"
+  RAISE_LAST_WIDGET = "RAISE_LAST_WIDGET"
+  RAISE_ACTIVE_TOPLEVEL = "RAISE_ACTIVE_TOPLEVEL"
+  
+  def delete_wrapper(_sender, *args)
+  		raise_action(DELETE_WRAPPER, TInspectorObj.new(_sender, *args))
+  end
+  
+  def raise_last_widget(_sender, *args)
+  		raise_action(RAISE_LAST_WIDGET, TInspectorObj.new(_sender, *args))
+  end
+
+  def raise_active_toplevel(_sender, *args)
+  		raise_action(RAISE_ACTIVE_TOPLEVEL, TInspectorObj.new(_sender, *args))
+  end
+  
+  def select(_sender, *args)
+  		raise_action(SELECT_WRAPPER, TInspectorObj.new(_sender, *args))
+  end 
+
+  def add_require(_sender, *args)
+  		raise_action(ADD_REQUIRE, TInspectorObj.new(_sender, *args))
+  end
+  
+  def register(_sender, *args)
+  		raise_action(REGISTER_WRAPPER, TInspectorObj.new(_sender, *args))
+  end 
+  
+  def delete_inspector(_sender, *args)
+    raise_action(DELETE_INSPECTOR, TInspectorObj.new(_sender, *args))
+  end
+  
+  publish_action :raise_active_object
+end
+
+class PublishContract < ArcadiaContract
+  ADD_COMAND_ACTOR = "ADD_COMAND_ACTOR"
+  def add_command_actor(_sender, *args)
+    raise_action(ADD_COMAND_ACTOR, TObj.new(_sender, *args))
+  end
+end
+
+
+
+class WrapperContract < ArcadiaContract
+  class TWrapperObj < TObj
+  		attr_accessor	 :wrapper, :property_name, :property_family, :property_old_value, :property_new_value
+  end
+  WRAPPER_AFTER_CREATE="WRAPPER_AFTER_CREATE"
+  PROPERTY_AFTER_UPDATE="PROPERTY_AFTER_UPDATE"
+  UPDATE_PROPERTY="UPDATE_PROPERTY"
+  def update_property(_sender, *args)
+    raise_action(UPDATE_PROPERTY, TWrapperObj.new(_sender, *args))
+  end
+  def property_updated(_sender, *args)
+    raise_event(PROPERTY_AFTER_UPDATE, TWrapperObj.new(_sender, *args))
+  end
+  def wrapper_created(_sender, *args)
+    raise_event(WRAPPER_AFTER_CREATE, TWrapperObj.new(_sender, *args))
+  end
+end
+
+class PaletteContract < ArcadiaContract
+  class TPaletteObj < TObj
+  		attr_accessor	 :parent, :x, :y
+  end
+  MAKE_SELECTED_WRAPPER = "MAKE_SELECTED_WRAPPER"
+  def make_selected(_sender, *args)
+    raise_action(MAKE_SELECTED_WRAPPER, TPaletteObj.new(_sender, *args))
+  end
+end
+