Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25366
Modified Files: Tag: devel_0_39 desire.tk Log Message: in many calls, $canvas arg is removed in favour of $@canvas attribute of $self
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.99 retrieving revision 1.1.2.100 diff -C2 -d -r1.1.2.99 -r1.1.2.100 *** desire.tk 2 Nov 2005 14:48:36 -0000 1.1.2.99 --- desire.tk 2 Nov 2005 15:18:06 -0000 1.1.2.100 *************** *** 84,88 **** post %s "$o: $poolset($o)" unset poolset($o) ! $o draw [$o canvas] } set @q [list] --- 84,88 ---- post %s "$o: $poolset($o)" unset poolset($o) ! $o draw } [...1215 lines suppressed...] $self item BASE rectangle $x1 $y1 [expr $x1+$xs] [expr $y1+$ys] \ -fill [parse_color $@bcol] ! super }
*************** *** 3098,3099 **** --- 3073,3084 ----
set manager [manager_new] + + proc post_hierarchy {self {i 0}} { + global _ + post %*s%s [expr $i*2] "" $self + set s $_($self:_super) + set s1 [lindex $s [llength $s]] + } + + post_hierarchy thing +