[PD-cvs] pd/src desire.tk,1.1.2.600.2.27,1.1.2.600.2.28
Mathieu Bouchard
matju at users.sourceforge.net
Wed Dec 6 21:07:36 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12392
Modified Files:
Tag: desiredata
desire.tk
Log Message:
def View draw_wires is now more reasonable
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.27
retrieving revision 1.1.2.600.2.28
diff -C2 -d -r1.1.2.600.2.27 -r1.1.2.600.2.28
*** desire.tk 6 Dec 2006 19:42:17 -0000 1.1.2.600.2.27
--- desire.tk 6 Dec 2006 20:07:32 -0000 1.1.2.600.2.28
***************
*** 173,176 ****
--- 173,180 ----
if {$tcl_version>=8.5} {
+ #def Observable changed {args} {
+ # puts "Observable changed $self called from [info level [expr [info level]-2]]"
+ # foreach x $@subscribers {$x notice $self {expand}$args]}
+ #}
def Observable changed {args} {foreach x $@subscribers {$x notice $self {expand}$args]}}
def Observable child_changed {origin args} {foreach x $@subscribers {$x notice $origin {expand}$args]}}
***************
*** 4142,4148 ****
def Wire to {} {return $@obj2}
def Wire inlet {} {return $@port2}
- def View draw_wires {} {foreach wire $_($@canvas:wires) {$wire changed}}
def Wire move {dx dy} {$self changed}
def Wire bbox {} {
set obj1 $@obj1
--- 4146,4155 ----
def Wire to {} {return $@obj2}
def Wire inlet {} {return $@port2}
def Wire move {dx dy} {$self changed}
+ # DON'T do the former, it's so horribly slow
+ #def View draw_wires {} {foreach wire $_($@canvas:wires) {$wire changed}}
+ def View draw_wires {} {foreach wire $@wires2 {$wire changed}}
+
def Wire bbox {} {
set obj1 $@obj1
More information about the Pd-cvs
mailing list