arcadia 0.1.3 → 0.2.0

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

@@ -0,0 +1,273 @@
+#
+#   ae-palette.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'ext/ae-rad/ae-rad-libs'
+require 'ext/ae-rad/lib/tk/al-tk'
+require 'tk'
+require 'tkmenubar'
+require 'tkextlib/bwidget'
+
+
+class Palette #< ArcadiaExt
+  attr_reader :buttons
+  attr_reader :selected_wrapper  
+  attr_reader :rad
+  def initialize(_rad)
+    @rad = _rad
+    ArcadiaContractListener.new(self, InspectorContract, :do_inspector_event)
+    ArcadiaContractListener.new(self, PaletteContract, :do_palette_event)
+    build
+  end 
+
+#	def on_before_build(_event)
+#	  ArcadiaContractListener.new(self, InspectorContract, :do_inspector_event)
+#	  ArcadiaContractListener.new(self, PaletteContract, :do_palette_event)
+#	end
+
+  def build
+    @buttons = Hash.new
+    create_palettes
+  end
+
+  def on_after_build(_event)
+  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 create_palettes
+    @cc = WrapperContainer.new(self){
+      border 0
+      borderwidth 1
+    }
+    @cc.pack('side' =>'left', 'fill' =>'both', 'anchor'=>'nw', :padx=>2, :pady=>2)
+    @rad.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.rad.float_frame(0, 'x'=>10, 'y'=>10, 'width'=>200,'heigh'=>220).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'
+        _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
+    @owner.rad.float_frame.title(_class.class_wrapped)
+    #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#,
+    )
+    
+    _background = @classes_panel.cget('background')
+
+		@tpanel = TkText.new(@classes_panel){
+		  relief 'flat'
+		  background _background
+		}.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)
+      }
+      )
+    }
+
+    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

data/ext/ae-rad/ae-rad.conf

@@ -0,0 +1,71 @@
+name=rad
+labels=Rad,Object Inspector
+frames=0.0
+active=yes
+require=ext/ae-rad/ae-rad
+class=Rad
+
+#:::::::::::::::: user toolbar :::::::::::::::::::::::::<begin>
+user_toolbar.contexts=tkrad
+user_toolbar.tkrad = show
+user_toolbar.tkrad.show.name=show_rad
+user_toolbar.tkrad.show.hint=Show Rad Palette
+user_toolbar.tkrad.show.image_data=AGTKTOPLEVEL_GIF
+user_toolbar.tkrad.show.event_class=ActionEvent
+user_toolbar.tkrad.show.event_args={'receiver'=>self, 'action' =>'show_rad'}
+#:::::::::::::::: user toolbar :::::::::::::::::::::::::<end>
+
+#:::::::::::::::: Libraries group ::::::::::::::::::::::<begin>
+
+# this section is for the components pallets of the wrapped class
+
+libraries=tk,tkCustom 
+#libraries=tk,tkBWidget,tkCustom,tkArcadia 
+#win::libraries=tk,tkBWidget,tkCustom, tkIWidget
+# tk library properties
+libraries.tk.name=Tk
+libraries.tk.source=ext/ae-rad/lib/tk/al-tk.rb
+#libraries.tk.collection.class=AWClassesTk
+libraries.tk.collection.class=ArcadiaLibTk
+libraries.tk.action=
+libraries.tk.require=tk
+
+# tk BWidget library properties
+libraries.tkBWidget.name=Tk BWidget
+libraries.tkBWidget.source=ext/ae-rad/lib/tkext/al-bwidget.rb
+libraries.tkBWidget.collection.class=ArcadiaLibBWidget
+libraries.tkBWidget.action=
+libraries.tkBWidget.require=tk
+
+# tk Tile library properties
+libraries.tkTile.name=Tk Tile
+libraries.tkTile.source=ext/ae-rad/lib/tkext/al-tile.rb
+libraries.tkTile.collection.class=ArcadiaLibTkTile
+libraries.tkTile.action=
+libraries.tkTile.require=tk
+
+
+# tk IWidget library properties
+libraries.tkIWidget.name=Tk IWidget
+libraries.tkIWidget.source=ext/ae-rad/lib/tkext/al-iwidgets.rb
+libraries.tkIWidget.collection.class=AWClassesTkIWidget
+libraries.tkIWidget.action=
+libraries.tkIWidget.require=tk
+
+
+# tk Custom library properties
+libraries.tkCustom.name=Tk Custom
+libraries.tkCustom.source=ext/ae-rad/lib/tk/al-tkcustom.rb
+libraries.tkCustom.collection.class=ArcadiaLibTkCustom
+libraries.tkCustom.action=
+libraries.tkCustom.require=tk
+
+# tk Arcadia library properties
+libraries.tkArcadia.name=Tk Arcadia
+libraries.tkArcadia.source=ext/ae-rad/lib/tk/al-tkarcadia.rb
+libraries.tkArcadia.collection.class=ArcadiaLibArcadiaTk
+libraries.tkArcadia.action=
+libraries.tkArcadia.require=tk
+
+
+#:::::::::::::::: Libraries group ::::::::::::::::::::::<end>

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

