From 47b66c06b0a6022535d316029aa94439fb72b26a Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 18 Feb 2004 02:22:11 +0000
Subject: 	* generic/tkBind.c (HandleEventGenerate): only modify root[xy]
 	with [xy] when they haven't been otherwise set.

---
 ChangeLog        |  3 +++
 generic/tkBind.c | 35 ++++++++++++++++++++++++-----------
 2 files changed, 27 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7694b3f..bb0095a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-02-17  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* generic/tkBind.c (HandleEventGenerate): only modify root[xy]
+	with [xy] when they haven't been otherwise set.
+
 	* doc/checkbutton.n: TIP#110 implementation
 	* doc/radiobutton.n: Tristate Checkbutton and Radiobuttons
 	* generic/tkButton.c:
diff --git a/generic/tkBind.c b/generic/tkBind.c
index 5fef710..ee434af 100644
--- a/generic/tkBind.c
+++ b/generic/tkBind.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- *  RCS: @(#) $Id: tkBind.c,v 1.30 2004/01/13 02:06:00 davygrvy Exp $
+ *  RCS: @(#) $Id: tkBind.c,v 1.31 2004/02/18 02:22:11 hobbs Exp $
  */
 
 #include "tkPort.h"
@@ -3406,6 +3406,11 @@ HandleEventGenerate(interp, mainWin, objc, objv)
 	event.xcreatewindow.window = event.xany.window;
     }
 
+    if (flags & (KEY_BUTTON_MOTION_VIRTUAL|CROSSING)) {
+	event.xkey.x_root = -1;
+	event.xkey.y_root = -1;
+    }
+
     /*
      * Process the remaining arguments to fill in additional fields
      * of the event.
@@ -3771,17 +3776,21 @@ HandleEventGenerate(interp, mainWin, objc, objv)
 		break;
 	    }
 	    case EVENT_X: {
-		int rootX, rootY;
-
 		if (Tk_GetPixelsFromObj(interp, tkwin, valuePtr, &number)
 			!= TCL_OK) {
 		    return TCL_ERROR;
 		}
-		Tk_GetRootCoords(tkwin, &rootX, &rootY);
-		rootX += number;
 		if (flags & (KEY_BUTTON_MOTION_VIRTUAL|CROSSING)) {	
 		    event.xkey.x = number;
-		    event.xkey.x_root = rootX;
+		    /*
+		     * Only modify rootx as well if it hasn't been changed.
+		     */
+		    if (event.xkey.x_root == -1) {
+			int rootX, rootY;
+
+			Tk_GetRootCoords(tkwin, &rootX, &rootY);
+			event.xkey.x_root = rootX + number;
+		    }
 		} else if (flags & EXPOSE) {
 		    event.xexpose.x = number;
 		} else if (flags & (CREATE|CONFIG|GRAVITY)) { 
@@ -3794,17 +3803,21 @@ HandleEventGenerate(interp, mainWin, objc, objv)
 		break;
 	    }
 	    case EVENT_Y: {
-		int rootX, rootY;
-
 		if (Tk_GetPixelsFromObj(interp, tkwin, valuePtr, &number)
 			!= TCL_OK) {
 		    return TCL_ERROR;
 		}
-		Tk_GetRootCoords(tkwin, &rootX, &rootY);
-		rootY += number;
 		if (flags & (KEY_BUTTON_MOTION_VIRTUAL|CROSSING)) {
 		    event.xkey.y = number;
-		    event.xkey.y_root = rootY;
+		    /*
+		     * Only modify rooty as well if it hasn't been changed.
+		     */
+		    if (event.xkey.y_root == -1) {
+			int rootX, rootY;
+
+			Tk_GetRootCoords(tkwin, &rootX, &rootY);
+			event.xkey.y_root = rootY + number;
+		    }
 		} else if (flags & EXPOSE) {
 		    event.xexpose.y = number;
 		} else if (flags & (CREATE|CONFIG|GRAVITY)) {
-- 
cgit v0.12