* backport changes from 1.9

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

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