ffi-tk 2010.08.23 → 2018.02.20

data/example/tile/kroc_demo_small.rb

@@ -1,4 +1,5 @@
 #!/usr/bin/env ruby
+# frozen_string_literal: true
 
 require_relative '../../lib/ffi-tk'
 
@@ -7,86 +8,83 @@ Tk.init
 Tk::Tile::Style.theme_use 'alt'
 
 THEMELIST = [
-  ['default', 'Default'],
-  ['classic', 'Classic'],
-  ['alt', 'Revitalized'],
-  ['clam', 'Clam'],
+  %w(default Default),
+  %w(classic Classic),
+  %w(alt Revitalized),
+  %w(clam Clam),
   ['winnative', 'Windows native'],
   ['xpnative', 'XP Native'],
-  ['aqua', 'Aqua'],
-]
-RUBY_THEMELIST = []
+  %w(aqua Aqua)
+].freeze
+RUBY_THEMELIST = [].freeze
 RUBY_THEMELIST << ['kroc-rb', 'Kroc (by Ruby)', false]
 
 def makeThemeControl(parent)
   frame = Tk::Tile::LabelFrame.new parent, text: 'Theme'
 
-  THEMELIST.each{|theme, name|
+  THEMELIST.each do |theme, name|
     b = Tk::Tile::RadioButton.new(frame, text: name, value: theme,
-                                  command: proc{ Tk::Tile::Style.theme_use(theme) } )
+                                         command: proc { Tk::Tile::Style.theme_use(theme) })
 
     b.grid sticky: 'ew'
     b.state(:disabled) unless Tk::Tile::Style.theme_names.include?(theme)
-  }
-  RUBY_THEMELIST.each{|theme, name, available|
+  end
+  RUBY_THEMELIST.each do |theme, name, available|
     b = Tk::Tile::RadioButton.new(frame, text: name, value: theme,
-                                  command: proc{ Tk::Tile::Style.theme_use(theme) } )
+                                         command: proc { Tk::Tile::Style.theme_use(theme) })
 
     b.grid sticky: 'ew'
     b.state(:disabled) unless available # ? use #ttk_state
-  }
+  end
   frame
 end
 
 makeThemeControl(Tk.root).pack side: 'left'
 
+BUTTONS = %w(open new save).freeze
+TOOLBARS = [].freeze
+CHECKBOXES = %w(bold italic).freeze
+ICON = {}.freeze
 
-BUTTONS = ['open', 'new', 'save']
-TOOLBARS = []
-CHECKBOXES = ['bold', 'italic']
-ICON = {}
-
-#def loadIcons(file)
+# def loadIcons(file)
 #  Tk.load_tclscript(file)
 #  img_data = TkVarAccess.new('ImgData')
 #  img_data.keys.each{|icon|
 #    $ICON[icon] = TkPhotoImage.new(:data=>img_data[icon])
 #  }
-#end
-#loadIcons(File.join(demodir, 'iconlib.tcl'))
-
+# end
+# loadIcons(File.join(demodir, 'iconlib.tcl'))
 
 def makeToolbars(parent)
   #
   # Tile toolbar:
   #
 
-  tb = Tk::Tile::Frame.new(parent, :class => 'Toolbar')
-  #tb = Tk::Tile::Frame.new(parent)
+  tb = Tk::Tile::Frame.new(parent, class: 'Toolbar')
+  # tb = Tk::Tile::Frame.new(parent)
   TOOLBARS << tb
   i = 0
