diff options
| author | welch <welch@noemail.net> | 1999-07-02 06:04:55 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 1999-07-02 06:04:55 (GMT) |
| commit | 09985da6f86556ad36074afe3eea947ab3b24945 (patch) | |
| tree | 19c14436c3977facaf0f83dfa577ba28a2838895 /mac | |
| parent | ed6576220f9993ad609d50cbdf0b0bde24fe1284 (diff) | |
| download | tcl-09985da6f86556ad36074afe3eea947ab3b24945.zip tcl-09985da6f86556ad36074afe3eea947ab3b24945.tar.gz tcl-09985da6f86556ad36074afe3eea947ab3b24945.tar.bz2 | |
Added hook points to the notifier
FossilOrigin-Name: 8a7bc87ac3a30de42f13810ee78cc6ca2f51c29f
Diffstat (limited to 'mac')
| -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. */ |