pd/src desire.tk,1.1.2.600.2.27,1.1.2.600.2.28 - Pd-cvs

6 Dec 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