summaryrefslogtreecommitdiffstats
path: root/tests/unixWm.test
diff options
context:
space:
mode:
authormdejong <mdejong>2002-11-07 22:27:02 (GMT)
committermdejong <mdejong>2002-11-07 22:27:02 (GMT)
commitba1d353db329ab93b7389a9db8b3a1062db7d33f (patch)
treec9e31c06334a5da55e163703912dd22dafe8a8e7 /tests/unixWm.test
parentcece78a79dbca5151f873198cc5a089a0fd5cbdc (diff)
downloadtk-ba1d353db329ab93b7389a9db8b3a1062db7d33f.zip
tk-ba1d353db329ab93b7389a9db8b3a1062db7d33f.tar.gz
tk-ba1d353db329ab93b7389a9db8b3a1062db7d33f.tar.bz2
* tests/unixWm.test: Add short delay to test unixWm-51.7
to account for raise/lower changes in TIP 107. This allows the test case to pass under Window Maker on Linux.
Diffstat (limited to 'tests/unixWm.test')
-rw-r--r--tests/unixWm.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/unixWm.test b/tests/unixWm.test
index 31af600..4bb5379 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.28 2002/09/06 16:07:37 dgp Exp $
+# RCS: @(#) $Id: unixWm.test,v 1.29 2002/11/07 22:27:04 mdejong Exp $
package require tcltest 2.2
namespace import -force tcltest::configure
@@ -1974,9 +1974,11 @@ test unixWm-51.7 {TkWmRestackToplevel procedure, other window isn't mapped} {
wm geometry $w +0+0
}
raise .t .t2
+ sleep 2000
update
set result [list [winfo containing 100 100]]
lower .t3
+ sleep 2000
lappend result [winfo containing 100 100]
} {.t3 .t}
test unixWm-51.8 {TkWmRestackToplevel procedure, overrideredirect windows} {