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

Modified Files: Tag: devel_0_39 desire.tk Log Message: Canvas deconstruct

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.551 retrieving revision 1.1.2.552 diff -C2 -d -r1.1.2.551 -r1.1.2.552 *** desire.tk 16 Nov 2006 23:30:24 -0000 1.1.2.551 --- desire.tk 17 Nov 2006 02:08:55 -0000 1.1.2.552 *************** *** 7367,7373 ****

def Canvas deconstruct {} { ! error "Canvas deconstruct: that's a feature request" ! #return [concat [list #X obj $@x1 $@y1] $@text] ! }

--- 7367,7379 ----

def Canvas deconstruct {} { ! return [concat [list #X obj $@x1 $@y1] $@text] ! } ! def Canvas deconstruct_to {stream args} { ! $stream << [list #N canvas $@canvasx1 $@canvasy1 $@canvasxs $@canvasys] ! $stream << [if {$@subpatch} {list $@name $@mapped} else {list $@fontsize}] ! foreach child $@children {eval [concat [list $child deconstruct_to $stream]]} ! foreach wire $@wires {eval [concat [list $wire deconstruct_to $stream]]} ! $stream << [eval [concat [list $self deconstruct] $args]] ! $stream << ";\n" }