diff options
| author | hobbs <hobbs> | 2003-12-03 04:58:09 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-12-03 04:58:09 (GMT) |
| commit | e683bd1212ffc62a4d4134cb24eae082778c7d89 (patch) | |
| tree | f7fd2f82c0d266519b8152fb01b55beb4a60ef0c /generic | |
| parent | b8e46586031541ebde2a3bccf5471711b0346bbc (diff) | |
| download | tk-e683bd1212ffc62a4d4134cb24eae082778c7d89.zip tk-e683bd1212ffc62a4d4134cb24eae082778c7d89.tar.gz tk-e683bd1212ffc62a4d4134cb24eae082778c7d89.tar.bz2 | |
* generic/tkMenu.c (MenuVarProc): prevent this from triggering
while interp is being destroyed.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkMenu.c | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/generic/tkMenu.c b/generic/tkMenu.c index 713a288..731f2c3 100644 --- a/generic/tkMenu.c +++ b/generic/tkMenu.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMenu.c,v 1.21 2003/05/30 11:03:00 vincentdarley Exp $ + * RCS: @(#) $Id: tkMenu.c,v 1.22 2003/12/03 04:58:09 hobbs Exp $ */ /* @@ -2544,19 +2544,27 @@ MenuVarProc(clientData, interp, name1, name2, flags) TkMenuEntry *mePtr = (TkMenuEntry *) clientData; TkMenu *menuPtr; CONST char *value; - char *name = Tcl_GetStringFromObj(mePtr->namePtr, NULL); + char *name; char *onValue; + if (flags & TCL_INTERP_DESTROYED) { + /* + * Do nothing if the interpreter is going away. + */ + + return (char *) NULL; + } + menuPtr = mePtr->menuPtr; + name = Tcl_GetStringFromObj(mePtr->namePtr, NULL); /* - * If the variable is being unset, then re-establish the - * trace unless the whole interpreter is going away. + * If the variable is being unset, then re-establish the trace. */ if (flags & TCL_TRACE_UNSETS) { mePtr->entryFlags &= ~ENTRY_SELECTED; - if ((flags & TCL_TRACE_DESTROYED) && !(flags & TCL_INTERP_DESTROYED)) { + if ((flags & TCL_TRACE_DESTROYED) { Tcl_TraceVar(interp, name, TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS, MenuVarProc, clientData); |