diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:31:24 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:31:24 (GMT) |
commit | 916d72ec1ce61ebd585a78c6a9565f5c49bb8d24 (patch) | |
tree | f85948163555af276a5455836e70adae4bbc2e75 /generic/tclOO.decls | |
parent | 24b5ca41d9555991bca4f35e52f46f57b114d4ec (diff) | |
parent | 2384f8aa81b8d3ba682e5192baa05a9b02039f3f (diff) | |
download | tcl-916d72ec1ce61ebd585a78c6a9565f5c49bb8d24.zip tcl-916d72ec1ce61ebd585a78c6a9565f5c49bb8d24.tar.gz tcl-916d72ec1ce61ebd585a78c6a9565f5c49bb8d24.tar.bz2 |
TIP #630 implementation: TclOO commands > 2^31
Diffstat (limited to 'generic/tclOO.decls')
-rw-r--r-- | generic/tclOO.decls | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index c6ffccd..c933872 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -135,6 +135,20 @@ declare 30 { declare 31 { Tcl_Obj *Tcl_GetObjectClassName(Tcl_Interp *interp, Tcl_Object object) } +declare 32 { + int Tcl_MethodIsType2(Tcl_Method method, const Tcl_MethodType2 *typePtr, + void **clientDataPtr) +} +declare 33 { + Tcl_Method Tcl_NewInstanceMethod2(Tcl_Interp *interp, Tcl_Object object, + Tcl_Obj *nameObj, int flags, const Tcl_MethodType2 *typePtr, + void *clientData) +} +declare 34 { + Tcl_Method Tcl_NewMethod2(Tcl_Interp *interp, Tcl_Class cls, + Tcl_Obj *nameObj, int flags, const Tcl_MethodType2 *typePtr, + void *clientData) +} ###################################################################### # Private API, exposed to support advanced OO systems that plug in on top of |