diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-15 15:12:27 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-15 15:12:27 (GMT) |
commit | 474c08922f5e9eb3699fba6cf236e4fde61ae390 (patch) | |
tree | 7fb9b5027c98ed1af18a1092b18391f87b837fa7 /generic/tclOO.decls | |
parent | c23518984f1b61e136d4e57f9554c5f8d3c1d26a (diff) | |
download | tcl-474c08922f5e9eb3699fba6cf236e4fde61ae390.zip tcl-474c08922f5e9eb3699fba6cf236e4fde61ae390.tar.gz tcl-474c08922f5e9eb3699fba6cf236e4fde61ae390.tar.bz2 |
(experimental) TclOO > 2**31 args
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 e4063c7..3507c73 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 |