diff options
| -rw-r--r-- | mac/tclMacNotify.c | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/mac/tclMacNotify.c b/mac/tclMacNotify.c index 773490f..89a4491 100644 --- a/mac/tclMacNotify.c +++ b/mac/tclMacNotify.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacNotify.c,v 1.3 1999/04/16 00:47:20 stanton Exp $ + * RCS: @(#) $Id: tclMacNotify.c,v 1.4 1999/07/02 06:04:55 welch Exp $ */ #include "tclInt.h" @@ -327,6 +327,16 @@ void Tcl_SetTimer( Tcl_Time *timePtr) /* New value for interval timer. */ { + /* + * Allow the notifier to be hooked. This may not make sense + * on Windows, but mirrors the UNIX hook. + */ + + if (tclStubs.tcl_SetTimer != Tcl_SetTimer) { + tclStubs.tcl_SetTimer(timePtr); + return; + } + if (!timePtr) { notifier.timerActive = 0; } else { @@ -399,6 +409,15 @@ Tcl_WaitForEvent( Rect mouseRect; /* + * Allow the notifier to be hooked. This may not make + * sense on windows, but mirrors the UNIX hook. + */ + + if (tclStubs.tcl_WaitForEvent != Tcl_WaitForEvent) { + return tclStubs.tcl_WaitForEvent(timePtr); + } + + /* * Compute the next timeout value. */ |