diff options
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 97170a9..cedfb6b 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.88 2006/10/20 14:04:00 dkf Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.89 2006/10/20 15:16:47 dkf Exp $ */ #include "tclInt.h" @@ -357,17 +357,17 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) Tcl_Obj *CONST objv[]; /* Argument objects. */ { static CONST char *subCmds[] = { - "args", "body", "class", "cmdcount", "commands", + "args", "body", "cmdcount", "commands", "complete", "default", "exists", "functions", "globals", - "hostname", "level", "library", "loaded", "locals", - "nameofexecutable", "object", "patchlevel", "procs", + "hostname", "level", "library", "loaded", + "locals", "nameofexecutable", "patchlevel", "procs", "script", "sharedlibextension", "tclversion", "vars", (char *) NULL}; enum ISubCmdIdx { - IArgsIdx, IBodyIdx, IClassIdx, ICmdCountIdx, ICommandsIdx, + IArgsIdx, IBodyIdx, ICmdCountIdx, ICommandsIdx, ICompleteIdx, IDefaultIdx, IExistsIdx, IFunctionsIdx, IGlobalsIdx, - IHostnameIdx, ILevelIdx, ILibraryIdx, ILoadedIdx, ILocalsIdx, - INameOfExecutableIdx, IObjectIdx, IPatchLevelIdx, IProcsIdx, + IHostnameIdx, ILevelIdx, ILibraryIdx, ILoadedIdx, + ILocalsIdx, INameOfExecutableIdx, IPatchLevelIdx, IProcsIdx, IScriptIdx, ISharedLibExtensionIdx, ITclVersionIdx, IVarsIdx }; int index, result; @@ -390,9 +390,6 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) case IBodyIdx: result = InfoBodyCmd(clientData, interp, objc, objv); break; - case IClassIdx: - result = TclInfoClassCmd(clientData, interp, objc, objv); - break; case ICmdCountIdx: result = InfoCmdCountCmd(clientData, interp, objc, objv); break; @@ -432,9 +429,6 @@ Tcl_InfoObjCmd(clientData, interp, objc, objv) case INameOfExecutableIdx: result = InfoNameOfExecutableCmd(clientData, interp, objc, objv); break; - case IObjectIdx: - result = TclInfoObjectCmd(clientData, interp, objc, objv); - break; case IPatchLevelIdx: result = InfoPatchLevelCmd(clientData, interp, objc, objv); break; |