[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