* ext/tk/lib/multi-tk.rb: freeze callback-entry objects

* ext/tk/lib/tkextlib/tile.rb: support tile-0.6


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8075 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 215 insertions, 0 deletions

diff --git a/ext/tk/lib/tkextlib/tile/treeview.rb b/ext/tk/lib/tkextlib/tile/treeview.rb
new file mode 100644
index 0000000000..1a5fa97e24
--- /dev/null
+++ b/ext/tk/lib/tkextlib/tile/treeview.rb
@@ -0,0 +1,215 @@
+#
+#  treeview widget
+#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
+#
+require 'tk'
+require 'tkextlib/tile.rb'
+
+module Tk
+  module Tile
+    class Treeview < TkWindow
+    end
+
+    module TreeviewItemConfig
+      include TkItemConfigMethod
+
+      def __item_cget_cmd(id)
+        [self.path, 'item', id]
+      end
+      private :__item_cget_cmd
+
+      def __item_config_cmd(id)
+        [self.path, 'item', id]
+      end
+      private :__item_config_cmd
+
+      def __item_numstrval_optkeys(id)
+        ['width']
+      end
+      private :__item_numstrval_optkeys
+
+      def __item_strval_optkeys(id)
+        # maybe need to override
+        super(id) + ['id']
+      end
+      private :__item_strval_optkeys
+
+      def __item_boolval_optkeys(id)
+        ['open']
+      end
+      private :__item_boolval_optkeys
+
+      def __item_listval_optkeys(id)
+        ['values']
+      end
+      private :__item_listval_optkeys
+    end
+
+    module TreeviewColumnConfig
+      include TkItemConfigMethod
+
+      def __item_cget_cmd(id)
+        [self.path, 'column', id]
+      end
+      private :__item_cget_cmd
+
+      def __item_config_cmd(id)
+        [self.path, 'column', id]
+      end
+      private :__item_config_cmd
+
+      def __item_listval_optkeys(id)
+        []
+      end
+      private :__item_listval_optkeys
+
+      alias columncget itemcget
+      alias columnconfigure itemconfigure
+      alias columnconfiginfo itemconfiginfo
+      alias current_columnconfiginfo current_itemconfiginfo
+
+      private :itemcget, :itemconfigure
+      private :itemconfiginfo, :current_itemconfiginfo
+    end
+
+    module TreeviewHeadingConfig
+      include TkItemConfigMethod
+
+      def __item_cget_cmd(id)
+        [self.path, 'heading', id]
+      end
+      private :__item_cget_cmd
+
+      def __item_config_cmd(id)
+        [self.path, 'heading', id]
+      end
+      private :__item_config_cmd
+
+      def __item_listval_optkeys(id)
+        []
+      end
+      private :__item_listval_optkeys
+
+      alias headingcget itemcget
+      alias headingconfigure itemconfigure
+      alias headingconfiginfo itemconfiginfo
+      alias current_headingconfiginfo current_itemconfiginfo
+
+      private :itemcget, :itemconfigure
+      private :itemconfiginfo, :current_itemconfiginfo
+    end
+  end
+end
+
+class Tk::Tile::Treeview < TkWindow
+  include Tk::Tile::TileWidget
+  include Scrollable
+
+  include Tk::Tile::TreeviewColumnConfig
+  include Tk::Tile::TreeviewHeadingConfig
+  include Tk::Tile::TreeviewItemConfig
+
+  if Tk::Tile::USE_TTK_NAMESPACE
+    TkCommandNames = ['::ttk::treeview'.freeze].freeze
+  else
+    TkCommandNames = ['::treeview'.freeze].freeze
+  end
+  WidgetClassName = 'Treeview'.freeze
+  WidgetClassNames[WidgetClassName] = self
+
+  def tagid(id)
+    _get_eval_string(id)
+  end
+
+  def children(item)
+    list(tk_send_without_enc('children', item))
+  end
+  def children=(item, *items)
+    tk_send_without_enc('children', item, ary2tk_list(items))
+    items
+  end
+
+  def delete(*items)
+    tk_send_without_enc('delete', ary2tk_list(items))
+    self
+  end
+
+  def detach(*items)
+    tk_send_without_enc('detach', ary2tk_list(items))
+    self
+  end
+
+  def exist?(item)
+    bool(tk_send_without_enc('exists', item))
+  end
+
+  def focus_item(item = None)
+    tk_send_without_enc('focus', item)
+  end
+
+  def identify(x, y)
+    tk_send_without_enc('identify', x, y)
+  end
+
+  def index(item)
+    number(tk_send_without_enc('index', item))
+  end
+
+  def insert(parent, idx, keys={})
+    keys = _symbolkey2str(keys)
+    id = keys.delete('id')
+    if id
+      tk_send_without_enc('insert', parent, idx, '-id', id, *hash_kv(keys))
+    else
+      tk_send_without_enc('insert', parent, idx, *hash_kv(keys))
+    end
+    self
+  end
+
+  def move(item, parent, idx)
+    tk_send_without_enc('move', item, parent, idx)
+    self
+  end
+
+  def next(item)
+    tk_send_without_enc('next', item)
+  end
+
+  def parent(item)
+    tk_send_without_enc('parent', item)
+  end
+
+  def prev(item)
+    tk_send_without_enc('prev', item)
+  end
+
+  def see(item)
+    tk_send_without_enc('see', item)
+    self
+  end
+
+  def selection_add(*items)
+    tk_send_without_enc('selection', 'add', ary2tk_list(items))
+    self
+  end
+  def selection_remove(*items)
+    tk_send_without_enc('selection', 'remove', ary2tk_list(items))
+    self
+  end
+  def selection_set(*items)
+    tk_send_without_enc('selection', 'set', ary2tk_list(items))
+    self
+  end
+  def selection_toggle(*items)
+    tk_send_without_enc('selection', 'toggle', ary2tk_list(items))
+    self
+  end
+
+  def get(item, col)
+    tk_send_without_enc('set', item, col)
+  end
+  def set(item, col, value)
+    tk_send_without_enc('set', item, col, value)
+    self
+  end
+end