ffi-tk 2010.08.23 → 2018.02.20

data/shell.nix

@@ -0,0 +1,19 @@
+with (import <nixpkgs> {});
+let
+  ruby = (ruby_2_4.override { useRailsExpress = false; });
+  gems = pkgs.bundlerEnv { name = "ffi-tk-gems"; inherit ruby; gemdir = ./.; };
+  bundler = pkgs.bundler.override { inherit ruby; };
+  bundix = pkgs.bundix.override { inherit bundler; };
+in stdenv.mkDerivation rec {
+  name = "ffi-tk";
+  SSL_CERT_FILE = "${cacert}/etc/ssl/certs/ca-bundle.crt";
+  TCL_LIBPATH = "${tcl-8_6}/lib/libtcl8.6.so";
+  TK_LIBPATH = "${tk}/lib/libtk8.6.so";
+  buildInputs = [
+    bashInteractive
+    pkgconfig
+    ruby bundler bundix gems
+    tcl-8_6 tk
+    zip
+  ];
+}

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 describe Tk::Bind do
@@ -7,16 +8,16 @@ describe Tk::Bind do
 
   it 'should bind a block' do
     foo = false
-    entry.bind('f'){ foo = true }
-    Tk.interp.do_events_until{
+    entry.bind('f') { foo = true }
+    Tk.interp.do_events_until do
       Tk::Event.generate(entry, 'f')
       foo
-    }
+    end
     foo.should == true
   end
 
   it 'should return the bound proc' do
-    entry.bind('f').should == ' ::RubyFFI::event 0 f %# %b %c %d %f %h %i %k %m %o %p %s %t %w %x %y %A %B %D %E %K %N %P %R %S %T %W %X %Y '
+    entry.bind('f').should == ' ::RubyFFI::event 0 "f" %# %b %c %d %f %h %i %k %m %o %p %s %t %w %x %y %A %B %D %E %K %N %P %R %S %T %W %X %Y '
   end
 
   it 'should list the sequences bound' do

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -7,7 +8,7 @@ describe Tk::Bindtags do
   @entry.pack # only placed widgets have bindtags?
 
   it 'lists bindtags of a widget' do
-    Tk::Bindtags.bindtags(@entry).should == [".entry0", "Entry", ".", "all"]
+    Tk::Bindtags.bindtags(@entry).should == ['.entry0', 'Entry', '.', 'all']
   end
 
   it 'reverses bindtags of a widget' do

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -7,12 +8,12 @@ describe Tk::Clipboard do
 
   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/
+    -> { 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
+end

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

@@ -1,14 +1,15 @@
+# frozen_string_literal: true
 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"
-    ]
+    Tk::Font.names.sort.select { |name| name.match(/^Tk./) }.should == %w(
+      TkCaptionFont TkDefaultFont TkFixedFont TkHeadingFont
+      TkIconFont TkMenuFont TkSmallCaptionFont TkTextFont
+      TkTooltipFont
+    )
   end
 
   it 'measures a character' do
@@ -16,9 +17,9 @@ describe Tk::Font do
   end
 
   it 'shows metrics of a font' do
-    Tk::Font.metrics('TkDefaultFont', :ascent).should == 12
+    Tk::Font.metrics('TkDefaultFont', :ascent).should >= 11
     Tk::Font.metrics('TkDefaultFont', :descent).should == 3
-    Tk::Font.metrics('TkDefaultFont', :linespace).should == 15
+    Tk::Font.metrics('TkDefaultFont', :linespace).should >= 14
     Tk::Font.metrics('TkDefaultFont', :fixed).should == 0
   end
 
@@ -27,16 +28,16 @@ describe Tk::Font do
   end
 
   it 'creates a font' do
-    Tk::Font.create('Awesome Font').should == "Awesome Font"
-    Tk::Font.names.sort.should.include('Awesome Font')
+    Tk::Font.create('DejaVuSans').should == 'DejaVuSans'
+    Tk::Font.names.sort.should.include('DejaVuSans')
 
