Apparently the code to forestall Tk eating events was too aggressive (Tk user input stopped working). Fixed (I hope:-).

This commit is contained in:
Jack Jansen 2001-04-26 13:22:33 +00:00
parent 53b809d673
commit 69f086cbb6

View file

@ -94,9 +94,11 @@ TkIsTheBoss(void)
WindowRef windowRef; WindowRef windowRef;
windowRef = FrontWindow(); windowRef = FrontWindow();
if ( windowRef && !TkMacGetXWindow(windowRef) ) { if ( !windowRef )
return 0; return 0;
} if ( TkMacGetXWindow(windowRef) )
return 1;
return 0;
} }
/* /*
*---------------------------------------------------------------------- *----------------------------------------------------------------------
@ -209,7 +211,7 @@ HandleMacEvents(void)
*/ */
while (needsUpdate || (GetEvQHdr()->qHead != NULL)) { while (needsUpdate || (GetEvQHdr()->qHead != NULL)) {
/* Give Python command-. handling a chance */ /* Give Python command-. handling a chance */
PyMac_DoYield(0, 0); PyMac_DoYield(0, 0);
GetGlobalMouse(&currentMouse); GetGlobalMouse(&currentMouse);
@ -347,8 +349,6 @@ Tcl_WaitForEvent(
found = 1; found = 1;
} }
if ( !TkIsTheBoss() )
found = 1;
/* /*
* Check for window events. We may receive a NULL event for * Check for window events. We may receive a NULL event for
* various reasons. 1) the timer has expired, 2) a mouse moved * various reasons. 1) the timer has expired, 2) a mouse moved