diff options
| author | chengyemao <chengyemao> | 2007-02-28 04:58:24 (GMT) |
|---|---|---|
| committer | chengyemao <chengyemao> | 2007-02-28 04:58:24 (GMT) |
| commit | 92ae3868354a366b587cc61f7517bcd4e914f862 (patch) | |
| tree | 99b691501adf3a66e43d2e39e4854dc9e90238af | |
| parent | bf34cf1ab56c15acf89fa82d84f2926457c039d7 (diff) | |
| download | tk-92ae3868354a366b587cc61f7517bcd4e914f862.zip tk-92ae3868354a366b587cc61f7517bcd4e914f862.tar.gz tk-92ae3868354a366b587cc61f7517bcd4e914f862.tar.bz2 | |
Added compliler #ifdef SUPPORT_CONFIG_EMBEDDED to support config of -use option at specific platform
| -rw-r--r-- | generic/tkFrame.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tkFrame.c b/generic/tkFrame.c index b0a591b..10be062 100644 --- a/generic/tkFrame.c +++ b/generic/tkFrame.c @@ -11,7 +11,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.26 2007/01/05 00:00:50 nijtmans Exp $ + * RCS: @(#) $Id: tkFrame.c,v 1.27 2007/02/28 04:58:24 chengyemao Exp $ */ #include "default.h" @@ -773,6 +773,8 @@ FrameWidgetObjCmd( && (strncmp(arg, "-use", (unsigned)length) == 0)) || ((c == 'v') && (strncmp(arg, "-visual", (unsigned)length) == 0))) { + + #ifdef SUPPORT_CONFIG_EMBEDDED if (c == 'u') { CONST char *string = Tcl_GetString(objv[i+1]); if (TkpUseWindow(interp, framePtr->tkwin, @@ -786,6 +788,12 @@ FrameWidgetObjCmd( result = TCL_ERROR; goto done; } + #else + Tcl_AppendResult(interp, "can't modify ", arg, + " option after widget is created", NULL); + result = TCL_ERROR; + goto done; + #endif } } result = ConfigureFrame(interp, framePtr, objc-2, objv+2); |