diff options
Diffstat (limited to 'tests/winWm.test')
| -rw-r--r-- | tests/winWm.test | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/tests/winWm.test b/tests/winWm.test index 72f5919..bc4a220 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.5 2002/06/22 10:13:26 hobbs Exp $ +# RCS: @(#) $Id: winWm.test,v 1.6 2002/06/24 20:34:40 mdejong Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -248,6 +248,30 @@ test winWm-6.3 {wm attributes} {pcOnly} { destroy .t +test winWm-6.1 {deiconify on an unmapped toplevel + will raise the window and set the focus} {pcOnly} { + destroy .t + toplevel .t + lower .t + focus -force . + wm deiconify .t + update + list [wm stackorder .t isabove .] [focus] +} {1 .t} + +test winWm-6.2 {deiconify on an already mapped toplevel + will raise the window and set the focus} {pcOnly} { + destroy .t + toplevel .t + lower .t + update + focus -force . + wm deiconify .t + update + list [wm stackorder .t isabove .] [focus] +} {1 .t} + + # cleanup ::tcltest::cleanupTests return |