ffi-tk 2009.11.29

data/example/tile/notebook.rb

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+
+require_relative '../../lib/ffi-tk'
+
+Tk.init
+
+# create notebook widget
+nb = Tk::Tile::Notebook.new
+
+text = Tk::Text.new(nb)
+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
+end.pack
+
+add_button = Tk::Button.new(@labelframe, text: 'Add Tab') do
+  t = Tk::Text.new(nb)
+  nb.add( t, text: 'new tab' )
+  nb.select t
+
+  t.value = "current tab options: " + nb.tab(t).inspect
+
+  add_button.configure state: :disabled
+end.pack
+
+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' )
+
+
+# select labelframe tab
+nb.select @labelframe
+nb.pack
+
+
+Tk.mainloop

data/example/tile/theme_hello.rb

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby
+
+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'])
+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'])
+  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
+  Tk::Tile::Style.theme_use 'alt'
+  button3.destroy
+end
+#button3.style 'test.label'
+
+
+button1.pack
+button2.pack
+button3.pack
+
+Tk.mainloop

data/example/tile/treeview.rb

@@ -0,0 +1,71 @@
+require 'ffi-tk'
+require 'find'
+
+class FileTree < Tk::Tile::Treeview
+  KB = 1024.0
+  MB = KB * KB
+  GB = MB * KB
+
+  def populate_roots
+    ## Create the tree and set it up
+    configure columns: %w[fullpath type size], displaycolumns: %w[size]
+    heading('#0', text: 'Directory Structure')
+    heading('size', text: 'File Size')
+    column('size', stretch: 0, width: 70)
+    bind('<<TreeviewOpen>>'){|event|
+      begin
+        populate_tree(focus_item)
+      rescue Exception => ex
+        p ex
+      end
+
+      true
+    }
+
+    Tk.execute('file', 'volumes').sort.each do |volume|
+      node = insert(nil, :end, text: volume, values: [volume, 'directory'])
+      populate_tree(node)
+    end
+  end
+
+  def populate_tree(node)
+    return if node.set(:type) != 'directory'
+
+    path = node.set(:fullpath)
+    delete(*node.children.to_a)
+
+    Dir.glob File.join(path, '*') do |path|
+      name, type = File.basename(path), File.ftype(path)
+
+      item = insert(node, :end, text: name, values: [path, type])
+
+      if type == 'directory'
+        ## Make it so that this node is openable
+        dir_item = item.insert(0, text: 'dummy')
+        dir_item.options(text: name)
+      elsif type == 'file'
+        size = File.size(path)
+
+        if size >= GB
+          size = '%.1f GB' % [size / GB]
+        elsif size >= MB
+          size = '%.1f MB' % [size / MB]
+        elsif size >= KB
+          size = '%.1f KB' % [size / KB]
+        else
+          size = '%.1f bytes' % [size]
+        end
+
+        item.set(:size, size)
+      end
+    end
+  end
+end
+
+tree = FileTree.new
+tree.bind('<Escape>'){ Tk.exit }
+tree.pack expand: true, fill: :both
+tree.focus
+tree.populate_roots
+
+Tk.mainloop

data/example/various.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+
+require_relative '../lib/ffi-tk'
+
+Tk.init
+
+Tk.root.bind('Control-c'){|event| p event }
+Tk.root.bind('Control-q'){|event| exit }
+
+hello = Tk::Button.new('.', text: 'Push me'){
+  Tk::MessageBox.new(message: 'Hello, World!')
+}.pack
+
+button = Tk::Button.new('.', text: 'Destroy me!').pack
+button.bind('Enter'){|event| button.destroy }
+
+text = Tk::Text.new('.')
+text.insert 'insert', 'Hello, World!'
+text.pack expand: true, fill: :both
+
+entry = Tk::Entry.new('.')
+entry.insert 'end', 'Hello, World!'
+entry.pack fill: :x
+
+Tk.mainloop

data/example/wait.rb

@@ -0,0 +1,16 @@
+require 'ffi-tk'
+
+Tk.init
+
+variable = Tk::Variable.new('showstopper', false)
+label = Tk::Label.new(Tk.root, text: 'enter anything to reflect it here').pack
+
+entry = Tk::Entry.new(Tk.root, textvariable: variable).pack
+button = Tk::Button.new(Tk.root, text: 'Exit'){ exit }.pack
+
+loop do
+  Tk::Wait.variable(variable)
+  label.configure text: variable.to_s
+end
+
+Tk.mainloop

