diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-17 10:42:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-17 10:42:29 (GMT) |
| commit | 9598926f42bd5ffbd6c7e9b7022f39382e8d29b8 (patch) | |
| tree | 135a349c7149231cac59d6f74253bed7f75e7361 /generic/tclInterp.c | |
| parent | 3cb9dde39efd7d4045d85e21a69a57aa146c4ab5 (diff) | |
| download | tcl-9598926f42bd5ffbd6c7e9b7022f39382e8d29b8.zip tcl-9598926f42bd5ffbd6c7e9b7022f39382e8d29b8.tar.gz tcl-9598926f42bd5ffbd6c7e9b7022f39382e8d29b8.tar.bz2 | |
New TIP #581 implementation
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index ac66324..6e99913 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -611,7 +611,7 @@ NRInterpCmd( int index; static const char *const options[] = { "alias", "aliases", "bgerror", "cancel", - "create", "debug", "delete", + "children", "create", "debug", "delete", "eval", "exists", "expose", "hide", "hidden", "issafe", "invokehidden", "limit", "marktrusted", "recursionlimit", @@ -620,7 +620,7 @@ NRInterpCmd( }; enum option { OPT_ALIAS, OPT_ALIASES, OPT_BGERROR, OPT_CANCEL, - OPT_CREATE, OPT_DEBUG, OPT_DELETE, + OPT_CHILDREN, OPT_CREATE, OPT_DEBUG, OPT_DELETE, OPT_EVAL, OPT_EXISTS, OPT_EXPOSE, OPT_HIDE, OPT_HIDDEN, OPT_ISSAFE, OPT_INVOKEHID, OPT_LIMIT, OPT_MARKTRUSTED,OPT_RECLIMIT, @@ -1008,6 +1008,7 @@ NRInterpCmd( return TCL_ERROR; } return SlaveRecursionLimit(interp, slaveInterp, objc - 3, objv + 3); + case OPT_CHILDREN: case OPT_SLAVES: { InterpInfo *iiPtr; Tcl_Obj *resultPtr; |