[PD-cvs] pd/src desire.tk,1.1.2.551,1.1.2.552
Mathieu Bouchard
matju at users.sourceforge.net
Fri Nov 17 03:08:58 CET 2006
- Previous message: [PD-cvs] pd/src poe.tcl, NONE, 1.1.2.1 desire.tk, 1.1.2.550, 1.1.2.551 pkgIndex.tcl, 1.1.2.2, 1.1.2.3 objective.tcl, 1.1.2.24, NONE
- Next message: [PD-cvs] pd/src desire.tk,1.1.2.552,1.1.2.553
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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"
}
- Previous message: [PD-cvs] pd/src poe.tcl, NONE, 1.1.2.1 desire.tk, 1.1.2.550, 1.1.2.551 pkgIndex.tcl, 1.1.2.2, 1.1.2.3 objective.tcl, 1.1.2.24, NONE
- Next message: [PD-cvs] pd/src desire.tk,1.1.2.552,1.1.2.553
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list