[PD-cvs] pd/src desire.tk,1.1.2.600.2.30,1.1.2.600.2.31

Mathieu Bouchard matju at users.sourceforge.net
Thu Dec 7 02:12:29 CET 2006


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix previous commit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.30
retrieving revision 1.1.2.600.2.31
diff -C2 -d -r1.1.2.600.2.30 -r1.1.2.600.2.31
*** desire.tk	7 Dec 2006 01:03:43 -0000	1.1.2.600.2.30
--- desire.tk	7 Dec 2006 01:12:25 -0000	1.1.2.600.2.31
***************
*** 1158,1164 ****
  
  def View item_delete {{suffix all}} {
! 	if {[winfo exists $c]} {
! 		set c [$@canvas widget]
! 	} else {
  		set canvas [$@canvas get_canvas]
  		if {$canvas == ""} {return}
--- 1158,1163 ----
  
  def View item_delete {{suffix all}} {
! 	set c [$@canvas widget]
! 	if {![winfo exists $c]} {
  		set canvas [$@canvas get_canvas]
  		if {$canvas == ""} {return}
***************
*** 3409,3416 ****
  }
  
! def Canvas notice {origin args} {
!     eval [concat [list $self child_changed $origin] $args]
  }
! 
  def Canvas tab_jump {} {
  	if {![llength $@children]} {return}
--- 3408,3417 ----
  }
  
! if {$tcl_version>=8.5} {
! 	def Canvas notice {origin args} {$self child_changed $origin {expand}$args}
! } else {
! 	def Canvas notice {origin args} {eval [concat [list $self child_changed $origin] $args]}
  }
! 	
  def Canvas tab_jump {} {
  	if {![llength $@children]} {return}





More information about the Pd-cvs mailing list