diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:33:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:33:18 (GMT) |
| commit | e0b98db0d71593f6141779d06994084aa3a005a5 (patch) | |
| tree | b565bd9bd619c52905eee333c2efdf5b6e160ea5 /generic/tclOO.decls | |
| parent | daf1875e0170f7414a01a4c2e77cbab54f1349c9 (diff) | |
| parent | 916d72ec1ce61ebd585a78c6a9565f5c49bb8d24 (diff) | |
| download | tcl-e0b98db0d71593f6141779d06994084aa3a005a5.zip tcl-e0b98db0d71593f6141779d06994084aa3a005a5.tar.gz tcl-e0b98db0d71593f6141779d06994084aa3a005a5.tar.bz2 | |
Merge 8.7
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 5a1cff2..d9adb4d 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 |