ffi-tk 2009.11.29

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

@@ -0,0 +1,101 @@
+require_relative '../../helper'
+
+describe Tk::Tile::Treeview do
+  it 'initializes' do
+    instance = Tk::Tile::Treeview.new
+    instance.class.should == Tk::Tile::Treeview
+    instance.tk_parent.should == Tk.root
+  end
+
+  list = Tk::Tile::Treeview.new
+
+  it 'shows configuration' do
+    list.cget(:takefocus).should == false
+    list.cget(:columns).should == []
+    list.cget(:displaycolumns).should == ['#all']
+    list.cget(:show).should == ['tree', 'headings']
+    list.cget(:selectmode).should == :extended
+    list.cget(:height).should == 10
+    list.cget(:padding).should == []
+    list.cget(:xscrollcommand).should == nil
+    list.cget(:yscrollcommand).should == nil
+    list.cget(:takefocus).should == false
+    list.cget(:cursor).should == nil
+    list.cget(:style).should == []
+    list.cget(:class).should == nil
+  end
+
+  it 'returns the widget state' do
+    list.ttk_state('active').should == true
+  end
+
+  it 'executes a block if the state matches the spec' do
+    value = nil
+    list.instate('active'){ value = :active }
+    value.should == :active
+    list.instate('!active'){ value = :inactive }
+    value.should == :active
+  end
+
+  it 'creates a new item on root' do
+    @item0 = list.insert(nil, 0, text: 'something')
+    @item0.tk_parent.should == list
+    @item0.id.should == 'I001'
+  end
+
+  it 'gets list of children' do
+    list.children(nil).to_a.should == [@item0]
+  end
+
+  it 'returns options of the item' do
+    @item0.options.should == {
+      text: 'something',
+      image: '',
+      values: '',
+      open: 0,
+      tags: '',
+    }
+  end
+
+  it 'returns options of a column' do
+    list.column('#0').should == {
+      width: 200,
+      minwidth: 20,
+      stretch: true,
+      anchor: 'w',
+      id: '',
+    }
+  end
+
+  it 'knows the index of the item' do
+    @item0.index.should == 0
+  end
+
+  it 'returns the bbox of the item' do
+    @item0.bbox.should == []
+  end
+
+  it 'gets parent of item' do
+    @item0.parent.id.should == ''
+  end
+
+  it 'detaches the item' do
+    @item0.detach
+    @item0.should.exist
+  end
+
+  it 'deletes the item' do
+    @item0.delete
+    @item0.should.not.exist
+  end
+
+  it 'heading' do
+    list.heading('#0').should == {
+      text: '',
+      image: '',
+      anchor: 'center',
+      command: '',
+      state: ''
+    }
+  end
+end

data/spec/ffi-tk/variable.rb

@@ -0,0 +1,24 @@
+require_relative '../helper'
+
+Tk.init
+
+describe Tk::Variable do
+  it 'creates a Variable' do
+    @var = Tk::Variable.new('somevar')
+    @var.name.should == "somevar"
+  end
+
+  it 'cannot get a value from it yet' do
+    lambda{ @var.get }.should.raise(NameError)
+  end
+
+  it 'sets the value and retrieves it' do
+    @var.set('Hello, World!')
+    @var.to_s.should == 'Hello, World!'
+  end
+
+  it 'unsets the variable' do
+    @var.unset
+    lambda{ @var.get }.should.raise(NameError)
+  end
+end

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

@@ -0,0 +1,22 @@
+require_relative '../../helper'
+
+describe Tk::Button do
+  it 'handles -command' do
+    ran = false
+    Tk.callbacks.size.should == 0
+
+    button = Tk::Button.new{
+      ran = true
+      button.destroy
+    }
+    button.invoke
+
+    Tk.callbacks.size.should == 0
+    ran.should == true
+  end
+
+  it 'sets the text of the button' do
+    button = Tk::Button.new(text: 'Hello, World!')
+    button.cget(:text).should == 'Hello, World!'
+  end
+end

data/spec/ffi-tk/widget/canvas.rb