data/ffi-tk.gemspec

@@ -0,0 +1,33 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{ffi-tk}
+  s.version = "2009.11.29"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 1.3.5") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Michael 'manveru' Fellinger"]
+  s.date = %q{2009-11-29}
+  s.description = %q{Pure Ruby FFI wrapper for the Tk GUI toolkit.}
+  s.email = %q{m.fellinger@gmail.com}
+  s.files = ["CHANGELOG", "MANIFEST", "README.md", "Rakefile", "TODO.md", "bin/rwish", "doc/MIT_LICENSE", "doc/TCL_LICENSE", "example/choose_color.rb", "example/choose_directory.rb", "example/dialog.rb", "example/hello.rb", "example/message_box.rb", "example/option_menu.rb", "example/popup.rb", "example/set_palette.rb", "example/text.rb", "example/tile/kroc_demo_small.rb", "example/tile/kroc_rb_demo.rb", "example/tile/notebook.rb", "example/tile/theme_hello.rb", "example/tile/treeview.rb", "example/various.rb", "example/wait.rb", "ffi-tk.gemspec", "lib/ffi-tk.rb", "lib/ffi-tk/command.rb", "lib/ffi-tk/command/after.rb", "lib/ffi-tk/command/bell.rb", "lib/ffi-tk/command/bind.rb", "lib/ffi-tk/command/bindtags.rb", "lib/ffi-tk/command/cget.rb", "lib/ffi-tk/command/choose_color.rb", "lib/ffi-tk/command/choose_directory.rb", "lib/ffi-tk/command/clipboard.rb", "lib/ffi-tk/command/configure.rb", "lib/ffi-tk/command/destroy.rb", "lib/ffi-tk/command/dialog.rb", "lib/ffi-tk/command/event.rb", "lib/ffi-tk/command/focus.rb", "lib/ffi-tk/command/font.rb", "lib/ffi-tk/command/get_open_file.rb", "lib/ffi-tk/command/get_save_file.rb", "lib/ffi-tk/command/grab.rb", "lib/ffi-tk/command/grid.rb", "lib/ffi-tk/command/image.rb", "lib/ffi-tk/command/lower.rb", "lib/ffi-tk/command/message_box.rb", "lib/ffi-tk/command/option_menu.rb", "lib/ffi-tk/command/pack.rb", "lib/ffi-tk/command/place.rb", "lib/ffi-tk/command/popup.rb", "lib/ffi-tk/command/raise.rb", "lib/ffi-tk/command/scrollable.rb", "lib/ffi-tk/command/selection.rb", "lib/ffi-tk/command/set_palette.rb", "lib/ffi-tk/command/tk_cmd.rb", "lib/ffi-tk/command/vars.rb", "lib/ffi-tk/command/wait.rb", "lib/ffi-tk/command/winfo.rb", "lib/ffi-tk/command/wm.rb", "lib/ffi-tk/core_extensions.rb", "lib/ffi-tk/event/data.rb", "lib/ffi-tk/event/handler.rb", "lib/ffi-tk/ffi/tcl.rb", "lib/ffi-tk/ffi/tcl/cmd_proc.rb", "lib/ffi-tk/ffi/tcl/eval_result.rb", "lib/ffi-tk/ffi/tcl/interp.rb", "lib/ffi-tk/ffi/tcl/obj.rb", "lib/ffi-tk/ffi/tcl/time.rb", "lib/ffi-tk/ffi/tk.rb", "lib/ffi-tk/geometry.rb", "lib/ffi-tk/thread_sender.rb", "lib/ffi-tk/tk.rb", "lib/ffi-tk/variable.rb", "lib/ffi-tk/widget.rb", "lib/ffi-tk/widget/button.rb", "lib/ffi-tk/widget/canvas.rb", "lib/ffi-tk/widget/canvas/arc.rb", "lib/ffi-tk/widget/canvas/bitmap.rb", "lib/ffi-tk/widget/canvas/image.rb", "lib/ffi-tk/widget/canvas/item.rb", "lib/ffi-tk/widget/canvas/line.rb", "lib/ffi-tk/widget/canvas/oval.rb", "lib/ffi-tk/widget/canvas/polygon.rb", "lib/ffi-tk/widget/canvas/rectangle.rb", "lib/ffi-tk/widget/canvas/text.rb", "lib/ffi-tk/widget/canvas/window.rb", "lib/ffi-tk/widget/checkbutton.rb", "lib/ffi-tk/widget/entry.rb", "lib/ffi-tk/widget/frame.rb", "lib/ffi-tk/widget/label.rb", "lib/ffi-tk/widget/labelframe.rb", "lib/ffi-tk/widget/listbox.rb", "lib/ffi-tk/widget/menu.rb", "lib/ffi-tk/widget/menubutton.rb", "lib/ffi-tk/widget/message.rb", "lib/ffi-tk/widget/panedwindow.rb", "lib/ffi-tk/widget/radiobutton.rb", "lib/ffi-tk/widget/root.rb", "lib/ffi-tk/widget/scale.rb", "lib/ffi-tk/widget/scrollbar.rb", "lib/ffi-tk/widget/spinbox.rb", "lib/ffi-tk/widget/text.rb", "lib/ffi-tk/widget/text/peer.rb", "lib/ffi-tk/widget/tile.rb", "lib/ffi-tk/widget/tile/button.rb", "lib/ffi-tk/widget/tile/checkbutton.rb", "lib/ffi-tk/widget/tile/combobox.rb", "lib/ffi-tk/widget/tile/entry.rb", "lib/ffi-tk/widget/tile/frame.rb", "lib/ffi-tk/widget/tile/label.rb", "lib/ffi-tk/widget/tile/labelframe.rb", "lib/ffi-tk/widget/tile/menubutton.rb", "lib/ffi-tk/widget/tile/notebook.rb", "lib/ffi-tk/widget/tile/panedwindow.rb", "lib/ffi-tk/widget/tile/progressbar.rb", "lib/ffi-tk/widget/tile/radiobutton.rb", "lib/ffi-tk/widget/tile/scale.rb", "lib/ffi-tk/widget/tile/scrollbar.rb", "lib/ffi-tk/widget/tile/separator.rb", "lib/ffi-tk/widget/tile/sizegrip.rb", "lib/ffi-tk/widget/tile/style.rb", "lib/ffi-tk/widget/tile/treeview.rb", "lib/ffi-tk/widget/toplevel.rb", "spec/ffi-tk/command/bindtags.rb", "spec/ffi-tk/command/clipboard.rb", "spec/ffi-tk/command/font.rb", "spec/ffi-tk/command/grid.rb", "spec/ffi-tk/command/image.rb", "spec/ffi-tk/command/pack.rb", "spec/ffi-tk/command/place.rb", "spec/ffi-tk/command/selection.rb", "spec/ffi-tk/command/vars.rb", "spec/ffi-tk/command/winfo.rb", "spec/ffi-tk/command/wm.rb", "spec/ffi-tk/event.rb", "spec/ffi-tk/tile/button.rb", "spec/ffi-tk/tile/checkbutton.rb", "spec/ffi-tk/tile/combobox.rb", "spec/ffi-tk/tile/entry.rb", "spec/ffi-tk/tile/frame.rb", "spec/ffi-tk/tile/label.rb", "spec/ffi-tk/tile/labelframe.rb", "spec/ffi-tk/tile/menubutton.rb", "spec/ffi-tk/tile/notebook.rb", "spec/ffi-tk/tile/panedwindow.rb", "spec/ffi-tk/tile/progressbar.rb", "spec/ffi-tk/tile/radiobutton.rb", "spec/ffi-tk/tile/scale.rb", "spec/ffi-tk/tile/scrollbar.rb", "spec/ffi-tk/tile/separator.rb", "spec/ffi-tk/tile/sizegrip.rb", "spec/ffi-tk/tile/style.rb", "spec/ffi-tk/tile/treeview.rb", "spec/ffi-tk/variable.rb", "spec/ffi-tk/widget/button.rb", "spec/ffi-tk/widget/canvas.rb", "spec/ffi-tk/widget/checkbutton.rb", "spec/ffi-tk/widget/entry.rb", "spec/ffi-tk/widget/frame.rb", "spec/ffi-tk/widget/label.rb", "spec/ffi-tk/widget/labelframe.rb", "spec/ffi-tk/widget/listbox.rb", "spec/ffi-tk/widget/menu.rb", "spec/ffi-tk/widget/menubutton.rb", "spec/ffi-tk/widget/message.rb", "spec/ffi-tk/widget/panedwindow.rb", "spec/ffi-tk/widget/radiobutton.rb", "spec/ffi-tk/widget/root.rb", "spec/ffi-tk/widget/scale.rb", "spec/ffi-tk/widget/scrollbar.rb", "spec/ffi-tk/widget/spinbox.rb", "spec/ffi-tk/widget/text.rb", "spec/ffi-tk/widget/toplevel.rb", "spec/helper.rb", "tasks/authors.rake", "tasks/bacon.rake", "tasks/changelog.rake", "tasks/gem.rake", "tasks/gem_setup.rake", "tasks/grancher.rake", "tasks/manifest.rake", "tasks/rcov.rake", "tasks/release.rake", "tasks/reversion.rake", "tasks/setup.rake", "tasks/ycov.rake"]
+  s.homepage = %q{http://github.com/manveru/ffi-tk}
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{Pure Ruby FFI wrapper for the Tk GUI toolkit.}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<ffi>, ["~> 0.5.1"])
+      s.add_development_dependency(%q<bacon>, [">= 1.1.0"])
+    else
+      s.add_dependency(%q<ffi>, ["~> 0.5.1"])
+      s.add_dependency(%q<bacon>, [">= 1.1.0"])
+    end
+  else
+    s.add_dependency(%q<ffi>, ["~> 0.5.1"])
+    s.add_dependency(%q<bacon>, [">= 1.1.0"])
+  end
+end