-  BUTTONS.each{|icon|
+  BUTTONS.each do |icon|
     i += 1
     Tk::Tile::Button.new(tb, text: icon,
-                        # :image=>$ICON[icon],
-                        # :compound=>$V[:COMPOUND],
-                         :style=>:Toolbutton).grid(:row=>0, :column=>i,
-                                                   :sticky=>:news)
-  }
-  CHECKBOXES.each{|icon|
+                             # :image=>$ICON[icon],
+                             # :compound=>$V[:COMPOUND],
+                             style: :Toolbutton).grid(row: 0, column: i,
+                                                      sticky: :news)
+  end
+  CHECKBOXES.each do |icon|
     i += 1
     Tk::Tile::CheckButton.new(tb, text: icon,
-                              #:image=>$ICON[icon],
-                              #:variable=>$V.ref(icon),
-                              #:compound=>$V[:COMPOUND],
-                              :style=>:Toolbutton).grid(:row=>0, :column=>i,
-                                                        :sticky=>:news)
-  }
-
-  mb = Tk::Tile::MenuButton.new(tb, text: 'toolbar',
-                                #:image=>$ICON['file'],
-                                #:compound=>$V[:COMPOUND]
-                               )
+                                  #:image=>$ICON[icon],
+                                  #:variable=>$V.ref(icon),
+                                  #:compound=>$V[:COMPOUND],
+                                  style: :Toolbutton).grid(row: 0, column: i,
+                                                           sticky: :news)
+  end
+
+  mb = Tk::Tile::MenuButton.new(tb, text: 'toolbar')
+  #:image=>$ICON['file'],
+  #:compound=>$V[:COMPOUND]
   mb.configure menu: makeCompoundMenu(mb)
 
   i += 1
@@ -95,7 +93,7 @@ def makeToolbars(parent)
   i += 1
   tb.grid_columnconfigure(i, weight: 1)
 
-  return tb
+  tb
 end
 
 #
@@ -103,21 +101,19 @@ end
 #
 def makeCompoundMenu(mb)
   menu = Tk::Menu.new(mb)
-  %w(text image none top bottom left right center).each{|str|
-    #menu.add(:radiobutton, :label=> Tk.tk_call('string', 'totitle', str),
-    menu.add(:radiobutton, :label=> str,
-             :value=>str,
-             #:variable=>$V.ref(:COMPOUND),
-             :command=> proc{ puts "foo"; true } )
-  }
+  %w(text image none top bottom left right center).each do |str|
+    # menu.add(:radiobutton, :label=> Tk.tk_call('string', 'totitle', str),
+    menu.add(:radiobutton, label: str,
+                           value: str,
+                           #:variable=>$V.ref(:COMPOUND),
+                           command: proc { puts 'foo'; true })
+  end
   menu
 end
 
 makeToolbars(Tk.root)
-#makeToolbars(Tk.root).pack
-TOOLBARS.each { |tb| tb.pack }
+# makeToolbars(Tk.root).pack
+TOOLBARS.each(&:pack)
 
-
-#puts Tk::Tile::Style.theme_names.inspect
+# puts Tk::Tile::Style.theme_names.inspect
 Tk.mainloop
-

data/example/tile/kroc_rb_demo.rb

@@ -1,135 +1,126 @@
+# frozen_string_literal: true
 #
 # based on:
 #   >> kroc.rb - by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 #   >> kroc.tcl - Copyright (C) 2004 David Zolli <kroc@kroc.tk>
 #
 
-#NOTE not ready, needs photoimage and load_images
+# NOTE not ready, needs photoimage and load_images
 # * some parts are used in Tile::Style specs and work as excepted
 
-#imgdir = File.join(File.dirname(__FILE__), 'kroc', 'kroc')
-#$images = Tk::Tile.load_images(imgdir, '*.gif')
+# imgdir = File.join(File.dirname(__FILE__), 'kroc', 'kroc')
+# $images = Tk::Tile.load_images(imgdir, '*.gif')
 
 def kroc_rb_settings
-  Tk::Tile::Style.configure('.', :background=>'#FCB64F',
-                          :troughcolor=>'#F8C278', :borderwidth=>1)
+  Tk::Tile::Style.configure('.', background: '#FCB64F',
+                                 troughcolor: '#F8C278', borderwidth: 1)
 
