ffi-tk 2009.11.29

data/spec/ffi-tk/command/wm.rb

@@ -0,0 +1,185 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::WM do
+  root = Tk.root
+
+  # FIXME: following methods have no specs yet because image commands are missing.
+  #  * WM.forget
+  #  * WM.iconbitmap
+  #  * WM.iconmask
+  #  * WM.iconname
+  #  * WM.iconphoto
+  #  * WM.iconposition
+  #  * WM.iconwindow
+
+  describe "WM.aspect" do
+    should 'list current attributes' do
+      root.wm_aspect.should == nil
+    end
+
+    should 'set aspect ratio' do
+      root.wm_aspect = [1, 1, 1, 1]
+      root.wm_aspect.should == [1, 1, 1, 1]
+    end
+
+    should 'remove aspect ratio' do
+      root.wm_aspect = nil
+      root.wm_aspect.should == nil
+    end
+  end
+
+  describe 'WM.attributes' do
+    it 'lists current attributes' do
+      attrs = root.wm_attributes
+      attrs[:alpha].should == 1.0
+      attrs[:topmost].should == false
+      attrs[:zoomed].should == false
+      attrs[:fullscreen].should == false
+    end
+
+    it 'queries one attribute' do
+      root.wm_attributes(:alpha).should == 1.0
+      root.wm_attributes(:topmost).should == false
+      root.wm_attributes(:zoomed).should == false
+      root.wm_attributes(:fullscreen).should == false
+    end
+
+    it 'sets attributes' do
+      root.wm_attributes(fullscreen: true)
+
+      Tk.interp.do_events_until do
+        root.wm_attributes(:fullscreen)
+      end
+
+      root.wm_attributes(:fullscreen).should == true
+      root.wm_attributes(fullscreen: false)
+
+      # TODO somehow fullscreen doesn't change back, on tk side.
+      #Tk.interp.do_events_until do
+      #  root.wm_attributes(:fullscreen) == false
+      #end
+
+      #root.wm_attributes(:fullscreen).should == false
+    end
+  end
+
+  describe 'WM.client' do
+    it 'has empty WM_CLIENT_MACHINE property' do
+      root.wm_client.should == nil
+    end
+
+    it 'sets WM_CLIENT_MACHINE property' do
+      root.wm_client = 'foo'
+      root.wm_client.should == 'foo'
+      root.wm_client = nil
+      root.wm_client.should == nil
+    end
+  end
+
+  describe 'WM.colormapwindows' do
+    it 'queries the WM_COLORMAP_WINDOWS property' do
+      root.wm_colormapwindows.should == []
+    end
+
+    it 'sets WM_COLORMAP_WINDOWS property' do
+      root.wm_colormapwindows = root
+      root.wm_colormapwindows.should == ['.']
+    end
+  end
+
+  describe 'WM.command' do
+    it 'queries the WM_COMMAND property' do
+      root.wm_command.should == []
+    end
+
+    it 'sets queries the WM_COMMAND property' do
+      root.wm_command = ['foo', 'bar']
+      root.wm_command.should == ['foo', 'bar']
+      root.wm_command = []
+      root.wm_command.should == []
+    end
+  end
+
+  describe 'WM.focusmodel' do
+    it 'queries the current focusmdoel' do
+      root.wm_focusmodel.should == :passive
+    end
+
+    it 'sets the focusmodel' do
+      root.wm_focusmodel = :active
+      root.wm_focusmodel.should == :active
+      root.wm_focusmodel = :passive
+      root.wm_focusmodel.should == :passive
+    end
+  end
+
+  describe 'WM.frame' do
+    it 'queries the frame info' do
+      root.wm_frame.should.not.be.empty
+    end
+  end
+
+  describe 'WM.geometry' do
+    it 'queries geometry' do
+      geometry = root.wm_geometry
+      geometry.should.not.be.nil
+      geometry.width.should.respond_to :to_int
+      geometry.height.should.respond_to :to_int
+      geometry.x.should.respond_to :to_int
+      geometry.y.should.respond_to :to_int
+    end
+
+    it 'sets geometry' do
+      geometry = root.wm_geometry
+      root.wm_geometry = '640x480+0+0'
+
+      Tk.interp.do_events_until do
+        root.wm_geometry != geometry
+      end
+
+      root.wm_geometry.should.not == geometry
+    end
+  end
+
+  describe 'WM.grid' do
+    it 'queries grid info when no grid is set' do
+      root.wm_grid.should == nil
+    end
+
+    it 'sets a grid' do
+      root.wm_grid = [1,1,1,1]
+      root.wm_grid.should == [1,1,1,1]
+    end
+  end
+
+  describe 'WM.group' do
+    it 'queries group pathname' do
+      root.wm_group.should == nil
+    end
+
+    it 'sets group pathname' do
+      root.wm_group = '.'
+      root.wm_group.should == '.'
+    end
+  end
+
+  describe 'WM.iconbitmap' do
+    it 'queries iconbitmap' do
+      root.wm_iconbitmap.should == nil
+    end
+
+    it 'sets iconbitmap' do
+      lambda{ root.wm_iconbitmap = 'some.gif' }.
+        should.raise.message.should =~ /^bitmap "some.gif" not defined/
+    end
+  end
+
+  describe 'WM.iconify and WM.deiconify' do
+    it 'iconifies the window' do
+      root.wm_iconify.should == true
+      root.wm_deiconify.should == true
+    end
+  end
+end