@@ -0,0 +1,56 @@
+#
+#   ae-rad.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'ext/ae-rad/ae-rad-libs'
+require 'ext/ae-rad/ae-rad-palette'
+require 'ext/ae-rad/ae-rad-inspector'
+
+class Rad < ArcadiaExt
+  attr_reader :libs
+  attr_reader :palette
+  attr_reader :inspector
+  def on_build(_event)
+    load_libs
+  end
+  
+  def show_rad
+    if @palette.nil?
+      @palette = Palette.new(self)
+      @inspector = ObjiController.new(self)
+    else
+      float_frame(0).show
+    end
+  end
+  
+  def load_libs
+    @libs = ArcadiaLibs.new(self)
+    libs = conf('libraries').split(',')
+    libs.each{|lib|
+      if lib
+        begin
+          require conf('libraries.'+lib+'.source')
+          @libs.add_lib(
+          ArcadiaLibs::ArcadiaLibParams.new(
+          conf('libraries.'+lib+'.name'),
+          conf('libraries.'+lib+'.source'),
+          conf('libraries.'+lib+'.require'),
+          eval(conf('libraries.'+lib+'.collection.class')))
+          )
+        rescue Exception
+          msg = "Loading lib "+'"'+lib+'"'+" ("+$!.class.to_s+") "+" : "+$! + " at : "+$@.to_s
+          if Tk.messageBox('icon' => 'error', 'type' => 'okcancel',
+            'title' => '(Rad) Libs', 
+            'message' => msg) == 'cancel'
+            raise
+            exit
+          else
+            Tk.update
+          end
+        end
+      end
+    }
+  end
+  
+end

data/{lib → ext/ae-rad/lib}/tk/al-tk.rb

@@ -4,9 +4,9 @@
 #
 
 require 'tk'
-require 'base/a-libs'
-require "base/a-ext"
-require "lib/tk/al-tk.res"
+require 'ext/ae-rad/ae-rad-libs'
+require "base/a-tkcommons"
+require "ext/ae-rad/lib/tk/al-tk.res"
 
 TkAllPhotoImage = TkPhotoImage
 
@@ -1429,112 +1429,6 @@ class ParsifalTk
 
 end
 
