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} }