Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21559

Modified Files: Tag: desiredata desire.tk Log Message: fix client-to-server spaces in symbols

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.401 retrieving revision 1.1.2.600.2.402 diff -C2 -d -r1.1.2.600.2.401 -r1.1.2.600.2.402 *** desire.tk 20 Aug 2007 03:15:52 -0000 1.1.2.600.2.401 --- desire.tk 20 Aug 2007 04:40:56 -0000 1.1.2.600.2.402 *************** *** 260,263 **** --- 260,269 ---- }

+ proc philtre {atoms} { + set r {} + foreach atom $atoms {lappend r [regsub -all {([;,\ ])} $atom {\\1}]} + return [join $r] + } + # you pass the 2nd argument if and only if the message creates an object (or pretends to). # this happens with #N canvas, and those methods of #X: *************** *** 2825,2829 **** default {set goto [list $@canvas new_object_callback]} } ! netsend [list .$@canvas text_setto $self $l] $goto }

--- 2831,2835 ---- default {set goto [list $@canvas new_object_callback]} } ! netsend [concat [list .$@canvas text_setto $self] $l] $goto }

*************** *** 8701,8709 **** }

- proc philtre {atoms} { - regsub -all {([;,\])} [join $atoms " "] {\\1} atoms - return $atoms - } - 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} --- 8707,8710 ----