ffi-tk 2009.11.29

data/example/choose_color.rb

@@ -0,0 +1,22 @@
+require 'ffi-tk'
+
+Tk.init
+
+label = Tk::Label.new(Tk.root, text: 'Press any key to open the dialog')
+label.pack
+
+Tk.root.bind('<Key>'){
+  dir = Tk.choose_color(initialcolor: 'grey', title: 'Choose a color')
+
+  label.configure text: 'Press any key to close the window'
+
+  if dir
+    Tk::Label.new(Tk.root, text: "Selected #{dir}").pack
+  else
+    Tk::Label.new(Tk.root, text: 'No color selected').pack
+  end
+
+  Tk.root.bind('<Key>'){ exit }
+}
+
+Tk.mainloop

data/example/choose_directory.rb

@@ -0,0 +1,22 @@
+require 'ffi-tk'
+
+Tk.init
+
+label = Tk::Label.new(Tk.root, text: 'Press any key to open the dialog')
+label.pack
+
+Tk.root.bind('<Key>'){
+  dir = Tk.choose_directory(initialdir: '~', title: 'Choose a directory')
+
+  label.configure text: 'Press any key to close the window'
+
+  if dir
+    Tk::Label.new(Tk.root, text: "Selected #{dir}").pack
+  else
+    Tk::Label.new(Tk.root, text: 'No directory selected').pack
+  end
+
+  Tk.root.bind('<Key>'){ exit }
+}
+
+Tk.mainloop

data/example/dialog.rb

@@ -0,0 +1,37 @@
+require 'ffi-tk'
+
+Tk.init
+
+label = Tk::Label.new(Tk.root, text: 'Press any key to open the dialog')
+label.pack
+
+Tk.root.bind('<Key>'){
+  question = 'Do you love ruby?'
+  answers = ['Yes', 'No', "I'm not sure"]
+  reply =
+    Tk.dialog('.foo', 'Love is all around', question, 'questhead', 0, *answers)
+
+  label.configure text: 'Press any key to close the window'
+
+  text =
+    case reply
+    when 0
+      "Of course you do!"
+    when 1
+      "Your loss"
+    when 2
+      Tk::Button.new(Tk.root, text: 'Show source'){
+        text = Tk::Text.new(Tk.root)
+        text.insert :end, File.read(__FILE__)
+        text.pack
+      }.pack
+
+      "If you haven't fallen in love yet, take a look at my source."
+    end
+
+  Tk::Label.new(Tk.root, text: text).pack
+
+  Tk.root.bind('<Key>'){ exit }
+}
+
+Tk.mainloop

data/example/hello.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+
+require_relative '../lib/ffi-tk'
+
+Tk.init
+
+Tk::Button.new('.', text: 'Hello, World!') do
+  Tk.exit
+end.pack
+
+Tk.mainloop

data/example/message_box.rb

@@ -0,0 +1,26 @@
+require 'ffi-tk'
+
+Tk.init
+
+label = Tk::Label.new(Tk.root, text: 'Press any key to open the dialog')
+label.pack
+
+Tk.root.bind('<Key>'){
+  answer = Tk.message_box(
+    message: 'Really quit?',
+    icon: :question,
+    type: :yesno,
+    detail: 'Select "Yes" to make the application exit')
+
+  case answer
+  when :yes
+    exit
+  when :no
+    Tk.message_box(
+      message: 'I know you like this application!',
+      type: :ok)
+    exit
+  end
+}
+
+Tk.mainloop

data/example/option_menu.rb

@@ -0,0 +1,17 @@
+require 'ffi-tk'
+
+Tk.init
+
+label = Tk::Label.new(Tk.root, text: 'Here will be the value of button displayed')
+label.pack
+
+var = Tk.option_menu('.foo', 'Yes', 'Of course', 'Maybe', 'Maybe not', 'No', 'Never')
+Tk::Pack.pack('.foo')
+Tk::Bind.bind('.foo', '<Configure>'){ label.configure(text: var.get) }
+var.set 'Maybe' # initial option
+
+label.configure text: var.get
+
+Tk::Button.new(Tk.root, text: 'Exit'){ exit }.pack
+
+Tk.mainloop

data/example/popup.rb

@@ -0,0 +1,24 @@
+require 'ffi-tk'
+Tk.init
+
+command = lambda{ Tk::Bell.bell }
+menu = Tk::Menu.new(Tk.root)
+menu.add(:command, label: 'Example 1', command: command)
+menu.add(:command, label: 'Example 2', command: command)
+label = Tk::Label.new(Tk.root, text: 'Click me!').pack
+label.bind('<1>'){|event| Tk.popup(menu, event.x, event.y) }
+
+Tk::Button.new(Tk.root, text: 'Exit'){ exit }.pack
+
+Tk.mainloop
+__END__
+# Create a menu
+set m [menu .popupMenu]
+$m add command -label "Example 1" -command bell
+$m add command -label "Example 2" -command bell
+
+# Create something to attach it to
+pack [label .l -text "Click me!"]
+
+# Arrange for the menu to pop up when the label is clicked
+bind .l <1> {tk_popup .popupMenu %X %Y}

data/example/set_palette.rb

