[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