diff options
author | dkf <dkf@noemail.net> | 2008-07-18 17:23:55 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2008-07-18 17:23:55 (GMT) |
commit | a00b39c1dfccfa943a6c0fc2350ddd1d447fdba8 (patch) | |
tree | 51d468120cb21c5f86ab5cacff83f3fe4c6ee77a /generic/tclOOInt.h | |
parent | 1292d13a11251d389489f734c2d42e1b8f6c7018 (diff) | |
download | tcl-a00b39c1dfccfa943a6c0fc2350ddd1d447fdba8.zip tcl-a00b39c1dfccfa943a6c0fc2350ddd1d447fdba8.tar.gz tcl-a00b39c1dfccfa943a6c0fc2350ddd1d447fdba8.tar.bz2 |
NRE-enable the TclOO constructor system.
FossilOrigin-Name: e092b4ac90c73e8a045f8774b1e5bfe59008eada
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); |