+  Tk::Tile::Style.configure('.', font: Tk::Tile::Font::Default, borderwidth: 1)
+  Tk::Tile::Style.configure(font: Tk::Tile::Font::Default, borderwidth: 1)
 
-  Tk::Tile::Style.configure('.', :font=>Tk::Tile::Font::Default, :borderwidth=>1)
-  Tk::Tile::Style.configure(:font=>Tk::Tile::Font::Default, :borderwidth=>1)
+  Tk::Tile::Style.map('.', background: [:active, '#694418'])
+  Tk::Tile::Style.map(foreground: [:disabled, '#B2B2B2', :active, '#FFE7CB'])
 
-
-  Tk::Tile::Style.map('.', :background=>[:active, '#694418'])
-  Tk::Tile::Style.map(:foreground=>[:disabled, '#B2B2B2', :active, '#FFE7CB'])
-
-
-  Tk::Tile::Style.configure('TButton', :padding=>[10,4])
+  Tk::Tile::Style.configure('TButton', padding: [10, 4])
 
   Tk::Tile::Style.configure('TNotebook.Tab',
-                          :padding=>[10, 3], :font=>Tk::Tile::Font::Default)
+                            padding: [10, 3], font: Tk::Tile::Font::Default)
 
   Tk::Tile::Style.map('TNotebook.Tab',
-                      :background=>[:selected, '#FCB64F', '', '#FFE6BA'],
-                      :foreground=>['', 'black'],
-                      :padding=>[:selected, [10, 6, 10, 3]])
+                      background: [:selected, '#FCB64F', '', '#FFE6BA'],
+                      foreground: ['', 'black'],
+                      padding: [:selected, [10, 6, 10, 3]])
 
   # Tk::Tile::Style.map('TScrollbar',
   Tk::Tile::Style.map(Tk::Tile::TScrollbar,
-                      :background=>[:pressed, '#694418'],
-                      :arrowcolor=>[:pressed, '#FEF7CB'],
-                      :relief=>[:pressed, :sunken])
+                      background: [:pressed, '#694418'],
+                      arrowcolor: [:pressed, '#FEF7CB'],
+                      relief: [:pressed, :sunken])
 
   # Tk::Tile::Style.layout('Vertical.TScrollbar',
   Tk::Tile::Style.layout(Tk::Tile.style('Vertical', Tk::Tile::TScrollbar),
-                         ['Scrollbar.trough', {:children=>[
-                             'Scrollbar.uparrow',   {:side=>:top},
-                             'Scrollbar.downarrow', {:side=>:bottom},
-                             'Scrollbar.uparrow',   {:side=>:bottom},
-                             'Scrollbar.thumb',  {:side=>:top, :expand=>true}
-                           ]}
-                         ])
+                         ['Scrollbar.trough', { children: [
+                           'Scrollbar.uparrow',   { side: :top },
+                           'Scrollbar.downarrow', { side: :bottom },
+                           'Scrollbar.uparrow',   { side: :bottom },
+                           'Scrollbar.thumb', { side: :top, expand: true }
+                         ] }])
 
   # Tk::Tile::Style.layout('Horizontal.TScrollbar',
   Tk::Tile::Style.layout(Tk::Tile.style('Horizontal', Tk::Tile::TScrollbar),
-                         ['Scrollbar.trough', {:children=>[
-                             'Scrollbar.leftarrow',   {:side=>:left},
-                             'Scrollbar.rightarrow', {:side=>:right},
-                             'Scrollbar.leftarrow',   {:side=>:right},
-                             'Scrollbar.thumb',  {:side=>:left, :expand=>true}
-                           ]}
-                         ])
+                         ['Scrollbar.trough', { children: [
+                           'Scrollbar.leftarrow', { side: :left },
+                           'Scrollbar.rightarrow', { side: :right },
+                           'Scrollbar.leftarrow', { side: :right },
+                           'Scrollbar.thumb', { side: :left, expand: true }
+                         ] }])
 
   #
   # Elements:
   #
   Tk::Tile::Style.element_create('Button.button',
                                  :image,
-                                 [ $images['button-n'],
-                                   :pressed, $images['button-p'],
-                                   :active,  $images['button-h'],
-                                 ], :border=>3, :sticky=>:ew)
+                                 [$images['button-n'],
+                                  :pressed, $images['button-p'],
+                                  :active,  $images['button-h']], border: 3, sticky: :ew)
 
   Tk::Tile::Style.element_create('Checkbutton.indicator',
                                  :image,
-                                 [ $images['check-nu'],
-                                   [:pressed, :selected],$images['check-nc'],
-                                   :pressed,             $images['check-nu'],
-                                   [:active, :selected], $images['check-hc'],
-                                   :active,              $images['check-hu'],
-                                   :selected,            $images['check-nc'],
-                                 ], :sticky=>:w)
+                                 [$images['check-nu'],
+                                  [:pressed, :selected], $images['check-nc'],
+                                  :pressed,             $images['check-nu'],
+                                  [:active, :selected], $images['check-hc'],
+                                  :active,              $images['check-hu'],
+                                  :selected,            $images['check-nc']], sticky: :w)
 
   Tk::Tile::Style.element_create('Radiobutton.indicator',
                                  :image,
-                                 [ $images['radio-nu'],
-                                   [:pressed,:selected],$images['radio-nc'],
-                                   :pressed,            $images['radio-nu'],
-                                   [:active,:selected], $images['radio-hc'],
-                                   :active,             $images['radio-hu'],
-                                   :selected,           $images['radio-nc'],
-                                 ], :sticky=>:w)
-
+                                 [$images['radio-nu'],
+                                  [:pressed, :selected], $images['radio-nc'],
+                                  :pressed, $images['radio-nu'],
+                                  [:active, :selected], $images['radio-hc'],
+                                  :active,             $images['radio-hu'],
+                                  :selected,           $images['radio-nc']], sticky: :w)
 
   #
   # Settings:
   #
   # Tk::Tile::Style.layout(Tk::Tile::TButton,
   Tk::Tile::Style.layout('TButton', [
-      '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: '' }
+                               ] }
+                             ] }
+                           ] }
+                         ])
 
   # Tk::Tile::Style.layout(Tk::Tile::TCheckbutton,
   Tk::Tile::Style.layout('TCheckbutton', [
-      'Checkbutton.background', # this is not needed in tile 0.5 or later
-      'Checkbutton.border', {:children=>[
-           'Checkbutton.padding', {:children=>[
-                'Checkbutton.indicator', {:side=>:left},
-                'Checkbutton.focus', {:side=>:left, :children=>[
-                    'Checkbutton.label'
-                ]}
-           ]}
-      ]}
-  ])
+                           'Checkbutton.background', # this is not needed in tile 0.5 or later
+                           'Checkbutton.border', { children: [
+                             'Checkbutton.padding', { children: [
+                               'Checkbutton.indicator', { side: :left },
+                               'Checkbutton.focus', { side: :left, children: [
+                                 'Checkbutton.label'
+                               ] }
+                             ] }
+                           ] }
+                         ])
 
   # Tk::Tile::Style.layout(Tk::Tile::TRadiobutton,
   Tk::Tile::Style.layout('TRadiobutton', [
-      'Radiobutton.background', # this is not needed in tile 0.5 or later
-      'Radiobutton.border', {:children=>[
-           'Radiobutton.padding', {:children=>[
-                'Radiobutton.indicator', {:side=>:left},
-                'Radiobutton.focus', {:expand=>true, :sticky=>:w, :children=>[
-                    'Radiobutton.label', {:side=>:right, :expand=>true}
-                ]}
-           ]}
-      ]}
-  ])
+                           'Radiobutton.background', # this is not needed in tile 0.5 or later
+                           'Radiobutton.border', { children: [
+                             'Radiobutton.padding', { children: [
+                               'Radiobutton.indicator', { side: :left },
+                               'Radiobutton.focus', { expand: true, sticky: :w, children: [
+                                 'Radiobutton.label', { side: :right, expand: true }
+                               ] }
+                             ] }
+                           ] }
+                         ])
 end
 
