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 /unix | |
| 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 'unix')
| -rw-r--r-- | unix/tkUnixEmbed.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/unix/tkUnixEmbed.c b/unix/tkUnixEmbed.c index 5d46e84..40d54ad 100644 --- a/unix/tkUnixEmbed.c +++ b/unix/tkUnixEmbed.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: tkUnixEmbed.c,v 1.7 2004/01/13 02:06:01 davygrvy Exp $ + * RCS: @(#) $Id: tkUnixEmbed.c,v 1.8 2005/01/09 18:28:06 chengyemao Exp $ */ #include "tkInt.h" @@ -115,7 +115,8 @@ TkpUseWindow(interp, tkwin, string) Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData)); if (winPtr->window != None) { - Tcl_Panic("TkUseWindow: X window already assigned"); + Tcl_AppendResult(interp, "can't modify container after widget is created", (char *) NULL); + return TCL_ERROR; } if (Tcl_GetInt(interp, string, &id) != TCL_OK) { return TCL_ERROR; |