diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2014-01-09 21:20:23 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2014-01-09 21:20:23 (GMT) |
| commit | 4aa0402e774719d5bde6de666876df9607d61f62 (patch) | |
| tree | fe3896fd636563de7504eb24bce205cf9f547457 /generic/tclOO.c | |
| parent | 8bf48ad5587163c9d5efb09245c0ff6d24db142a (diff) | |
| parent | 1dd57e7f83b454f114c495ecec9d81fcfa8c13f6 (diff) | |
| download | tcl-4aa0402e774719d5bde6de666876df9607d61f62.zip tcl-4aa0402e774719d5bde6de666876df9607d61f62.tar.gz tcl-4aa0402e774719d5bde6de666876df9607d61f62.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index cb22de6..9a0682d 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -271,7 +271,7 @@ TclOOInit( return TCL_ERROR; } - return Tcl_PkgProvideEx(interp, "TclOO", TCLOO_VERSION, + return Tcl_PkgProvideEx(interp, "TclOO", TCLOO_PATCHLEVEL, (ClientData) &tclOOStubs); } @@ -437,10 +437,11 @@ InitFoundation( * ensemble. */ - Tcl_CreateObjCommand(interp, "::oo::Helpers::next", TclOONextObjCmd, NULL, - NULL); - Tcl_CreateObjCommand(interp, "::oo::Helpers::nextto", TclOONextToObjCmd, - NULL, NULL); + cmdPtr = (Command *) Tcl_NRCreateCommand(interp, "::oo::Helpers::next", + NULL, TclOONextObjCmd, NULL, NULL); + cmdPtr->compileProc = TclCompileObjectNextCmd; + Tcl_NRCreateCommand(interp, "::oo::Helpers::nextto", + NULL, TclOONextToObjCmd, NULL, NULL); cmdPtr = (Command *) Tcl_CreateObjCommand(interp, "::oo::Helpers::self", TclOOSelfObjCmd, NULL, NULL); cmdPtr->compileProc = TclCompileObjectSelfCmd; |