arcadia 0.2.0 → 0.3.0

data/{base → lib}/a-tkcommons.rb

@@ -3,10 +3,11 @@
 #   by Antonio Galeone <antonio-galeone@rubyforge.org>
 #
 
-require "base/a-commons"
+require "lib/a-commons"
 
 class TkApplication < Application
   def run
+    Tk.appname(self['applicationParams'].name)
     Tk.mainloop
   end
 end
@@ -183,11 +184,15 @@ end
 
 
 class AGTkSplittedFrames < TkFrame
-  def initialize(parent=nil, length=10, keys=nil)
+  def initialize(parent=nil, length=10, slen=5, keys=nil)
+    if keys.nil?
+      keys = Hash.new
+    end
+    keys.update(Arcadia.style('panel'))
     super(parent, keys)
     @parent = parent
-    @slen = 5
-    relief 'groove'
+    @slen = slen
+    #relief 'groove'
   end
 
   def maximize(_frame)
@@ -209,14 +214,20 @@ end
 
 class AGTkVSplittedFrames < AGTkSplittedFrames
   attr_reader :left_frame, :right_frame, :splitter_frame
-  def initialize(parent=nil, width=10, keys=nil)
-    super(parent, width, keys)
+  def initialize(parent=nil, width=10, slen=5, perc=false, keys=nil)
+    super(parent, width, slen, keys)
     
     self.pack(:expand=>true, :fill=>:both)
