diff options
| author | hobbs <hobbs> | 2000-01-12 11:45:33 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-01-12 11:45:33 (GMT) |
| commit | 78fd58a9d168a501537ed45e4e29229b430a8846 (patch) | |
| tree | 2d7682f7a2746ed6d5456123767ec34178efb135 /tests/winWm.test | |
| parent | 9d277aa2490127324d342bc926a41aa99e53ae41 (diff) | |
| download | tk-78fd58a9d168a501537ed45e4e29229b430a8846.zip tk-78fd58a9d168a501537ed45e4e29229b430a8846.tar.gz tk-78fd58a9d168a501537ed45e4e29229b430a8846.tar.bz2 | |
* tests/winWm.test:
* tests/unixWm.test:
* mac/tkMacWm.c:
* unix/tkUnixWm.c: fixed possible X error being raised [Bug: 3377]
* win/tkWinWm.c: wm deiconify in zoom state [Bug: 2077],
fixed possible flashing of unmapped toplevel in deiconify [Bug: 3338]
and fixed mapping of transient window [Bug: 572]
Also, for all wm's, extended 'wm state' command to allow setting
of the state, and added official support of 'zoomed' state on Win.
Diffstat (limited to 'tests/winWm.test')
| -rw-r--r-- | tests/winWm.test | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/tests/winWm.test b/tests/winWm.test index e4275fe..e9c86c1 100644 --- a/tests/winWm.test +++ b/tests/winWm.test @@ -9,7 +9,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winWm.test,v 1.3 1999/04/16 01:51:44 stanton Exp $ +# RCS: @(#) $Id: winWm.test,v 1.4 2000/01/12 11:45:36 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -117,7 +117,24 @@ test winWm-2.2 {TkpWmSetState} {pcOnly} { destroy .t set result } {normal withdrawn iconic normal} -test winWm-2.3 {TkpWmSetState} {pcOnly} { +test winWm-2.2 {TkpWmSetState} {pcOnly} { + toplevel .t + wm geometry .t 150x50+10+10 + update + set result [wm state .t] + wm state .t withdrawn + update + lappend result [wm state .t] + wm state .t iconic + update + lappend result [wm state .t] + wm state .t normal + update + lappend result [wm state .t] + destroy .t + set result +} {normal withdrawn iconic normal} +test winWm-2.4 {TkpWmSetState} {pcOnly} { set result {} toplevel .t wm geometry .t 150x50+10+10 @@ -136,7 +153,6 @@ test winWm-2.3 {TkpWmSetState} {pcOnly} { set result } {{normal 150x50+10+10} {iconic 150x50+10+10} {iconic 150x50+10+10} {normal 200x50+10+10}} - test winWm-3.1 {ConfigureTopLevel: window geometry propagation} {pcOnly} { toplevel .t wm geometry .t +0+0 |