diff options
| author | pspjuth <pspjuth@noemail.net> | 2003-07-16 23:16:51 (GMT) |
|---|---|---|
| committer | pspjuth <pspjuth@noemail.net> | 2003-07-16 23:16:51 (GMT) |
| commit | 5219ce6795c5ee7bb9ace17ab56829193d48631b (patch) | |
| tree | 9e2f5794e14efb7bc6208615b4ae4a496b643880 /generic/tkFrame.c | |
| parent | ce9fa5b7050e640c1458f4a29327e6374f303060 (diff) | |
| download | tk-5219ce6795c5ee7bb9ace17ab56829193d48631b.zip tk-5219ce6795c5ee7bb9ace17ab56829193d48631b.tar.gz tk-5219ce6795c5ee7bb9ace17ab56829193d48631b.tar.bz2 | |
Make sure all options can be set
to their default value. [Bug #697652]
FossilOrigin-Name: 8d60480220f08ea4141aec5f87687f1fce5af4f4
Diffstat (limited to 'generic/tkFrame.c')
| -rw-r--r-- | generic/tkFrame.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tkFrame.c b/generic/tkFrame.c index f4f0a53..928bea1 100644 --- a/generic/tkFrame.c +++ b/generic/tkFrame.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: tkFrame.c,v 1.15 2003/01/22 14:32:59 dkf Exp $ + * RCS: @(#) $Id: tkFrame.c,v 1.16 2003/07/16 23:16:52 pspjuth Exp $ */ #include "default.h" @@ -594,7 +594,7 @@ CreateFrame(clientData, interp, objc, objv, type, appName) if (useOption == NULL) { useOption = Tk_GetOption(new, "use", "Use"); } - if (useOption != NULL) { + if ((useOption != NULL) && (*useOption != 0)) { if (TkpUseWindow(interp, new, useOption) != TCL_OK) { goto error; } @@ -605,6 +605,9 @@ CreateFrame(clientData, interp, objc, objv, type, appName) if (colormapName == NULL) { colormapName = Tk_GetOption(new, "colormap", "Colormap"); } + if ((colormapName != NULL) && (*colormapName == 0)) { + colormapName = NULL; + } if (visualName != NULL) { visual = Tk_GetVisual(interp, new, visualName, &depth, (colormapName == NULL) ? &colormap : (Colormap *) NULL); |