-    @left_frame = TkFrame.new(self){
-      relief 'flat'
+    @left_frame = TkFrame.new(self, Arcadia.style('panel')){
+      #relief 'flat'
     }
-    x = width
+    if perc
+      p_width = TkWinfo.screenwidth(self)    
+    		x = (p_width/100*width).to_i
+    else
+      x = width
+    end
+    
     @left_frame.place(
       'relx' => 0,
       'x' => 0,
@@ -232,9 +243,9 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
     @left_frame_obj.relwidth = 0
     @left_frame_obj.relheight = 1
 
-    @splitter_frame = TkFrame.new(self){
-      relief  'raised'
-      border 1
+    @splitter_frame = TkFrame.new(self, Arcadia.style('splitter')){
+      #relief  'raised'
+      #border 1
     }
 
     @splitter_frame.place(
@@ -251,11 +262,11 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
       proc{do_resize}
     )
     _self = self
-    @b_left = TkButton.new{
+    @b_left = TkButton.new(nil, Arcadia.style('button')){
       image TkPhotoImage.new('dat'=>LEFT_SIDE_GIF)
     }
 
-    @b_right = TkButton.new{
+    @b_right = TkButton.new(nil, Arcadia.style('button')){
       image TkPhotoImage.new('dat'=>RIGHT_SIDE_GIF)
     }
     @proc_unplace = proc{
@@ -303,26 +314,27 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
       }
     }, "%x %y")
 
-    @splitter_frame.bind_append(
-    "Enter",
-    proc{
-      @color_save = @splitter_frame.background
-      @splitter_frame.background('#9aa6a7')}
-    )
-    @splitter_frame.bind_append(
-      "Leave",
-      proc{
-        @splitter_frame.background(@color_save)
-      }
-    )
+#    @splitter_frame.bind_append(
+#    "Enter",
+#    proc{
+#      @color_save = @splitter_frame.background
+#      @splitter_frame.background(Arcadia.conf('splitter.highlightbackground'))}
+#      #@splitter_frame.background('#9aa6a7')}
+#    )
+#    @splitter_frame.bind_append(
+#      "Leave",
+#      proc{
+#        @splitter_frame.background(@color_save)
+#      }
+#    )
     @splitter_frame_obj = AGTkObjPlace.new(@splitter_frame, 'x')
     @splitter_frame_obj.width = @slen
     @splitter_frame_obj.height = 0
     @splitter_frame_obj.relwidth = 0
     @splitter_frame_obj.relheight = 1
     x = x + @slen
-    @right_frame = TkFrame.new(self){
-      relief 'flat'
+    @right_frame = TkFrame.new(self, Arcadia.style('panel')){
+      #relief 'flat'
     }
     @right_frame.place(
       'relwidth' => 1,
@@ -376,6 +388,10 @@ class AGTkVSplittedFrames < AGTkSplittedFrames
     @right_frame_obj.width = - _w - @slen
     @right_frame_obj.amove(_w + @slen,0)
   end
+  
+  def is_left_hide?
+    @left_frame_obj.w == 0
+  end
 
   def hide_right
     if (@state=='right')
@@ -425,8 +441,8 @@ end
 
 class AGTkOSplittedFrames < AGTkSplittedFrames
   attr_reader :top_frame, :bottom_frame
-  def initialize(parent=nil, height=10, perc=false,keys=nil)
-    super(parent, height, keys)
+  def initialize(parent=nil, height=10, slen=5, perc=false, keys=nil)
+    super(parent, height, slen, keys)
     self.place(
       'relwidth' => 1,
       'relx' => 0,
@@ -436,8 +452,8 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
       'rely' => 0,
       'bordermode' => 'inside'
     )
-    @top_frame = TkFrame.new(self){
-      relief 'flat'
+    @top_frame = TkFrame.new(self, Arcadia.style('panel')){
+     # relief 'flat'
     }
     if perc
       p_height = TkWinfo.screenheight(self)    
@@ -455,9 +471,9 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
     @top_frame_obj.height = y
     @top_frame_obj.relwidth = 1
     @top_frame_obj.relheight = 0
-    @splitter_frame = TkFrame.new(self){
-      relief  'groove'
-      border 1
+    @splitter_frame = TkFrame.new(self, Arcadia.style('splitter')){
+      #relief  'groove'
+      #border 1
     }
     @splitter_frame.place(
       'relx' => 0,
@@ -482,8 +498,8 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
     @splitter_frame_obj.relwidth = 1
     @splitter_frame_obj.relheight = 0
     y = y + @slen
-    @bottom_frame = TkFrame.new(self){
-      relief 'flat'
+    @bottom_frame = TkFrame.new(self, Arcadia.style('panel')){
+     # relief 'flat'
     }
     @bottom_frame.place(
       'relwidth' => 1,
@@ -500,10 +516,10 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
     @bottom_frame_obj.height = -y
     @bottom_frame_obj.relwidth = 1
     @bottom_frame_obj.relheight = 1
-    _xbutton = TkButton.new(@splitter_frame){
+    _xbutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
       background '#4966d7'
-      overrelief  'raised'
-      relief  'flat'
+      #overrelief  'raised'
+      #relief  'flat'
     }
     _xbutton.place(
       'x' => 0,
@@ -516,10 +532,10 @@ class AGTkOSplittedFrames < AGTkSplittedFrames
       "ButtonPress-1",
       proc{hide_top}
     )
-    _ybutton = TkButton.new(@splitter_frame){
+    _ybutton = TkButton.new(@splitter_frame, Arcadia.style('toolbarbutton')){
       background '#118124'
-      overrelief  'raised'
-      relief  'flat'
+      #overrelief  'raised'
+      #relief  'flat'
     }
     _ybutton.place(
       'x' => 21,
@@ -624,11 +640,11 @@ class TkBaseTitledFrame < TkFrame
   attr_reader :top
 
   def initialize(parent=nil, *args)
-    super(parent, *args)
+    super(parent, Arcadia.style('panel'))
     @parent = parent
     @title_height = 18
     @top = TkFrame.new(self){
-      background  '#303b50'
+      background  Arcadia.conf('titlelabel.background')
       #foreground  'white'
       #anchor 'w'
     }.place('x'=>0, 'y'=>0,'height'=>@title_height, 'relwidth'=>1)
@@ -641,22 +657,23 @@ class TkBaseTitledFrame < TkFrame
     
     @button_frame=TkFrame.new(@top){
       #background  '#303b50'
+      background  Arcadia.conf('titlelabel.background')
     }.pack('side'=> 'right','anchor'=> 'w')
     
     self.head_buttons
   end
 
   def create_frame
-    return TkFrame.new(self).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
+    return TkFrame.new(self,Arcadia.style('panel')).place('x'=>0, 'y'=>@title_height,'height'=>-@title_height,'relheight'=>1, 'relwidth'=>1)
     #pack('fill'=>'both','expand'=> 1, 'anchor'=>'center')
     #
   end
 
   def add_button(_label,_proc=nil,_image=nil, _side= 'right')
-    TkButton.new(@button_frame){
+    TkButton.new(@button_frame, Arcadia.style('toolbarbutton')){
       text  _label if _label
       image  TkPhotoImage.new('dat' => _image) if _image
-      relief 'flat'
+      #relief 'flat'
       font 'helvetica 8 bold'
       #borderwidth 0
       #background  '#303b50'
@@ -678,24 +695,27 @@ class TkTitledFrame < TkBaseTitledFrame
   attr_reader :frame
   attr_reader :top
 
-  def initialize(parent=nil, title='...', img=nil , keys=nil)
+  def initialize(parent=nil, title=nil, img=nil , keys=nil)
     super(parent, keys)
     @state = 'normal'
-    @title_label =TkLabel.new(@top){
-      text title+' :: '
+    title.nil??_text_title ='':_text_title = title+' :: ' 
+    @title_label =TkLabel.new(@top, Arcadia.style('titlelabel')){
+      text _text_title
       anchor  'w'
-      font  $arcadia['conf']['all.frame.title.font']
-      background  '#303b50'
-      foreground  '#e8e651'
+      #font  $arcadia['conf']['all.frame.title.font']
+#      background  '#303b50'
+#      foreground  '#e8e651'
+#      font  Arcadia.conf('titlepanel.font')
+#      background  Arcadia.conf('titlepanel.background')
+#      foreground  Arcadia.conf('titlepanel.foreground')
       compound 'left'
       image  TkAllPhotoImage.new('file' => img) if img
       pack('side'=> 'left','anchor'=> 'e')
     }
-    @top_label =TkLabel.new(@top){
+    @top_label =TkLabel.new(@top, Arcadia.style('titlelabel')){
       anchor  'w'
-      font  $arcadia['conf']['all.frame.title.font.italic']
-      background  '#303b50'
-      foreground  '#FFFFFF'
+      font "#{Arcadia.conf('titlelabel.font')} italic"
+      foreground  Arcadia.conf('titlecontext.foreground')
       compound 'left'
       pack('side'=> 'left','anchor'=> 'e')
     }
@@ -795,15 +815,12 @@ class TkFloatTitledFrame < TkBaseTitledFrame
     borderwidth  2
     relief  'groove'
 
-    @top_label = TkLabel.new(@top){
-      background  '#303b50'
-      foreground  'white'
+    @top_label = TkLabel.new(@top, Arcadia.style('titlelabel')){
       anchor 'w'
     }.pack('fill'=>'x', 'side'=>'top')
     #.place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1 ,'width'=>-20)
 
-    @resizing_label=TkLabel.new(self){
-      #background  '#303b50'
+    @resizing_label=TkLabel.new(self, Arcadia.style('label')){
       text '-'
       image TkPhotoImage.new('dat'=>EXPAND_LIGHT_GIF)
     }.pack('side'=> 'right','anchor'=> 's')
@@ -860,6 +877,7 @@ class TkFloatTitledFrame < TkBaseTitledFrame
 end
 
 class TkProgressframe < TkFloatTitledFrame
+  attr_accessor :max
   def initialize(parent=nil, _max=100, *args)
     super(parent)
     @max = _max

metadata

@@ -1,43 +1,52 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.9.4
-specification_version: 1
 name: arcadia
 version: !ruby/object:Gem::Version 
-  version: 0.2.0
-date: 2007-10-25 00:00:00 +02: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: .
-has_rdoc: false
-required_ruby_version: !ruby/object:Gem::Version::Requirement 
-  requirements: 
-  - - ">"
-    - !ruby/object:Gem::Version 
-      version: 0.0.0
-  version: 
+  version: 0.3.0
 platform: ruby
-signing_key: 
-cert_chain: 
-post_install_message: 
 authors: 
 - Antonio Galeone
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-01-28 00:00:00 +01:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rcodetools
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.5.0.0
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: ruby-debug
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.9.3
+    version: 
+description: 
+email: antonio-galeone@rubyforge.org
+executables: 
+- arcadia
+extensions: []
+
+extra_rdoc_files: 
+- README
 files: 
-- base/a-contracts.rb
-- base/a-commons.rb
-- base/a-tkcommons.rb
+- bin/arcadia
+- lib/a-commons.rb
+- lib/a-tkcommons.rb
+- lib/a-contracts.rb
+- lib/a-core.rb
 - conf/arcadia.conf
 - conf/arcadia.init.rb
 - conf/arcadia.res.rb
-- ext/ae-inspector
-- ext/ae-inspector/ae-inspector.rb
-- ext/ae-inspector/ae-inspector.conf
 - ext/ae-shell
 - ext/ae-shell/ae-shell.conf
 - ext/ae-shell/ae-shell.rb
@@ -45,9 +54,6 @@ files:
 - ext/ae-complete-code
 - ext/ae-complete-code/ae-complete-code.conf
 - ext/ae-complete-code/ae-complete-code.rb
-- ext/ae-palette
-- ext/ae-palette/ae-palette.rb
-- ext/ae-palette/ae-palette.conf
 - ext/ae-editor
 - ext/ae-editor/ae-editor.rb
 - ext/ae-editor/ae-editor.conf
@@ -71,8 +77,8 @@ files:
 - ext/ae-doc-code/ae-doc-code.rb
 - ext/ae-doc-code/ae-doc-code.conf
 - ext/ae-ruby-debug
-- ext/ae-ruby-debug/ae-ruby-debug.rb
 - ext/ae-ruby-debug/ae-ruby-debug.conf
+- ext/ae-ruby-debug/ae-ruby-debug.rb
 - ext/ae-flag
 - ext/ae-flag/ae-flag.rb
 - ext/ae-flag/ae-flag.conf
@@ -96,9 +102,6 @@ files:
 - ext/ae-rad/lib/tk/al-tkcustom.rb
 - ext/ae-rad/lib/tk/al-tk.res.rb
 - ext/ae-rad/ae-rad-libs.rb
-- ext/ae-action-dispatcher
-- ext/ae-action-dispatcher/ae-action-dispatcher.rb
-- ext/ae-action-dispatcher/ae-action-dispatcher.conf
 - tcl/BWidget-1.8.0
 - tcl/BWidget-1.8.0/BWman
 - tcl/BWidget-1.8.0/BWman/options.htm
@@ -232,40 +235,36 @@ files:
 - tcl/BWidget-1.8.0/ChangeLog
 - tcl/BWidget-1.8.0/LICENSE.txt
 - tcl/BWidget-1.8.0/README.txt
-- arcadia.rb
 - README
-test_files: []
-
+has_rdoc: false
+homepage: http://arcadia.rubyforge.org
+post_install_message: 
 rdoc_options: 
 - --title
 - Arcadia Documentation
 - --main
 - README
 - -q
-extra_rdoc_files: 
-- README
-executables: 
-- arcadia.rb
-extensions: []
-
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
 requirements: []
 
-dependencies: 
-- !ruby/object:Gem::Dependency 
-  name: rcodetools
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Version::Requirement 
-    requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
-        version: 0.5.0.0
-    version: 
-- !ruby/object:Gem::Dependency 
-  name: ruby-debug
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Version::Requirement 
-    requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
-        version: 0.9.3
-    version: 
+rubyforge_project: arcadia
+rubygems_version: 1.0.1
+signing_key: 
+specification_version: 2
+summary: An Ide for Ruby written in Ruby using the classic tcl/tk GUI toolkit.
+test_files: []
+