diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-10-31 09:20:33 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-10-31 09:20:33 (GMT) |
commit | ad193af9c8d6dc3b9263dd9a80265c319d400012 (patch) | |
tree | 23104024bab0bfdd4a28118a2c2b7d267e6d9c07 | |
parent | 0b9fa5408c816ce2b76239a66b3bbc63da4b5d92 (diff) | |
download | tcl-tip_257_implementation_branch.zip tcl-tip_257_implementation_branch.tar.gz tcl-tip_257_implementation_branch.tar.bz2 |
Renamed functions to reduce confusion and added to header file.
tip_257_implementation_branch
-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 ^^^^^^^^^^^^^^^^^^^^^^ /* |