[PD-cvs] pd/src desire.tk,1.1.2.370,1.1.2.371

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
<blush> fixed previous commit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.370
retrieving revision 1.1.2.371
diff -C2 -d -r1.1.2.370 -r1.1.2.371
*** desire.tk	18 Aug 2006 05:43:10 -0000	1.1.2.370
--- desire.tk	18 Aug 2006 07:51:49 -0000	1.1.2.371
***************
*** 4319,4326 ****
  def Canvas show_crosshair {x y target} {
  	global crosshair
! 	set region [.x823d250.c cget -scrollregion]
  	# the following line is not right.
! 	mset {vx1 vx2} [.x823d250.c xview]
! 	mset {vy1 vy2} [.x823d250.c yview]
  	mset {vx1 vy1 vx2 vy2} [lzip * [list $vx1 $vy1 $vx2 $vx2] $region]
  	mset {type id detail} $target
--- 4319,4327 ----
  def Canvas show_crosshair {x y target} {
  	global crosshair
! 	set c .$self.c
! 	set region [$c cget -scrollregion]
  	# the following line is not right.
! 	mset {vx1 vx2} [$c xview]
! 	mset {vy1 vy2} [$c yview]
  	mset {vx1 vy1 vx2 vy2} [lzip * [list $vx1 $vy1 $vx2 $vx2] $region]
  	mset {type id detail} $target