[PD-cvs] pd/src desire.tk,1.1.2.447,1.1.2.448
Mathieu Bouchard
matju at users.sourceforge.net
Fri Sep 1 21:41:33 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9544
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
fixed SelRect and other subpatch-related problems
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.447
retrieving revision 1.1.2.448
diff -C2 -d -r1.1.2.447 -r1.1.2.448
*** desire.tk 1 Sep 2006 19:32:32 -0000 1.1.2.447
--- desire.tk 1 Sep 2006 19:41:30 -0000 1.1.2.448
***************
*** 1880,1884 ****
set born [lwithout $wires $@wires]
set born_num [expr [llength $born] - 1]
- puts "borns = $born"
foreach x $born {
$x subscribe $self
--- 1880,1883 ----
***************
*** 1887,1891 ****
}
set dead [lwithout $@wires $wires];
- puts "dead = $dead"
foreach x $dead {
$x delete
--- 1886,1889 ----
***************
*** 2499,2503 ****
default {$@action unclick $x $y $f $target}
}
! set @action [SelRect new $@canvas $x $y $f $target]
return
}
--- 2497,2501 ----
default {$@action unclick $x $y $f $target}
}
! set @action [SelRect new $self $x $y $f $target]
return
}
***************
*** 4531,4537 ****
super
set @canvas $canvas
! set @x 0
! set @y 0
! set @target {none}
}
--- 4529,4533 ----
super
set @canvas $canvas
! $self data= 0 0 {none}
}
More information about the Pd-cvs
mailing list