diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-04-15 10:29:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-04-15 10:29:48 (GMT) |
| commit | 637c7dbc7ef7c87a8528e00c422624be5b102bed (patch) | |
| tree | 8ae91263801852810d89e0aeadd3f8e80981a95d /generic/tclOOInfo.c | |
| parent | 49879791f48b7a18d94b3f8ea1281e9eed7b0e37 (diff) | |
| download | tcl-637c7dbc7ef7c87a8528e00c422624be5b102bed.zip tcl-637c7dbc7ef7c87a8528e00c422624be5b102bed.tar.gz tcl-637c7dbc7ef7c87a8528e00c422624be5b102bed.tar.bz2 | |
Added tests for [info object creationid]
Diffstat (limited to 'generic/tclOOInfo.c')
| -rw-r--r-- | generic/tclOOInfo.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c index 05e600f..bdb67ae 100644 --- a/generic/tclOOInfo.c +++ b/generic/tclOOInfo.c @@ -51,7 +51,7 @@ static Tcl_ObjCmdProc InfoClassVariablesCmd; static const EnsembleImplMap infoObjectCmds[] = { {"call", InfoObjectCallCmd, TclCompileBasic2ArgCmd, NULL, NULL, 0}, {"class", InfoObjectClassCmd, TclCompileInfoObjectClassCmd, NULL, NULL, 0}, - {"creationid", InfoObjectIdCmd, TclCompileBasic0ArgCmd, NULL, NULL, 0}, + {"creationid", InfoObjectIdCmd, TclCompileBasic1ArgCmd, NULL, NULL, 0}, {"definition", InfoObjectDefnCmd, TclCompileBasic2ArgCmd, NULL, NULL, 0}, {"filters", InfoObjectFiltersCmd, TclCompileBasic1ArgCmd, NULL, NULL, 0}, {"forward", InfoObjectForwardCmd, TclCompileBasic2ArgCmd, NULL, NULL, 0}, |