pd/src desire.tk,1.1.2.552,1.1.2.553 - Pd-cvs

17 Nov 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]]}