diff options
| -rw-r--r-- | generic/tclOO.c | 6 | ||||
| -rw-r--r-- | 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 ^^^^^^^^^^^^^^^^^^^^^^ /* |