diff options
| author | welch <welch@noemail.net> | 1999-07-02 06:05:39 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 1999-07-02 06:05:39 (GMT) |
| commit | ae90ec1a5aef84b310adf9014d9817ad50328b4f (patch) | |
| tree | 61a977a67e46eafb4a968dd6c38842871dd31422 | |
| parent | 6bc59a191b1c2f2cdc48a44b9a21c55947c4ced2 (diff) | |
| download | tcl-ae90ec1a5aef84b310adf9014d9817ad50328b4f.zip tcl-ae90ec1a5aef84b310adf9014d9817ad50328b4f.tar.gz tcl-ae90ec1a5aef84b310adf9014d9817ad50328b4f.tar.bz2 | |
Added hook points to the notifier
FossilOrigin-Name: 2575337b015c4341d8e414047607f750777bb1f3
| -rw-r--r-- | win/tclWinNotify.c | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/win/tclWinNotify.c b/win/tclWinNotify.c index 896d92c..a3d06f4 100644 --- a/win/tclWinNotify.c +++ b/win/tclWinNotify.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinNotify.c,v 1.3 1999/04/16 00:48:09 stanton Exp $ + * RCS: @(#) $Id: tclWinNotify.c,v 1.4 1999/07/02 06:05:39 welch Exp $ */ #include "tclWinInt.h" @@ -251,6 +251,16 @@ Tcl_SetTimer( UINT timeout; /* + * 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; + } + + /* * We only need to set up an interval timer if we're being called * from an external event loop. If we don't have a window handle * then we just return immediately and let Tcl_WaitForEvent handle @@ -407,6 +417,15 @@ Tcl_WaitForEvent( int status; /* + * 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 timeout in milliseconds. */ |