ffi-tk 2010.08.23 → 2018.02.20

data/spec/ffi-tk/event.rb

@@ -1,19 +1,21 @@
+# frozen_string_literal: true
 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>>"
+    Tk::Event.info.sort.unshift('<<Clear>>').uniq.should ==  [
+      '<<Clear>>', '<<ContextMenu>>', '<<Copy>>', '<<Cut>>', '<<LineEnd>>', '<<LineStart>>', '<<NextChar>>', '<<NextLine>>', '<<NextPara>>', '<<NextWindow>>', '<<NextWord>>', '<<Paste>>', '<<PasteSelection>>', '<<PrevChar>>', '<<PrevLine>>', '<<PrevPara>>', '<<PrevWindow>>', '<<PrevWord>>', '<<Redo>>', '<<SelectAll>>', '<<SelectLineEnd>>', '<<SelectLineStart>>', '<<SelectNextChar>>', '<<SelectNextLine>>', '<<SelectNextPara>>', '<<SelectNextWord>>', '<<SelectNone>>', '<<SelectPrevChar>>', '<<SelectPrevLine>>', '<<SelectPrevPara>>', '<<SelectPrevWord>>', '<<ToggleSelection>>', '<<Undo>>'
     ]
+    # tk-aqua: <<Clear>>, ...
   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>"
+    %w(<Control-Key-v> <Mod1-Key-v>).should.include info.first
+    # "<Control-Key-v>", "<Key-F18>", "<Control-Key-y>"
+    # "<Control-Key-v>", "<Key-F18>", "<Control-Lock-Key-V>", "<Control-Key-y>"
+    # tk-aqua: "<Mod1-Key-v>", "<Key-F4>", "<Control-Lock-Key-V>"
   end
 
   it 'adds a virtual event' do
@@ -32,20 +34,20 @@ describe Tk::Event do
     Tk::Event.add('<<Clear>>', '<BackSpace>')
 
     entry = Tk::Entry.new('.')
-    entry.bind('<<Clear>>'){ entry.delete(0, :end) }
-    entry.bind('<Map>'){
+    entry.bind('<<Clear>>') { entry.delete(0, :end) }
+    entry.bind('<Map>') do
       Tk::Event.generate(entry, '<<Clear>>')
       Tk.interp.do_one_event
-    }
+    end
     entry.insert 0, 'Hello, World!'
     entry.get.should == 'Hello, World!'
 
     entry.pack
     entry.focus
 
-    Tk.interp.do_events_until{
+    Tk.interp.do_events_until do
       entry.get.empty?
-    }
+    end
 
     entry.get.should == ''
   end
@@ -54,21 +56,21 @@ describe Tk::Event do
     Tk::Event.add('<<Clear>>', '<BackSpace>')
 
     entry = Tk::Entry.new('.')
-    entry.bind('<<Clear>>'){ entry.delete(0, :end) }
-    entry.bind('<Map>'){
+    entry.bind('<<Clear>>') { entry.delete(0, :end) }
+    entry.bind('<Map>') do
       entry.focus
       Tk::Event.generate(entry, '<BackSpace>')
       Tk.interp.do_one_event
-    }
+    end
     entry.insert 0, 'Hello, World!'
     entry.get.should == 'Hello, World!'
 
     entry.pack
     entry.focus
 
-    Tk.interp.do_events_until{
+    Tk.interp.do_events_until do
       entry.get.empty?
-    }
+    end
 
     entry.get.should == ''
   end
@@ -77,18 +79,18 @@ describe Tk::Event do
     entered = false
 
     entry = Tk::Entry.new('.')
-    entry.bind('<Key>'){ entered = true; Tk.stop }
-    entry.bind('<Map>'){
+    entry.bind('<Key>') { entered = true; Tk.stop }
+    entry.bind('<Map>') do
       entry.focus
       Tk::Event.generate(entry, '<KeyPress-a>')
-    }
+    end
 
     entry.pack
     entry.focus
 
-    Tk.interp.do_events_until{
+    Tk.interp.do_events_until do
       entered
-    }
+    end
 
     entered.should == true
   end

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -10,14 +11,14 @@ describe Tk::Tile::Button do
     button = Button.new('.')
     button.cget(:default).should == 'normal'
 
