diff options
author | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:24:53 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-07-03 13:24:53 (GMT) |
commit | d2d76748809298daff2f10a63b2999d559d129dd (patch) | |
tree | bd910745ad1a3953ca52f6367923bfd879d7abea /generic/tclTimer.c | |
parent | 0e11ffaa99da39ffd0a3eac314a1f9f848641b83 (diff) | |
download | tcl-d2d76748809298daff2f10a63b2999d559d129dd.zip tcl-d2d76748809298daff2f10a63b2999d559d129dd.tar.gz tcl-d2d76748809298daff2f10a63b2999d559d129dd.tar.bz2 |
[enhancement] extend "vwait" with same options as "update", new syntax "vwait ?options? ?timeout? varname".
some small improvements and fixing:
- Tcl_DoOneEvent can wait for block time that was set with Tcl_SetMaxBlockTime outside an event source traversal,
and stop waiting if Tcl_SetMaxBlockTime was called outside an event source (another event occurs and interrupt waiting loop), etc;
- safer more precise pre-lookup by options (use TclObjIsIndexOfTable instead of simply comparison of type with tclIndexType);
test cases extended to cover conditional "vwait" usage;
Diffstat (limited to 'generic/tclTimer.c')
-rw-r--r-- | generic/tclTimer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index 52a3073..63346a1 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -1139,7 +1139,7 @@ Tcl_AfterObjCmd( */ index = -1; - if ( ( objv[1]->typePtr == &tclIndexType + if ( ( TclObjIsIndexOfTable(objv[1], afterSubCmds) || Tcl_GetWideIntFromObj(NULL, objv[1], &ms) != TCL_OK ) && Tcl_GetIndexFromObj(NULL, objv[1], afterSubCmds, "", 0, |