pd/src desire.tk,1.1.2.600.2.30,1.1.2.600.2.31 - Pd-cvs

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