summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorchengyemao <chengyemao>2005-01-09 18:28:05 (GMT)
committerchengyemao <chengyemao>2005-01-09 18:28:05 (GMT)
commita2455a5686d0db82e6d05203f8048152c7e7193f (patch)
tree1bb1ddf055844df628ee13afe56678577b189eee /generic
parentcba943c4319df81bcd561b2e6f6ec5e445d8dd11 (diff)
downloadtk-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.c16
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);