diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-06-19 07:08:56 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-06-19 07:08:56 +0000 |
| commit | fe08d41da8de48122335dfb8ae38941d2c418f17 (patch) | |
| tree | 4d26ddce60ce3bb2e33b08d9617497b8a9682583 | |
| parent | a1bfe57fc97167cb91352e74ce91bc6f57c5612a (diff) | |
* ext/tk/lib/tkextlib/tile/treeview.rb: cannot configure tags.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@17424 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | ext/tk/lib/tkextlib/tile/treeview.rb | 19 |
2 files changed, 14 insertions, 9 deletions
@@ -1,3 +1,7 @@ +Thu Jun 19 16:06:01 2008 Hidetoshi NAGAI <[email protected]> + + * ext/tk/lib/tkextlib/tile/treeview.rb: cannot configure tags. + Wed Jun 18 12:05:30 2008 Nobuyoshi Nakada <[email protected]> * marshal.c (w_object, marshal_dump, r_object0, marshal_load): search diff --git a/ext/tk/lib/tkextlib/tile/treeview.rb b/ext/tk/lib/tkextlib/tile/treeview.rb index c978a1a07b..566e48def3 100644 --- a/ext/tk/lib/tkextlib/tile/treeview.rb +++ b/ext/tk/lib/tkextlib/tile/treeview.rb @@ -379,12 +379,12 @@ module Tk::Tile::TreeviewConfig ################### 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 @@ module Tk::Tile::TreeviewConfig # 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 @@ class Tk::Tile::Treeview::Tag < TkObject 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 @@ class Tk::Tile::Treeview < TkWindow 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 |