@@ -0,0 +1,169 @@
+require_relative '../../helper'
+
+describe Tk::Canvas do
+  it 'creates a canvas' do
+    @canvas = Tk::Canvas.new
+    @canvas.tk_pathname.should == '.canvas0'
+    @canvas.pack fill: :both, expand: true
+  end
+
+  it 'creates text' do
+    @text = @canvas.create_text(0, 0, text: 'Hello, World!')
+    @text.id.should == 1
+    @text.canvas.should == @canvas
+
+    @text.activefill.should == nil
+    @text.activestipple.should == nil
+    @text.anchor.should == "center"
+    @text.disabledfill.should == nil
+    @text.disabledstipple.should == nil
+    @text.fill.should == "black"
+    @text.font.should == "TkDefaultFont"
+    @text.justify.should == :left
+    @text.state.should == nil
+    @text.stipple.should == nil
+    @text.tags.should == []
+    @text.text.should == "Hello, World!"
+    @text.underline.should == -1
+    @text.width.should == 0
+  end
+
+  it 'creates a rectangle' do
+    @rect = @canvas.create_rectangle(10, 11, 12, 13)
+    @rect.id.should == 2
+    @rect.canvas.should == @canvas
+
+    @rect.dash.should == 0
+    @rect.activedash.should == 0
+    @rect.disableddash.should == 0
+    @rect.dashoffset.should == 0
+    @rect.fill.should == nil
+    @rect.activefill.should == nil
+    @rect.disabledfill.should == nil
+    @rect.offset.should == '0,0'
+    @rect.outline.should == 'black'
+    @rect.activeoutline.should == nil
+    @rect.disabledoutline.should == nil
+    @rect.outlineoffset.should == 0
+    @rect.outlinestipple.should == nil
+    @rect.activeoutlinestipple.should == nil
+    @rect.disabledoutlinestipple.should == nil
+    @rect.stipple.should == nil
+    @rect.activestipple.should == nil
+    @rect.disabledstipple.should == nil
+    @rect.state.should == nil
+    @rect.tags.should == []
+    @rect.width.should == 0
+    @rect.activewidth.should == 0
+    @rect.disabledwidth.should == 0
+  end
+
+  it 'creates an arc' do
+    @arc = @canvas.create_arc(20, 21, 22, 23)
+    @arc.id.should == 3
+    @arc.canvas.should == @canvas
+
+    @arc.dash.should == 0
+    @arc.activedash.should == 0
+    @arc.disableddash.should == 0
+    @arc.dashoffset.should == 0
+    @arc.fill.should == nil
+    @arc.activefill.should == nil
+    @arc.disabledfill.should == nil
+    @arc.offset.should == '0,0'
+    @arc.outline.should == 'black'
+    @arc.activeoutline.should == nil
+    @arc.disabledoutline.should == nil
+    @arc.outlineoffset.should == 0.0
+    @arc.outlinestipple.should == nil
+    @arc.activeoutlinestipple.should == nil
+    @arc.disabledoutlinestipple.should == nil
+    @arc.stipple.should == nil
+    @arc.activestipple.should == nil
+    @arc.disabledstipple.should == nil
+    @arc.state.should == nil
+    @arc.tags.should == []
+    @arc.width.should == 0
+    @arc.activewidth.should == 0
+    @arc.disabledwidth.should == 0
+    @arc.extent.should == 90.0
+    @arc.start.should == 0
+    @arc.style.should == :pieslice
+  end
+
+  it 'creates a polygon' do
+    @poly = @canvas.create_polygon(50, 50, 60, 60, 70, 70, 80, 70, 90, 60, 100, 50)
+    @poly.id.should == 4
+    @poly.canvas.should == @canvas
+
+    @poly.dash.should == 0
+    @poly.activedash.should == 0
+    @poly.disableddash.should == 0
+    @poly.dashoffset.should == 0
+    @poly.fill.should == 'black'
+    @poly.activefill.should == nil
+    @poly.disabledfill.should == nil
+    @poly.offset.should == '0,0'
+    @poly.outline.should == nil
+    @poly.activeoutline.should == nil
+    @poly.disabledoutline.should == nil
+    @poly.outlinestipple.should == nil
+    @poly.activeoutlinestipple.should == nil
+    @poly.disabledoutlinestipple.should == nil
+    @poly.stipple.should == nil
+    @poly.activestipple.should == nil
+    @poly.disabledstipple.should == nil
+    @poly.state.should == nil
+    @poly.tags.should == []
+    @poly.width.should == 0
+    @poly.activewidth.should == 0
+    @poly.disabledwidth.should == 0
+    @poly.joinstyle.should == :round
+    @poly.smooth.should == false
+    @poly.splinesteps.should == 12
+  end
+
+  it 'creates a line' do
+    @line = @canvas.create_line(10, 15, 20, 25)
+    @line.id.should == 5
+    @line.canvas.should == @canvas
+
+    @line.dash.should == 0
+    @line.activedash.should == 0
+    @line.disableddash.should == 0
+    @line.dashoffset.should == 0
+    @line.fill.should == 'black'
+    @line.activefill.should == nil
+    @line.disabledfill.should == nil
+    @line.stipple.should == nil
+    @line.activestipple.should == nil
+    @line.disabledstipple.should == nil
+    @line.state.should == nil
+    @line.tags.should == []
+    @line.width.should == 0
+    @line.activewidth.should == 0
+    @line.disabledwidth.should == 0
+    @line.arrow.should == :none
+    @line.arrowshape.should == ["8", "10", "3"]
+    @line.capstyle.should == :butt
+    @line.joinstyle.should == :round
+    @line.smooth.should == false
+    @line.splinesteps.should == 12
+  end
+
+  it 'creates a window' do
+    entry = Tk::Entry.new(Tk.root)
+    @win = @canvas.create_window(10, 10, window: entry)
+    @win.id.should == 6
+    @win.canvas.should == @canvas
+
+    @win.state.should == nil
+    @win.tags.should == []
+    @win.anchor.should == 'center'
+    @win.height.should == 0
+    @win.width.should == 0
+    @win.window.should == entry
+  end
+end
+
+# %w[ ].each{|name| puts "@line.%s.should == nil" % [name.delete(':,')] }

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