-    %w{normal active disabled}.each do |state|
-      button = Button.new('.', default: state )
+    %w(normal active disabled).each do |state|
+      button = Button.new('.', default: state)
       button.cget(:default).should == state
     end
 
-    lambda {
+    lambda do
       Button.new('.', default: 'unkown-')
-    }.should.raise RuntimeError
+    end.should.raise RuntimeError
   end
 
   it 'sets width and height' do
@@ -29,7 +30,7 @@ describe Tk::Tile::Button do
       button.cget(:width).should == i.to_i
 
       button = Button.new('.', width: i.to_f)
-      button.cget(:width).should == 0
+      button.cget(:width).should == i.to_i
     end
   end
 
@@ -38,14 +39,13 @@ describe Tk::Tile::Button do
     ran = false
     Tk.callbacks.size.should == 0
 
-    button = Button.new('.'){
+    button = Button.new('.') do
       ran = true
       button.destroy
-    }
+    end
     button.invoke
 
     Tk.callbacks.size.should == 0
     ran.should == true
   end
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 describe Tk::Tile::CheckButton do
@@ -10,4 +11,3 @@ describe Tk::Tile::CheckButton do
   it 'needs more specs' do
   end
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 describe Tk::Tile::ComboBox do
@@ -8,15 +9,15 @@ describe Tk::Tile::ComboBox do
   end
 
   it 'sets combobox values' do
-    b = Tk::Tile::ComboBox.new Tk.root, values: ['a','b']
-    b.configure(values: ['c','d']).should == true
+    b = Tk::Tile::ComboBox.new Tk.root, values: %w(a b)
+    b.configure(values: %w(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 = Tk::Tile::ComboBox.new Tk.root, textvariable: var, values: %w(a b)
 
     b.current.should == -1
 
@@ -28,9 +29,9 @@ describe Tk::Tile::ComboBox do
     b.set('baz').should == true
     var.to_s.should == 'baz'
 
-    lambda { 
+    lambda do
       b.current(10).should == false
-    }.should.raise RuntimeError
+    end.should.raise RuntimeError
   end
 
   it 'sets the value of the combobox to value' do
@@ -51,15 +52,13 @@ describe Tk::Tile::ComboBox do
   end
 
   it 'sets postcommand' do
-    lambda { 
+    lambda do
       Tk::Tile::ComboBox.new Tk.root, postcommand: proc {}
-    }.should.not.raise RuntimeError
+    end.should.not.raise RuntimeError
 
-    lambda { 
+    lambda do
       b = Tk::Tile::ComboBox.new
-      b.postcommand { } 
-    }.should.not.raise RuntimeError
+      b.postcommand {}
+    end.should.not.raise RuntimeError
   end
-
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -9,18 +10,17 @@ describe Tk::Tile::Entry do
   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 # ""
+    @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(:xscrollcommand).should.nil?
+
+    @entry.cget(:takefocus).should == false
+    @entry.cget(:textvariable).should.nil? # ""
   end
 
   it 'sets ttk-state independent of tk-state' do
@@ -32,7 +32,7 @@ describe Tk::Tile::Entry do
     @entry.state.should == ['active']
 
     @entry.state(:disabled).should == true
-    @entry.state.should == ['active','disabled']
+    @entry.state.should == %w(active disabled)
 
     @entry.cget(:state).should == ['normal']
   end
@@ -43,19 +43,18 @@ describe Tk::Tile::Entry do
     @entry.cget(:state).should == ['disabled']
 
     @entry.state(:active).should == true
-    @entry.state.should == ['active','disabled']
+    @entry.state.should == %w(active disabled)
 
     @entry.state(:disabled).should == true
-    @entry.state.should == ['active','disabled']
+    @entry.state.should == %w(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
+  # 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
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -8,13 +9,13 @@ describe Tk::Tile::Frame do
 
   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=>''}
-          ]}
-        ]}
-      ]}
+      'Button.button', { children: [
+        'Button.focus', { children: [
+          'Button.padding', { children: [
+            'Button.label', { expand: true, sticky: '' }
+          ] }
+        ] }
+      ] }
     ]
 
     frame = Frame.new(Tk.root)
