diff options
author | dkf <dkf@noemail.net> | 2009-02-12 09:27:42 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2009-02-12 09:27:42 (GMT) |
commit | 3b574812abe7cfc32ba57450e43c0c4f7307693c (patch) | |
tree | 4d358b21e76dad6429c80c145a561e462c9e47bb /generic/tclOODefineCmds.c | |
parent | 40cbdf524149609f056fd9ca8c37b22e44b1b8fe (diff) | |
download | tcl-3b574812abe7cfc32ba57450e43c0c4f7307693c.zip tcl-3b574812abe7cfc32ba57450e43c0c4f7307693c.tar.gz tcl-3b574812abe7cfc32ba57450e43c0c4f7307693c.tar.bz2 |
Fix tricky point that meant it was next to impossible to extend [oo::define].
FossilOrigin-Name: ac61ee395893ab793e426d97e8fa37554b4f8ed7
Diffstat (limited to 'generic/tclOODefineCmds.c')
-rw-r--r-- | generic/tclOODefineCmds.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index ac65ee4..b732eec 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -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: tclOODefineCmds.c,v 1.9 2009/01/27 11:11:47 dkf Exp $ + * RCS: @(#) $Id: tclOODefineCmds.c,v 1.10 2009/02/12 09:27:43 dkf Exp $ */ #ifdef HAVE_CONFIG_H @@ -594,14 +594,14 @@ TclOOGetDefineCmdContext( { Interp *iPtr = (Interp *) interp; - if ((iPtr->framePtr == NULL) - || (iPtr->framePtr->isProcCallFrame != FRAME_IS_OO_DEFINE)) { + if ((iPtr->varFramePtr == NULL) + || (iPtr->varFramePtr->isProcCallFrame != FRAME_IS_OO_DEFINE)) { Tcl_AppendResult(interp, "this command may only be called from within" " the context of an ::oo::define or ::oo::objdefine command", NULL); return NULL; } - return (Tcl_Object) iPtr->framePtr->clientData; + return (Tcl_Object) iPtr->varFramePtr->clientData; } /* |