Expose function to efficiently return current name of an object.

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: