[PD-cvs] pd/src desire.tk,1.1.2.600.2.401,1.1.2.600.2.402

[Mathieu Bouchard]

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 ----