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