ffi-tk 2009.11.29

data/spec/ffi-tk/tile/frame.rb

@@ -0,0 +1,65 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Tile::Frame do
+  Style = Tk::Tile::Style
+  Frame = Tk::Tile::Frame
+
+  it 'creates a new frame with layout_style' do
+    layout_style = [
+      'Button.button', {:children=>[
+        'Button.focus', {:children=>[
+          'Button.padding', {:children=>[
+            'Button.label', {:expand=>true, :sticky=>''}
+          ]}
+        ]}
+      ]}
+    ]
+
+    frame = Frame.new(Tk.root)
+    frame.style(layout_style).should == true
+  end
+
+  it 'sets borderwidth default 0' do
+    frame = Frame.new(Tk.root)
+    frame.cget(:borderwidth).should == 0
+
+    frame = Frame.new(Tk.root, borderwidth: 10)
+    frame.cget(:borderwidth).should == 10
+
+    frame.configure borderwidth: 20
+    frame.cget(:borderwidth).should == 20
+  end
+
+  # One of the standard Tk border styles:
+  # flat, groove, raised, ridge, solid, or sunken. Defaults to flat.
+  it 'sets relief default :flat' do
+    frame = Frame.new(Tk.root)
+    frame.cget(:relief).should == :flat
+
+    frame = Frame.new(Tk.root, relief: 'groove')
+    frame.cget(:relief).should == :groove
+  end
+
+  it 'sets cursor' do
+    frame = Frame.new(Tk.root)
+    frame.cget(:cursor).should == nil
+
+    lambda {
+      Frame.new(Tk.root, cursor: '.s.s.s.s')
+    }.should.raise RuntimeError
+  end
+
+  it 'sets additional padding to include inside the border' do
+    frame = Frame.new(Tk.root)
+    frame.cget(:padding).should == []
+
+    frame = Frame.new(Tk.root, padding: 10)
+    frame.cget(:padding).should == [ '10' ]
+
+    frame.configure padding: [10, 20]
+    frame.cget(:padding).should == ['10', '20']
+  end
+end
+

data/spec/ffi-tk/tile/label.rb

@@ -0,0 +1,17 @@
+require_relative '../../helper'
+
+describe Tk::Tile::Label do
+  it 'initializes' do
+    instance = Tk::Tile::Label.new
+    instance.class.should == Tk::Tile::Label
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'assigns a value' do
+    label = Tk::Tile::Label.new
+    label.value.should == nil
+    label.value = 'Hello, World!'
+    label.value.should == 'Hello, World!'
+  end
+end
+

data/spec/ffi-tk/tile/labelframe.rb

@@ -0,0 +1,13 @@
+require_relative '../../helper'
+
+describe Tk::Tile::LabelFrame do
+  it 'initializes' do
+    instance = Tk::Tile::LabelFrame.new
+    instance.class.should == Tk::Tile::LabelFrame
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'needs more specs' do
+  end
+end
+

data/spec/ffi-tk/tile/menubutton.rb

@@ -0,0 +1,13 @@
+require_relative '../../helper'
+
+describe Tk::Tile::MenuButton do
+  it 'initializes' do
+    instance = Tk::Tile::MenuButton.new
+    instance.class.should == Tk::Tile::MenuButton
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'needs more specs' do
+  end
+end
+

data/spec/ffi-tk/tile/notebook.rb

