arcadia 0.1.0 → 0.1.1

data/README

@@ -1,8 +1,8 @@
 Arcadia Ruby Ide
-version 0.1.0 
+version 0.1.1 
 
 by Antonio Galeone
-on Feb 25, 2007
+on Mar 31, 2007
 
 "Thank you for consider this project"
 
@@ -20,14 +20,14 @@ Some of Arcadia ruby ide project features include:
 
 This release
 ============
-This is the first public version. A lot of things are to do
-but i have decided to begin to release something. I use Arcadia
-to develop Arcadia so there is something!
+-[fixed] Bugs fixed
+-[new] Added completion code support (Ctrl-space) based upon rcodetools package (must be installed)
+-[modified] in file config the <OPERATING SYSTEM IDENTIFY> separator modified from <:> to <::> 
 
 Short User guide
 ================
 I hope that you perceive Arcadia gui enough user frindly.
-As you can see the application is splitted in vertial 
+As you can see the application is splitted in vertical 
 and horizontal resizing frames. Clicking on vertical splitter 
 appear two button for left or right one shot frame close. 
 The horizontal splitter has two little button for the same reason
@@ -56,6 +56,7 @@ Ctrl-x  => cut selected text
 Ctrl-z  => undo
 Ctrl-f  => copy the selected text on input combobox of find bar and moves focus
 Ctrl-s  => save
+Ctrl-space => completion code
 Ctrl-shift-i => indent the selected block
 Ctrl-shift-u => unindent the selected block
 Ctrl-shift-c => comment/uncomment the selected code block
@@ -69,11 +70,11 @@ The last used files are organizing in tree so you can reopen them or there
 directory by clicking on the tree node.
 
 < Palette >
-It containe the wrapper components for the tk gui building. 
+It contain the wrapper components for the tk gui building. 
 It is in very unstabled and incomplete state. 
 The first component is a TkTopLevel wrapper, when you click on it a new form is created and a 
 Object inspector appears.
-The other component must be first selected and then created by clicking on container widget.
+The other components must be first selected and then created by clicking on container widget.
 The so created widgets has a popup menu for deleting them or in the toplevel case to switch
 to a code view.
 On the palette there are also two button, one for deselect and other for copy from the selected 
@@ -92,15 +93,15 @@ step. (you must have patience!)
 <Configuration>
 Same Arcadia properties are locally configurabled by editing the file arcadia.conf
 under ~/.arcadia  directory. The format of property definition are:
-<OPERATING SYSTEM IDENTIFY:>PROPERTY_NAME=PROPERTY_VALUE
+<OPERATING SYSTEM IDENTIFY::>PROPERTY_NAME=PROPERTY_VALUE
 
 
 Requirement
 ===========
 I include into distribution also the BWidget lib (under tcl directory) so
 are require realy only the standard tcl tk lib (tested on tcl tk 8.4).
-I have tested arcadia with ruby 1.8.4 and 1.8.5 on FreeBsd6 and windows 2000 os. If you
-will test arcadia on other operating system sends me a e-mail.
+I have tested arcadia with ruby 1.8.4, 1.8.5, 1.8.6 on FreeBsd6 and windows 2000/XP os. If you
+will test arcadia on other operating system sends me an e-mail.
 
 Developers information
 =====================
@@ -119,4 +120,4 @@ For questions:
 antonio-galeone@rubyforge.org
 For bugs, support request, feature request https://rubyforge.org/projects/arcadia:
 
-
+Bye

data/arcadia.rb

