[PD-cvs] pd/src desire.tk,1.1.2.565,1.1.2.566

Mathieu Bouchard matju at users.sourceforge.net
Sun Nov 19 04:17:34 CET 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
Copy: quote semicolons.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.565
retrieving revision 1.1.2.566
diff -C2 -d -r1.1.2.565 -r1.1.2.566
*** desire.tk	19 Nov 2006 02:49:48 -0000	1.1.2.565
--- desire.tk	19 Nov 2006 03:17:31 -0000	1.1.2.566
***************
*** 1354,1358 ****
  def Canvas editmodeswitch {args} {$self editmode= [expr !$@editmode]}
  def Canvas window {} {
- 	puts "GOP = $@gop"
  	if {$@gop} {return [$@canvas window]}
  	return .$self
--- 1354,1357 ----
***************
*** 1366,1372 ****
  def Canvas redo {} {$@history redo}
  
- #N canvas 0 0 450 300 graph2 0;
- #X restore 123 271 graph;
- 
  def Canvas init {mess} {
      global pd_opendir pd_tearoff OS cmdline history manager window_list
--- 1365,1368 ----
***************
*** 7259,7264 ****
  }
  
! def MessageBox deconstruct {} {concat [list #X msg  $@x1 $@y1] $@text}
! def Comment    deconstruct {} {concat [list #X text $@x1 $@y1] $@text}
  
  def Box deconstruct {} {
--- 7255,7265 ----
  }
  
! proc philtre {atoms} {
! 	regsub -all ";" $atoms "\\;" atoms
! 	return $atoms
! }
! 
! def MessageBox deconstruct {} {philtre [concat [list #X msg  $@x1 $@y1] $@text]}
! def Comment    deconstruct {} {philtre [concat [list #X text $@x1 $@y1] $@text]}
  
  def Box deconstruct {} {
***************
*** 7266,7270 ****
  	puts "        <> [array names fields $@pdclass]"
  	if {[array names fields $@pdclass] == ""} {
! 		return [concat [list #X obj  $@x1 $@y1] $@text]
  	} {
  		set r {}
--- 7267,7271 ----
  	puts "        <> [array names fields $@pdclass]"
  	if {[array names fields $@pdclass] == ""} {
! 		return [philtre [concat [list #X obj  $@x1 $@y1] $@text]]
  	} {
  		set r {}





More information about the Pd-cvs mailing list