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

  New Revision: 17424

  Modified files:
    branches/ruby_1_8/ChangeLog
    branches/ruby_1_8/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/branches/ruby_1_8/ChangeLog?r1=17424&r2=17423&diff_format=u
  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi/branches/ruby_1_8/ext/tk/lib/tkextlib/tile/treeview.rb?r1=17424&r2=17423&diff_format=u

Index: ruby_1_8/ext/tk/lib/tkextlib/tile/treeview.rb
===================================================================
--- ruby_1_8/ext/tk/lib/tkextlib/tile/treeview.rb	(revision 17423)
+++ ruby_1_8/ext/tk/lib/tkextlib/tile/treeview.rb	(revision 17424)
@@ -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
Index: ruby_1_8/ChangeLog
===================================================================
--- ruby_1_8/ChangeLog	(revision 17423)
+++ ruby_1_8/ChangeLog	(revision 17424)
@@ -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.
+
 Wed Jun 18 12:05:30 2008  Nobuyoshi Nakada  <nobu@r...>
 
 	* marshal.c (w_object, marshal_dump, r_object0, marshal_load): search

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