From 92ae3868354a366b587cc61f7517bcd4e914f862 Mon Sep 17 00:00:00 2001
From: chengyemao <chengyemao>
Date: Wed, 28 Feb 2007 04:58:24 +0000
Subject: Added compliler #ifdef SUPPORT_CONFIG_EMBEDDED to support config of
 -use option at specific platform

---
 generic/tkFrame.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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);
-- 
cgit v0.12