[PD-cvs] pd/src desire.tk,1.1.2.600.2.398,1.1.2.600.2.399

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31199

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix Canvas scale


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.398
retrieving revision 1.1.2.600.2.399
diff -C2 -d -r1.1.2.600.2.398 -r1.1.2.600.2.399
*** desire.tk	18 Aug 2007 21:39:26 -0000	1.1.2.600.2.398
--- desire.tk	19 Aug 2007 01:52:36 -0000	1.1.2.600.2.399
***************
*** 4675,4679 ****
  	set sel [$@objectsel values]
  	if {![llength $sel]} {set sel [$@objects values]}
! 	foreach child $children {
  		mset {x y} [$child xy]
  		set x1 [expr $x*$s]
--- 4675,4679 ----
  	set sel [$@objectsel values]
  	if {![llength $sel]} {set sel [$@objects values]}
! 	foreach child $sel {
  		mset {x y} [$child xy]
  		set x1 [expr $x*$s]
***************
*** 4682,4686 ****
  		netsend [list .$self object_moveto $child $x1 $y1]
  	}
! 	foreach child $children {$child changed_wires}
  }
  
--- 4682,4686 ----
  		netsend [list .$self object_moveto $child $x1 $y1]
  	}
! 	foreach child $sel {$child changed_wires}
  }