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