[PD-cvs] pd/src desire.tk,1.1.2.183,1.1.2.184

[Mathieu Bouchard]

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
  }