[OpenVerse] nopush.patch

[Ed Lange <elange@mediasoft.net>]

Dirt simple, could be done better, now that $pushed is passed to MoveTo, or
in a plugin, if I felt inclined.  Seems to work up to 0.7-6

cd /usr/lib
patch < nopush.patch


*** OpenVerse-0.7-2/lib/Globals.tcl	Sun Dec  5 10:47:39 1999
--- OpenVerse/lib/Globals.tcl	Sun Dec 12 20:02:48 1999
***************
*** 58,61 ****
--- 58,63 ----
  set MV(x) 320
  set MV(y) 200
+ set MV(real_x) 320
+ set MV(real_y) 200
  set MV(anim.x_off) 0
  set MV(anim.y_off) 20
*** OpenVerse-0.7-2/lib/InitMain.tcl	Sun Dec  5 10:47:39 1999
--- OpenVerse/lib/InitMain.tcl	Sun Dec 12 20:03:44 1999
***************
*** 80 ****
! bind .top.c <Button-1> {MoveTo %x %y 0}
--- 80 ----
! bind .top.c <Button-1> {RealMoveTo %x %y 0}
*** OpenVerse-0.7-2/lib/Avatars.tcl	Sun Dec  5 10:47:39 1999
--- OpenVerse/lib/Avatars.tcl	Sun Dec 12 20:04:24 1999
***************
*** 249,252 ****
--- 249,260 ----
  }
  
+ proc RealMoveTo {x y pushed} {
+ 	global MV
+ 
+ 	set MV(real_x) $x
+ 	set MV(real_y) $y
+ 	MoveTo $x $y $pushed
+ }
+ 
  proc MoveTo {x y pushed} {
  	global MV
*** OpenVerse-0.7-2/lib/IOFuncs.tcl	Sun Dec  5 10:47:39 1999
--- OpenVerse/lib/IOFuncs.tcl	Sun Dec 12 20:03:29 1999
***************
*** 419,422 ****
--- 419,424 ----
  		"PUSH" {
  			MoveTo [lindex $parms 0] [lindex $parms 1] 1
+ 			after 5
+ 			MoveTo $MV(real_x) $MV(real_y) 1
  		}
  		"PRIVMSG" {

----------------------------------------------------------
To unsubscribe to the OpenVerse mailing list send a message to
openverse-request with the following word in the BODY of the message.
UNSUBSCRIBE
If you need assistance from a human, email cruise@openverse.org
----------------------------------------------------------