diff options
Diffstat (limited to 'mac/tkMacEmbed.c')
| -rw-r--r-- | mac/tkMacEmbed.c | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/mac/tkMacEmbed.c b/mac/tkMacEmbed.c index d370f32..06ceaa4 100644 --- a/mac/tkMacEmbed.c +++ b/mac/tkMacEmbed.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacEmbed.c,v 1.5 2002/08/05 04:30:40 dgp Exp $ + * RCS: @(#) $Id: tkMacEmbed.c,v 1.6 2002/10/09 11:56:39 das Exp $ */ #include "tkInt.h" @@ -236,6 +236,7 @@ TkpUseWindow( * for tkwin; must be an integer value. */ { TkWindow *winPtr = (TkWindow *) tkwin; + TkWindow *usePtr; MacDrawable *parent, *macWin; Container *containerPtr; XEvent event; @@ -259,6 +260,20 @@ TkpUseWindow( return TCL_ERROR; } + usePtr = (TkWindow *) Tk_IdToWindow(winPtr->display, (Window) result); + + if (usePtr == NULL) { + Tcl_AppendResult(interp, "Tk window does not correspond to id \"", + string, "\"", (char *) NULL); + return TCL_ERROR; + } else { + if (!(usePtr->flags & TK_CONTAINER)) { + Tcl_AppendResult(interp, "window \"", usePtr->pathName, + "\" doesn't have -container option set", (char *) NULL); + return TCL_ERROR; + } + } + parent = (MacDrawable *) result; /* |