[PD-cvs] pd/src desire.tk,1.1.2.600.2.231,1.1.2.600.2.232
Mathieu Bouchard
matju at users.sourceforge.net
Sat Jul 14 03:10:15 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29653
Modified Files:
Tag: desiredata
desire.tk
Log Message:
fixed deconstructors for FloatBox and SymbolBox
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.231
retrieving revision 1.1.2.600.2.232
diff -C2 -d -r1.1.2.600.2.231 -r1.1.2.600.2.232
*** desire.tk 14 Jul 2007 01:00:50 -0000 1.1.2.600.2.231
--- desire.tk 14 Jul 2007 01:10:11 -0000 1.1.2.600.2.232
***************
*** 8054,8061 ****
def MessageBox deconstruct {} {concat [list #X msg $@x1 $@y1] $@text}
! def FloatBox deconstruct {} {concat [list #X floatatom $@x1 $@y1] $@text}
! def SymbolBox deconstruct {} {concat [list #X symbolatom $@x1 $@y1] $@text}
def Comment deconstruct {} {concat [list #X text $@x1 $@y1] $@text}
def Box deconstruct {} {
global fields
--- 8054,8062 ----
def MessageBox deconstruct {} {concat [list #X msg $@x1 $@y1] $@text}
! def FloatBox deconstruct {} {concat [list #X floatatom $@x1 $@y1] $@w $@min $@max $@pos $@lab $@snd $@rcv}
! def SymbolBox deconstruct {} {concat [list #X symbolatom $@x1 $@y1] $@w $@min $@max $@pos $@lab $@snd $@rcv}
def Comment deconstruct {} {concat [list #X text $@x1 $@y1] $@text}
+
def Box deconstruct {} {
global fields
More information about the Pd-cvs
mailing list