@@ -0,0 +1,103 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Tile::Notebook do
+  it 'initializes' do
+    instance = Tk::Tile::Notebook.new
+    instance.class.should == Tk::Tile::Notebook
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'adds a new tab' do
+    f0 = Tk::Tile::Frame.new
+    nb = Tk::Tile::Notebook.new
+
+    nb.add( f0, text: 'first tab' ).should == true
+  end
+
+  it 'selects the specified tab' do
+    f0 = Tk::Tile::Frame.new
+    f1 = Tk::Tile::Frame.new
+
+    nb = Tk::Tile::Notebook.new
+    nb.add( f0, text: 'first tab' ).should == true
+    nb.add( f1, text: 'second tab' ).should == true
+
+    nb.select(f1).should == f1.tk_pathname
+    nb.select(f0).should == f0.tk_pathname
+  end
+
+  it 'return index of tabs' do
+    f0 = Tk::Tile::Frame.new
+    f1 = Tk::Tile::Frame.new
+
+    nb = Tk::Tile::Notebook.new
+    nb.add( f0, text: 'first tab' ).should == true
+    nb.add( f1, text: 'second tab' ).should == true
+
+    nb.index(f1).should == 1
+    nb.index(f0).should == 0
+    nb.index('end').should == 2 # total number of tabs
+    nb.index('current').should == 0
+  end
+
+  it 'return a list of managed tabs' do
+    f2 = Tk::Tile::Frame.new
+    nb = Tk::Tile::Notebook.new
+
+    nb.tabs.should == []
+    nb.add( f2, text: 'first tab' ).should == true
+    nb.tabs.should == [ f2.tk_pathname ]
+  end
+
+  it 'inserts a new tab at position' do
+    f0 = Tk::Tile::Frame.new
+    f1 = Tk::Tile::Frame.new
+    nb = Tk::Tile::Notebook.new
+
+    nb.add( f0, text: 'first tab' ).should == true
+    nb.insert( 0, f1, text: 'first tab' ).should == true
+
+    nb.tabs.should == [ f1.tk_pathname, f0.tk_pathname ]
+  end
+
+  it 'set tab options' do
+    f2 = Tk::Tile::Frame.new
+    nb = Tk::Tile::Notebook.new
+
+    nb.add(f2, text: 'first tab' ).should == true
+
+    nb.tab(f2, state: :disabled ).should == true
+    nb.tab(f2).should.include 'disabled'
+  end
+
+  it 'forgets the specified tab' do
+    f2 = Tk::Tile::Frame.new
+    nb = Tk::Tile::Notebook.new
+
+    nb.add( f2, text: 'first tab' ).should == true
+    nb.tabs.should == [ f2.tk_pathname ]
+
+    nb.forget(f2).should == true
+    nb.tabs.should == [ ]
+  end
+
+  it 'hides a specified tab' do
+    f2 = Tk::Tile::Frame.new
+    nb = Tk::Tile::Notebook.new
+
+    nb.add( f2, text: 'first tab' ).should == true
+
+    nb.hide(f2).should == true
+    nb.tabs.should == [ f2.tk_pathname ]
+  end
+
+  it 'enables traversal' do
+    nb = Tk::Tile::Notebook.new
+    nb.enable_traversal.should == true
+
+    Tk::Tile::Notebook.enable_traversal(nb).should == true
+  end
+end
+

data/spec/ffi-tk/tile/panedwindow.rb

@@ -0,0 +1,13 @@
+require_relative '../../helper'
+
+describe Tk::Tile::PanedWindow do
+  it 'initializes' do
+    instance = Tk::Tile::PanedWindow.new
+    instance.class.should == Tk::Tile::PanedWindow
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'needs more specs' do
+  end
+end
+

data/spec/ffi-tk/tile/progressbar.rb

@@ -0,0 +1,78 @@
+require_relative '../../helper'
+
+describe Tk::Tile::Progressbar do
+  it 'initializes' do
+    instance = Tk::Tile::Progressbar.new
+    instance.class.should == Tk::Tile::Progressbar
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'start progress step with interval' do
+    pbar = Tk::Tile::Progressbar.new
+    pbar.start.should == true
+    pbar.start(12).should == true
+  end
+
+  it 'stop progress stepping' do
+    pbar = Tk::Tile::Progressbar.new
+    pbar.stop.should == true
+  end
+
+  it '#step increments value' do
+    var = Tk::Variable.new('somevar')
+    var.set 0.0
+    pbar = Tk::Tile::Progressbar.new(Tk.root, variable: var)
+
+    3.times { pbar.step.should == true }
+    var.to_f.should == 3.0
+
+    pbar.step(10).should == true
+    var.to_f.should == 13.0
+  end
+
+  it 'get progress value' do
+    pbar = Tk::Tile::Progressbar.new(Tk.root)
+    pbar.step
+    pbar.value.should == 1.0
+    pbar.step(98)
+    pbar.value.should == 99.0
+    pbar.step(1)
+    pbar.value.should == 0.0
+  end
+
+  it 'sets mode' do
+    pbar = Tk::Tile::Progressbar.new(Tk.root)
+    pbar.cget(:mode).should == :determinate
+
+    pbar = Tk::Tile::Progressbar.new(Tk.root, mode: :indeterminate)
+    pbar.cget(:mode).should == :indeterminate
+  end
+
+  it 'sets length' do
+    pbar = Tk::Tile::Progressbar.new(Tk.root)
+    pbar.cget(:length).should == 100
+
+    pbar = Tk::Tile::Progressbar.new(Tk.root, length: 200)
+    pbar.cget(:length).should == 200
+  end
+
+  it 'sets maximum' do
+    pbar = Tk::Tile::Progressbar.new(Tk.root)
+    pbar.cget(:maximum).should == 100
+
+    pbar = Tk::Tile::Progressbar.new(Tk.root, maximum: 90)
+    pbar.cget(:maximum).should == 90
+  end
+
+  it 'gets phase value' do
+    Tk::Tile::Progressbar.new(Tk.root).phase.should == 0
+  end
+
+  it 'sets orientation' do
+    pbar = Tk::Tile::Progressbar.new
+    pbar.orient.should == :horizontal
+    pbar.orient :vertical
+    pbar.orient.should == :vertical
+  end
+end
+

