[PD-cvs] pd/src desire.tk,1.1.2.600.2.262,1.1.2.600.2.263
chunlee
chunlee at users.sourceforge.net
Wed Aug 1 21:56:24 CEST 2007
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"}
}
More information about the Pd-cvs
mailing list