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 /generic/tclOO.c | |
| 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
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 6 |
1 files changed, 3 insertions, 3 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; |