diff options
| author | welch <welch> | 1999-07-02 06:04:55 (GMT) |
|---|---|---|
| committer | welch <welch> | 1999-07-02 06:04:55 (GMT) |
| commit | 87cdcc34eafd1baade26efa5c7b48e5189a3562b (patch) | |
| tree | 19c14436c3977facaf0f83dfa577ba28a2838895 | |
| parent | 7a43ce50025a2bc85e4ff7342ef981a5ad47a898 (diff) | |
| download | tcl-87cdcc34eafd1baade26efa5c7b48e5189a3562b.zip tcl-87cdcc34eafd1baade26efa5c7b48e5189a3562b.tar.gz tcl-87cdcc34eafd1baade26efa5c7b48e5189a3562b.tar.bz2 | |
Added hook points to the notifier
| -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. */ |