-class AGTkObjPlace
-  attr_reader :obj, :r, :start_x, :start_y, :motion, :x0, :y0, :w0, :h0, :width,:height,:relwidth,:relheight
-  attr_writer :r, :start_x, :start_y, :motion,:width,:height,:relwidth,:relheight
-
-  def initialize(_obj=nil , _side='both' , _cursor=nil, _bind = true )
-    if !_obj
-      break
-    end
-    @obj = _obj
-    if !_cursor
-      case _side
-      when 'x'
-        _cursor = 'sb_h_double_arrow'
-      when 'y'
-        _cursor = 'sb_v_double_arrow'
-      when 'both'
-        _cursor = 'draft_small'
-      end
-    end
-    @motion = false
-    @side = _side
-    @x0 = TkPlace.info(@obj)['x']
-    @y0 = TkPlace.info(@obj)['y']
-    if TkWinfo.mapped?(@obj)
-      @w0=TkWinfo.width(@obj)
-      @h0=TkWinfo.height(@obj)
-    else
-      @w0=TkWinfo.reqwidth(@obj)
-      @h0=TkWinfo.reqheight(@obj)
-    end
-    @start_x = @x0
-    @start_y = @y0
-    @cursor = _cursor
-    if _bind
-      @obj.bind_append("Enter", proc{|x, y| do_enter(x, y)}, "%x %y")
-      @obj.bind_append("ButtonPress-1", proc{|e| do_press(e.x, e.y)})
-      @obj.bind_append("B1-Motion", proc{|x, y| do_motion(x,y)},"%x %y")
-    end
-  end
-
-  def w
-    if TkWinfo.mapped?(@obj)
-      @w0= TkWinfo.width(@obj)
-    else
-      @w0= TkWinfo.reqwidth(@obj)
-    end
-  end
-
-  def h
-    if TkWinfo.mapped?(@obj)
-      @h0= TkWinfo.height(@obj)
-    else
-      @h0= TkWinfo.reqheight(@obj)
-    end
-  end
-
-  def do_enter(x, y)
-    @oldcursor = @obj.cget('cursor')
-    @obj.configure('cursor'=> @cursor)
-  end
-
-  def do_leave
-    @obj.configure('cursor'=>@oldcursor)
-  end
-
-  def do_press(x, y)
-    @start_x = x
-    @start_y = y
-  end
-
-  def do_motion( _x, _y)
-    @motion = true
-    move(_x - @start_x, _y - @start_y)
-  end
-
-  def move(_x,_y)
-    case @side
-    when 'both'
-      @x0 = @x0 + _x  if (@x0 + _x) >= 0
-      @y0 = @y0 + _y
-      @obj.place('x' => @x0, 'y' => @y0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
-    when 'x'
-      @x0 = @x0 + _x  if (@x0 + _x) >= 0
-      @obj.place('x' => @x0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
-    when 'y'
-      @y0 = @y0 + _y
-      @obj.place('y' => @y0, 'width' => @width, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
-    end
-  end
-
-  def amove(_x,_y)
-    move(_x - @x0 , _y - @y0)
-  end
-
-  def go(_w, _h)
-    case @side
-    when 'x'
-      @w0 = _w
-      @obj.place('width' => @w0, 'height'=>@height, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
-    when 'y'
-      @h0 = _h
-      @obj.place('height' => @h0, 'width' => @width, 'relwidth'=>@relwidth, 'relheight'=>@relheight)
-    end
-  end
-
-end
 
 class AGTkFramePlaceManager
   attr_reader :main_frame
@@ -2478,7 +2372,24 @@ class AGTkToplevel < AGTkContainer
   def form2code
     _title = @i_name+'.rb'
     _text = @renderer.class_code.to_s
-    EditorContract.instance.open_text(self, 'title'=>_title, 'text'=>_text)
+    Arcadia.process_event(OpenBufferEvent.new(self,'title'=>_title, 'text'=>_text))
+    meditor = $arcadia['editor']
+    if meditor
+      _editor = meditor.raised
+      code2form = proc{
+        Revparsel.new(_editor.text_value)
+        meditor.close_editor(_editor, false)
+        InspectorContract.instance.raise_last_widget(meditor)
+      }
+      _editor.insert_popup_menu_item('end',
+        :command,
+        :label=>'View as form',
+        :hidemargin => false,
+        :command=> code2form
+      )
+    end
+    
+    #EditorContract.instance.open_text(self, 'title'=>_title, 'text'=>_text)
     self.delete
   end