@@ -0,0 +1,44 @@
+require_relative '../../helper'
+
+describe Tk::CheckButton do
+  it 'initializes' do
+    cb = Tk::CheckButton.new
+    cb.class.should == Tk::CheckButton
+    cb.tk_parent.should == Tk.root
+    cb.destroy
+  end
+
+  it 'associates a variable with the value' do
+    value = Tk::Variable.new('checkbutton_value')
+    cb = Tk::CheckButton.new(variable: value)
+    value.to_boolean.should == false
+    cb.select
+    value.to_boolean.should == true
+    cb.deselect
+    value.to_boolean.should == false
+  end
+
+  it 'assigns a command block on initialize' do
+    toggled = false
+    value = Tk::Variable.new('checkbutton_value')
+    cb = Tk::CheckButton.new(variable: value){ toggled = !toggled }
+    cb.pack
+    cb.focus
+
+    toggled.should == false
+
+    Tk::Wait.visibility(cb)
+
+    Tk::Event.generate(cb, '<1>')
+    Tk.interp.do_events_until{ toggled }
+    toggled.should == true
+
+    Tk::Event.generate(cb, '<1>')
+    Tk.interp.do_events_until{ !toggled }
+    toggled.should == false
+
+    Tk::Event.generate(cb, '<1>')
+    Tk.interp.do_events_until{ toggled }
+    toggled.should == true
+  end
+end

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

