[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