data/spec/ffi-tk/event.rb

@@ -0,0 +1,95 @@
+require_relative '../helper'
+
+describe Tk::Event do
+  it 'gives a list of defined virtual events' do
+    Tk::Event.info.sort.should ==  [
+      "<<Copy>>", "<<Cut>>", "<<Paste>>", "<<PasteSelection>>",
+      "<<PrevWindow>>", "<<Redo>>", "<<Undo>>"
+    ]
+  end
+
+  it 'shows what sequences invoke a specific virtual event' do
+    info = Tk::Event.info('<<Paste>>')
+    info.should.include '<Control-Key-v>'
+    info.should.is_a? Array
+    #"<Control-Key-v>", "<Key-F18>", "<Control-Key-y>"
+    #"<Control-Key-v>", "<Key-F18>", "<Control-Lock-Key-V>", "<Control-Key-y>"
+  end
+
+  it 'adds a virtual event' do
+    Tk::Event.add('<<Spec>>', '<Control-Alt-Key-Escape>')
+    Tk::Event.info.should.include('<<Spec>>')
+    Tk::Event.info('<<Spec>>').should == ['<Control-Alt-Key-Escape>']
+  end
+
+  it 'deletes a virtual event' do
+    Tk::Event.delete('<<Spec>>', '<Control-Alt-Key-Escape>')
+    Tk::Event.info.should.not.include('<<Spec>>')
+    Tk::Event.info('<<Spec>>').should == []
+  end
+
+  it 'generates a virtual event and calls it' do
+    Tk::Event.add('<<Clear>>', '<BackSpace>')
+
+    entry = Tk::Entry.new('.')
+    entry.bind('<<Clear>>'){ entry.delete(0, :end) }
+    entry.bind('<Map>'){
+      Tk::Event.generate(entry, '<<Clear>>')
+      Tk.interp.do_one_event
+    }
+    entry.insert 0, 'Hello, World!'
+    entry.get.should == 'Hello, World!'
+
+    entry.pack
+    entry.focus
+
+    Tk.interp.do_events_until{
+      entry.get.empty?
+    }
+
+    entry.get.should == ''
+  end
+
+  it 'generates a virtual event and calls normal event' do
+    Tk::Event.add('<<Clear>>', '<BackSpace>')
+
+    entry = Tk::Entry.new('.')
+    entry.bind('<<Clear>>'){ entry.delete(0, :end) }
+    entry.bind('<Map>'){
+      entry.focus
+      Tk::Event.generate(entry, '<BackSpace>')
+      Tk.interp.do_one_event
+    }
+    entry.insert 0, 'Hello, World!'
+    entry.get.should == 'Hello, World!'
+
+    entry.pack
+    entry.focus
+
+    Tk.interp.do_events_until{
+      entry.get.empty?
+    }
+
+    entry.get.should == ''
+  end
+
+  it 'associates event with button and calls it' do
+    entered = false
+
+    entry = Tk::Entry.new('.')
+    entry.bind('<Key>'){ entered = true; Tk.stop }
+    entry.bind('<Map>'){
+      entry.focus
+      Tk::Event.generate(entry, '<KeyPress-a>')
+    }
+
+    entry.pack
+    entry.focus
+
+    Tk.interp.do_events_until{
+      entered
+    }
+
+    entered.should == true
+  end
+end

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

@@ -0,0 +1,51 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Tile::Button do
+  Style = Tk::Tile::Style
+  Button = Tk::Tile::Button
+
+  it 'sets default to normal, active, or disabled' do
+    button = Button.new('.')
+    button.cget(:default).should == 'normal'
+
+    %w{normal active disabled}.each do |state|
+      button = Button.new('.', default: state )
+      button.cget(:default).should == state
+    end
+
+    lambda {
+      Button.new('.', default: 'unkown-')
+    }.should.raise RuntimeError
+  end
+
+  it 'sets width and height' do
+    button = Button.new('.')
+    button.cget(:width).should == 0
+
+    [10, -10, 10.0, -10.0].each do |i|
+      button = Button.new('.', width: i.to_i)
+      button.cget(:width).should == i.to_i
+
+      button = Button.new('.', width: i.to_f)
+      button.cget(:width).should == 0
+    end
+  end
+
+  # behaves_like Tk::Button -command
+  it 'handles -command' do
+    ran = false
+    Tk.callbacks.size.should == 0
+
+    button = Button.new('.'){
+      ran = true
+      button.destroy
+    }
+    button.invoke
+
+    Tk.callbacks.size.should == 0
+    ran.should == true
+  end
+end
+

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

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

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

