Diff of /tcl/pdtk_canvas.tcl [f5cd40] .. [14cc59]  Maximize  Restore

Switch to side-by-side view

--- a/tcl/pdtk_canvas.tcl
+++ b/tcl/pdtk_canvas.tcl
@@ -199,7 +199,7 @@
         for {set i 0} {$i < [string length $pdtk_pastebuffer]} {incr i 1} {
             set cha [string index $pdtk_pastebuffer $i]
             scan $cha %c keynum
-            pdsend "$tkcanvas key 1 $keynum 0"
+            pdsend "[winfo toplevel $tkcanvas] key 1 $keynum 0"
         }
     }
 }

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks