diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-04 15:57:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-04 15:57:51 (GMT) |
commit | c5b5c4f8a4f82b2735dba33c5cb3d36482e994bb (patch) | |
tree | 74dd0fc44ea0300ea887609004866b8face681b7 /generic/tclEvent.c | |
parent | 55cc9137ebf9ef74783958ef450155827c83fbfa (diff) | |
parent | 3f371a5084c05daba396645abd9a25deb3d023d1 (diff) | |
download | tcl-c5b5c4f8a4f82b2735dba33c5cb3d36482e994bb.zip tcl-c5b5c4f8a4f82b2735dba33c5cb3d36482e994bb.tar.gz tcl-c5b5c4f8a4f82b2735dba33c5cb3d36482e994bb.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 6d7d968..4a61d60 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1501,12 +1501,12 @@ Tcl_VwaitObjCmd( Tcl_Channel chan; Tcl_WideInt diff = -1; VwaitItem localItems[32], *vwaitItems = localItems; - static const char *const options[] = { + static const char *const vWaitOptionStrings[] = { "-all", "-extended", "-nofileevents", "-noidleevents", "-notimerevents", "-nowindowevents", "-readable", "-timeout", "-variable", "-writable", "--", NULL }; - enum options { + enum vWaitOptions { OPT_ALL, OPT_EXTD, OPT_NO_FEVTS, OPT_NO_IEVTS, OPT_NO_TEVTS, OPT_NO_WEVTS, OPT_READABLE, OPT_TIMEOUT, OPT_VARIABLE, OPT_WRITABLE, OPT_LAST @@ -1531,7 +1531,7 @@ Tcl_VwaitObjCmd( if (name[0] != '-') { break; } - if (Tcl_GetIndexFromObj(interp, objv[i], options, "option", 0, + if (Tcl_GetIndexFromObj(interp, objv[i], vWaitOptionStrings, "option", 0, &index) != TCL_OK) { result = TCL_ERROR; goto done; @@ -1560,7 +1560,7 @@ Tcl_VwaitObjCmd( needArg: Tcl_ResetResult(interp); Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "argument required for \"%s\"", options[index])); + "argument required for \"%s\"", vWaitOptionStrings[index])); Tcl_SetErrorCode(interp, "TCL", "EVENT", "ARGUMENT", NULL); result = TCL_ERROR; goto done; |