diff options
author | fvogel <fvogelnew1@free.fr> | 2021-11-17 22:02:42 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2021-11-17 22:02:42 (GMT) |
commit | 2bc5c02d2922df21fe6043b1045fee2a93243962 (patch) | |
tree | 74571c4da6f8862e65884d60a72a645a12935b79 | |
parent | de16a9859be52af94ab76dab65b1508d9a113073 (diff) | |
download | tk-2bc5c02d2922df21fe6043b1045fee2a93243962.zip tk-2bc5c02d2922df21fe6043b1045fee2a93243962.tar.gz tk-2bc5c02d2922df21fe6043b1045fee2a93243962.tar.bz2 |
Fix [b1d115fa60]: No delivery of <Enter> event upon destruction of toplevel. Fix proposed by Erik Leunissen. Test event-9.1 now passes.
-rw-r--r-- | generic/tkPointer.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tkPointer.c b/generic/tkPointer.c index 7753c36..da22501 100644 --- a/generic/tkPointer.c +++ b/generic/tkPointer.c @@ -495,7 +495,11 @@ TkPointerDeadWindow( Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); if (winPtr == tsdPtr->lastWinPtr) { - tsdPtr->lastWinPtr = TkGetContainer(winPtr); + if (Tk_IsTopLevel(winPtr)) { + tsdPtr->lastWinPtr = NULL; + } else { + tsdPtr->lastWinPtr = TkGetContainer(winPtr); + } } if (winPtr == tsdPtr->grabWinPtr) { tsdPtr->grabWinPtr = NULL; |