@@ -23,7 +23,7 @@ class Arcadia < TkApplication
     super(
       ApplicationParams.new(
         'arcadia',
-        '0.1.0',
+        '0.1.1',
         'conf/arcadia.conf',
         'conf/arcadia.pers'
       )
@@ -42,10 +42,13 @@ class Arcadia < TkApplication
     @mf_root = Tk::BWidget::MainFrame.new(@root){
       menu @main_menu
     }.pack(
-    'anchor'=> 'center',
-    'fill'=> 'both',
-    'expand'=> 1
+	    'anchor'=> 'center',
+ 	   'fill'=> 'both',
+  	  'expand'=> 1
     )
+
+    #.place('x'=>0,'y'=>0,'relwidth'=>1,'relheight'=>1)
+    @mf_root.show_statusbar('none')
     @toolbar = @mf_root.add_toolbar
     @mf_root.show_toolbar(1,true)
     @splash = ArcadiaAboutSplash.new('... initialize')
@@ -291,15 +294,10 @@ class Arcadia < TkApplication
     @splash.next_step('...initialize')
     @layout = ArcadiaLayout.new(self, @mf_root.get_frame)
 
-    #@layout.add_cols(0,0,230,'_mosca_','_white_street_')
-    #@layout.add_rows(0,1,80,'_tokyo_','_red_street_')
-    #@layout.add_rows(1,1,450,'_los_angeles_','_rome_')
-
-    @layout.add_cols(0,0,230)
-    @layout.add_rows(0,0,190)
-    #@layout.add_rows(0,1,80)
-    #@layout.add_rows(1,1,450)
-    @layout.add_rows(0,1,500)
+    @layout.add_cols(0,0,225)
+    @layout.add_rows(0,0,180)
+#    @layout.add_rows(0,1,500)
+    @layout.add_rows_perc(0,1,70)
     
 
     @layout.add_headers
@@ -588,9 +586,9 @@ class ArcadiaLayout
 		 end    
   end
 
-  def add_rows(_row,_col, _height, _top_name=nil, _bottom_name=nil)
+  def _prepare_rows(_row,_col, _height, _perc=false, _top_name=nil, _bottom_name=nil)
     if (@frames[_row][_col] !=  nil)
-      _h = AGTkOSplittedFrames.new(@frames[_row][_col],_height)
+      _h = AGTkOSplittedFrames.new(@frames[_row][_col],_height, _perc)
       if @frames[_row + 1] == nil
       		@frames[_row + 1] = Array.new
       		@domains[_row + 1] = Array.new
@@ -611,6 +609,16 @@ class ArcadiaLayout
     		@domains[_row + 1][_col] = _bottom_name
     end
   end
+ 	private :_prepare_rows
+
+  def add_rows(_row,_col, _height, _top_name=nil, _bottom_name=nil)
+  		_prepare_rows(_row,_col, _height, false, _top_name, _bottom_name)
+  end
+
+  def add_rows_perc(_row,_col, _height, _top_name=nil, _bottom_name=nil)
+  		_prepare_rows(_row,_col, _height, true, _top_name, _bottom_name)
+  end
+
 
   def add_cols(_row,_col, _width, _left_name=nil, _right_name=nil)
     if (@frames[_row][_col] !=  nil)

data/base/a-contracts.rb

@@ -21,6 +21,11 @@ class MainContract < ArcadiaContract
   EXTENSION_FINALIZE = "EXTENSION_FINALIZE"
   CONTRACT_RETRIVE = "CONTRACT_RETRIVE"
   RAISE_EXTENSION = "RAISE_EXTENSION"
+	EVENT_HANDLED = "EVENT_HANDLED"
+
+	def event_handled(_tobj)
+	  raise_event(EVENT_HANDLED, _tobj)
+	end
   
   def extension_before_build(_tobj)
     raise_event(EXTENSION_BEFORE_BUILD, _tobj)
@@ -43,7 +48,7 @@ end
 
 class EditorContract < ArcadiaContract
   class TEditorObj < TObj
-  		attr_accessor :file, :line, :col, :title, :text
+  		attr_accessor :file, :line, :col, :title, :text, :candidates
   end
   OPEN_FILE = "OPEN_FILE"
   CLOSE_FILE = "CLOSE_FILE"
@@ -57,7 +62,8 @@ class EditorContract < ArcadiaContract
 	FILE_AFTER_OPEN = "FILE_AFTER_OPEN"
 	FILE_AFTER_CLOSE = "FILE_AFTER_CLOSE"
 	BUFFER_AFTER_RAISE = "BUFFER_AFTER_RAISE"
-
+	COMPLETE_CODE = "COMPLETE_CODE"
+	
   def open_file(_tobj)
   		raise_action(OPEN_FILE, _tobj)
   end
@@ -70,6 +76,9 @@ class EditorContract < ArcadiaContract
     raise_action(OPEN_TEXT, _tobj)
 	end
 
+	def complete_code(_tobj)
+	  raise_action(COMPLETE_CODE, _tobj)
+	end
 
   def file_opened(_tobj=nil)
   		raise_event(FILE_AFTER_OPEN, _tobj)
@@ -101,6 +110,7 @@ end
 class MsgContract < ArcadiaContract
   TYPE_SIMPLE = "TYPE_SIMPLE"
   TYPE_DEBUG = "TYPE_DEBUG"
+  TYPE_ERROR = "TYPE_ERROR"
   SObj = Struct.new("MsgState"
   )
   class TMsgObj < TObj
@@ -125,6 +135,13 @@ class MsgContract < ArcadiaContract
     _tobj.text = _msg
     self.out(_tobj)
   end
+
+  def out_error(_sender, _msg, _channel=nil)
+    _tobj = TMsgObj.new(_sender, 'channel'=>_channel)
+    _tobj.type = TYPE_ERROR
+    _tobj.text = _msg
+    self.out(_tobj)
+  end
 end
 
 class ShellContract < ArcadiaContract
@@ -177,19 +194,19 @@ class InspectorContract < ArcadiaContract
   REGISTER_WRAPPER = "REGISTER_WRAPPER"
 #  UPDATE_PROPERTY = "UPDATE_PROPERTY"
   DELETE_INSPECTOR = "DELETE_INSPECTOR"
-  RAISE_ACTIVE_OBJECT = "RAISE_ACTIVE_OBJECT"
+  RAISE_LAST_WIDGET = "RAISE_LAST_WIDGET"
   RAISE_ACTIVE_TOPLEVEL = "RAISE_ACTIVE_TOPLEVEL"
   
   def delete_wrapper(_tobj=nil)
   		raise_action(DELETE_WRAPPER, _tobj)
   end
   
-  def raise_active_object(_tobj=nil)
-  		raise_action(RAISE_ACTIVE_OBJECT, _tobj)
+  def raise_last_widget(_tobj=nil)
+  		raise_action(RAISE_LAST_WIDGET, _tobj)
   end
 
   def raise_active_toplevel(_tobj=nil)
-  		raise_action(RAISE_ACTIVE_OBJECT, _tobj)
+  		raise_action(RAISE_ACTIVE_TOPLEVEL, _tobj)
   end
   
   def select(_tobj=nil)

data/base/a-ext.rb

@@ -137,8 +137,8 @@ class ArcadiaContract
      		@action = false
      end
      
-    	def handled(_by)
-    	  @contract.event_handled(TObj.new(_by))
+    	def handled(_from)
+    	  MainContract.instance.event_handled(MainContract::TMainObj.new(_from,'caused_by'=>self))
     	end
     	
     	def is_action? 
@@ -148,6 +148,7 @@ class ArcadiaContract
   
   class TObj
    	attr_reader :sender
+    attr_accessor :caused_by
    	attr_accessor :channel
    	DEFAULT_CHANNEL='0'
    	def initialize(_sender, _args=nil)
@@ -197,51 +198,13 @@ class ArcadiaContract
   	 attr_reader :icon
     def initialize(_method)
       @method = @method
-      #TODO: load label and icon from config file
     end
   end
 
-	EVENT_HANDLED = "EVENT_HANDLED"
-	CONTRACT_CREATED = "CONTRACT_CREATED"
-	
   SObj = Struct.new("GenericState",
     :caller
   )
-#  TObj = Struct.new("GenericObj",
-#    :sender
-#  )
-  
-#  def initialize(_sender=nil, _state_method=nil, _channel='0')
-#    @@instances = Array.new if !defined?(@@instances)
-#    #@@listeners_queue Array.new if !defined?(@@listeners_queue)
-#    @@instances << self
-#	  @sender = _sender
-#	  @state_method = _state_method
-#	  @channel = _channel
-#    ObjectSpace.define_finalizer(self, self.class.method(:finalize).to_proc)
-#    #ArcadiaContract.source(self).raise_event(CONTRACT_CREATED, TObj.new(_sender))
-#  end
-  
-#	def ArcadiaContract.instances
-#	  @@instances
-#	end
-
-#	def ArcadiaContract.source(_sender=nil)
-#	  if !defined?(@@source)
-#		  (_sender==nil) ? @@source = ArcadiaContract.new : @@source = _sender
-#		end
-#		return @@source
-#	end
-
-#	def ArcadiaContract.finalize(id)
-#  		raise_event(MainContract::EXTENSION_FINALIZE, id)
-#	end
-
-  # raise an event with event handled as context obj
-  def event_handled(_tobj)
-  		raise_event(EVENT_HANDLED, _tobj)
-  end
-  
+ 
   def _event_forge(_event_signature, _tobj) 
     ContractEvent.new(self, _event_signature, _tobj)
   end
@@ -271,15 +234,6 @@ class ArcadiaContract
   end
   private :_raise_action
 
-  
-
-#  def retrieve_state(*args)
-#    unless @sender.respond_to? @state_method
-#      raise NoMethodError, self.class.to_s+" needs to respond to "+@state_method.to_s 
-#    end
-#    return @sender.send(@state_method, *args)
-#  end
-
   def ArcadiaContract.publish_action(_method)
     _info = EventInfo.new(_method)
     @@actions = Array.new if !defined?(@@actions)
@@ -290,58 +244,24 @@ end
 
 class ArcadiaContractListener
 	def initialize(_subscriber, _class, _method, _channel=nil)
-#	  @arcadia = _arcadia 
 	  @subscriber = _subscriber
 	  @class = _class
 	  @method = _method
 	  @channel = _channel
 	  create_callback(_class.instance)
-#		_klass = _class
-#		while _klass.kind_of?(ArcadiaContract)
-#		  create_callback(_klass.instance)
-#		  _klass = _klass.superclass
-#		end 
-
-#	  ObserverCallback.new(_class.instance, self, :do_main_event)
-#	  ObserverCallback.new(MainContract.instance, self, :do_main_event)
-#	  @class.instances.each do |_contract| 
-#	    create_callback(_contract) if _contract.kind_of?(@class)
-#	  end
 	end
 	
-#	def do_main_event(_event)
-#		if _event.signature == MainContract::CONTRACT_RETRIVE && _event.context.contract.kind_of?(@class)
-#			create_callback(_event.context.contract)
-##   elsif _event.signature == ArcadiaContract::CONTRACT_CREATED && _event.contract.kind_of?(@class)
-##			create_callback(_event.contract)
-#		end
-#	end
-
 	def create_callback(_contract)
 	  ObserverCallbackContract.new(_contract, @subscriber, @method, @channel)
-	  #ObserverCallback.new(_contract, _subscriber, _method)
 	end
 	
-#	def update(*args)
-#		@subscriber.send(@method,*args)
-#	end
-
-#	def info
-#	  @contract.retrieve_state if @contract 
-#	end
-
-#	def delegate_action(_action, _obj=nil)
-#	  if @contract && @contract.respond_to? :do_action
-#	    @contract.do_action
-#	  end
-#	end
 end
 
 class ArcadiaContractListenerThread < ArcadiaContractListener
 	
 	def create_callback(_contract)
 	  #Thread.new do super(_contract, _subscriber, _method) end
-	  ObserverCallbackContractThread.new(_contract)
+	  ObserverCallbackContractThread.new(_contract, @subscriber, @method, @channel)
 	end
 	
 end

data/base/a-utils.rb

@@ -248,7 +248,7 @@ end
 
 class AGTkOSplittedFrames < AGTkSplittedFrames
   attr_reader :top_frame, :bottom_frame
-  def initialize(parent=nil, height=10, keys=nil)
+  def initialize(parent=nil, height=10, perc=false,keys=nil)
     super(parent, height, keys)
     self.place(
       'relwidth' => 1,
@@ -262,7 +262,12 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
     @top_frame = TkFrame.new(self){
       relief 'flat'
     }
-    y = height
+    if perc
+			p_height = TkWinfo.screenheight(self)    
+    		y = (p_height/100*height).to_i
+    else
+      y = height
+    end
     @top_frame.place(
       'relwidth' => '1',
       'bordermode' => 'inside',
@@ -602,7 +607,7 @@ class Application
 	end
 
   def init_config
-    self['applicationParams'].persistent_file = local_dir+'/'+ self['applicationParams'].name+'.pers'
+    self['applicationParams'].persistent_file = File.join(local_dir, self['applicationParams'].name+'.pers')
     if !File.exists?(self['applicationParams'].persistent_file)
       File.new(self['applicationParams'].persistent_file, File::CREAT).close
     end
@@ -620,7 +625,7 @@ class Application
 
 	# this method load arcadia.conf from local directory for personalizations
 	def load_local_config(_create_if_not_exist=true)
-	    local_file_config = local_dir+'/'+File.basename(self['applicationParams'].config_file)
+	    local_file_config = File.join(local_dir,File.basename(self['applicationParams'].config_file))
 	    if FileTest.exist?(local_file_config)
 	      self['conf'].update(self.config_file2hash(local_file_config))
 	    elsif _create_if_not_exist
@@ -641,7 +646,7 @@ class Application
 	end
   
   def local_dir
-    _local_dir = ENV["HOME"]+'/.'+self['applicationParams'].name  if ENV["HOME"] 
+    _local_dir = File.join(ENV["HOME"],'.'+self['applicationParams'].name)  if ENV["HOME"] 
     if _local_dir && !File.exist?(_local_dir)
       Dir.mkdir(_local_dir)
       @first_run = true
@@ -687,7 +692,7 @@ class Application
         _lines.each{|_line|
           _strip_line = _line.strip
           if (_strip_line.length > 0)&&(_strip_line[0,1]!='#')
-            var_plat = _line.split(':')
+            var_plat = _line.split('::')
             if var_plat.length > 1
               if (RUBY_PLATFORM.include?(var_plat[0]))
               #if (var_plat[0] == RUBY_PLATFORM)

data/conf/arcadia.conf

@@ -82,7 +82,7 @@ toolbar_buttons.sys.exit.action=arcadia->do_exit
 
 libraries=tk,tkCustom 
 #libraries=tk,tkBWidget,tkCustom,tkArcadia 
-#i386-mswin32:libraries=tk,tkBWidget,tkCustom, tkIWidget
+#i386-mswin32::libraries=tk,tkBWidget,tkCustom, tkIWidget
 # tk library properties
 libraries.tk.name=Tk
 libraries.tk.source=lib/tk/al-tk.rb
@@ -138,51 +138,51 @@ splash.version.font=Courier 10
 splash.credits.font=Courier 10
 splash.banner.font=Courier 8 italic
 
-i386-mswin32:splash.title.font=Ariel 26 bold
-i386-mswin32:splash.subtitle.font=Ariel 8 bold
-i386-mswin32:splash.version.font=Ariel 8
-i386-mswin32:splash.credits.font=Ariel 8
-i386-mswin32:splash.banner.font=Ariel 8 italic
+i386-mswin32::splash.title.font=Ariel 26 bold
+i386-mswin32::splash.subtitle.font=Ariel 8 bold
+i386-mswin32::splash.version.font=Ariel 8
+i386-mswin32::splash.credits.font=Ariel 8
+i386-mswin32::splash.banner.font=Ariel 8 italic
 #:::::::::::::::: splash group    ::::::::::::::::::::::<begin>
 
 #:::::::::::::::: main group    ::::::::::::::::::::::<begin>
 main.mainmenu.font=courier 9
-i386-freebsd6:main.mainmenu.font=courier 12
-i386-mswin32:main.mainmenu.font=Ariel 8
+i386-freebsd6::main.mainmenu.font=courier 12
+i386-mswin32::main.mainmenu.font=Ariel 8
 main.font=courier 9
 main.font.bold=courier 9 bold
-i386-freebsd6:main.font=courier 12
-i386-freebsd6:main.font=courier 12 bold
-i386-mswin32:main.font=Ariel 8
-i386-mswin32:main.font.bold=Ariel 8 bold
+i386-freebsd6::main.font=courier 12
+i386-freebsd6::main.font=courier 12 bold
+i386-mswin32::main.font=Ariel 8
+i386-mswin32::main.font.bold=Ariel 8 bold
 main.component.font=times 8
-i386-mswin32:main.component.font=Ariel 8
+i386-mswin32::main.component.font=Ariel 8
 #:::::::::::::::: main group    ::::::::::::::::::::::<end>
 
 #:::::::::::::::: inspector group    ::::::::::::::::::::::<begin>
 inspectors.tabs.font=courier 9
-i386-mswin32:inspectors.tabs.font=Ariel 8
-i386-freebsd6:inspectors.tabs.font=courier 12
+i386-mswin32::inspectors.tabs.font=Ariel 8
+i386-freebsd6::inspectors.tabs.font=courier 12
 inspectors.tabs.side=top
 inspectors.inspector.tabs.font=courier 9
-i386-freebsd6:inspectors.inspector.tabs.font=courier 12
-i386-mswin32:inspectors.inspector.tabs.font=Ariel 8
+i386-freebsd6::inspectors.inspector.tabs.font=courier 12
+i386-mswin32::inspectors.inspector.tabs.font=Ariel 8
 inspectors.inspector.tabs.side=top
 inspectors.inspector.key.font=courier 9
 inspectors.inspector.value.font=courier 9
-i386-freebsd6:inspectors.inspector.key.font=courier 12
-i386-freebsd6:inspectors.inspector.value.font=courier 12
-i386-mswin32:inspectors.inspector.key.font=Ariel 8
-i386-mswin32:inspectors.inspector.value.font=Ariel 8
+i386-freebsd6::inspectors.inspector.key.font=courier 12
+i386-freebsd6::inspectors.inspector.value.font=courier 12
+i386-mswin32::inspectors.inspector.key.font=Ariel 8
+i386-mswin32::inspectors.inspector.value.font=Ariel 8
 inspectors.inspector.tree.font=courier 9
-i386-mswin32:inspectors.inspector.tree.font=Ariel 8
+i386-mswin32::inspectors.inspector.tree.font=Ariel 8
 
 inspectors.debug.tabs.font=courier 9
-i386-freebsd6:inspectors.debug.tabs.font=courier 12
-i386-mswin32:inspectors.debug.tabs.font=courier 8
+i386-freebsd6::inspectors.debug.tabs.font=courier 12
+i386-mswin32::inspectors.debug.tabs.font=courier 8
 inspectors.debug.tabs.font.bold=courier 9 bold
-i386-freebsd6:inspectors.debug.tabs.font.bold=courier 12 bold
-i386-mswin32:inspectors.debug.tabs.font.bold=courier 8 bold
+i386-freebsd6::inspectors.debug.tabs.font.bold=courier 12 bold
+i386-mswin32::inspectors.debug.tabs.font.bold=courier 8 bold
 #:::::::::::::::: inspector group    ::::::::::::::::::::::<end>
 
 
@@ -191,8 +191,8 @@ i386-mswin32:inspectors.debug.tabs.font.bold=courier 8 bold
 all.frame.title.font=courier 9
 all.frame.title.font.bold=courier 9 bold
 all.frame.title.font.italic=courier 9 italic
-i386-freebsd6:all.frame.title.font=courier 12
-i386-freebsd6:all.frame.title.font.bold=courier 12 bold
-i386-freebsd6:all.frame.title.font.italic=courier 12 italic
-i386-mswin32:all.frame.title.font=Ariel 8
+i386-freebsd6::all.frame.title.font=courier 12
+i386-freebsd6::all.frame.title.font.bold=courier 12 bold
+i386-freebsd6::all.frame.title.font.italic=courier 12 italic
+i386-mswin32::all.frame.title.font=Ariel 8
 #:::::::::::::::: all  ::::::::::::::::::::::<end>