diff options
| author | das <das@noemail.net> | 2006-08-21 01:09:31 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2006-08-21 01:09:31 (GMT) |
| commit | b93de846287f3fd1cab0f524a37fce9701baebd6 (patch) | |
| tree | 4f0e3c32595604e065d4aed8477c24fabfcacf83 /macosx | |
| parent | 88bc682f774634c94fd57fa315315b2b126dcd40 (diff) | |
| download | tk-b93de846287f3fd1cab0f524a37fce9701baebd6.zip tk-b93de846287f3fd1cab0f524a37fce9701baebd6.tar.gz tk-b93de846287f3fd1cab0f524a37fce9701baebd6.tar.bz2 | |
* macosx/tkMacOSXCarbonEvents.c (CarbonTimerProc): avoid starving main
event loop: limit the number of tcl events processed per invocation.
Fixes bug reported on tcl-mac by Kevan Hashemi.
FossilOrigin-Name: e6351e6a0eaf5c7af24d046ffc83621451d4c5c8
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tkMacOSXCarbonEvents.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/macosx/tkMacOSXCarbonEvents.c b/macosx/tkMacOSXCarbonEvents.c index d155725..76bfa8d 100644 --- a/macosx/tkMacOSXCarbonEvents.c +++ b/macosx/tkMacOSXCarbonEvents.c @@ -60,7 +60,7 @@ * software in accordance with the terms specified in this * license. * - * RCS: @(#) $Id: tkMacOSXCarbonEvents.c,v 1.3.2.13 2006/04/28 06:02:58 das Exp $ + * RCS: @(#) $Id: tkMacOSXCarbonEvents.c,v 1.3.2.14 2006/08/21 01:09:32 das Exp $ */ #include "tkMacOSXInt.h" @@ -379,11 +379,15 @@ CarbonTimerProc ( EventLoopTimerRef timer, void *userData) { - while(carbonTimerEnabled && Tcl_DoOneEvent( - TCL_FILE_EVENTS|TCL_TIMER_EVENTS|TCL_DONT_WAIT)) { + if(carbonTimerEnabled) { + /* Avoid starving main event loop: process at most 4 events. */ + int i = 4; + while(--i && Tcl_DoOneEvent( + TCL_FILE_EVENTS|TCL_TIMER_EVENTS|TCL_DONT_WAIT)) { #if defined(TK_MAC_DEBUG) && defined(TK_MAC_DEBUG_CARBON_EVENTS) - fprintf(stderr, "Processed tcl event from carbon timer\n"); + fprintf(stderr, "Processed tcl event from carbon timer\n"); #endif /* TK_MAC_DEBUG_CARBON_EVENTS */ + } } } |