pd/src desire.tk,1.1.2.600.2.176,1.1.2.600.2.177 - Pd-cvs

15 Feb 2007


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