[PD] patching pd.tk after upgrading to tcl/tk 8.4
Krzysztof Czaja
czaja at chopin.edu.pl
Thu May 29 14:28:14 CEST 2003
hi all,
just updated tcl/tk to 8.4.something. Getting Pd to use it
requires this:
--- pd.tk~ 2003-05-05 13:40:42.000000000 +0200
+++ pd.tk 2003-05-29 14:21:24.000000000 +0200
@@ -912,8 +912,8 @@
bind $name.c <KeyRelease> {pdtk_canvas_keyup %W %K %A}
bind $name.c <Motion> {pdtk_canvas_motion %W %x %y 0}
bind $name.c <Alt-Motion> {pdtk_canvas_motion %W %x %y 4}
- bind $name.c <Map> {pdtk_canvas_map %W %s}
-# bind $name.c <Unmap> {puts stderr map}
+ bind $name.c <Map> {pdtk_canvas_map %W 1}
+ bind $name.c <Unmap> {pdtk_canvas_map %W 0}
focus $name.c
# puts stderr "all done"
# after 1 [concat raise $name]
@@ -1117,7 +1117,7 @@
# invisible (arg is ""). Invisibility means the Window Manager has minimized
# us. We don't get a final "unmap" event when we destroy the window.
proc pdtk_canvas_map {name arg} {
- if {$arg == "0"} {
+ if {$arg} {
pd [canvastosym $name] map 1 \;
} else {
pd [canvastosym $name] map 0 \;
More information about the Pd-list
mailing list