ffi-tk 2009.11.29

data/lib/ffi-tk/widget/toplevel.rb

@@ -0,0 +1,14 @@
+module Tk
+  # A toplevel is similar to a frame except that it is created as a top-level
+  # window: its X parent is the root window of a screen rather than the logical
+  # parent from its path name.
+  # The primary purpose of a toplevel is to serve as a container for dialog
+  # boxes and other collections of widgets.
+  # The only visible features of a toplevel are its background color and an
+  # optional 3-D border to make the toplevel appear raised or sunken.
+  class Toplevel < Widget
+    include Cget, Configure
+
+    def self.tk_command; 'toplevel'; end
+  end
+end

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

@@ -0,0 +1,18 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Bindtags do
+  @entry = Tk::Entry.new('.')
+  @entry.pack # only placed widgets have bindtags?
+
+  it 'lists bindtags of a widget' do
+    Tk::Bindtags.bindtags(@entry).should == [".entry0", "Entry", ".", "all"]
+  end
+
+  it 'reverses bindtags of a widget' do
+    tags = Tk::Bindtags.bindtags(@entry)
+    Tk::Bindtags.bindtags(@entry, tags.reverse)
+    Tk::Bindtags.bindtags(@entry).should == tags.reverse
+  end
+end

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

@@ -0,0 +1,18 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Clipboard do
+  C = Tk::Clipboard
+
+  it 'should clear the clipboard' do
+    C.clear
+    lambda{ C.get }.should.raise.message.
+      should =~ /^CLIPBOARD selection doesn't exist or form "STRING" not defined/
+  end
+
+  it 'should append to the clipboard' do
+    C.append data: 'something'
+    C.get.should == 'something'
+  end
+end

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

@@ -0,0 +1,67 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Font do
+  it 'lists names of all named fonts' do
+    Tk::Font.names.sort.should ==  [
+      "TkCaptionFont", "TkDefaultFont", "TkFixedFont", "TkHeadingFont",
+      "TkIconFont", "TkMenuFont", "TkSmallCaptionFont", "TkTextFont",
+      "TkTooltipFont"
+    ]
+  end
+
+  it 'measures a character' do
+    Tk::Font.measure('TkDefaultFont', '0').should >= 4
+  end
+
+  it 'shows metrics of a font' do
+    Tk::Font.metrics('TkDefaultFont', :ascent).should == 12
+    Tk::Font.metrics('TkDefaultFont', :descent).should == 3
+    Tk::Font.metrics('TkDefaultFont', :linespace).should == 15
+    Tk::Font.metrics('TkDefaultFont', :fixed).should == 0
+  end
+
+  it 'lists all font families on the system' do
+    Tk::Font.families.size.should > 0
+  end
+
+  it 'creates a font' do
+    Tk::Font.create('Awesome Font').should == "Awesome Font"
+    Tk::Font.names.sort.should.include('Awesome Font')
+
+    lambda{
+      Tk::Font.create('Awesome Font')
+    }.should.raise.message =~ /^named font "Awesome Font" already exists/
+  end
+
+  it 'show configuration for our font' do
+    conf = Tk::Font.configure('Awesome Font')
+    conf[:family].should == ''
+    conf[:size].should == 0
+    conf[:weight].should == :normal
+    conf[:slant].should == :roman
+    conf[:underline].should == false
+    conf[:overstrike].should == false
+  end
+
+  it 'manipulates configuration of our font' do
+    Tk::Font.configure('Awesome Font', size: 10)
+    Tk::Font.configure('Awesome Font')[:size].should == 10
+  end
+
+  it 'shows actual information about the font' do
+    conf = Tk::Font.actual('Awesome Font')
+    conf[:family].should.not == ''
+    conf[:size].should == 10
+    conf[:weight].should == :normal
+    conf[:slant].should == :roman
+    conf[:underline].should == false
+    conf[:overstrike].should == false
+  end
+
+  it 'deletes the font' do
+    Tk::Font.delete('Awesome Font')
+    Tk::Font.names.should.not.include('Awesome Font')
+  end
+end

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

@@ -0,0 +1,6 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Grid do
+end

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

@@ -0,0 +1,26 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Image do
+  Image = Tk::Image
+
+  it 'creates photo image and return path' do
+    Image.names.size.should == 0
+    Image.create('photo').to_s.should == 'image1'
+    Image.create('photo').to_s.should == 'image2'
+    Image.names.should == ['image1', 'image2']
+
+    Image.delete('image1', 'image2')
+    Image.names.size.should == 0
+  end
+
+  it 'creates bitmap image and return path' do
+    Image.create('bitmap').to_s.should == 'image3'
+    Image.names.should == ['image3']
+  end
+
+  it 'raise RuntimeError if wrong type' do
+    lambda { Image.create('unkown-') }.should.raise RuntimeError
+  end
+end

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

@@ -0,0 +1,20 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Pack do
+  @button = Tk::Button.new('.')
+
+  it 'packs a widget' do
+    Tk::Pack.pack(@button)
+    Tk::Pack.info(@button).should == {
+      in: '.', anchor: 'center', expand: false, fill: :none, ipadx: 0, ipady: 0,
+      padx: 0, pady: 0, side: :top
+    }
+  end
+
+  it 'forgets the packing' do
+    Tk::Pack.forget(@button)
+    lambda{ Tk::Pack.info(@button) }.should.raise
+  end
+end

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

@@ -0,0 +1,20 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Place do
+  @button = Tk::Button.new('.')
+
+  it 'places a widget' do
+    Tk::Place.place(@button, y: 42, x: 24)
+    Tk::Place.info(@button).should == {
+      in: ".", x: 24, relx: 0.0, y: 42, rely: 0.0, width: 0, relwidth: 0.0,
+      height: 0, relheight: 0.0, anchor: "nw", bordermode: :inside
+    }
+  end
+
+  it 'forgets the placement' do
+    Tk::Place.forget(@button)
+    Tk::Place.info(@button).should == {}
+  end
+end

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

@@ -0,0 +1,13 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Selection do
+  @entry = Tk::Entry.new('.')
+  @entry.insert :end, 'abc def ghi jkl mno pqr stu vwx yz'
+  @entry.selection_range(0, 3)
+
+  it 'gets selection' do
+    Tk::Selection.get.should == 'abc'
+  end
+end

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

@@ -0,0 +1,32 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe 'tkvars' do
+  it 'has a library set' do
+    library = Tk.library
+    library.class.should == String
+    library.should.not.be.empty
+  end
+
+  it 'has a patchlevel' do
+    Tk.patchlevel.should =~ /\A(\d+)\.(\d+)\.(\d+)\Z/
+  end
+
+  it 'has a version' do
+    Tk.version.should =~ /\A(\d+)\.(\d+)\Z/
+  end
+
+  it 'is not set to strict motif' do
+    Tk.strict_motif.should.be.false
+  end
+
+  it 'sets to strict motif' do
+    Tk.strict_motif = true
+    Tk.strict_motif.should.be.true
+  end
+
+  it 'does not have text_relayout set' do
+    lambda{ Tk.text_relayout }.should.raise(NameError)
+  end
+end

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