-    lambda{
-      Tk::Font.create('Awesome Font')
-    }.should.raise.message =~ /^named font "Awesome Font" already exists/
+    lambda do
+      Tk::Font.create('DejaVuSans')
+    end.should.raise.message =~ /^named font "DejaVuSans" already exists/
   end
 
   it 'show configuration for our font' do
-    conf = Tk::Font.configure('Awesome Font')
+    conf = Tk::Font.configure('DejaVuSans')
     conf[:family].should == ''
     conf[:size].should == 0
     conf[:weight].should == :normal
@@ -46,12 +47,12 @@ describe Tk::Font do
   end
 
   it 'manipulates configuration of our font' do
-    Tk::Font.configure('Awesome Font', size: 10)
-    Tk::Font.configure('Awesome Font')[:size].should == 10
+    Tk::Font.configure('DejaVuSans', size: 10)
+    Tk::Font.configure('DejaVuSans')[:size].should == 10
   end
 
   it 'shows actual information about the font' do
-    conf = Tk::Font.actual('Awesome Font')
+    conf = Tk::Font.actual('DejaVuSans')
     conf[:family].should.not == ''
     conf[:size].should == 10
     conf[:weight].should == :normal
@@ -61,7 +62,7 @@ describe Tk::Font do
   end
 
   it 'deletes the font' do
-    Tk::Font.delete('Awesome Font')
-    Tk::Font.names.should.not.include('Awesome Font')
+    Tk::Font.delete('DejaVuSans')
+    Tk::Font.names.should.not.include('DejaVuSans')
   end
-end
+end

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -5,22 +6,29 @@ Tk.init
 describe Tk::Image do
   Image = Tk::Image
 
+  extra_images = %w(
+    ::tk::icons::information
+    ::tk::icons::error
+    ::tk::icons::warning
+    ::tk::icons::question
+  )
+
   it 'creates photo image and return path' do
-    Image.names.size.should == 0
+    Image.names.size.should == extra_images.size
     Image.create('photo').to_s.should == 'image1'
     Image.create('photo').to_s.should == 'image2'
-    Image.names.should == ['image1', 'image2']
+    Image.names.sort.should == (extra_images + %w(image1 image2)).sort
 
     Image.delete('image1', 'image2')
-    Image.names.size.should == 0
+    Image.names.size.should == extra_images.size
   end
 
   it 'creates bitmap image and return path' do
     Image.create('bitmap').to_s.should == 'image3'
-    Image.names.should == ['image3']
+    Image.names.sort.should == (extra_images + %w(image3)).sort
   end
 
   it 'raise RuntimeError if wrong type' do
-    lambda { Image.create('unkown-') }.should.raise RuntimeError
+    -> { Image.create('unkown-') }.should.raise RuntimeError
   end
 end

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -15,6 +16,6 @@ describe Tk::Pack do
 
   it 'forgets the packing' do
     Tk::Pack.forget(@button)
-    lambda{ Tk::Pack.info(@button) }.should.raise
+    -> { Tk::Pack.info(@button) }.should.raise
   end
-end
+end

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -8,8 +9,8 @@ describe Tk::Place do
   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
+      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
 
@@ -17,4 +18,4 @@ describe Tk::Place do
     Tk::Place.forget(@button)
     Tk::Place.info(@button).should == {}
   end
-end
+end

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -10,4 +11,4 @@ describe Tk::Selection do
   it 'gets selection' do
     Tk::Selection.get.should == 'abc'
   end
-end
+end

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -27,6 +28,6 @@ describe 'tkvars' do
   end
 
   it 'does not have text_relayout set' do
-    lambda{ Tk.text_relayout }.should.raise(NameError)
+    -> { Tk.text_relayout }.should.raise(NameError)
   end
-end
+end

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -34,7 +35,7 @@ describe Tk::Winfo do
   end
 
   should 'not contain any coordinates yet' do
-    root.winfo_containing(0, 0).should == nil
+    root.winfo_containing(0, 0).should.nil?
   end
 
   it 'tells us the depth of the window' do
