Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11411
Modified Files: Tag: devel_0_39 desire.tk Log Message: just fixed a problem with current_x -> @curpos
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.183 retrieving revision 1.1.2.184 diff -C2 -d -r1.1.2.183 -r1.1.2.184 *** desire.tk 22 Apr 2006 17:08:42 -0000 1.1.2.183 --- desire.tk 22 Apr 2006 17:25:30 -0000 1.1.2.184 *************** *** 845,850 **** # butt {mset {@x1 @y1} {40 40}} # ctrl { ! # set @x1 $_($canvas:current_x) ! # set @y1 $_($canvas:current_y) # set focus(oldpos) [list $@x1 $@y1]}}} # todo: should compute GOP stuff here --- 845,849 ---- # butt {mset {@x1 @y1} {40 40}} # ctrl { ! # mset {@x1 @y1} $_($canvas:curpos) # set focus(oldpos) [list $@x1 $@y1]}}} # todo: should compute GOP stuff here *************** *** 884,889 ****
def* Canvas eval% {code} { ! regsub -all %X $code $@current_x code ! regsub -all %Y $code $@current_y code super $code } --- 883,889 ----
def* Canvas eval% {code} { ! mset x y $@curpos ! regsub -all %X $code $x code ! regsub -all %Y $code $y code super $code }