diff options
| author | hobbs <hobbs> | 2002-06-22 10:13:26 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-06-22 10:13:26 (GMT) |
| commit | ada9b40cb1ed12dff8ae71d167aeeea17bcade14 (patch) | |
| tree | 960b07c03b8b74ffa66c1e547aa2338cdb07ea74 /unix | |
| parent | 3016d7bb9fdd6c9886c4e501d5e7a1ac0823e9aa (diff) | |
| download | tk-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')
| -rw-r--r-- | unix/tkUnixWm.c | 14 |
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, ", |