data/spec/ffi-tk/tile/radiobutton.rb

@@ -0,0 +1,13 @@
+require_relative '../../helper'
+
+describe Tk::Tile::RadioButton do
+  it 'initializes' do
+    instance = Tk::Tile::RadioButton.new
+    instance.class.should == Tk::Tile::RadioButton
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'needs more specs' do
+  end
+end
+

data/spec/ffi-tk/tile/scale.rb

@@ -0,0 +1,13 @@
+require_relative '../../helper'
+
+describe Tk::Tile::Scale do
+  it 'initializes' do
+    instance = Tk::Tile::Scale.new
+    instance.class.should == Tk::Tile::Scale
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'needs more specs' do
+  end
+end
+

data/spec/ffi-tk/tile/scrollbar.rb

@@ -0,0 +1,43 @@
+require_relative '../../helper'
+
+describe Tk::Tile::Scrollbar do
+  it 'initializes' do
+    instance = Tk::Tile::Scrollbar.new
+    instance.class.should == Tk::Tile::Scrollbar
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'sets orientation' do
+    s = Tk::Tile::YScrollbar.new
+    s.orient.should == :vertical
+    s.orient :horizontal
+    s.orient.should == :horizontal
+  end
+end
+
+describe Tk::Tile::YScrollbar do
+  it 'initializes' do
+    instance = Tk::Tile::YScrollbar.new
+    instance.class.should == Tk::Tile::YScrollbar
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'sets orientation' do
+    s = Tk::Tile::YScrollbar.new
+    s.cget(:orient).should == :vertical
+  end
+end
+
+describe Tk::Tile::XScrollbar do
+  it 'initializes' do
+    instance = Tk::Tile::XScrollbar.new
+    instance.class.should == Tk::Tile::XScrollbar
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'sets orientation' do
+    s = Tk::Tile::XScrollbar.new
+    s.cget(:orient).should == :horizontal
+  end
+end
+

data/spec/ffi-tk/tile/separator.rb

@@ -0,0 +1,22 @@
+require_relative '../../helper'
+
+describe Tk::Tile::Separator do
+  it 'initializes' do
+    instance = Tk::Tile::Separator.new
+    instance.class.should == Tk::Tile::Separator
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'sets orientation' do
+    s = Tk::Tile::Separator.new
+    s.orient.should == :horizontal
+    s.orient :vertical
+    s.orient.should == :vertical
+  end
+
+  it 'sets identify' do
+    s = Tk::Tile::Separator.new
+    s.identify(0,0).should == true 
+  end
+end
+

data/spec/ffi-tk/tile/sizegrip.rb

@@ -0,0 +1,13 @@
+require_relative '../../helper'
+
+describe Tk::Tile::Sizegrip do
+  it 'initializes' do
+    instance = Tk::Tile::Sizegrip.new
+    instance.class.should == Tk::Tile::Sizegrip
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'needs more specs' do
+  end
+end
+

data/spec/ffi-tk/tile/style.rb

