* ext/tk/lib/tk.rb: Tk.destroy uses TkWindow#epath

* ext/tk/lib/tk/image.rb: bug fix
* ext/tk/lib/tk/wm.rb: add 'iconphoto' method(Windows only)
* ext/tk/lib/tkextlib/*: some methods uses TkWindow#epath


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

1 files changed, 7 insertions, 5 deletions

diff --git a/ext/tk/lib/tkextlib/tcllib/cursor.rb b/ext/tk/lib/tkextlib/tcllib/cursor.rb
index 92fd7a62b5..86a68497b4 100644
--- a/ext/tk/lib/tkextlib/tcllib/cursor.rb
+++ b/ext/tk/lib/tkextlib/tcllib/cursor.rb
@@ -51,7 +51,7 @@ class TkWindow
   def cursor_propagate(cursor)
     # Sets the cursor for self and all its descendants to cursor. 
     #tk_call_without_enc('::cursor::propagate', @path, cursor)
-    Tk::Tcllib::Cursor.cursor_propagate(cursor)
+    Tk::Tcllib::Cursor.cursor_propagate(self, cursor)
   end
   def cursor_restore(cursor = None)
     # Restore the original or previously set cursor for self and all its 
@@ -59,7 +59,7 @@ class TkWindow
     # widget that did not have a preset cursor (set by a previous call 
     # to TkWindow#cursor_propagate). 
     #tk_call_without_enc('::cursor::restore', @path, cursor)
-    Tk::Tcllib::Cursor.cursor_restore(cursor)
+    Tk::Tcllib::Cursor.cursor_restore(self, cursor)
   end
 end
 
@@ -75,15 +75,17 @@ module Tk
     module Cursor
       extend TkCore
       def self.cursor_display(win=None)
-        tk_call_without_enc('::cursor::display', win)
+        tk_call_without_enc('::cursor::display', _epath(win))
       end
 
       def self.cursor_propagate(win, cursor)
-        tk_call_without_enc('::cursor::propagate', win.path, cursor)
+        #tk_call_without_enc('::cursor::propagate', win.path, cursor)
+        tk_call_without_enc('::cursor::propagate', _epath(win), cursor)
       end
 
       def self.cursor_restore(win, cursor = None)
-        tk_call_without_enc('::cursor::restore', win.path, cursor)
+        #tk_call_without_enc('::cursor::restore', win.path, cursor)
+        tk_call_without_enc('::cursor::restore', _epath(win), cursor)
       end
     end
   end