@@ -0,0 +1,32 @@
+require 'ffi-tk'
+
+Tk.init
+
+def change_palette(background)
+  Tk.set_palette(background)
+  @exception.configure(text: '')
+rescue Exception => ex
+  @exception.configure(text: ex.message)
+end
+
+desc = <<DESC
+This example shows how Tk can calculate whole palettes from a given background color.
+Simply fill the entry field with a color you would like.
+
+For example: "black", "yellow", "#fafafa", or "#f00"
+
+Hit Return to change the color.
+DESC
+
+Tk::Label.new(Tk.root, text: desc).pack
+
+@exception = Tk::Label.new(Tk.root).pack
+@entry = Tk::Entry.new(Tk.root).pack
+@entry.bind('<Return>'){
+  change_palette(@entry.get)
+  @entry.delete(0, :end)
+}
+
+Tk::Button.new(Tk.root, text: 'Exit'){ exit }.pack
+
+Tk.mainloop

data/example/text.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+
+require_relative '../lib/ffi-tk'
+
+Tk.init
+
+text = Tk::Text.new('.')
+text.insert :end, 'Hello, World!'
+text.pack
+p text.bbox '0.1'
+p text.index 'end'
+
+%w[ autoseparators autoseparators blockcursor endline inactiveselectbackground
+maxundo spacing1 spacing2 spacing3 startline state tabs tabstyle undo width wrap
+
+background bg
+borderwidth bd
+cursor
+exportselection
+font
+foreground
+fg
+highlightbackground
+highlightcolor
+highlightthickness
+insertbackground
+insertborderwidth
+insertofftime
+insertontime
+insertwidth
+padx
+pady
+relief
+selectbackground
+selectborderwidth
+selectforeground
+setgrid
+takefocus
+xscrollcommand
+yscrollcommand
+].each do |option|
+  p option: text.cget(option)
+end
+
+Tk.root.bind('Control-q'){ exit }
+
+Tk.mainloop

data/example/tile/kroc_demo_small.rb

@@ -0,0 +1,123 @@
+#!/usr/bin/env ruby
+
+require_relative '../../lib/ffi-tk'
+
+Tk.init
+
+Tk::Tile::Style.theme_use 'alt'
+
+THEMELIST = [
+  ['default', 'Default'],
+  ['classic', 'Classic'],
+  ['alt', 'Revitalized'],
+  ['clam', 'Clam'],
+  ['winnative', 'Windows native'],
+  ['xpnative', 'XP Native'],
+  ['aqua', 'Aqua'],
+]
+RUBY_THEMELIST = []
+RUBY_THEMELIST << ['kroc-rb', 'Kroc (by Ruby)', false]
+
+def makeThemeControl(parent)
+  frame = Tk::Tile::LabelFrame.new parent, text: 'Theme'
+
+  THEMELIST.each{|theme, name|
+    b = Tk::Tile::RadioButton.new(frame, text: name, value: 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|
+    b = Tk::Tile::RadioButton.new(frame, text: name, value: theme,
+                                  command: proc{ Tk::Tile::Style.theme_use(theme) } )
+
+    b.grid sticky: 'ew'
+    b.state(:disabled) unless available # ? use #ttk_state
+  }
+  frame
+end
+
+makeThemeControl(Tk.root).pack side: 'left'
+
+
+BUTTONS = ['open', 'new', 'save']
+TOOLBARS = []
+CHECKBOXES = ['bold', 'italic']
+ICON = {}
+
+#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'))
+
+
+def makeToolbars(parent)
+  #
+  # Tile toolbar:
+  #
+
+  tb = Tk::Tile::Frame.new(parent, :class => 'Toolbar')
+  #tb = Tk::Tile::Frame.new(parent)
+  TOOLBARS << tb
+  i = 0
+  BUTTONS.each{|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|
+    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]
+                               )
+  mb.configure menu: makeCompoundMenu(mb)
+
+  i += 1
+  mb.grid(row: 0, column: i, sticky: :news)
+
+  i += 1
+  tb.grid_columnconfigure(i, weight: 1)
+
+  return tb
+end
+
+#
+# Toolbar :compound control:
+#
+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 } )
+  }
+  menu
+end
+
+makeToolbars(Tk.root)
+#makeToolbars(Tk.root).pack
+TOOLBARS.each { |tb| tb.pack }
+
+
+#puts Tk::Tile::Style.theme_names.inspect
+Tk.mainloop
+

data/example/tile/kroc_rb_demo.rb

@@ -0,0 +1,135 @@
+#
+# 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
+# * 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')
+
+def kroc_rb_settings
+  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.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('TNotebook.Tab',
+                          :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]])
+
+  # Tk::Tile::Style.map('TScrollbar',
+  Tk::Tile::Style.map(Tk::Tile::TScrollbar,
+                      :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}
+                           ]}
+                         ])
+
+  # 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}
+                           ]}
+                         ])
+
+  #
+  # Elements:
+  #
+  Tk::Tile::Style.element_create('Button.button',
+                                 :image,
+                                 [ $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)
+
+  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)
+
+
+  #
+  # 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=>''}
+                ]}
+           ]}
+      ]}
+  ])
+
+  # 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'
+                ]}
+           ]}
+      ]}
+  ])
+
+  # 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}
+                ]}
+           ]}
+      ]}
+  ])
+end
+
+Tk::Tile::Style.theme_create( 'kroc-rb', parent: 'alt', settings: proc{ kroc_rb_settings() } )
+