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

Mathieu Bouchard matju at users.sourceforge.net
Fri Nov 17 03:13:32 CET 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
oops.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.552
retrieving revision 1.1.2.553
diff -C2 -d -r1.1.2.552 -r1.1.2.553
*** desire.tk	17 Nov 2006 02:08:55 -0000	1.1.2.552
--- desire.tk	17 Nov 2006 02:13:29 -0000	1.1.2.553
***************
*** 28,32 ****
  #
  #-----------------------------------------------------------------------------------#
!    
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
  
--- 28,32 ----
  #
  #-----------------------------------------------------------------------------------#
! 
  # this command rebuilds the package index: echo pkg_mkIndex . | tclsh
  
***************
*** 7370,7375 ****
  }
  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]]}
--- 7370,7378 ----
  }
  def Canvas deconstruct_to {stream args} {
! 	set r {}
! 	lappend r #N canvas $@canvasx1 $@canvasy1 $@canvasxs $@canvasys
! 	if {$@subpatch} {lappend r $@name $@mapped} else {lappend r $@fontsize}
! 	$stream << $r
! 	$stream << ";\n"
  	foreach child $@children {eval [concat [list $child deconstruct_to $stream]]}
  	foreach wire  $@wires    {eval [concat [list $wire  deconstruct_to $stream]]}





More information about the Pd-cvs mailing list