[PD-cvs] pd/src desire.tk,1.1.2.257,1.1.2.258

[Mathieu Bouchard]

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} {