Subject: Renamed functions to reduce confusion and added to header file.

From: dkf <[email-masked]>
Date: Tue, 31 Oct 2006 09:20:33 +0000

---
 generic/tclOO.c | 6 +++---
 generic/tclOO.h | 4 +++-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/generic/tclOO.c b/generic/tclOO.c
index 768993c..6b91657 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclOO.c,v 1.1.2.68 2006/10/31 09:14:36 dkf Exp $
+ * RCS: @(#) $Id: tclOO.c,v 1.1.2.69 2006/10/31 09:20:33 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -3419,7 +3419,7 @@ Tcl_GetClassAsObject(
  */
 
 Tcl_Class
-Tcl_OOGetObjectClass(
+Tcl_GetClassOfObjects(
     Tcl_Interp *interp)
 {
     Foundation *fPtr = ((Interp *) interp)->ooFoundation;
@@ -3427,7 +3427,7 @@ Tcl_OOGetObjectClass(
 }
 
 Tcl_Class
-Tcl_OOGetClassClass(
+Tcl_GetClassOfClasses(
     Tcl_Interp *interp)
 {
     Foundation *fPtr = ((Interp *) interp)->ooFoundation;
diff --git a/generic/tclOO.h b/generic/tclOO.h
index 14d00a4..ea36f89 100644
--- a/generic/tclOO.h
+++ b/generic/tclOO.h
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclOO.h,v 1.1.2.40 2006/10/22 23:01:37 dkf Exp $
+ * RCS: @(#) $Id: tclOO.h,v 1.1.2.41 2006/10/31 09:20:33 dkf Exp $
  */
 
 // vvvvvvvvvvvvvvvvvvvvvv MOVE TO TCL.DECLS vvvvvvvvvvvvvvvvvvvvvv
@@ -56,6 +56,8 @@ ClientData		Tcl_ObjectGetMetadata(Tcl_Object object,
 void			Tcl_ObjectSetMetadata(Tcl_Object object,
 			    const Tcl_ObjectMetadataType *typePtr,
 			    ClientData metadata);
+Tcl_Class		Tcl_GetClassOfClasses(Tcl_Interp *interp);
+Tcl_Class		Tcl_GetClassOfObjects(Tcl_Interp *interp);
 // ^^^^^^^^^^^^^^^^^^^^^^ MOVE TO TCL.DECLS ^^^^^^^^^^^^^^^^^^^^^^
 
 /*
-- 
cgit v0.12