Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25388
Modified Files: Tag: desiredata desire.tk Log Message: foreach children -> foreach child
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.84 retrieving revision 1.1.2.600.2.85 diff -C2 -d -r1.1.2.600.2.84 -r1.1.2.600.2.85 *** desire.tk 14 Dec 2006 18:15:49 -0000 1.1.2.600.2.84 --- desire.tk 14 Dec 2006 18:59:02 -0000 1.1.2.600.2.85 *************** *** 45,49 **** if {$tk} {package require bgerror} catch {package require Tclx} ! #if {[catch {source profile_dd.tcl}]} {error_dump}
if {[file exists debug.tcl]} { --- 45,49 ---- if {$tk} {package require bgerror} catch {package require Tclx} ! if {[catch {source profile_dd.tcl}]} {error_dump}
if {[file exists debug.tcl]} { *************** *** 2033,2038 **** set stack {} #[$c widget] lower $self [lindex [$self visible_children] 0] ! foreach children [$self visible_children] { ! foreach i [[$c widget] find withtag $children] { if {$i != ""} {lappend stack $i} } --- 2033,2038 ---- set stack {} #[$c widget] lower $self [lindex [$self visible_children] 0] ! foreach child [$self visible_children] { ! foreach i [[$c widget] find withtag $child] { if {$i != ""} {lappend stack $i} } *************** *** 3741,3747 **** $self propagate_zoom $@zoom $self redraw ! foreach children $@children { ! if {[$children class] == "Canvas"} { ! if {[$children gop]} {$children all_changed} } } --- 3741,3747 ---- $self propagate_zoom $@zoom $self redraw ! foreach child $@children { ! if {[$child class] == "Canvas"} { ! if {[$child gop]} {$child all_changed} } } *************** *** 3749,3756 ****
def Canvas propagate_zoom {zoom} { ! foreach children $@children { ! if {[$children class] == "Canvas"} { set @zoom $zoom ! $children propagate_zoom $zoom } } --- 3749,3756 ----
def Canvas propagate_zoom {zoom} { ! foreach child $@children { ! if {[$child class] == "Canvas"} { set @zoom $zoom ! $child propagate_zoom $zoom } }