In pd_bindings.tcl, I replaced this :
# and the Pd window is in a class to itself
bind all <KeyPress> {::pd_bindings::sendkey %W 1 %K %A 0 %k}
bind all <KeyRelease> {::pd_bindings::sendkey %W 0 %K %A 0 %k}
bind all <Shift-KeyPress> {::pd_bindings::sendkey %W 1 %K %A 1 %k}
bind all <Shift-KeyRelease> {::pd_bindings::sendkey %W 0 %K %A 1 %k}```
with:
Max style bindings
bind all <KeyPress> {
set w [winfo toplevel %W]
if {[winfo class $w] eq "PatchWindow" && $::editmode($w) && !$::editingtext($w)} {
switch -- %K {
"n" {menu_send_float %W obj 0}
"m" {menu_send_float %W msg 0}
"i" {menu_send_float %W floatatom 0}
"l" {menu_send_float %W listbox 0}
"c" {menu_send_float %W text 0}
"b" {menu_send %W bng}
"f" {menu_send %W numbox}
"v" {menu_send %W vslider}
"h" {menu_send %W hslider}
"r" {menu_send %W hradio}
"d" {menu_send %W vradio}
"g" {menu_send %W graph}
"a" {menu_send %W menuarray}
"u" {menu_send %W vumeter}
default {::pd_bindings::sendkey %W 1 %K %A 0 %k}
}
} else {
::pd_bindings::sendkey %W 1 %K %A 0 %k
}
}
bind all <KeyRelease> {::pd_bindings::sendkey %W 0 %K %A 0 %k}
bind all <Shift-KeyPress> {::pd_bindings::sendkey %W 1 %K %A 1 %k}
bind all <Shift-KeyRelease> {::pd_bindings::sendkey %W 0 %K %A 1 %k}```
Are there any implications? Why isn't this (or similar) a default setting?
