summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
Diffstat (limited to 'win')
-rw-r--r--win/tkWinWm.c18
1 files changed, 11 insertions, 7 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c
index 1dec80e..1d2f3fc 100644
--- a/win/tkWinWm.c
+++ b/win/tkWinWm.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: tkWinWm.c,v 1.90 2005/01/09 18:28:06 chengyemao Exp $
+ * RCS: @(#) $Id: tkWinWm.c,v 1.91 2005/01/10 15:32:28 chengyemao Exp $
*/
#include "tkWinInt.h"
@@ -3318,7 +3318,7 @@ WmDeiconifyCmd(tkwin, winPtr, interp, objc, objv)
if (winPtr->flags & TK_EMBEDDED) {
if(!SendMessage(wmPtr->wrapper, TK_DEICONIFY, 0, 0)) {
Tcl_AppendResult(interp, "can't deiconify ", winPtr->pathName,
- ": it is an embedded window", (char *) NULL);
+ ": the container does not support the request", (char *) NULL);
return TCL_ERROR;
}
return TCL_OK;
@@ -3819,7 +3819,7 @@ WmIconifyCmd(tkwin, winPtr, interp, objc, objv)
if (winPtr->flags & TK_EMBEDDED) {
if(!SendMessage(wmPtr->wrapper, TK_ICONIFY, 0, 0)) {
Tcl_AppendResult(interp, "can't iconify ", winPtr->pathName,
- ": it is an embedded window", (char *) NULL);
+ ": the container does not support the request", (char *) NULL);
return TCL_ERROR;
}
}
@@ -4851,7 +4851,7 @@ WmStateCmd(tkwin, winPtr, interp, objc, objv)
if(state != SendMessage(wmPtr->wrapper, TK_STATE, state, 0)) {
Tcl_AppendResult(interp, "can't change state of ",
- winPtr->pathName, ": it is an embedded window",
+ winPtr->pathName, ": the container does not support the request",
(char *) NULL);
return TCL_ERROR;
}
@@ -4957,7 +4957,7 @@ WmTitleCmd(tkwin, winPtr, interp, objc, objv)
wrapper = wmPtr->wrapper;
}
if (objc == 3) {
- if(winPtr->flags & TK_EMBEDDED) {
+ if(wrapper) {
char buf[256];
GetWindowText(wrapper, buf, 256);
Tcl_SetResult(interp, buf, TCL_VOLATILE);
@@ -5150,7 +5150,11 @@ WmWithdrawCmd(tkwin, winPtr, interp, objc, objv)
}
if(winPtr->flags & TK_EMBEDDED) {
- SendMessage(wmPtr->wrapper, TK_WITHDRAW, 0, 0);
+ if(SendMessage(wmPtr->wrapper, TK_WITHDRAW, 0, 0) < 0) {
+ Tcl_AppendResult(interp, "can't withdraw", Tcl_GetString(objv[2]),
+ ": the container does not support the request", NULL);
+ return TCL_ERROR;
+ }
} else {
wmPtr->flags |= WM_WITHDRAWN;
TkpWmSetState(winPtr, WithdrawnState);
@@ -7979,7 +7983,7 @@ void TkpWinToplevelDetachWindow(winPtr)
winPtr->flags &= ~TK_EMBEDDED;
winPtr->privatePtr = NULL;
wmPtr->wrapper = None;
- wmPtr->hints.initial_state = state;
+ if(state >= 0 && state <= 3) wmPtr->hints.initial_state = state;
}
TkpWinToplevelOverrideRedirect(winPtr, 1);
}