diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-03-24 13:21:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-03-24 13:21:11 (GMT) |
| commit | 188c38659bf0d5e51f7263d592af87cd8c753a17 (patch) | |
| tree | 18095fdb9ca794ca8c336dc02b1b74419705e5cb /generic/tclOOMethod.c | |
| parent | 8158cea2c168d259b1161bffdc4cd276b93b386b (diff) | |
| download | tcl-188c38659bf0d5e51f7263d592af87cd8c753a17.zip tcl-188c38659bf0d5e51f7263d592af87cd8c753a17.tar.gz tcl-188c38659bf0d5e51f7263d592af87cd8c753a17.tar.bz2 | |
* generic/tclOOInfo.c (InfoObjectMethodTypeCmd)
(InfoClassMethodTypeCmd): Added introspection of method types so that
it is possible to find this info out without using errors.
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 6c13116..9f5be6b 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.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: tclOOMethod.c,v 1.25 2010/03/07 14:39:26 nijtmans Exp $ + * RCS: @(#) $Id: tclOOMethod.c,v 1.26 2010/03/24 13:21:11 dkf Exp $ */ #ifdef HAVE_CONFIG_H @@ -108,7 +108,7 @@ static int ProcedureMethodCompiledVarResolver(Tcl_Interp *interp, */ static const Tcl_MethodType procMethodType = { - TCL_OO_METHOD_VERSION_CURRENT, "procedural method", + TCL_OO_METHOD_VERSION_CURRENT, "method", InvokeProcedureMethod, DeleteProcedureMethod, CloneProcedureMethod }; static const Tcl_MethodType fwdMethodType = { |