data/lib/ffi-tk.rb

@@ -0,0 +1,76 @@
+require 'thread'
+require 'ffi'
+
+$LOAD_PATH.unshift File.dirname(__FILE__)
+
+module Tk
+  LIBPATH = { tcl: [], tk: [] }
+
+  if ENV['Apple_PubSub_Socket_Render']
+    RUN_EVENTLOOP_ON_MAIN_THREAD = true
+
+    if ENV['NO_AQUA'] || ENV['USE_X11'] # macports-x11 libtk
+      LIBPATH[:tcl] << '/opt/local/lib/libtcl8.5.dylib'
+      LIBPATH[:tk] << '/opt/local/lib/libtk8.5.dylib'
+    else # Tcl/Tk Aqua >= 8.5
+      LIBPATH[:tcl] << '/Library/Frameworks/Tcl.framework/Tcl'
+      LIBPATH[:tk] << '/Library/Frameworks/Tk.framework/Tk'
+    end
+  end
+end
+
+require 'ffi-tk/thread_sender'
+require 'ffi-tk/ffi/tcl'
+require 'ffi-tk/ffi/tk'
+
+module Tk
+  Error = Class.new(RuntimeError)
+
+  OK       = 0
+  ERROR    = 1
+  RETURN   = 2
+  BREAK    = 3
+  CONTINUE = 4
+
+  None = Object.new
+
+  class << None
+    def to_tcl; nil; end
+    def to_tcl_options?; self; end
+    def to_tcl_option?; self; end
+    def inspect; '#<None>'; end
+  end
+
+  autoload :Button,      'ffi-tk/widget/button'
+  autoload :Canvas,      'ffi-tk/widget/canvas'
+  autoload :CheckButton, 'ffi-tk/widget/checkbutton'
+  autoload :Entry,       'ffi-tk/widget/entry'
+  autoload :Frame,       'ffi-tk/widget/frame'
+  autoload :Label,       'ffi-tk/widget/label'
+  autoload :LabelFrame,  'ffi-tk/widget/labelframe'
+  autoload :Listbox,     'ffi-tk/widget/listbox'
+  autoload :Menu,        'ffi-tk/widget/menu'
+  autoload :MenuButton,  'ffi-tk/widget/menubutton'
+  autoload :Message,     'ffi-tk/widget/message'
+  autoload :PanedWindow, 'ffi-tk/widget/panedwindow'
+  autoload :RadioButton, 'ffi-tk/widget/radiobutton'
+  autoload :Root,        'ffi-tk/widget/root'
+  autoload :Scale,       'ffi-tk/widget/scale'
+  autoload :Scrollbar,   'ffi-tk/widget/scrollbar'
+  autoload :Spinbox,     'ffi-tk/widget/spinbox'
+  autoload :Text,        'ffi-tk/widget/text'
+  autoload :Toplevel,    'ffi-tk/widget/toplevel'
+
+  autoload :Tile,         'ffi-tk/widget/tile'
+
+  require 'ffi-tk/core_extensions'
+  require 'ffi-tk/geometry'
+  require 'ffi-tk/event/data'
+  require 'ffi-tk/event/handler'
+  require 'ffi-tk/variable'
+  require 'ffi-tk/command'
+  require 'ffi-tk/widget'
+
+  # require the real thing
+  require 'ffi-tk/tk'
+end

