summaryrefslogtreecommitdiffstats
path: root/tests/wm.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/wm.test')
-rw-r--r--tests/wm.test10
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/wm.test b/tests/wm.test
index 0665bcc..2dea668 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: wm.test,v 1.5 2002/05/24 09:50:11 mdejong Exp $
+# RCS: @(#) $Id: wm.test,v 1.6 2002/05/27 17:33:26 mdejong Exp $
# This file tests window manager interactions that work across
# platforms. Window manager tests that only work on a specific
@@ -20,13 +20,14 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
proc deleteWindows {} {
foreach i [winfo children .] {
- catch [destroy $i]
+ destroy $i
}
}
deleteWindows
+wm deicon .
test wm-stackorder-1.1 {usage} {
list [catch {wm stackorder} err] $err
@@ -296,7 +297,7 @@ test wm-stackorder-5.3 {An overrideredirect window
test wm-stackorder-6.1 {An embedded toplevel does not
appear in the stacking order} {
deleteWindows
- toplevel .real
+ toplevel .real -container 1
toplevel .embd -bg blue -use [winfo id .real]
update
wm stackorder .
@@ -351,6 +352,9 @@ test wm-transient-1.6 {usage} {
# if the window was raised after a button click for example.
# This sort of testing may not be possible.
+
+deleteWindows
+
return