arcadia 0.1.0

data/lib/tkext/al-iwidgets.rb

@@ -0,0 +1,25 @@
+#
+#   al-iwidgets.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'lib/tk/arcadia-tk'
+require 'tkextlib/iwidgets'
+
+
+
+class AGTkIWidgets < AGTkBase
+  def newobject
+    @obj = Tk::Iwidgets::Calendar.new(@ag_parent.obj)
+  end
+  def properties
+    super()
+  end
+end
+
+
+class ArcadiaLibTkBWidget < ArcadiaLib
+  def register_classes
+    self.add_class(AGTkIWidgets)
+  end
+end

data/lib/tkext/al-tile.rb

@@ -0,0 +1,173 @@
+#
+#   al-tile.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'lib/wrappers/tk/w-arcadia-tk'
+require 'tkextlib/tile'
+require "lib/arcadia/arcadia-ext"
+
+class AGTkCommonTile < AGTkLayoutManaged
+  def properties
+    super
+    publish('property','name'=>'style',
+    'get'=> proc{@obj.cget('style')},
+    'set'=> proc{|j| @obj.configure('style'=>j)},
+    'def'=> ""
+    )
+    publish('property','name'=>'theme_use',
+    'get'=> proc{},
+    'set'=> proc{|j| Tk::Tile::Style.theme_use(j)},
+    'def'=> ""
+    )
+
+  end
+
+end
+
+class ATKTileLabel < AGTkCommonTile
+  def ATKTileLabel.class_wrapped
+    Tk::Tile::TLabel
+  end
+  def properties
+    super
+    publish('property','name'=>'text',
+    'default'=> @i_name,
+    'get'=> proc{@obj.cget('text')},
+    'set'=> proc{|t| @obj.configure('text'=>t)},
+    'def'=> ""
+    )
+    publish('property','name'=>'state',
+    'get'=> proc{@obj.cget('state')},
+    'set'=> proc{|j| @obj.configure('state'=>j)},
+    'def'=> "",
+    'type'=>TkType::TkagState
+    )
+  end
+end
+
+
+
+class ATKTileButton < AGTkCommonTile
+  def ATKTileButton.class_wrapped
+    Tk::Tile::TButton
+  end
+  def properties
+    super
+    publish('property','name'=>'text',
+    'default'=> @i_name,
+    'get'=> proc{@obj.cget('text')},
+    'set'=> proc{|t| @obj.configure('text'=>t)},
+    'def'=> ""
+    )
+    publish('property','name'=>'state',
+    'get'=> proc{@obj.cget('state')},
+    'set'=> proc{|j| @obj.configure('state'=>j)},
+    'def'=> "",
+    'type'=>TkType::TkagState
+    )
+  end
+end
+
+
+class ATKTileScrollbar < AGTkCommonTile
+  def ATKTileScrollbar.class_wrapped
+    Tk::Tile::TScrollbar
+  end
+  def properties
+    super
+  end
+end
+
+class ATKTileCombobox < AGTkCommonTile
+  def ATKTileCombobox.class_wrapped
+    Tk::Tile::TCombobox
+  end
+  def properties
+    super
+    publish('property','name'=>'values',
+    'get'=> proc{@obj.cget('values')},
+    'set'=> proc{|t| @obj.configure('values'=>t)},
+    'def'=> ""
+    )
+  end
+end
+
+class ATKTileSeparator < AGTkCommonTile
+  def ATKTileSeparator.class_wrapped
+    Tk::Tile::TSeparator
+  end
+  def properties
+    super
+  end
+end
+
+
+class ATKTileFrame < AGTkLayoutManagedContainer
+  include Tk::Tile
+  def ATKTileFrame.class_wrapped
+    TFrame
+  end
+end
+
+class ATKTileLabelframe < ATKTileFrame
+  def ATKTileLabelframe.class_wrapped
+    Tk::Tile::TLabelframe
+  end
+  def properties
+    super
+    publish('property','name'=>'text',
+    'default'=> @i_name,
+    'get'=> proc{@obj.cget('text')},
+    'set'=> proc{|t| @obj.configure('text'=>t)},
+    'def'=> ""
+    )
+  end
+end
+
+
+class ATkTileStyle < AGINTk
+  class TkTileStyle
+    include Tk::Tile::Style
+    def style
+      Tk::Tile::Style
+    end
+  end
+  def ATkTileStyle.class_wrapped
+    TkTileStyle
+  end
+  def properties
+    super
+    publish('property','name'=>'theme',
+    'get'=> proc{},
+    'set'=> proc{|j| @obj.style.theme_use(j)},
+    'def'=> "",
+    'type'=> EnumType.new(@obj.style.theme_names)
+    )
+
+    publish('property','name'=>'foreground',
+    'get'=> proc{},
+    'set'=> proc{|foreground| @obj.style.configure('foreground'=>foreground)},
+    'def'=> '',
+    'type'=> TkType::TkagColor
+    )
+
+
+  end
+end
+
+class ArcadiaLibTkTile < ArcadiaLib
+  def register_classes
+    self.add_class(ATkTileStyle)
+    self.add_class(ATKTileLabel)
+    self.add_class(ATKTileLabelframe)
+    self.add_class(ATKTileButton)
+    self.add_class(ATKTileFrame)
+    self.add_class(ATKTileScrollbar)
+    self.add_class(ATKTileCombobox)
+    self.add_class(ATKTileSeparator)
+  end
+end
+
+
+