data/lib/ffi-tk/command.rb

@@ -0,0 +1,39 @@
+module Tk
+  require 'ffi-tk/command/choose_color'
+  require 'ffi-tk/command/choose_directory'
+  require 'ffi-tk/command/event'
+  require 'ffi-tk/command/get_open_file'
+  require 'ffi-tk/command/get_save_file'
+  require 'ffi-tk/command/message_box'
+  require 'ffi-tk/command/option_menu'
+  require 'ffi-tk/command/popup'
+  require 'ffi-tk/command/set_palette'
+  require 'ffi-tk/command/vars'
+
+  autoload :After,     'ffi-tk/command/after'
+  autoload :Bell,      'ffi-tk/command/bell'
+  autoload :Bind,      'ffi-tk/command/bind'
+  autoload :BindTag,   'ffi-tk/command/bindtags'
+  autoload :Bindtags,  'ffi-tk/command/bindtags'
+  autoload :Cget,      'ffi-tk/command/cget'
+  autoload :Clipboard, 'ffi-tk/command/clipboard'
+  autoload :Configure, 'ffi-tk/command/configure'
+  autoload :Destroy,   'ffi-tk/command/destroy'
+  autoload :Dialog,    'ffi-tk/command/dialog'
+  autoload :Focus,     'ffi-tk/command/focus'
+  autoload :Font,      'ffi-tk/command/font'
+  autoload :Grab,      'ffi-tk/command/grab'
+  autoload :Grid,      'ffi-tk/command/grid'
+  autoload :Grid,      'ffi-tk/command/grid'
+  autoload :Image,     'ffi-tk/command/image'
+  autoload :Lower,     'ffi-tk/command/lower'
+  autoload :Pack,      'ffi-tk/command/pack'
+  autoload :Place,     'ffi-tk/command/place'
+  autoload :Raise,     'ffi-tk/command/raise'
+  autoload :Selection, 'ffi-tk/command/selection'
+  autoload :TkCmd,     'ffi-tk/command/tk_cmd'
+  autoload :WM,        'ffi-tk/command/wm'
+  autoload :Wait,      'ffi-tk/command/wait'
+  autoload :Winfo,     'ffi-tk/command/winfo'
+  autoload :Scrollable,'ffi-tk/command/scrollable'
+end