-Tk::Tile::Style.theme_create( 'kroc-rb', parent: 'alt', settings: proc{ kroc_rb_settings() } )
-
+Tk::Tile::Style.theme_create('kroc-rb', parent: 'alt', settings: proc { kroc_rb_settings })

data/example/tile/notebook.rb

@@ -1,4 +1,5 @@
 #!/usr/bin/env ruby
+# frozen_string_literal: true
 
 require_relative '../../lib/ffi-tk'
 
@@ -13,19 +14,18 @@ text.value = 'text..'
 # create labelframe
 @labelframe = Tk::Tile::LabelFrame.new(nb, text: 'label headline').pack
 
-
 # create buttons inside labelframe
 Tk::Button.new(@labelframe, text: 'Jump Tab') do
   nb.select text
-  text.value = "current tab options: " + nb.tab(text).inspect
+  text.value = 'current tab options: ' + nb.tab(text).inspect
 end.pack
 
 add_button = Tk::Button.new(@labelframe, text: 'Add Tab') do
   t = Tk::Text.new(nb)
-  nb.add( t, text: 'new tab' )
+  nb.add(t, text: 'new tab')
   nb.select t
 
-  t.value = "current tab options: " + nb.tab(t).inspect
+  t.value = 'current tab options: ' + nb.tab(t).inspect
 
   add_button.configure state: :disabled
 end.pack
