diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-06-05 17:26:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-06-05 17:26:37 (GMT) |
| commit | f206e0fb4b6f73e30c7c0a8cb1560b548bae04ad (patch) | |
| tree | 3112b680dfff3ea941ff1d624dd968ee881123b0 /generic/tclOO.decls | |
| parent | 1545e3155786a2643bbabc7e7e5ef8b1a1d47d4a (diff) | |
| parent | 3b14a4b0ed16f753791f2c6046b761c4fcd5be05 (diff) | |
| download | tcl-f206e0fb4b6f73e30c7c0a8cb1560b548bae04ad.zip tcl-f206e0fb4b6f73e30c7c0a8cb1560b548bae04ad.tar.gz tcl-f206e0fb4b6f73e30c7c0a8cb1560b548bae04ad.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclOO.decls')
| -rw-r--r-- | generic/tclOO.decls | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index 265ba88..f1bb320 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -58,12 +58,12 @@ declare 10 { } declare 11 { Tcl_Method Tcl_NewInstanceMethod(Tcl_Interp *interp, Tcl_Object object, - Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, + Tcl_Obj *nameObj, int flags, const Tcl_MethodType *typePtr, ClientData clientData) } declare 12 { Tcl_Method Tcl_NewMethod(Tcl_Interp *interp, Tcl_Class cls, - Tcl_Obj *nameObj, int isPublic, const Tcl_MethodType *typePtr, + Tcl_Obj *nameObj, int flags, const Tcl_MethodType *typePtr, ClientData clientData) } declare 13 { @@ -126,6 +126,9 @@ declare 27 { declare 28 { Tcl_Obj *Tcl_GetObjectName(Tcl_Interp *interp, Tcl_Object object) } +declare 29 { + int Tcl_MethodIsPrivate(Tcl_Method method) +} ###################################################################### # Private API, exposed to support advanced OO systems that plug in on top of |