arcadia 0.1.0

data/ext/ae-output-event/ae-output-event.conf

@@ -0,0 +1,15 @@
+name=output2
+label=Event Log
+frame=1.1
+active=yes
+require=ext/ae-output/ae-output
+class=Output
+MsgContract.channel=CH1
+
+
+font=courier 7
+font.bold=courier 9 bold
+i386-freebsd6:font=courier 10
+i386-freebsd6:font.bold=courier 12 bold
+i386-mswin32:font={Courier New} 9
+i386-mswin32:font.bold={Courier New} 9 bold 

data/ext/ae-output/ae-output.conf

@@ -0,0 +1,14 @@
+name=output
+label=Output
+frame=1.1
+active=yes
+require=ext/ae-output/ae-output
+class=Output
+MsgContract.channel=0
+
+font=courier 7
+font.bold=courier 9 bold
+i386-freebsd6:font=courier 12
+i386-freebsd6:font.bold=courier 12 bold
+i386-mswin32:font={Courier New} 9
+i386-mswin32:font.bold={Courier New} 9 bold 

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

@@ -0,0 +1,162 @@
+#
+#   ae-output.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "tk"
+require "base/a-utils"
+
+class OutputView
+  attr_reader :text
+  def initialize(parent=nil)
+    
+    left_frame = TkFrame.new(parent.frame).place('x' => '0','y' => '0','relheight' => '1','width' => '25')
+
+    @button_u = Tk::BWidget::Button.new(left_frame){
+      image  TkPhotoImage.new('dat' => CLEAR_GIF)
+      helptext 'Clear'
+      foreground 'blue'
+      command proc{parent.main_frame.text.delete('1.0','end')}
+      relief 'groove'
+      pack('side' =>'top', 'anchor'=>'n',:padx=>0, :pady=>0)
+    }
+
+    
+    #@splitted_frame = AGTkVSplittedFrames.new(parent.frame,20)
+    @text = TkText.new(parent.frame,
+      'relief' =>  'sunken',
+      'font' => parent.conf('font')
+    ){|j|
+      TkScrollbar.new(j){|s|
+        command proc{|*args| j.yview(*args)}
+        j.yscrollcommand proc{|first,last| s.set first,last}
+      }.pack('side'=>'right', 'fill'=>'y')
+    }.place('relwidth' => '1','x' => '25','y' => '0','relheight' => '1', 'width' => '-25')
+    @text.tag_configure('simple_msg',
+       'background' => '#d9d994',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+    @text.tag_configure('debug_msg',
+       'background' => '#f6c9f6',
+       'foreground' => '#000000',
+       'borderwidth'=>1,
+       'relief'=> 'flat'
+    )
+    @text.tag_configure('bord_msg',
+       #'foreground' => '#b9b8b9'
+       'foreground' => '#7c9b10'
+    )
+
+  end
+end
+
+class Output < ArcadiaExt
+  attr_reader :main_frame
+
+	def before_build
+    ArcadiaContractListener.new(self, MsgContract, :do_msg_event)
+    #_frame = @arcadia.layout.register_panel('_rome_',@name, 'Output')
+    @main_frame = OutputView.new(self)
+    @run_threads = Array.new
+    @main_frame.text.tag_configure('error','foreground' => 'red')
+	end
+
+
+  def build
+    #@ae_file_contract = @arcadia.retrieve_contract(self, EditorActionContract, :file_state)
+  end
+
+  def after_build
+    MainContract.instance.raise_extension(MainContract::TMainObj.new(self, 
+    		'domain'=>@arcadia['conf'][@name+'.frame'],
+    		'extension' =>@name,
+    		'channel'=>conf('MsgContract.channel')
+    		
+    ))
+  end
+
+	def format_time(_time)
+	  _time.strftime("at %a %d-%b-%Y %H:%M:%S")
+	end
+
+	def do_msg_event(_event)
+     _txt = "\n+--- "+format_time(_event.time)+" ---+\n"+_event.context.text.strip+"\n"
+     _index_begin = @main_frame.text.index('end')
+     @main_frame.text.insert(_index_begin,_txt)
+     _index_end = @main_frame.text.index('end')
+     if _event.context.type == MsgContract::TYPE_DEBUG
+     		@main_frame.text.tag_remove('simple_msg',_index_begin, _index_end+ '  lineend')
+     		@main_frame.text.tag_add('debug_msg',_index_begin, _index_end+ '  lineend')
+     		parse_debug(_index_begin.split('.')[0].to_i) 
+		 else
+     		@main_frame.text.tag_remove('debug_msg',_index_begin, _index_end+ '  lineend')
+     		@main_frame.text.tag_add('simple_msg',_index_begin, _index_end+ '  lineend')
+     end
+   		@main_frame.text.tag_add('bord_msg',_index_begin+' linestart', _index_begin+ '  lineend')
+   		@main_frame.text.tag_add('bord_msg',_index_end+' -1 lines linestart', _index_end+ ' -1 lines  lineend')
+   		@main_frame.text.see(_index_end)
+	end
+	
+	def parse_debug(_from_row=0)
+    _row = 0
+    _cursor = @main_frame.text.cget('cursor')
+    @main_frame.text.value.each{|l|
+      _row = _row+1
+      if _row >= _from_row
+        _end = 0
+        m = /([\.\/]*[\/A-Za-z_\-\.]*[\.\/\w\d]*\.rb):(\d*)/.match(l)
+        while m
+          _txt = m.post_match
+          if m[1] && m[2]
+            _file = m[1]
+            _line = m[2]
+            _ibegin = _row.to_s+'.'+(m.begin(1)+_end).to_s
+            _iend = _row.to_s+'.'+(m.end(2)+_end).to_s
+            _end = m.end(2) + _end
+            @main_frame.text.tag_configure(_row,
+              'foreground' => '#800000',
+              'borderwidth'=>0,
+              'relief'=>'flat',
+              'underline'=>true
+            )
+            @main_frame.text.tag_add(_row,_ibegin,_iend)
+            @main_frame.text.tag_bind(_row,"Double-ButtonPress-1",
+              proc{
+              		_tobj = EditorContract::TEditorObj.new(self)
+              		_tobj.file= _file
+              		_tobj.line= _line
+              		EditorContract.instance.open_file(_tobj)
+              }
+            )
+            @main_frame.text.tag_bind(_row,"Enter",
+              proc{@main_frame.text.configure('cursor'=> 'hand2')}
+            )
+            @main_frame.text.tag_bind(_row,"Leave",
+              proc{@main_frame.text.configure('cursor'=> _cursor)}
+            )
+  
+  
+
+         end
+      	  m = /([A-Za-z]*[\.:]{0,1}[\/\w\d]*\.rb):(\d*)/.match(_txt)
+       end
+     end
+    }
+	end
+
+  def out(_txt=nil, _tag=nil)
+    if @main_frame && _txt
+      if _tag
+        @main_frame.text.insert('end',_txt, _tag)
+      else
+        @main_frame.text.insert('end',_txt)
+      end
+    end
+  end
+
+  def outln(_txt=nil, _tag=nil)
+    self.out(_txt+"\n",_tag)
+  end
+
+end

data/ext/ae-palette/ae-palette.conf

@@ -0,0 +1,7 @@
+name=palette
+label=Palette
+frame=0.0
+active=yes
+require=ext/ae-palette/ae-palette
+class=Palette
+

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

@@ -0,0 +1,319 @@
+#
+#   ae-palette.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+#require 'ext/ae-inspector/ae-inspector'
+require 'base/a-libs'
+require 'lib/tk/al-tk'
+require 'tk'
+require 'tkmenubar'
+require 'tkextlib/bwidget'
+
+
+class Palette < ArcadiaExt
+  attr_reader :buttons
+	attr_reader :selected_wrapper  
+
+	def before_build
+	  ArcadiaContractListener.new(self, InspectorContract, :do_inspector_event)
+	  ArcadiaContractListener.new(self, PaletteContract, :do_palette_event)
+	end
+
+  def build
+    #@ae_inspector_action_contract = @arcadia.retrieve_contract(self, InspectorActionContract)
+    #@main_frame = @arcadia.layout.register_panel('_tokyo_','libman', 'Libman')
+    @buttons = Hash.new
+    create_palettes
+  end
+
+  def after_build
+    #p @ae_inspector_talker.info
+    #exit
+  end
+  
+	def do_inspector_event(_event)
+     case _event.signature 
+     		when InspectorContract::SELECT_WRAPPER
+				@selected_wrapper=_event.context.wrapper
+     end  
+  
+  end  
+
+  def do_palette_event(_event)
+     case _event.signature 
+     		when PaletteContract::MAKE_SELECTED_WRAPPER
+     		  give_me_obj(_event.context.parent)
+     end  
+  end
+
+  def eval_form_file(_filename)
+    cod = '';
+    IO.foreach(_filename) { |line| cod += line };
+    Revparsel.new(cod, _filename)
+  end
+
+
+  def eval_file(_filename)
+    cod = '';
+    begin
+      IO.foreach(_filename) { |line| cod += line }
+    rescue SystemCallError
+      handleException # defined elsewhere
+    end
+    eval(cod)
+  end
+
+#  def eval_file_saved(_filename=nil)
+#    if _filename && (_filename.length > 0)
+#      @arcadia.objects('editor').open_file(_filename)
+#    end
+#  end
+
+  def create_palettes
+    @cc = WrapperContainer.new(self){
+      border 0
+      borderwidth 1
+    }
+    @cc.pack('side' =>'left', 'fill' =>'both', 'anchor'=>'nw', :padx=>2, :pady=>2)
+    #place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
+    @arcadia.libs.list.each{|lib|
+      @cc.add_palette(lib)
+    }
+  end
+
+  def give_me_obj(_owner)
+    @cc.new_wrapper(_owner)
+  end
+
+  def give_me_code
+    @cc.new_wrapper_code
+  end
+
+end
+
+class WrapperContainer < TkFrame
+
+  def initialize(_owner)
+    super(_owner.frame)
+    @owner = _owner
+    _self = self
+    frame = TkFrame.new(self).pack('side' =>'left', 'anchor'=>'n', :padx=>2, :pady=>2)
+
+    @button_u = Tk::BWidget::Button.new(frame){
+      image  TkPhotoImage.new('dat' => CURSOR_GIF)
+      helptext 'Select'
+      text 'C'
+      foreground 'blue'
+      command proc{_self.unfill}
+      relief 'groove'
+      pack('side' =>'top', 'anchor'=>'n',:padx=>2, :pady=>2)
+    }
+    @button_m = Tk::BWidget::Button.new(frame){
+      _command = proc{
+        require 'tk/clipboard'
+        #objiinfo = _owner.ae_inspector_talker.info
+        #_code = $arcadia['objic'].active.active_object.renderer.class_code.to_s
+        #_code = objiinfo.active_wrapper.renderer.class_code.to_s
+        _code = AG.active.renderer.class_code.to_s if AG.active
+        TkClipboard::set(_code)
+        eval(_code)
+        _self.fill(
+        self,
+        _owner.selected_wrapper.class,
+        nil,
+        _owner.selected_wrapper.getInstanceClass
+        )
+        _self.new_wrapper if _owner.selected_wrapper.class.is_top
+
+      }
+      image  TkPhotoImage.new('dat' => WIDGET_COPY_GIF)
+      helptext 'Copy current selected'
+      text 'C'
+      foreground 'blue'
+      command _command
+      relief 'groove'
+      pack('side' =>'left','anchor'=>'n', :padx=>2, :pady=>2)
+    }
+    @familyts = Tk::BWidget::NoteBook.new(self){
+      tabbevelsize 0
+      internalborderwidth 1
+      activeforeground 'orange'
+      font $arcadia['conf']['main.font']
+      pack('side' =>'left','expand'=>'yes','fill'=>'both', :padx=>2, :pady=>2)
+    }
+    @objCollections = Array.new
+  end
+
+  def new_wrapper_code
+    _code = ''
+    if @selected_button != nil && @selected_class_obj != nil
+      #objiinfo = @owner.ae_inspector_talker.info
+      #_code = objiinfo.active_wrapper.renderer.class_code.to_s
+      _code = AG.active.renderer.class_code.to_s
+      @selected_button.configure('relief'=>'groove')
+      @selected_button = @selected_class = @selected_require = nil
+    end
+    return _code
+  end
+
+
+  def new_wrapper(_parent = nil, _obj = nil)
+    if @selected_button == nil
+      return
+    end
+    # copy obj
+    if @selected_class_obj != nil && _obj == nil
+      _obj = eval(@selected_class_obj).new(_parent == nil ?nil:_parent.obj)
+    end
+    
+    w = @selected_class.new(_parent, _obj)
+    #$arcadia['objic'].active.select_last(true) if @selected_class_obj != nil
+    #$arcadia.objects('objic').active.addRequire(@selected_require) if @selected_require != nil
+    
+    
+    w.select.activate if @selected_class_obj != nil
+    w.add_require([@selected_require]) if @selected_require != nil
+    
+    @selected_button.configure('relief'=>'groove')
+    @selected_button = @selected_class = @selected_require = nil
+  end
+
+
+  def fill(_b, _class, _require, _class_obj = nil)
+    _b.configure('relief'=>'sunken')
+    if  @selected_button != nil
+      @selected_button.configure('relief'=>'groove')
+    end
+    @selected_button = _b
+    @selected_class = _class
+    @selected_require = _require
+    @selected_class_obj = _class_obj
+    Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text(_class.class_wrapped)
+
+  end
+
+  def unfill
+    if  @selected_button != nil
+      @selected_button.configure('relief'=>'groove')
+    end
+    @selected_button = nil
+    @selected_class = nil
+    @selected_require = nil
+    @selected_class_obj = nil
+    Arcadia.instance.layout.domain(Arcadia.instance['conf']['palette.frame'])['root'].top_text('')
+  end
+
+  def add_palette(_lib_obj)
+    _name = _lib_obj.arcadia_lib_params.name
+    _file = _lib_obj.arcadia_lib_params.require
+    _img = nil
+    @objCollections << {
+      'name'=>_name,
+      'collection'=>_lib_obj,
+      'file'=>_file,
+      'img'=>_img
+    }
+
+    @classes_panel = @familyts.insert('end',_name,
+    'text'=>_name#,
+    )
+		
+		@tpanel = TkText.new(@classes_panel){
+		  relief 'flat'
+		}.pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
+
+
+    _lib_obj.classes.each{|value|
+      _self = self
+      _image = self.class_image(value)
+      ewin = TkTextWindow.new(@tpanel, 'end',
+      'window'=> Tk::BWidget::Button.new(@tpanel){
+        _command = proc{
+          _self.fill(self, value, _file)
+          _self.new_wrapper if value.is_top
+        }
+        text value.class_wrapped.to_s
+        helptext  value.class_wrapped.to_s
+        image TkPhotoImage.new( 'dat' => _image )
+        foreground 'blue'
+        command _command
+        font $arcadia['conf']['main.component.font']
+        relief 'groove'
+        height 25
+        width 25
+        #pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
+      }
+      )
+    }
+		
+
+#    _lib_obj.classes.each{|value|
+#      _self = self
+#      _image = self.class_image(value)
+#      ewin = TkTextWindow.new(@tpanel, 'end',
+#      'window'=> Tk::BWidget::Button.new(@tpanel){
+#        _command = proc{
+#          _self.fill(self, value, _file)
+#          _self.new_wrapper if value.is_top
+#        }
+#        text value.class_wrapped.to_s
+#        helptext  value.class_wrapped.to_s
+#        image TkPhotoImage.new( 'dat' => _image )
+#        foreground 'blue'
+#        command _command
+#        font $arcadia['conf']['main.component.font']
+#        relief 'groove'
+#        pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
+#      }
+#      )
+#    }
+
+#    _lib_obj.classes.each{|value|
+#      _self = self
+#      _image = self.class_image(value)
+#       Tk::BWidget::Button.new(@classes_panel){
+#        _command = proc{
+#          _self.fill(self, value, _file)
+#          _self.new_wrapper if value.is_top
+#        }
+#        text value.class_wrapped.to_s
+#        helptext  value.class_wrapped.to_s
+#        image TkPhotoImage.new( 'dat' => _image )
+#        foreground 'blue'
+#        command _command
+#        font $arcadia['conf']['main.component.font']
+#        relief 'groove'
+#        pack('side' =>'left', 'anchor'=>'nw', :padx=>2, :pady=>2)
+#      }
+#      
+#    }
+
+    if @objCollections.length == 1
+      @familyts.raise(_name)
+    end
+  end
+
+  def class_image(_class=nil)
+    _current_class = _class
+    _found = false
+    if _class
+      _dir = File.dirname(_class.library.arcadia_lib_params.source)
+    end
+    while _current_class != nil && !_found
+      if defined?(_current_class.library)
+      		_dir = File.dirname(_current_class.library.arcadia_lib_params.source)
+      end
+      _img = (_current_class.to_s+"_gif").upcase
+      _data = eval(_img + ' if defined?('+_img+')' )
+      #_file = _dir+"/res/"+_current_class.to_s+".gif"
+      if _data
+      #if FileTest.exist?(_file)
+        _found = true
+      else
+        _current_class = _current_class.superclass
+      end
+    end
+    return (_found)?_data:A_WIDGET_GIF
+  end
+end