From ba1d353db329ab93b7389a9db8b3a1062db7d33f Mon Sep 17 00:00:00 2001
From: mdejong <mdejong>
Date: Thu, 7 Nov 2002 22:27:02 +0000
Subject: 	* 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.

---
 ChangeLog         | 6 ++++++
 tests/unixWm.test | 4 +++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 196e3d9..d4977dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-11-07  Mo DeJong  <mdejong@users.sourceforge.net>
+
+	* 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.
+
 2002-11-07  Peter Spjuth  <peter.spjuth@space.se>
 
 	* tests/place.test:
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} {
-- 
cgit v0.12