data/lib/ffi-tk/command/after.rb

@@ -0,0 +1,36 @@
+module Tk
+  module After
+    module_function
+
+    def ms(ms)
+      if block_given?
+        id = nil
+        block = Proc.new
+
+        wrap = lambda{|*args|
+          block.call
+          Tk.unregister_proc(id)
+          true
+        }
+
+        id, command = Tk.register_proc(wrap, 'after_ms')
+        Tk.execute_only(:after, ms, command)
+      else
+        Tk.execute_only(:after, ms)
+      end
+    end
+
+    def idle(&block)
+      id = nil
+    
+      wrap = lambda{|*args|
+        block.call
+        Tk.unregister_proc(id)
+        true
+      }
+
+      id, command = Tk.register_proc(wrap, 'after_idle')
+      Tk.execute_only(:after, :idle, command)
+    end
+  end
+end

data/lib/ffi-tk/command/bell.rb

@@ -0,0 +1,34 @@
+module Tk
+  module Bell
+    # This command rings the bell on the display for window and returns an empty
+    # string.
+    # If the :displayof option is omitted, the display of the application's main
+    # window is used by default.
+    # The command uses the current bell-related settings for the display, which
+    # may be modified with programs such as xset.
+    #
+    # If :nice is not specified, this command also resets the screen saver for
+    # the screen. Some screen savers will ignore this, but others will reset so
+    # that the screen becomes visible again.
+    #
+    # @example Usage:
+    #   Tk::Bell.bell
+    #   Tk::Bell.bell(displayof: '.')
+    #   Tk::Bell.bell(nice: true)
+    #   Tk::Bell.bell(displayof: '.', nice: true)
+    def self.bell(options = {})
+      displayof = options[:displayof]
+      nice = options[:nice]
+
+      args = []
+      args << '-displayof' << displayof if displayof
+      args << '-nice' if nice
+      Tk.execute_only('bell', *args)
+    end
+
+    def bell(options = {})
+      options[:displayof] ||= tk_pathname
+      Bell.bell(options)
+    end
+  end
+end

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