@@ -34,15 +34,12 @@ Tk::Button.new(@labelframe, text: 'Close Example') do
   Tk.exit
 end.pack
 
-
 # attach labelframe and Tk::Text to notebook widget
-nb.add( @labelframe, text: 'labelframe tab' )
-nb.insert( 0, text, text: 'text tab' )
-
+nb.add(@labelframe, text: 'labelframe tab')
+nb.insert(0, text, text: 'text tab')
 
 # select labelframe tab
 nb.select @labelframe
 nb.pack
 
-
 Tk.mainloop

data/example/tile/theme_hello.rb

@@ -1,35 +1,33 @@
 #!/usr/bin/env ruby
+# frozen_string_literal: true
 
 require_relative '../../lib/ffi-tk'
 
 Tk.init
 
-
 Tk::Tile::Style.theme_settings 'alt' do
   Tk::Tile::Style.configure '.', background: 'red'
   Tk::Tile::Style.configure 'test.label', background: 'blue'
 
-  Tk::Tile::Style.map('.', :background=>[:active, '#694418'])
+  Tk::Tile::Style.map('.', background: [:active, '#694418'])
 end
 
-
 button1 = Tk::Tile::Button.new('.', text: 'Hello, World!', width: 100) do
   button1.destroy
   Tk.exit
 end
 
 button2 = Tk::Tile::Button.new(button1, text: 'Wien!', width: 50) do
-  Tk::Tile::Style.map('.', :background=>[:active, '#FFFFFF'])
+  Tk::Tile::Style.map('.', background: [:active, '#FFFFFF'])
   button2.destroy
 end
 
-#button3 = Tk::Tile::Button.new(button1, text: 'apply theme', style: 'test.label' ) do
-button3 = Tk::Tile::Button.new('.', text: 'apply theme' ) do
+# button3 = Tk::Tile::Button.new(button1, text: 'apply theme', style: 'test.label' ) do
+button3 = Tk::Tile::Button.new('.', text: 'apply theme') do
   Tk::Tile::Style.theme_use 'alt'
   button3.destroy
 end
-#button3.style 'test.label'
-
+# button3.style 'test.label'
 
 button1.pack
 button2.pack