data/lib/tkext/al-tktable.rb

@@ -0,0 +1,48 @@
+#
+#   al-tktable.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require 'comp/agtk'
+require 'comp/tktable'
+
+class AGTktable < AGTkBase
+  #il combo si compone di un entry un button e un frame
+  def newobject
+    @obj = Tktable.new(@ag_parent.obj)
+  end
+
+  def properties
+    super()
+
+
+    publish('property','name'=>'cache',
+    'get'=> proc{@obj.cget('cache')},
+    'set'=> proc{|cache| @obj.configure('cache'=>cache)},
+    'def'=> "",
+    'type'=> TkType::TkagBool
+    )
+    publish('property','name'=>'cols',
+      'get'=> proc{@obj.cget('cols')},
+      'set'=> proc{|cols| @obj.configure('cols'=>cols)},
+      'def'=> ""
+    )
+    publish('property','name'=>'rows',
+      'get'=> proc{@obj.cget('rows')},
+      'set'=> proc{|rows| @obj.configure('rows'=>rows)},
+      'def'=> ""
+    )
+    publish('property','name'=>'borderwidth',
+      'get'=> proc{@obj.cget('borderwidth')},
+      'set'=> proc{|borderwidth| @obj.configure('borderwidth'=>borderwidth)},
+      'def'=> ""
+    )
+  end
+
+end
+
+class ArcadiaLibTkTable < ArcadiaLib
+  def register_classes
+    self.add_class(Aw_Tk_BWidget_MainFrameAGTktable)
+  end
+end

metadata

@@ -0,0 +1,90 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: arcadia
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+date: 2007-02-25 00:00:00 +01:00
+summary: An Ide for Ruby application building with ruby-tk.
+require_paths: 
+- lib
+email: antonio-galeone@rubyforge.org
+homepage: http://arcadia.rubyforge.org
+rubyforge_project: 
+description: 
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- Antonio Galeone
+files: 
+- base/a-libs.rb
+- base/a-ext.rb
+- base/a-utils.rb
+- base/a-contracts.rb
+- conf/arcadia.conf
+- conf/arcadia.init.rb
+- conf/arcadia.res.rb
+- ext/ae-shell
+- ext/ae-palette
+- ext/ae-debug
+- ext/ae-inspector
+- ext/ae-editor
+- ext/ae-output
+- ext/ae-event-log
+- ext/ae-output-event
+- ext/ae-file-history
+- ext/ae-shell/ae-shell.conf
+- ext/ae-shell/ae-shell.rb
+- ext/ae-palette/ae-palette.rb
+- ext/ae-palette/ae-palette.conf
+- ext/ae-debug/ae-debug.rb
+- ext/ae-debug/debug1.57.rb
+- ext/ae-debug/ae-debug.conf
+- ext/ae-inspector/ae-inspector.rb
+- ext/ae-inspector/ae-inspector.conf
+- ext/ae-editor/ae-editor.rb
+- ext/ae-editor/ae-editor.conf
+- ext/ae-output/ae-output.rb
+- ext/ae-output/ae-output.conf
+- ext/ae-event-log/ae-event-log.conf
+- ext/ae-event-log/ae-event-log.rb
+- ext/ae-output-event/ae-output-event.conf
+- ext/ae-file-history/ae-file-history.rb
+- ext/ae-file-history/ae-file-history.conf
+- lib/tk
+- lib/tkext
+- lib/tk/al-tk.rb
+- lib/tk/al-tkarcadia.rb
+- lib/tk/al-tkcustom.rb
+- lib/tk/al-tk.res.rb
+- lib/tkext/al-bwidget.rb
+- lib/tkext/al-iwidgets.rb
+- lib/tkext/al-tile.rb
+- lib/tkext/al-tktable.rb
+- arcadia.rb
+- README
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+