@@ -0,0 +1,155 @@
+require_relative '../../helper'
+
+describe Tk::Entry do
+  @entry = Tk::Entry.new
+
+  it "returns the entry's string" do
+    @entry.get.should == ''
+  end
+
+  it 'inserts text at index' do
+    @entry.insert(:end, 'Hello, World!')
+    @entry.get.should == 'Hello, World!'
+  end
+
+  it 'returns a list of four numbers describing the bounding box of the character given by index' do
+    index_bbox = @entry.bbox(0)
+    index_bbox.should.be.kind_of? Array
+    index_bbox.size.should == 4
+  end
+
+  it 'Returns the current value of the configuration option given' do
+    @entry.cget(:background         ).should == "#ffffff"
+    @entry.cget(:bd                 ).should == 1
+    @entry.cget(:bg                 ).should == "#ffffff"
+    @entry.cget(:borderwidth        ).should == 1
+    @entry.cget(:cursor             ).should == "xterm"
+    @entry.cget(:disabledbackground ).should == "#d9d9d9"
+    @entry.cget(:disabledforeground ).should == "#a3a3a3"
+    @entry.cget(:exportselection    ).should == true
+    @entry.cget(:fg                 ).should == "#000000"
+    @entry.cget(:font               ).should == "TkTextFont"
+    @entry.cget(:foreground         ).should == "#000000"
+    @entry.cget(:highlightbackground).should == "#d9d9d9"
+    @entry.cget(:highlightcolor     ).should == "#000000"
+    @entry.cget(:highlightthickness ).should == 1
+    @entry.cget(:insertbackground   ).should == "#000000"
+    @entry.cget(:insertborderwidth  ).should == 0
+    @entry.cget(:insertofftime      ).should == 300
+    @entry.cget(:insertontime       ).should == 600
+    @entry.cget(:insertwidth        ).should == 2
+    @entry.cget(:invalidcommand     ).should == nil
+    @entry.cget(:invcmd             ).should == nil
+    @entry.cget(:justify            ).should == :left
+    @entry.cget(:readonlybackground ).should == "#d9d9d9"
+    @entry.cget(:relief             ).should == :sunken
+    @entry.cget(:selectbackground   ).should == "#c3c3c3"
+    @entry.cget(:selectborderwidth  ).should == 0
+    @entry.cget(:selectforeground   ).should == "#000000"
+    @entry.cget(:show               ).should == nil
+    @entry.cget(:state              ).should == ['normal']
+    @entry.cget(:takefocus          ).should == false
+    @entry.cget(:textvariable       ).should == nil
+    @entry.cget(:validate           ).should == :none
+    @entry.cget(:validatecommand    ).should == nil
+    @entry.cget(:vcmd               ).should == nil
+    @entry.cget(:width              ).should == 20
+    @entry.cget(:xscrollcommand     ).should == nil
+  end
+
+  it 'configures a single option' do
+    @entry.configure(validate: :focus)
+    @entry.cget(:validate).should == :focus
+    @entry.configure(validate: :none)
+    @entry.cget(:validate).should == :none
+  end
+
+  it 'configures more options at once' do
+    @entry.configure(justify: :right, validate: :focus)
+    @entry.cget(:validate).should == :focus
+    @entry.cget(:justify).should == :right
+
+    @entry.configure(justify: :left, validate: :none)
+    @entry.cget(:validate).should == :none
+    @entry.cget(:justify).should == :left
+  end
+
+  it "deletes character at index" do
+    @entry.delete(5)
+    @entry.get.should == "Hello World!"
+  end
+
+  it "deletes character between indices" do
+    @entry.delete(5, 11)
+    @entry.get.should == "Hello!"
+  end
+
+  it "Puts the insertion cursor just before the character given by index" do
+    @entry.icursor(5)
+    @entry.insert(:insert, ", World")
+    @entry.get.should == "Hello, World!"
+  end
+
+  it "Returns the numerical index corresponding to index" do
+    @entry.index(:insert).should == 12
+  end
+
+  it "Insert the string just before the character indicated by index" do
+    @entry.insert(0, 'OHAI ')
+    @entry.get.should == 'OHAI Hello, World!'
+  end
+
+  it 'uses the scan commands' do
+    lambda{
+      @entry.scan_mark(0)
+      @entry.scan_dragto(10)
+    }.should.not.raise
+  end
+
+  it 'Returns whether a selection is present' do
+    @entry.selection_present.should == false
+  end
+
+  it 'adjusts the selection' do
+    @entry.selection_adjust(0)
+    @entry.index('sel.first').should == 0
+    @entry.selection_adjust(5)
+    @entry.index('sel.last').should == 5
+  end
+
+  it 'Clears the selection' do
+    @entry.selection_present.should == true
+    @entry.selection_clear
+    @entry.selection_present.should == false
+  end
+
+  it 'Selects the characters at start ending with the one just before end' do
+    @entry.selection_range(1, 4)
+    @entry.index('sel.first').should == 1
+    @entry.index('sel.last').should == 4
+  end
+
+  it 'Adjusts selection with the from and to commands' do
+    @entry.selection_from(2)
+    @entry.selection_to(5)
+    @entry.index('sel.first').should == 2
+    @entry.index('sel.last').should == 5
+  end
+
+  it 'validates the entry without validation command' do
+    @entry.validate.should == true
+  end
+
+  it 'validates the entry with validation command' do
+    @entry.configure validatecommand: lambda{|*args| true }
+    @entry.validate.should == true
+
+    @entry.configure validatecommand: lambda{|*args| false }
+    @entry.validate.should == false
+  end
+end
+
+# puts
+# @entry.configure.map{|c| c.first[1..-1] }.each{|k,v|
+#   puts "@entry.cget(%-20p).should == %p" % [k.to_sym, @entry.cget(k)]
+# }