diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-07-18 17:23:56 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-07-18 17:23:56 (GMT) |
| commit | 7c31170f9b9f73628665a5656daddd8002c771f7 (patch) | |
| tree | 51d468120cb21c5f86ab5cacff83f3fe4c6ee77a /generic/tclOOInt.h | |
| parent | a0226c67f814c3d4a641687615bf4171ea749088 (diff) | |
| download | tcl-7c31170f9b9f73628665a5656daddd8002c771f7.zip tcl-7c31170f9b9f73628665a5656daddd8002c771f7.tar.gz tcl-7c31170f9b9f73628665a5656daddd8002c771f7.tar.bz2 | |
NRE-enable the TclOO constructor system.
Diffstat (limited to 'generic/tclOOInt.h')
| -rw-r--r-- | generic/tclOOInt.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 569ac2f..66dfca5 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOInt.h,v 1.3 2008/07/16 22:09:02 dkf Exp $ + * RCS: @(#) $Id: tclOOInt.h,v 1.4 2008/07/18 17:23:57 dkf Exp $ */ #include <tclInt.h> @@ -478,6 +478,11 @@ MODULE_SCOPE int TclOO_Object_VarName(ClientData clientData, MODULE_SCOPE void TclOOAddToInstances(Object *oPtr, Class *clsPtr); MODULE_SCOPE void TclOOAddToMixinSubs(Class *subPtr, Class *mixinPtr); MODULE_SCOPE void TclOOAddToSubclasses(Class *subPtr, Class *superPtr); +MODULE_SCOPE int TclNRNewObjectInstance(Tcl_Interp *interp, + Tcl_Class cls, const char *nameStr, + const char *nsNameStr, int objc, + Tcl_Obj *const *objv, int skip, + Tcl_Object *objectPtr); MODULE_SCOPE void TclOODeleteChain(CallChain *callPtr); MODULE_SCOPE void TclOODeleteChainCache(Tcl_HashTable *tablePtr); MODULE_SCOPE void TclOODeleteContext(CallContext *contextPtr); |