diff options
| author | chengyemao <chengyemao> | 2005-01-09 18:28:05 (GMT) |
|---|---|---|
| committer | chengyemao <chengyemao> | 2005-01-09 18:28:05 (GMT) |
| commit | a2455a5686d0db82e6d05203f8048152c7e7193f (patch) | |
| tree | 1bb1ddf055844df628ee13afe56678577b189eee /generic | |
| parent | cba943c4319df81bcd561b2e6f6ec5e445d8dd11 (diff) | |
| download | tk-a2455a5686d0db82e6d05203f8048152c7e7193f.zip tk-a2455a5686d0db82e6d05203f8048152c7e7193f.tar.gz tk-a2455a5686d0db82e6d05203f8048152c7e7193f.tar.bz2 | |
Changed to make platform implementation ready for a toplevel -use option; completed a full toplevel -use option configuration for Windows
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkFrame.c | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/generic/tkFrame.c b/generic/tkFrame.c index f6ae5cb..b27b454 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.18 2004/12/17 13:56:15 chengyemao Exp $ + * RCS: @(#) $Id: tkFrame.c,v 1.19 2005/01/09 18:28:05 chengyemao Exp $ */ #include "default.h" @@ -803,10 +803,18 @@ FrameWidgetObjCmd(clientData, interp, objc, objv) && (strncmp(arg, "-use", length) == 0)) || ((c == 'v') && (strncmp(arg, "-visual", length) == 0))) { - Tcl_AppendResult(interp, "can't modify ", arg, + if(c == 'u') { + CONST char*string = Tcl_GetString(objv[i+1]); + if(TCL_OK == TkpUseWindow(interp, framePtr->tkwin, string)) { + result = TCL_ERROR; + goto done; + } + } else { + Tcl_AppendResult(interp, "can't modify ", arg, " option after widget is created", (char *) NULL); - result = TCL_ERROR; - goto done; + result = TCL_ERROR; + goto done; + } } } result = ConfigureFrame(interp, framePtr, objc-2, objv+2); |