@@ -0,0 +1,161 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Tile::Style do
+  Style = Tk::Tile::Style
+
+  it '#theme_names  returns a list of all known themes' do
+    names = Style.theme_names
+
+    names.should.kind_of? Array
+    names.should.not.be.empty?
+    names.all?{|i| i.kind_of?(String) }
+    names.should == ["clam", "alt", "default", "classic"]
+  end
+
+  it '#theme_use  sets the current theme' do
+    Style.theme_use('default').should == 'default'
+    Style.theme_use('unkown-theme-').should.be.nil?
+  end
+
+  it '#element_names  returns the list of elements defined in the current theme' do
+    names = Style.element_names
+
+    names.should.kind_of? Array
+    names.should.not.be.empty?
+    names.all?{|i| i.kind_of?(String) }
+    %w{label focus image text textarea}.each {|i| names.should.include? i }
+  end
+
+  it '#element_options  returns the list of elements options' do
+    name = 'text'
+    options = %w{-text -font -foreground -underline -width -anchor -justify -wraplength -embossed}
+
+    Style.element_options(name).should.kind_of? Array
+    Style.element_options(name).should.not.be.empty?
+    Style.element_options(name).should == options
+
+    Style.element_options('unkown-element').should == nil
+  end
+
+  it '#lookup  returns the value specified for -option in style style' do
+    Style.lookup('label', 'font').should == 'TkDefaultFont'
+    Style.lookup('label', 'foreground').should == 'black'
+    Style.lookup('label', :foreground).should == 'black'
+  end
+
+  it '#configure  sets the default value of the specified option(s) in style' do
+    # configure one element option
+    Style.configure('label', foreground: 'gray' ).should == true
+    Style.lookup('label', 'foreground').should == 'gray'
+
+    # configure a hash of element options
+    Style.configure('label', {foreground: 'gray', background: 'blue'} ).should == true
+    Style.lookup('label', 'foreground').should == 'gray'
+    Style.lookup('label', 'background').should == 'blue'
+
+    Style.configure('label', foreground: 'black').should == true
+
+    # configure other element..
+    Style.configure('Button.label', foreground: :red ).should == true
+    Style.lookup('Button.label', 'foreground').should == 'red'
+
+    Style.configure('Button.label', foreground: :blue ).should == true
+    Style.lookup('Button.label', 'foreground').should == 'blue'
+
+    # element origin is still black
+    Style.lookup('label', 'foreground').should == 'black'
+  end
+
+  it '#map  sets dynamic values of the specified option(s) in style' do
+    Style.map('label', :background=>[:active, '#694418']).should == true
+    Style.map(:foreground=>[:disabled, '#B2B2B2', :active, '#FFE7CB']).should == true
+  end
+
+  it '#layout  defines the widget layout for style' do
+    Style.layout('TButton', [
+      'Button.button', {:children=>[
+        'Button.focus', {:children=>[
+          'Button.padding', {:children=>[
+            'Button.label', {:expand=>true, :sticky=>''}
+          ]}
+        ]}
+      ]}
+    ]).should == true
+
+    module Tk::Tile::TScrollbar; end
+    style_name = Tk::Tile.style('Vertical', Tk::Tile::TScrollbar)
+    style_name.should == 'Vertical.TScrollbar'
+
+    Style.layout(style_name, [
+     'Checkbutton.background', # this is not needed in tile 0.5 or later
+     'Checkbutton.border', {:children=>[
+       'Checkbutton.padding', {:children=>[
+         'Checkbutton.indicator', {:side=>:left},
+         'Checkbutton.focus', {:side=>:left, :children=>[
+           'Checkbutton.label'
+         ]}
+       ]}
+     ]}
+    ]).should == true
+  end
+
+
+  it '#element_create  creates a new element in the current theme' do
+    Style.element_create('someElement','label').should == nil
+    Style.element_names.should.not.include? "someElement"
+
+    assets = {}
+    assets['button-n'] = Tk::Image.create('photo').to_s
+    assets['button-p'] = Tk::Image.create('photo').to_s
+    assets['button-h'] = Tk::Image.create('photo').to_s
+
+    Style.element_create('Button.button', :image,
+                             [ assets['button-n'],
+                               :pressed, assets['button-p'],
+                               :active,  assets['button-h'],
+                             ], :border=>3, :sticky=>:ew)
+
+    Tk::Image.delete *assets.each_value
+    Tk::Image.names.size.should == 0
+  end
+
+  it '#theme_settings  configure in the context of a theme' do
+
+    res = Style.theme_settings 'alt' do
+      Style.configure('label', foreground: :green ).should == true
+      Style.lookup('label', 'foreground').should == 'green'
+    end
+    res.should == 'alt'
+
+    # current theme stays untouched
+    Style.lookup('label', 'foreground').should == 'black'
+  end
+
+  it '#theme_create  creates a new theme' do
+    # Creates a new theme. It is an error if themeName already exists.
+    lambda { Style.theme_create('default') }.should.raise ArgumentError
+
+    #
+    Style.theme_create('spec-theme').should == true
+    Style.theme_names.should.include? 'spec-theme'
+
+    # If -parent is specified, the new theme will inherit styles, elements, and
+    # layouts from the parent theme basedon.
+    Style.theme_create('spec-theme2', parent: 'default').should == true
+
+    # If -settings is present, script is evaluated in the context of the new theme
+    res = Style.theme_create('spec-theme-block', parent: 'default') do
+      Style.configure('.', :background=>'#FCB64F',
+                              :troughcolor=>'#F8C278', :borderwidth=>1)
+      Style.configure(:font=>Tk::Tile::Font::Default, :borderwidth=>1)
+
+      Style.map('.', :background=>[:active, '#694418'])
+      Style.map(:foreground=>[:disabled, '#B2B2B2', :active, '#FFE7CB'])
+    end
+    res.should == true
+
+  end
+
+end