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