@@ -0,0 +1,233 @@
+require_relative '../../helper'
+
+Tk.init
+
+describe Tk::Winfo do
+  root = Tk.root
+  entry = Tk::Entry.new(root)
+
+  it 'gives info about an atom' do
+    root.winfo_atom('STRING').should == 31
+  end
+
+  it 'gives name of an atom' do
+    root.winfo_atomname(31).should == 'STRING'
+  end
+
+  it 'gives info about cells' do
+    root.winfo_cells.should >= 2
+    root.winfo_cells.should.be.even?
+  end
+
+  it 'gives info about children' do
+    root.winfo_children.should.include?(entry.tk_pathname)
+    entry.winfo_children.should.be.empty
+  end
+
+  it 'gives class name of window' do
+    root.winfo_class.should == 'Tk'
+    entry.winfo_class.should == 'Entry'
+  end
+
+  it 'tell us whether colormap is full' do
+    root.winfo_colormapfull.should == false
+  end
+
+  should 'not contain any coordinates yet' do
+    root.winfo_containing(0, 0).should == nil
+  end
+
+  it 'tells us the depth of the window' do
+    root.winfo_depth.should >= 8
+    root.winfo_depth.should.even?
+  end
+
+  it 'tells us whether the window exists' do
+    root.winfo_exists.should == true
+  end
+
+  it 'gives us the amount of pixels for a given distance' do
+    @fpixels = root.winfo_fpixels('1c')
+    @fpixels.class.should == Float
+    @fpixels.should > 0
+  end
+
+  it 'knows distance in pixels' do
+    root.winfo_pixels('1c').should == @fpixels.round
+  end
+
+  it 'gives us the window geometry' do
+    @geometry = root.winfo_geometry
+    @geometry.width.should == 1
+    @geometry.height.should == 1
+    @geometry.x.should == 0
+    @geometry.y.should == 0
+  end
+
+  it 'gives us the window height' do
+    root.winfo_height.should == @geometry.height
+  end
+
+  it 'gives us the window id' do
+    root.winfo_id.should.not.be.empty?
+  end
+
+  it 'lists interps' do
+    root.winfo_interps.should.include?('tk')
+  end
+
+  it "knows whether it's mapped" do
+    root.winfo_ismapped.should == false
+  end
+
+  it 'knows the manager' do
+    root.winfo_manager.should == 'wm'
+  end
+
+  it "knows its name" do
+    root.winfo_name.should =~ /^tk/
+  end
+
+  it 'knows its parent' do
+    root.winfo_parent.should == nil
+    entry.winfo_parent.should == root.tk_pathname
+  end
+
+  it 'knows pathname of given id' do
+    root.winfo_pathname(entry.winfo_id).should == entry.tk_pathname
+  end
+
+  it 'knows location of pointer x coordinate' do
+    root.winfo_pointerx.class.should == Fixnum
+  end
+
+  it 'knows location of pointer y coordinate' do
+    root.winfo_pointery.class.should == Fixnum
+  end
+
+  # NOTE: hold still while the specs are running ;)
+  it 'lists location of pointer x/y coordinates' do
+    root.winfo_pointerxy.should == [root.winfo_pointerx, root.winfo_pointery]
+  end
+
+  it 'shows requested height of window' do
+    root.winfo_reqheight.should == 200
+  end
+
+  it 'shows requested width of window' do
+    root.winfo_reqwidth.should == 200
+  end
+
+  it 'gives r,g,b values of a color' do
+    root.winfo_rgb('red').should   == [65535, 0, 0]
+    root.winfo_rgb('green').should == [0, 65535, 0]
+    root.winfo_rgb('blue').should  == [0, 0, 65535]
+  end
+
+  it 'knows x coordinate of root window' do
+    entry.winfo_rootx.should == 0
+  end
+
+  it 'knows y coordinate of root window' do
+    entry.winfo_rooty.should == 0
+  end
+
+  it 'knows which screen it is on' do
+    root.winfo_screen.should.match(/\:(.+)\.\d/) # :0.0
+  end
+
+  it 'knows the number of cells in the default color map' do
+    root.winfo_screencells.should >= 2
+    root.winfo_screencells.should.be.even?
+  end
+
+  it 'knows the depth of the screen' do
+    root.winfo_screendepth.should >= 2
+    root.winfo_screendepth.should.be.even?
+  end
+
+  it 'knows the height of the screen' do
+    root.winfo_screenheight.should >= 200
+    root.winfo_screenheight.should.be.even?
+  end
+
+  it 'knows the width of the screen' do
+    root.winfo_screenwidth.should >= 320
+    root.winfo_screenwidth.should.be.even?
+  end
+
+  it 'knows the height of the screen in millimeter' do
+    root.winfo_screenmmheight.should >= 2
+  end
+
+  it 'knows the width of the screen in millimeter' do
+    root.winfo_screenmmwidth.should >= 2
+  end
+
+  it 'shows the default visual class for the screen' do
+    root.winfo_screenvisual.should == :truecolor
+  end
+
+  it 'knows its server' do
+    root.winfo_server.should.not.be.empty?
+  end
+
+  it 'knows its toplevel window' do
+    root.winfo_toplevel.should == '.'
+    entry.winfo_toplevel.should == '.'
+  end
+
+  it "knows whether it's viwable" do
+    root.winfo_viewable.should == false
+  end
+
+  it 'knows the visual class of the window' do
+    root.winfo_visual.should == :truecolor
+  end
+
+  it 'knows the visualid of the window' do
+    root.winfo_visualid.should.not.be.empty
+  end
+
+  it 'knows some stuff about visualavailable' do
+    root.winfo_visualsavailable.should.not.be.empty
+    root.winfo_visualsavailable(:directcolor).should.not.be.empty
+  end
+
+
+  it 'knows the height of the virtual root window' do
+    root.winfo_vrootheight.should >= 200
+  end
+
+  it 'knows the width of the virtual root window' do
+    root.winfo_vrootwidth.should >= 320
+  end
+
+  it 'knows the x coordinate of the virtual root window' do
+    root.winfo_vrootx.should == 0
+  end
+
+  it 'knows the y coordinate of the virtual root window' do
+    root.winfo_vrooty.should == 0
+  end
+
+  it 'knows the height of the window' do
+    root.winfo_width.should == 1
+  end
+
+  it 'knows the x coordinate of the window' do
+    root.winfo_x.should == 0
+  end
+
+  it 'knows the y coordinate of the window' do
+    root.winfo_y.should == 0
+  end
+
+  # TODO check real screen values? (xrandr only)
+  # For now it checks for a minimum of 320 x 200
+  #
+  # matcher = /Screen (.+?)\: (.+), current (.+) x (.+), /
+  # %x{xrandr -q}.scan(matcher).collect{|i|
+  #   {name: i[0], width: i[2].to_i, height: i[3].to_i}
+  # }.first
+end