diff options
| author | dkf <dkf@noemail.net> | 2011-05-25 13:35:37 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2011-05-25 13:35:37 (GMT) |
| commit | 40d360c5215eb5c467ca781174c0fb6d8f992b2f (patch) | |
| tree | 66985fe8898ea0617e9fdf977923ca63d85c4389 /generic/tclOO.c | |
| parent | 27d699e8685f69a322b3e92e2d70175629d71c47 (diff) | |
| download | tcl-40d360c5215eb5c467ca781174c0fb6d8f992b2f.zip tcl-40d360c5215eb5c467ca781174c0fb6d8f992b2f.tar.gz tcl-40d360c5215eb5c467ca781174c0fb6d8f992b2f.tar.bz2 | |
Implementation of TIP #381: Call Chain Introspection and Control
FossilOrigin-Name: 2778ad161a0a0c67ae685b848e3b97470f163128
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 6ae82d1..9df3f53 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -346,6 +346,8 @@ InitFoundation( Tcl_CreateObjCommand(interp, "::oo::Helpers::next", TclOONextObjCmd, NULL, NULL); + Tcl_CreateObjCommand(interp, "::oo::Helpers::nextto", TclOONextToObjCmd, + NULL, NULL); Tcl_CreateObjCommand(interp, "::oo::Helpers::self", TclOOSelfObjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "::oo::define", TclOODefineObjCmd, NULL, |