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/unixWm.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/unixWm.test')
| -rw-r--r-- | tests/unixWm.test | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test index 967e3ff..b9af65a 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixWm.test,v 1.10 1999/12/22 20:01:19 hobbs Exp $ +# RCS: @(#) $Id: unixWm.test,v 1.11 2000/01/12 11:45:36 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1186,8 +1186,11 @@ test unixWm-34.3 {Tk_WmCmd procedure, "sizefrom" option} { test unixWm-35.1 {Tk_WmCmd procedure, "state" option} { list [catch {wm state .t 1} msg] $msg -} {1 {wrong # arguments: must be "wm state window"}} +} {1 {bad argument "1": must be normal, iconic or withdrawn}} test unixWm-35.2 {Tk_WmCmd procedure, "state" option} { + list [catch {wm state .t iconic 1} msg] $msg +} {1 {wrong # arguments: must be "wm state window ?state?"}} +test unixWm-35.3 {Tk_WmCmd procedure, "state" option} { set result {} catch {destroy .t2} toplevel .t2 -width 120 -height 300 @@ -1204,6 +1207,23 @@ test unixWm-35.2 {Tk_WmCmd procedure, "state" option} { destroy .t2 set result } {normal normal withdrawn iconic normal} +test unixWm-35.4 {Tk_WmCmd procedure, "state" option} { + set result {} + catch {destroy .t2} + toplevel .t2 -width 120 -height 300 + wm geometry .t2 +0+0 + lappend result [wm state .t2] + update + lappend result [wm state .t2] + wm state .t2 withdrawn + lappend result [wm state .t2] + wm state .t2 iconic + lappend result [wm state .t2] + wm state .t2 normal + lappend result [wm state .t2] + destroy .t2 + set result +} {normal normal withdrawn iconic normal} test unixWm-36.1 {Tk_WmCmd procedure, "title" option} { list [catch {wm title .t 1 2} msg] $msg |