[PD] patching pd.tk after upgrading to tcl/tk 8.4
klaus voltmer
klaus at epy.co.at
Thu May 29 14:57:49 CEST 2003
yup, it works now :)
thnx!
On Thu, 29 May 2003, Krzysztof Czaja wrote:
> 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 \;
>
>
> _______________________________________________
> PD-list mailing list
> PD-list at iem.kug.ac.at
> http://iem.kug.ac.at/cgi-bin/mailman/listinfo/pd-list
>
More information about the Pd-list
mailing list