diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-02-12 09:27:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-02-12 09:27:43 (GMT) |
| commit | bf722c6315c4ee0b75907cb81d40c7d7a68bc938 (patch) | |
| tree | 4d358b21e76dad6429c80c145a561e462c9e47bb /generic/tclOODefineCmds.c | |
| parent | b58cb50d92072977c7a7ed1f51f7c928268a2be6 (diff) | |
| download | tcl-bf722c6315c4ee0b75907cb81d40c7d7a68bc938.zip tcl-bf722c6315c4ee0b75907cb81d40c7d7a68bc938.tar.gz tcl-bf722c6315c4ee0b75907cb81d40c7d7a68bc938.tar.bz2 | |
Fix tricky point that meant it was next to impossible to extend [oo::define].
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; } /* |