@@ -0,0 +1,11 @@
+module Tk
+  module Bind
+    def self.bind(pathname, sequence, &block)
+      Event::Handler.register(pathname, sequence, &block)
+    end
+
+    def bind(sequence, &block)
+      Bind.bind(tk_pathname, sequence, &block)
+    end
+  end
+end

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

@@ -0,0 +1,69 @@
+module Tk
+  # Determine which bindings apply to a window, and order of evaluation
+  #
+  # When a binding is created with the [Bind.bind] command, it is associated
+  # either with a particular window such as .a.b.c, a class name such as Button,
+  # the keyword all, or any other string.
+  # All of these forms are called binding tags.
+  # Each window contains a list of binding tags that determine how events are
+  # processed for the window.
+  #
+  # When an event occurs in a window, it is applied to each of the window's tags
+  # in order: for each tag, the most specific binding that matches the given tag
+  # and event is executed.
+  #
+  # See the [Bind.bind] command for more information on the matching process.
+  module Bindtags
+    # By default, each window has four binding tags consisting of the name of
+    # the window, the window's class name, the name of the window's nearest
+    # toplevel ancestor, and all, in that order.
+    # Toplevel windows have only three tags by default, since the toplevel name
+    # is the same as that of the window.
+    # The bindtags command allows the binding tags for a window to be read and
+    # modified.
+    #
+    # If bindtags is invoked with only one argument, then the current set of
+    # binding tags for +window+ is returned as a list.
+    # If the +taglist+ argument is specified to bindtags, then it must be a
+    # proper list; the tags for +window+ are changed to the elements of the
+    # list. The elements of +taglist+ may be arbitrary strings; however, any tag
+    # starting with a dot is treated as the name of a window; if no window by
+    # that name exists at the time an event is processed, then the tag is
+    # ignored for that event.
+    # The order of the elements in +taglist+ determines the order in which
+    # binding scripts are executed in response to events.
+    #
+    # @example reversing order for .b
+    #   tags = Bindtags.bindtags('.b')
+    #   Bindtags.bindtags('.b', *tags.reverse)
+    #
+    # The above example reverses the order in which binding scripts will be
+    # evaluated for a button named `.b` so that all bindings are invoked first,
+    # following by bindings for `.b`'s toplevel (`.`), followed by class
+    # bindings, followed by bindings for `.b`.
+    # If +taglist+ is an empty list then the binding tags for +window+ are
+    # returned to the default state described above.
+    def self.bindtags(window, *taglist)
+      if taglist.empty?
+        Tk.execute(:bindtags, window)
+      else
+        taglist = taglist.flatten
+        Tk.execute(:bindtags, window, taglist)
+      end
+    end
+
+    def bindtags(*taglist)
+      Bindtags.bindtags(self, *taglist)
+    end
+  end
+
+  class BindTag < Struct.new(:name)
+    def bind(sequence, &block)
+      Bind.bind(name, sequence, &block)
+    end
+
+    def to_tcl
+      TclString.new(name)
+    end
+  end
+end