summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
Diffstat (limited to 'mac')
-rw-r--r--mac/tclMacNotify.c21
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.
*/