[PD-cvs] pd/src desire.tk,1.1.2.476,1.1.2.477
chunlee
chunlee at users.sourceforge.net
Fri Sep 22 00:33:31 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23624
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
reverting Canvas reinit
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.476
retrieving revision 1.1.2.477
diff -C2 -d -r1.1.2.476 -r1.1.2.477
*** desire.tk 21 Sep 2006 20:23:30 -0000 1.1.2.476
--- desire.tk 21 Sep 2006 22:33:28 -0000 1.1.2.477
***************
*** 1304,1315 ****
}
2 {
! if {[lindex $args 0] != "graph1"} {
! set @subpatch 1
! set @graph1 0
! } else {
! set @subpatch 1
! set @graph1 1
! }
! # set @subpatch 1
set @name [lindex $args 0]
set @mapped [lindex $args 1]
--- 1304,1308 ----
}
2 {
! set @subpatch 1
set @name [lindex $args 0]
set @mapped [lindex $args 1]
***************
*** 1337,1353 ****
switch [llength $mess] {
8 {set @gop 0; set @goprect 0}
! 9 {
! if {$@graph1} {
! #X coords 0 5 4 0 200 140 1;
! set @xfrom [lindex $mess 2]
! set @yfrom [lindex $mess 3]
! set @xto [lindex $mess 4]
! set @yto [lindex $mess 5]
! set @xs [lindex $mess 6]
! set @ys [lindex $mess 7]
! puts " i got a graph1 for $self"
! }
! set @gop [lindex $mess 8]; set @goprect 0e
! }
11 {
set @gop [lindex $mess 8]
--- 1330,1334 ----
switch [llength $mess] {
8 {set @gop 0; set @goprect 0}
! 9 {set @gop [lindex $mess 8]; set @goprect 0}
11 {
set @gop [lindex $mess 8]
More information about the Pd-cvs
mailing list