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

Modified Files: Tag: devel_0_39 desire.tk Log Message:

Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.107 retrieving revision 1.1.2.108 diff -C2 -d -r1.1.2.107 -r1.1.2.108 *** desire.tk 6 Nov 2005 00:16:14 -0000 1.1.2.107 --- desire.tk 6 Nov 2005 14:09:28 -0000 1.1.2.108 *************** *** 1598,1602 **** if {abs($y2-3-$y)<=3 && $outs} { set out [expr int(($x-$x1)*$outs/($x2-$x1))] ! $c create line $x $y $x $y -dash {4 4 4 4} -tags lnew set @click_on [list $self $out] set @action wire --- 1598,1603 ---- if {abs($y2-3-$y)<=3 && $outs} { set out [expr int(($x-$x1)*$outs/($x2-$x1))] ! mset {x1 y1 x2 y2} [$c bbox ${id}o${out}] ! $c create line [expr ($x1+$x2)/2] [expr ($y1+$y2)/2] $x $y -dash {4 4 4 4} -tags lnew set @click_on [list $self $out] set @action wire