summaryrefslogtreecommitdiffstats
path: root/unix/tkUnixWm.c
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-06-22 10:13:26 (GMT)
committerhobbs <hobbs>2002-06-22 10:13:26 (GMT)
commitada9b40cb1ed12dff8ae71d167aeeea17bcade14 (patch)
tree960b07c03b8b74ffa66c1e547aa2338cdb07ea74 /unix/tkUnixWm.c
parent3016d7bb9fdd6c9886c4e501d5e7a1ac0823e9aa (diff)
downloadtk-ada9b40cb1ed12dff8ae71d167aeeea17bcade14.zip
tk-ada9b40cb1ed12dff8ae71d167aeeea17bcade14.tar.gz
tk-ada9b40cb1ed12dff8ae71d167aeeea17bcade14.tar.bz2
* doc/wm.n: TIP #95 Windows implementation and
* mac/tkMacWm.c (Tk_WmCmd): docs with mac and unix stubs. * unix/tkUnixWm.c (Tk_WmCmd): * win/tkWinWm.c (Tk_WmCmd): * tests/unixWm.test: * tests/winWm.test: more wm attr tests will be needed.
Diffstat (limited to 'unix/tkUnixWm.c')
-rw-r--r--unix/tkUnixWm.c14
1 files changed, 11 insertions, 3 deletions
diff --git a/unix/tkUnixWm.c b/unix/tkUnixWm.c
index 5c1f615..cfc1d1c 100644
--- a/unix/tkUnixWm.c
+++ b/unix/tkUnixWm.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: tkUnixWm.c,v 1.24 2002/06/22 01:43:47 mdejong Exp $
+ * RCS: @(#) $Id: tkUnixWm.c,v 1.25 2002/06/22 10:13:26 hobbs Exp $
*/
#include "tkPort.h"
@@ -926,7 +926,8 @@ Tk_WmCmd(clientData, interp, argc, argv)
return TCL_ERROR;
}
wmPtr = winPtr->wmInfoPtr;
- if ((c == 'a') && (strncmp(argv[1], "aspect", length) == 0)) {
+ if ((c == 'a') && (strncmp(argv[1], "aspect", length) == 0)
+ && (length >= 2)) {
int numer1, denom1, numer2, denom2;
if ((argc != 3) && (argc != 7)) {
@@ -969,6 +970,13 @@ Tk_WmCmd(clientData, interp, argc, argv)
}
wmPtr->flags |= WM_UPDATE_SIZE_HINTS;
goto updateGeom;
+ } else if ((c == 'a') && (strncmp(argv[1], "attributes", length) == 0)
+ && (length >= 2)) {
+ if (argc != 3) {
+ Tcl_AppendResult(interp, "wrong # arguments: must be \"",
+ argv[0], " attributes window\"", (char *) NULL);
+ return TCL_ERROR;
+ }
} else if ((c == 'c') && (strncmp(argv[1], "client", length) == 0)
&& (length >= 2)) {
if ((argc != 3) && (argc != 4)) {
@@ -2169,7 +2177,7 @@ Tk_WmCmd(clientData, interp, argc, argv)
}
} else {
Tcl_AppendResult(interp, "unknown or ambiguous option \"", argv[1],
- "\": must be aspect, client, command, deiconify, ",
+ "\": must be aspect, attributes, client, command, deiconify, ",
"focusmodel, frame, geometry, grid, group, iconbitmap, ",
"iconify, iconmask, iconname, iconposition, ",
"iconwindow, maxsize, minsize, overrideredirect, ",