[PD-cvs] pd/src desire.tk,1.1.2.600.2.176,1.1.2.600.2.177

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23722

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
added some debugging stuff


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.176
retrieving revision 1.1.2.600.2.177
diff -C2 -d -r1.1.2.600.2.176 -r1.1.2.600.2.177
*** desire.tk	14 Feb 2007 20:15:08 -0000	1.1.2.600.2.176
--- desire.tk	15 Feb 2007 00:55:22 -0000	1.1.2.600.2.177
***************
*** 2514,2518 ****
  			$o del [$o index $obj]
  		}
- 		
  		$@history add [list $self ins $i [$o deconstruct]]
  	}
--- 2514,2517 ----
***************
*** 2547,2550 ****
--- 2546,2551 ----
  			}
  		}
+ 		#HACK: check for >=0 because object not deleted properly.
+ 		#set i [$self index $obj]; if {$i>=0} {$self del $i}
  		$self del [$self index $obj]
  	}
***************
*** 3075,3079 ****
  def Canvas index {child} {
  	# this could be O(1) if the proper database were maintained.
! 	return [lsearch $@children $child]
  }
  def Canvas runcommand {} {
--- 3076,3082 ----
  def Canvas index {child} {
  	# this could be O(1) if the proper database were maintained.
! 	set n [lsearch $@children $child]
! 	if {$n<0} {puts "Canvas index $child == -1 !!!"}
! 	return $n
  }
  def Canvas runcommand {} {