Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30817
Modified Files: Tag: desiredata desire.tk Log Message: fix unknown key ctrl+c/ctrl+v error at the console
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.262 retrieving revision 1.1.2.600.2.263 diff -C2 -d -r1.1.2.600.2.262 -r1.1.2.600.2.263 *** desire.tk 1 Aug 2007 18:50:00 -0000 1.1.2.600.2.262 --- desire.tk 1 Aug 2007 19:56:20 -0000 1.1.2.600.2.263 *************** *** 1152,1159 ****
def Menuable ctrlkey {x y key iso shift} { ! set key [if {$shift} {string toupper $key} {string tolower $key}] ! set key "Ctrl+$key" ! set cmd [$self getkey $key] ! if {[string length $cmd]} {$self eval% "%W $cmd"} else {post "unknown key $key"} }
--- 1152,1166 ----
def Menuable ctrlkey {x y key iso shift} { ! set key [if {$shift} {string toupper $key} {string tolower $key}] ! set key "Ctrl+$key" ! set cmd [$self getkey $key] ! if {![string length $cmd]} { ! switch [$self class]:$key { ! #explicitly listed here to do nothing ! Client:Ctrl+c {} ! Client:Ctrl+v {} ! default {post "unknown key $key"} ! } ! } else {$self eval% "%W $cmd"} }