@@ -0,0 +1,65 @@
+require_relative '../../helper'
+
+describe Tk::Tile::ComboBox do
+  it 'initializes' do
+    instance = Tk::Tile::ComboBox.new
+    instance.class.should == Tk::Tile::ComboBox
+    instance.tk_parent.should == Tk.root
+  end
+
+  it 'sets combobox values' do
+    b = Tk::Tile::ComboBox.new Tk.root, values: ['a','b']
+    b.configure(values: ['c','d']).should == true
+  end
+
+  it 'sets the current value' do
+    var = Tk::Variable.new('somevar')
+    var.set 'before_combobox'
+
+    b = Tk::Tile::ComboBox.new Tk.root, textvariable: var, values: ['a','b']
+
+    b.current.should == -1
+
+    b.current(1).should == true
+    b.current.should == 1
+
+    var.to_s.should == 'b'
+
+    b.set('baz').should == true
+    var.to_s.should == 'baz'
+
+    lambda { 
+      b.current(10).should == false
+    }.should.raise RuntimeError
+  end
+
+  it 'sets the value of the combobox to value' do
+    b = Tk::Tile::ComboBox.new
+    b.set(0).should == true
+    b.set(1).should == true
+  end
+
+  it 'gets the current value of the combobox' do
+    b = Tk::Tile::ComboBox.new
+    b.get.should == ''
+
+    b.set(1).should == true
+    b.get.should == '1'
+
+    b.set('baz').should == true
+    b.get.should == 'baz'
+  end
+
+  it 'sets postcommand' do
+    lambda { 
+      Tk::Tile::ComboBox.new Tk.root, postcommand: proc {}
+    }.should.not.raise RuntimeError
+
+    lambda { 
+      b = Tk::Tile::ComboBox.new
+      b.postcommand { } 
+    }.should.not.raise RuntimeError
+  end
+
+end
+

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

@@ -0,0 +1,61 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Tile::Entry do
+  Entry = Tk::Tile::Entry
+  @entry = Entry.new('.')
+
+  it 'Returns the current value of the configuration option given' do
+    Tk::Tile::Style.theme_use 'alt'
+
+    @entry.cget(:width              ).should >= 0
+    @entry.cget(:exportselection    ).should == true
+    #@entry.cget(:font               ).should == "TkTextFont"
+    @entry.cget(:invalidcommand     ).should == nil
+    @entry.cget(:justify            ).should == :left
+    @entry.cget(:validate           ).should == :none
+    @entry.cget(:validatecommand    ).should == nil
+    @entry.cget(:width              ).should == 20
+    @entry.cget(:xscrollcommand     ).should == nil
+
+    @entry.cget(:takefocus          ).should == false
+    @entry.cget(:textvariable       ).should == nil # ""
+  end
+
+  it 'sets ttk-state independent of tk-state' do
+    @entry.cget(:state).should == ['normal']
+    @entry.configure(state: 'normal').should == true
+    @entry.cget(:state).should == ['normal']
+
+    @entry.state(:active).should == true
+    @entry.state.should == ['active']
+
+    @entry.state(:disabled).should == true
+    @entry.state.should == ['active','disabled']
+
+    @entry.cget(:state).should == ['normal']
+  end
+
+  it 'sets ttk-state independent of tk-state (or not?)' do
+    @entry.cget(:state).should == ['normal']
+    @entry.configure(state: 'disabled').should == true
+    @entry.cget(:state).should == ['disabled']
+
+    @entry.state(:active).should == true
+    @entry.state.should == ['active','disabled']
+
+    @entry.state(:disabled).should == true
+    @entry.state.should == ['active','disabled']
+
+    @entry.cget(:state).should == ['disabled']
+  end
+
+  #NOTE fails on 'bacon spec/tile/*' but passes with 'ruby __FILE__'
+  #it 'Configure the current value of cursor' do
+  #  @entry.cget(:cursor             ).should == nil #"xterm"
+  #  @entry.configure(cursor: 'xterm').should == true
+  #  @entry.cget(:cursor             ).should == 'xterm'
+  #end
+end
+