Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11713
Modified Files: Tag: devel_0_39 desire.tk Log Message: change getkey to def Menuable
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.416 retrieving revision 1.1.2.417 diff -C2 -d -r1.1.2.416 -r1.1.2.417 *** desire.tk 28 Aug 2006 22:16:19 -0000 1.1.2.416 --- desire.tk 28 Aug 2006 23:44:21 -0000 1.1.2.417 *************** *** 989,992 **** --- 989,1000 ---- }
+ def Menuable getkey {k} { + global accels + if {[dict exists $accels $k]} { + mset {class key} [split [dict get $accels $k] ":"] + if {$class != $@_class} {return ""} else {return $key} + } + } + def* Menuable ctrlkey {key shift} { global accels *************** *** 1145,1156 **** }
- def Thing getkey {k} { - global accels - if {[dict exists $accels $k]} { - mset {class key} [split [dict get $accels $k] ":"] - if {$class != $@_class} {return ""} else {return $key} - } - } - def View init {} { super --- 1153,1156 ----