[PD-dev] hack to get Cmd keys working with Tcl 8.4.4

[Hans-Christoph Steiner]

I found a way to get the Cmd/Apple key working in with Pd running in 
Tcl/Tk 8.4.4.  I don't know if this is a good way to do it, but it 
works.  In pd.tk:

at around line 126, just below:
bind . <Control-Key> {pdtk_pd_ctrlkey %W %K 0}
bind . <Control-Shift-Key> {pdtk_pd_ctrlkey %W %K 1}

add:

if {$pd_nt == 2} {			
	 bind . <Command-Key> {pdtk_pd_ctrlkey %W %K 0}
	 bind . <Command-Shift-Key> {pdtk_pd_ctrlkey %W %K 1}
}

and around 910, just below:

     global pd_nt
     if {$pd_nt == 2} {
         bind $name.c <Button-2> {pdtk_canvas_click %W %x %y %b 8}
         bind $name.c <Control-Button> {pdtk_canvas_click %W %x %y %b 8}

add:

     	 bind $name.c <Command-Key> {pdtk_canvas_ctrlkey %W %K 0}
     	 bind $name.c <Command-Shift-Key> {pdtk_canvas_ctrlkey %W %K 1}

but keep it above:

     } else {
         bind $name.c <Button-3> {pdtk_canvas_click %W %x %y %b 8}
         bind $name.c <Control-Button> {pdtk_canvas_click %W %x %y %b 2}
     }

.hc


                                     http://at.or.at/hans/