@@ -84,12 +85,12 @@ describe Tk::Winfo do
     root.winfo_manager.should == 'wm'
   end
 
-  it "knows its name" do
+  it 'knows its name' do
     root.winfo_name.should =~ /^tk/
   end
 
   it 'knows its parent' do
-    root.winfo_parent.should == nil
+    root.winfo_parent.should.nil?
     entry.winfo_parent.should == root.tk_pathname
   end
 
@@ -98,11 +99,11 @@ describe Tk::Winfo do
   end
 
   it 'knows location of pointer x coordinate' do
-    root.winfo_pointerx.class.should == Fixnum
+    root.winfo_pointerx.class.should == Integer
   end
 
   it 'knows location of pointer y coordinate' do
-    root.winfo_pointery.class.should == Fixnum
+    root.winfo_pointery.class.should == Integer
   end
 
   # NOTE: hold still while the specs are running ;)
@@ -119,9 +120,9 @@ describe Tk::Winfo do
   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]
+    root.winfo_rgb('red').should   == [65_535, 0, 0]
+    root.winfo_rgb('green').should == [0, 32_911, 0]
+    root.winfo_rgb('blue').should  == [0, 0, 65_535]
   end
 
   it 'knows x coordinate of root window' do
@@ -194,7 +195,6 @@ describe Tk::Winfo do
     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
@@ -223,7 +223,7 @@ describe Tk::Winfo do
     root.winfo_y.should == 0
   end
 
-  # TODO check real screen values? (xrandr only)
+  # TODO: check real screen values? (xrandr only)
   # For now it checks for a minimum of 320 x 200
   #
   # matcher = /Screen (.+?)\: (.+), current (.+) x (.+), /

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -14,9 +15,9 @@ describe Tk::WM do
   #  * WM.iconposition
   #  * WM.iconwindow
 
-  describe "WM.aspect" do
+  describe 'WM.aspect' do
     should 'list current attributes' do
-      root.wm_aspect.should == nil
+      root.wm_aspect.should.nil?
     end
 
     should 'set aspect ratio' do
@@ -26,7 +27,7 @@ describe Tk::WM do
 
     should 'remove aspect ratio' do
       root.wm_aspect = nil
-      root.wm_aspect.should == nil
+      root.wm_aspect.should.nil?
     end
   end
 
@@ -56,25 +57,25 @@ describe Tk::WM do
       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
+      # TODO: somehow fullscreen doesn't change back, on tk side.
+      # Tk.interp.do_events_until do
       #  root.wm_attributes(:fullscreen) == false
-      #end
+      # end
 
-      #root.wm_attributes(:fullscreen).should == false
+      # 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
+      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
+      root.wm_client.should.nil?
     end
   end
 
@@ -91,14 +92,14 @@ describe Tk::WM do
 
   describe 'WM.command' do
     it 'queries the WM_COMMAND property' do
-      root.wm_command.should == []
+      root.wm_command.should.nil?
     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 == []
+      root.wm_command = %w(foo bar)
+      root.wm_command.should == %w(foo bar)
+      root.wm_command = nil
+      root.wm_command.should.nil?
     end
   end
 
@@ -145,18 +146,18 @@ describe Tk::WM do
 
   describe 'WM.grid' do
     it 'queries grid info when no grid is set' do
-      root.wm_grid.should == nil
+      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]
+      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
+      root.wm_group.should.nil?
     end
 
     it 'sets group pathname' do
@@ -167,12 +168,12 @@ describe Tk::WM do
 
   describe 'WM.iconbitmap' do
     it 'queries iconbitmap' do
-      root.wm_iconbitmap.should == nil
+      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/
+      -> { root.wm_iconbitmap = 'some.gif' }
+        .should.raise.message.should =~ /^bitmap "some.gif" not defined/
     end
   end
 
@@ -182,4 +183,4 @@ describe Tk::WM do
       root.wm_deiconify.should == true
     end
   end
-end
+end