diff options
| -rw-r--r-- | generic/tclNotify.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclNotify.c b/generic/tclNotify.c index d312e6c..3cdb88f 100644 --- a/generic/tclNotify.c +++ b/generic/tclNotify.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: tclNotify.c,v 1.11 2003/02/15 20:24:10 kennykb Exp $ + * RCS: @(#) $Id: tclNotify.c,v 1.12 2004/03/08 01:51:44 davygrvy Exp $ */ #include "tclInt.h" @@ -818,7 +818,7 @@ Tcl_DoOneEvent(flags) * The first thing we do is to service any asynchronous event * handlers. */ - + if (Tcl_AsyncReady()) { (void) Tcl_AsyncInvoke((Tcl_Interp *) NULL, 0); return 1; @@ -827,7 +827,7 @@ Tcl_DoOneEvent(flags) /* * No event flags is equivalent to TCL_ALL_EVENTS. */ - + if ((flags & TCL_ALL_EVENTS) == 0) { flags |= TCL_ALL_EVENTS; } @@ -864,7 +864,7 @@ Tcl_DoOneEvent(flags) */ if (Tcl_ServiceEvent(flags)) { - result = 1; + result = 1; break; } |