diff options
Diffstat (limited to 'generic/tclOO.decls')
| -rw-r--r-- | generic/tclOO.decls | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index dd33f14..f06dd6b 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -1,8 +1,11 @@ -# -*- tcl -*- -# $Id: tclOO.decls,v 1.4 2008/10/17 18:42:12 nijtmans Exp $ +# $Id: tclOO.decls,v 1.5 2009/07/19 11:46:53 dkf Exp $ -# public API library tclOO + +###################################################################### +# public API +# + interface tclOO hooks tclOOInt @@ -109,9 +112,16 @@ declare 27 generic { void Tcl_ClassSetDestructor(Tcl_Interp *interp, Tcl_Class clazz, Tcl_Method method) } - +declare 28 generic { + Tcl_Obj *Tcl_GetObjectName(Tcl_Interp *interp, Tcl_Object object) +} + +###################################################################### # private API, exposed to support advanced OO systems that plug in on top +# + interface tclOOInt + declare 0 generic { Tcl_Object TclOOGetDefineCmdContext(Tcl_Interp *interp) } @@ -187,3 +197,9 @@ declare 15 generic { void TclOOClassSetMixins(Tcl_Interp *interp, Class *classPtr, int numMixins, Class *const *mixins) } + +return + +# Local Variables: +# mode: tcl +# End: |