diff options
author | dkf <dkf@noemail.net> | 2009-04-11 11:18:50 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2009-04-11 11:18:50 (GMT) |
commit | 2242e0298115b0fb6ca48c2f7ef524f4fa563b8f (patch) | |
tree | 7384ba8f128f12704a52e5fc85f4c8074f6fb83e /generic/tclOOInt.h | |
parent | 05289d3dcda94b9e5c46e10d7aae42986695d274 (diff) | |
download | tcl-2242e0298115b0fb6ca48c2f7ef524f4fa563b8f.zip tcl-2242e0298115b0fb6ca48c2f7ef524f4fa563b8f.tar.gz tcl-2242e0298115b0fb6ca48c2f7ef524f4fa563b8f.tar.bz2 |
Clarify the rules for resolution of what forwarded methods forward to.
FossilOrigin-Name: 1c0fc91aa2fc476242f6461f0eac6327351908f5
Diffstat (limited to 'generic/tclOOInt.h')
-rw-r--r-- | generic/tclOOInt.h | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 3221fcc..1579ddb 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.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: tclOOInt.h,v 1.10 2008/10/31 22:08:32 dkf Exp $ + * RCS: @(#) $Id: tclOOInt.h,v 1.11 2009/04/11 11:18:51 dkf Exp $ */ #ifndef TCL_OO_INTERNAL_H @@ -117,13 +117,19 @@ typedef struct ProcedureMethod { #define USE_DECLARER_NS 0x80 /* - * Forwarded methods have the following extra information. It is a - * single-field structure because this allows for future expansion without - * changing vast amounts of code. + * Forwarded methods have the following extra information. */ typedef struct ForwardMethod { - Tcl_Obj *prefixObj; + Tcl_Obj *prefixObj; /* The list of values to use to replace the + * object and method name with. Will be a + * non-empty list. */ + int fullyQualified; /* If 1, the command name is fully qualified + * and we should let the default Tcl mechanism + * handle the command lookup because it is + * more efficient. If 0, we need to do a + * specialized lookup based on the current + * object's namespace. */ } ForwardMethod; /* |