[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