diff options
author | nijtmans <nijtmans> | 2010-09-15 07:33:54 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2010-09-15 07:33:54 (GMT) |
commit | 40bb3c1c5474de09c765ddb9a90c5126d08e38f5 (patch) | |
tree | 6b80a82463c8641f8327c736faff1acc75f9889b /generic/tclOO.decls | |
parent | 63c9caabab37581d13e0ccacca5e07416efbdf6a (diff) | |
download | tcl-40bb3c1c5474de09c765ddb9a90c5126d08e38f5.zip tcl-40bb3c1c5474de09c765ddb9a90c5126d08e38f5.tar.gz tcl-40bb3c1c5474de09c765ddb9a90c5126d08e38f5.tar.bz2 |
[Patch 3034251] backport ttkGenStubs.tcl
features to genStubs.tcl. Make the "generic"
argument in the *.decls files optional
(no change to any tcl*Decls.h files)
This allows genStubs.tcl to generate the ttk stub files as well,
while keeping full compatibility with existing *.decls files.
Diffstat (limited to 'generic/tclOO.decls')
-rw-r--r-- | generic/tclOO.decls | 93 |
1 files changed, 47 insertions, 46 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index f334103..80b4eff 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -1,4 +1,4 @@ -# $Id: tclOO.decls,v 1.7 2010/03/05 15:32:16 dkf Exp $ +# $Id: tclOO.decls,v 1.8 2010/09/15 07:33:54 nijtmans Exp $ library tclOO @@ -8,111 +8,112 @@ library tclOO interface tclOO hooks tclOOInt +scspec EXTERN -declare 0 generic { +declare 0 { Tcl_Object Tcl_CopyObjectInstance(Tcl_Interp *interp, Tcl_Object sourceObject, const char *targetName, const char *targetNamespaceName) } -declare 1 generic { +declare 1 { Tcl_Object Tcl_GetClassAsObject(Tcl_Class clazz) } -declare 2 generic { +declare 2 { Tcl_Class Tcl_GetObjectAsClass(Tcl_Object object) } -declare 3 generic { +declare 3 { Tcl_Command Tcl_GetObjectCommand(Tcl_Object object) } -declare 4 generic { +declare 4 { Tcl_Object Tcl_GetObjectFromObj(Tcl_Interp *interp, Tcl_Obj *objPtr) } -declare 5 generic { +declare 5 { Tcl_Namespace *Tcl_GetObjectNamespace(Tcl_Object object) } -declare 6 generic { +declare 6 { Tcl_Class Tcl_MethodDeclarerClass(Tcl_Method method) } -declare 7 generic { +declare 7 { Tcl_Object Tcl_MethodDeclarerObject(Tcl_Method method) } -declare 8 generic { +declare 8 { int Tcl_MethodIsPublic(Tcl_Method method) } -declare 9 generic { +declare 9 { int Tcl_MethodIsType(Tcl_Method method, const Tcl_MethodType *typePtr, ClientData *clientDataPtr) } -declare 10 generic { +declare 10 { Tcl_Obj *Tcl_MethodName(Tcl_Method method) } -declare 11 generic { +declare 11 { Tcl_Method Tcl_NewInstanceMethod(Tcl_Interp *interp, Tcl_Object object, Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, ClientData clientData) } -declare 12 generic { +declare 12 { Tcl_Method Tcl_NewMethod(Tcl_Interp *interp, Tcl_Class cls, Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, ClientData clientData) } -declare 13 generic { +declare 13 { Tcl_Object Tcl_NewObjectInstance(Tcl_Interp *interp, Tcl_Class cls, const char *nameStr, const char *nsNameStr, int objc, Tcl_Obj *const *objv, int skip) } -declare 14 generic { +declare 14 { int Tcl_ObjectDeleted(Tcl_Object object) } -declare 15 generic { +declare 15 { int Tcl_ObjectContextIsFiltering(Tcl_ObjectContext context) } -declare 16 generic { +declare 16 { Tcl_Method Tcl_ObjectContextMethod(Tcl_ObjectContext context) } -declare 17 generic { +declare 17 { Tcl_Object Tcl_ObjectContextObject(Tcl_ObjectContext context) } -declare 18 generic { +declare 18 { int Tcl_ObjectContextSkippedArgs(Tcl_ObjectContext context) } -declare 19 generic { +declare 19 { ClientData Tcl_ClassGetMetadata(Tcl_Class clazz, const Tcl_ObjectMetadataType *typePtr) } -declare 20 generic { +declare 20 { void Tcl_ClassSetMetadata(Tcl_Class clazz, const Tcl_ObjectMetadataType *typePtr, ClientData metadata) } -declare 21 generic { +declare 21 { ClientData Tcl_ObjectGetMetadata(Tcl_Object object, const Tcl_ObjectMetadataType *typePtr) } -declare 22 generic { +declare 22 { void Tcl_ObjectSetMetadata(Tcl_Object object, const Tcl_ObjectMetadataType *typePtr, ClientData metadata) } -declare 23 generic { +declare 23 { int Tcl_ObjectContextInvokeNext(Tcl_Interp *interp, Tcl_ObjectContext context, int objc, Tcl_Obj *const *objv, int skip) } -declare 24 generic { +declare 24 { Tcl_ObjectMapMethodNameProc *Tcl_ObjectGetMethodNameMapper( Tcl_Object object) } -declare 25 generic { +declare 25 { void Tcl_ObjectSetMethodNameMapper(Tcl_Object object, Tcl_ObjectMapMethodNameProc *mapMethodNameProc) } -declare 26 generic { +declare 26 { void Tcl_ClassSetConstructor(Tcl_Interp *interp, Tcl_Class clazz, Tcl_Method method) } -declare 27 generic { +declare 27 { void Tcl_ClassSetDestructor(Tcl_Interp *interp, Tcl_Class clazz, Tcl_Method method) } -declare 28 generic { +declare 28 { Tcl_Obj *Tcl_GetObjectName(Tcl_Interp *interp, Tcl_Object object) } @@ -122,78 +123,78 @@ declare 28 generic { interface tclOOInt -declare 0 generic { +declare 0 { Tcl_Object TclOOGetDefineCmdContext(Tcl_Interp *interp) } -declare 1 generic { +declare 1 { Tcl_Method TclOOMakeProcInstanceMethod(Tcl_Interp *interp, Object *oPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, const Tcl_MethodType *typePtr, ClientData clientData, Proc **procPtrPtr) } -declare 2 generic { +declare 2 { Tcl_Method TclOOMakeProcMethod(Tcl_Interp *interp, Class *clsPtr, int flags, Tcl_Obj *nameObj, const char *namePtr, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, const Tcl_MethodType *typePtr, ClientData clientData, Proc **procPtrPtr) } -declare 3 generic { +declare 3 { Method *TclOONewProcInstanceMethod(Tcl_Interp *interp, Object *oPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, ProcedureMethod **pmPtrPtr) } -declare 4 generic { +declare 4 { Method *TclOONewProcMethod(Tcl_Interp *interp, Class *clsPtr, int flags, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, ProcedureMethod **pmPtrPtr) } -declare 5 generic { +declare 5 { int TclOOObjectCmdCore(Object *oPtr, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv, int publicOnly, Class *startCls) } -declare 6 generic { +declare 6 { int TclOOIsReachable(Class *targetPtr, Class *startPtr) } -declare 7 generic { +declare 7 { Method *TclOONewForwardMethod(Tcl_Interp *interp, Class *clsPtr, int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj) } -declare 8 generic { +declare 8 { Method *TclOONewForwardInstanceMethod(Tcl_Interp *interp, Object *oPtr, int isPublic, Tcl_Obj *nameObj, Tcl_Obj *prefixObj) } -declare 9 generic { +declare 9 { Tcl_Method TclOONewProcInstanceMethodEx(Tcl_Interp *interp, Tcl_Object oPtr, TclOO_PreCallProc *preCallPtr, TclOO_PostCallProc *postCallPtr, ProcErrorProc *errProc, ClientData clientData, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, int flags, void **internalTokenPtr) } -declare 10 generic { +declare 10 { Tcl_Method TclOONewProcMethodEx(Tcl_Interp *interp, Tcl_Class clsPtr, TclOO_PreCallProc *preCallPtr, TclOO_PostCallProc *postCallPtr, ProcErrorProc *errProc, ClientData clientData, Tcl_Obj *nameObj, Tcl_Obj *argsObj, Tcl_Obj *bodyObj, int flags, void **internalTokenPtr) } -declare 11 generic { +declare 11 { int TclOOInvokeObject(Tcl_Interp *interp, Tcl_Object object, Tcl_Class startCls, int publicPrivate, int objc, Tcl_Obj *const *objv) } -declare 12 generic { +declare 12 { void TclOOObjectSetFilters(Object *oPtr, int numFilters, Tcl_Obj *const *filters) } -declare 13 generic { +declare 13 { void TclOOClassSetFilters(Tcl_Interp *interp, Class *classPtr, int numFilters, Tcl_Obj *const *filters) } -declare 14 generic { +declare 14 { void TclOOObjectSetMixins(Object *oPtr, int numMixins, Class *const *mixins) } -declare 15 generic { +declare 15 { void TclOOClassSetMixins(Tcl_Interp *interp, Class *classPtr, int numMixins, Class *const *mixins) } |