@@ -44,11 +45,11 @@ describe Tk::Tile::Frame do
 
   it 'sets cursor' do
     frame = Frame.new(Tk.root)
-    frame.cget(:cursor).should == nil
+    frame.cget(:cursor).should.nil?
 
-    lambda {
+    lambda do
       Frame.new(Tk.root, cursor: '.s.s.s.s')
-    }.should.raise RuntimeError
+    end.should.raise RuntimeError
   end
 
   it 'sets additional padding to include inside the border' do
@@ -56,10 +57,9 @@ describe Tk::Tile::Frame do
     frame.cget(:padding).should == []
 
     frame = Frame.new(Tk.root, padding: 10)
-    frame.cget(:padding).should == [ '10' ]
+    frame.cget(:padding).should == ['10']
 
     frame.configure padding: [10, 20]
-    frame.cget(:padding).should == ['10', '20']
+    frame.cget(:padding).should == %w(10 20)
   end
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 describe Tk::Tile::Label do
@@ -9,9 +10,8 @@ describe Tk::Tile::Label do
 
   it 'assigns a value' do
     label = Tk::Tile::Label.new
-    label.value.should == nil
+    label.value.should.nil?
     label.value = 'Hello, World!'
     label.value.should == 'Hello, World!'
   end
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 describe Tk::Tile::LabelFrame do
@@ -10,4 +11,3 @@ describe Tk::Tile::LabelFrame do
   it 'needs more specs' do
   end
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 describe Tk::Tile::MenuButton do
@@ -10,4 +11,3 @@ describe Tk::Tile::MenuButton do
   it 'needs more specs' do
   end
 end
-

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

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 require_relative '../../helper'
 
 Tk.init
@@ -13,7 +14,7 @@ describe Tk::Tile::Notebook do
     f0 = Tk::Tile::Frame.new
     nb = Tk::Tile::Notebook.new
 
-    nb.add( f0, text: 'first tab' ).should == true
+    nb.add(f0, text: 'first tab').should == true
   end
 
   it 'selects the specified tab' do
@@ -21,11 +22,13 @@ describe Tk::Tile::Notebook do
     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.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
+    nb.select(f1).should.true?
+    nb.select.should == f1.tk_pathname
+    nb.select(f0).should.true?
+    nb.select.should == f0.tk_pathname
   end
 
   it 'return index of tabs' do
@@ -33,8 +36,8 @@ describe Tk::Tile::Notebook do
     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.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
@@ -47,8 +50,8 @@ describe Tk::Tile::Notebook do
     nb = Tk::Tile::Notebook.new
 
     nb.tabs.should == []
-    nb.add( f2, text: 'first tab' ).should == true
-    nb.tabs.should == [ f2.tk_pathname ]
+    nb.add(f2, text: 'first tab').should == true
+    nb.tabs.should == [f2.tk_pathname]
   end
 
   it 'inserts a new tab at position' do
@@ -56,19 +59,19 @@ describe Tk::Tile::Notebook do
     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.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 ]
+    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.add(f2, text: 'first tab').should == true
 
-    nb.tab(f2, state: :disabled ).should == true
+    nb.tab(f2, state: :disabled).should == true
     nb.tab(f2).should.include 'disabled'
   end
 
@@ -76,21 +79,21 @@ describe Tk::Tile::Notebook 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.add(f2, text: 'first tab').should == true
+    nb.tabs.should == [f2.tk_pathname]
 
     nb.forget(f2).should == true
-    nb.tabs.should == [ ]
+    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.add(f2, text: 'first tab').should == true
 
     nb.hide(f2).should == true
-    nb.tabs.should == [ f2.tk_pathname ]
+    nb.tabs.should == [f2.tk_pathname]
   end
 
   it 'enables traversal' do
@@ -100,4 +103,3 @@ describe Tk::Tile::Notebook do
     Tk::Tile::Notebook.enable_traversal(nb).should == true
   end
 end
-