pd/src desire.tk,1.1.2.370,1.1.2.371 - Pd-cvs

18 Aug 2006


      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