nagai	2008-06-19 16:08:06 +0900 (Thu, 19 Jun 2008)

  New Revision: 17423

  Modified files:
    trunk/ChangeLog
    trunk/ext/tk/lib/tkextlib/tile/treeview.rb

  Log:
    * ext/tk/lib/tkextlib/tile/treeview.rb: cannot configure tags.


  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ChangeLog?r1=17423&r2=17422&diff_format=u
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/trunk/ext/tk/lib/tkextlib/tile/treeview.rb?r1=17423&r2=17422&diff_format=u

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 17422)
+++ ChangeLog	(revision 17423)
@@ -1,3 +1,7 @@
+Thu Jun 19 16:06:01 2008  Hidetoshi NAGAI  <nagai@a...>
+
+	* ext/tk/lib/tkextlib/tile/treeview.rb: cannot configure tags.
+
 Thu Jun 19 11:48:33 2008  Koichi Sasada  <ko1@a...>
 
 	* test/ruby/test_enumerator.rb: fix to skip "with_memo" test.
Index: ext/tk/lib/tkextlib/tile/treeview.rb
===================================================================
--- ext/tk/lib/tkextlib/tile/treeview.rb	(revision 17422)
+++ ext/tk/lib/tkextlib/tile/treeview.rb	(revision 17423)
@@ -379,12 +379,12 @@
   ###################
 
   def __item_cget_cmd(id)
-    [self.path, id[0], id[1]]
+    [self.path, *id]
   end
   private :__item_cget_cmd
 
   def __item_config_cmd(id)
-    [self.path, id[0], id[1]]
+    [self.path, *id]
   end
   private :__item_config_cmd
 
@@ -638,19 +638,19 @@
 
   # Treeview Tag
   def tagcget(tagOrId, option)
-    __itemcget([:tag, tagOrId], option)
+    __itemcget([:tag, :configure, tagOrId], option)
   end
   def tagcget_strict(tagOrId, option)
-    __itemcget_strict([:tag, tagOrId], option)
+    __itemcget_strict([:tag, :configure, tagOrId], option)
   end
   def tagconfigure(tagOrId, slot, value=None)
-    __itemconfigure([:tag, tagOrId], slot, value)
+    __itemconfigure([:tag, :configure, tagOrId], slot, value)
   end
   def tagconfiginfo(tagOrId, slot=nil)
-    __itemconfiginfo([:tag, tagOrId], slot)
+    __itemconfiginfo([:tag, :configure, tagOrId], slot)
   end
   def current_tagconfiginfo(tagOrId, slot=nil)
-    __current_itemconfiginfo([:tag, tagOrId], slot)
+    __current_itemconfiginfo([:tag, :configure, tagOrId], slot)
   end
   alias tag_cget tagcget
   alias tag_cget_strict tagcget_strict
@@ -943,7 +943,7 @@
       TagID_TBL[@tpath][@id] = self
     }
     if keys && keys != None
-      tk_call_without_enc(@tpath, 'tag', 'configure', *hash_kv(keys, true))
+      tk_call_without_enc(@tpath, 'tag', 'configure', @id, *hash_kv(keys,true))
     end
   end
   def id
@@ -1034,7 +1034,8 @@
         id.kind_of?(Tk::Tile::Treeview::Tag)
       id.id
     elsif id.kind_of?(Array)
-      [id[0], _get_eval_string(id[1])]
+      # size is 2 or 3
+      id[0..-2] << _get_eval_string(id[-1])
     else
       _get_eval_string(id)
     end

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/