diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2021-08-01 11:47:23 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2021-08-01 11:47:23 (GMT) |
| commit | 36dbbdbb723b994c072318068ca9c78aac8a2bcf (patch) | |
| tree | 3ef46d84fc83d53f05ae6a3b492ac02d64935dce /generic/tclOO.decls | |
| parent | f107311e0a841c8971f748594a6e0bd179a2e436 (diff) | |
| download | tcl-36dbbdbb723b994c072318068ca9c78aac8a2bcf.zip tcl-36dbbdbb723b994c072318068ca9c78aac8a2bcf.tar.gz tcl-36dbbdbb723b994c072318068ca9c78aac8a2bcf.tar.bz2 | |
Turn code snippets in TIP into a branch.
Diffstat (limited to 'generic/tclOO.decls')
| -rw-r--r-- | generic/tclOO.decls | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index 4602460..e4063c7 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -129,6 +129,12 @@ declare 28 { declare 29 { int Tcl_MethodIsPrivate(Tcl_Method method) } +declare 30 { + Tcl_Class Tcl_GetClassOfObject(Tcl_Object object) +} +declare 31 { + Tcl_Obj *Tcl_GetObjectClassName(Tcl_Interp *interp, Tcl_Object object) +} ###################################################################### # Private API, exposed to support advanced OO systems that plug in on top of |