diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-09-27 13:01:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-09-27 13:01:37 (GMT) |
commit | 4d029b8f63e5b8a33f96fa20b068a22fdc8472e6 (patch) | |
tree | fceddf5bb7080330a20c7d1db5f709397e5e81fc /generic/tclOO.decls | |
parent | 448e5e0f2eeaf07a77f05cc023be8bedf46b6871 (diff) | |
parent | 36dbbdbb723b994c072318068ca9c78aac8a2bcf (diff) | |
download | tcl-4d029b8f63e5b8a33f96fa20b068a22fdc8472e6.zip tcl-4d029b8f63e5b8a33f96fa20b068a22fdc8472e6.tar.gz tcl-4d029b8f63e5b8a33f96fa20b068a22fdc8472e6.tar.bz2 |
TIP #605 implementation: Function to get class name from object
Diffstat (limited to 'generic/tclOO.decls')
-rw-r--r-- | generic/tclOO.decls | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index 64892a8..e4063c7 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -129,8 +129,11 @@ declare 28 { declare 29 { int Tcl_MethodIsPrivate(Tcl_Method method) } +declare 30 { + Tcl_Class Tcl_GetClassOfObject(Tcl_Object object) +} declare 31 { - void TclOOUnusedStubEntry(void) + Tcl_Obj *Tcl_GetObjectClassName(Tcl_Interp *interp, Tcl_Object object) } ###################################################################### |