Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27238
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed backspace/delete stuff
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.257 retrieving revision 1.1.2.258 diff -C2 -d -r1.1.2.257 -r1.1.2.258 *** desire.tk 21 Jun 2006 06:14:10 -0000 1.1.2.257 --- desire.tk 21 Jun 2006 06:41:22 -0000 1.1.2.258 *************** *** 2374,2390 **** [$self focus] key $key $shift } ! switch $OS { ! osx { ! switch -- $key { ! BackSpace {set key 8; set keynum 8} ! Delete {set key 8; set keynum 8} ! } ! } ! } ! if {$key == "KP_Delete"} {set key 127; set keynum 127} ! if {$iso != ""} {scan $iso %c key} #puts "focus = $@focus" ! ! if {$key == 8} { if {[llength $@selection] > 0} { puts "delete objects!!!" --- 2374,2380 ---- [$self focus] key $key $shift } ! #if {$iso != ""} {scan $iso %c key} #puts "focus = $@focus" ! if {$key == "BackSpace" || $key == "Delete" || $key == "KP_Delete"} { if {[llength $@selection] > 0} { puts "delete objects!!!" *************** *** 2395,2399 **** #puts "wires: $@wires_pair" ! foreach x $@selection_wire { set find [lsearch $@wires_pair $x] if { $find != -1} { --- 2385,2389 ---- #puts "wires: $@wires_pair" ! foreach x $@selection_wire { set find [lsearch $@wires_pair $x] if { $find != -1} {