diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-01-07 05:28:53 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-01-07 05:28:53 +0000 |
commit | c24349e32d6cd74e4df9103364af62a59095ef6c (patch) | |
tree | 6d388a246fc28bbdd4cb1692515b2cd7df4d4f98 /ext/tk/lib/tkcanvas.rb | |
parent | cd97e6e333ee327fbe1aa5ead4ba7776aff818b8 (diff) | |
download | ruby-c24349e32d6cd74e4df9103364af62a59095ef6c.tar.gz |
* ext/tk/lib/tk.rb: use epath for embedded windows of TkPanedWindow.
* ext/tk/lib/tktext.rb: use epath for embedded windows.
* ext/tk/lib/tkcanvas.rb: use epath for window items.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5398 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tkcanvas.rb')
-rw-r--r-- | ext/tk/lib/tkcanvas.rb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/tk/lib/tkcanvas.rb b/ext/tk/lib/tkcanvas.rb index 32b5ac7af8..ccb02c0564 100644 --- a/ext/tk/lib/tkcanvas.rb +++ b/ext/tk/lib/tkcanvas.rb @@ -862,6 +862,13 @@ end class TkcWindow<TkcItem CItemTypeToClass['window'] = self def create_self(*args) + keys = args.pop + if keys && keys.kind_of?(Hash) + keys = _symbolkey2str(keys) + win = keys['window'] + keys['window'] = win.epath if win.kind_of?(TkWindow) + end + args.push(keys) if keys tk_call(@path, 'create', 'window', *args) end private :create_self |