[PD-cvs] pd/src desire.tk,1.1.2.551,1.1.2.552

[Mathieu Bouchard]

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