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/