From ad193af9c8d6dc3b9263dd9a80265c319d400012 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 31 Oct 2006 09:20:33 +0000 Subject: Renamed functions to reduce confusion and added to header file. --- 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