diff options
author | fvogel <fvogelnew1@free.fr> | 2021-09-15 19:05:49 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2021-09-15 19:05:49 (GMT) |
commit | 39a9ff355cf04cc3faadfa441d3e38d5732ae2b7 (patch) | |
tree | c4b0c87a20d6c54e39325da4b8ba54ef50264d82 /win/tkWinWm.c | |
parent | 29521ce8cc82db85d7897f6d4eebeff44879f674 (diff) | |
parent | 32befc53df03408b95b8e1ace173a67f7278d259 (diff) | |
download | tk-39a9ff355cf04cc3faadfa441d3e38d5732ae2b7.zip tk-39a9ff355cf04cc3faadfa441d3e38d5732ae2b7.tar.gz tk-39a9ff355cf04cc3faadfa441d3e38d5732ae2b7.tar.bz2 |
Fix [489b69a820]: Slightly wrong error message on 'wm attributes $w -junk'
Diffstat (limited to 'win/tkWinWm.c')
-rw-r--r-- | win/tkWinWm.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c index 153a7a3..28f4838 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -2912,9 +2912,6 @@ WmAttributesCmd( } for (i = 3; i < objc; i += 2) { string = Tcl_GetStringFromObj(objv[i], &length); - if ((length < 2) || (string[0] != '-')) { - goto configArgs; - } if (strncmp(string, "-disabled", length) == 0) { stylePtr = &style; styleBit = WS_DISABLED; @@ -2947,6 +2944,12 @@ WmAttributesCmd( Tcl_SetErrorCode(interp, "TK", "WM", "ATTR", "TOPMOST", NULL); return TCL_ERROR; } + } else if (i == 3) { + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "bad attribute \"%s\": must be -alpha, -transparentcolor, -disabled, -fullscreen, -toolwindow, or -topmost", + string)); + Tcl_SetErrorCode(interp, "TK", "WM", "ATTR", "UNRECOGNIZED", NULL); + return TCL_ERROR; } else { goto configArgs; } |