diff options
author | dkf <dkf@noemail.net> | 2010-03-24 13:21:11 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2010-03-24 13:21:11 (GMT) |
commit | c808e73e96a84f902889aa49905b0f6b61168952 (patch) | |
tree | 18095fdb9ca794ca8c336dc02b1b74419705e5cb /generic/tclOOMethod.c | |
parent | 61fecf1e141b4972c87eaf0ebe294ced3a6bce89 (diff) | |
download | tcl-c808e73e96a84f902889aa49905b0f6b61168952.zip tcl-c808e73e96a84f902889aa49905b0f6b61168952.tar.gz tcl-c808e73e96a84f902889aa49905b0f6b61168952.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.
FossilOrigin-Name: 2b08d450001dec4fc952370bd7527b8987c81576
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 = { |