Tcl Source Code

Artifact [7440aa5606]
Login

Artifact 7440aa5606f24ef0a6cf6ce50d2d044b644d37bb:

Attachment "1991932.diff" to ticket [1991932fff] added by nobody 2008-06-13 00:10:22.
Index: generic/tkPointer.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkPointer.c,v
retrieving revision 1.10
diff -u -p -r1.10 tkPointer.c
--- generic/tkPointer.c	15 Nov 2005 15:18:22 -0000	1.10
+++ generic/tkPointer.c	12 Jun 2008 16:55:08 -0000
@@ -309,14 +309,12 @@ Tk_UpdatePointer(
 
 		/*
 		 * ButtonRelease - Release the mouse capture and clear the
-		 * restrict window when the last button is released and we
-		 * aren't in a global grab.
+		 * restrict window when the last button is released. If we
+		 * are in a global grab, restore the grab window capture.
 		 */
 
 		if ((tsdPtr->lastState & ALL_BUTTONS) == mask) {
-		    if (!tsdPtr->grabWinPtr) {
-			TkpSetCapture(NULL);
-		    }
+		    TkpSetCapture(tsdPtr->grabWinPtr);
 		}
 
 		/*