diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-05-25 13:35:37 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-05-25 13:35:37 (GMT) |
| commit | 1d49ca67e112ecdac5812541cf20613f4147a0e9 (patch) | |
| tree | 66985fe8898ea0617e9fdf977923ca63d85c4389 /generic/tclOO.c | |
| parent | baa07264d9df82bf8e15be928bf6e988276cdd2b (diff) | |
| download | tcl-1d49ca67e112ecdac5812541cf20613f4147a0e9.zip tcl-1d49ca67e112ecdac5812541cf20613f4147a0e9.tar.gz tcl-1d49ca67e112ecdac5812541cf20613f4147a0e9.tar.bz2 | |
Implementation of TIP #381: Call Chain Introspection and Control
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, |