From 9c00fad8c5053bf9135c5d8ba265285aef05d11c Mon Sep 17 00:00:00 2001
From: wart <wart>
Date: Thu, 16 Dec 1999 02:13:49 +0000
Subject: Added a couple of extra update calls to prevent some window managers
 from forcing users to manually place toplevels.

---
 tests/unixWm.test | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/unixWm.test b/tests/unixWm.test
index 17bdc80..ca86551 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.8 1999/12/14 06:53:15 hobbs Exp $
+# RCS: @(#) $Id: unixWm.test,v 1.9 1999/12/16 02:13:49 wart Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -822,6 +822,7 @@ test unixWm-23.5 {Tk_WmCmd procedure, "iconify" option} {
     catch {destroy .t2}
     toplevel .t2
     wm geom .t2 +0+0
+    update
     wm iconify .t2
     update
     set result [winfo ismapped .t2]
@@ -835,6 +836,7 @@ test unixWm-23.6 {Tk_WmCmd procedure, "iconify" option} {
     update
     set result [winfo ismapped .t2]
     wm iconify .t2
+    update
     lappend result [winfo ismapped .t2]
     destroy .t2
     set result
-- 
cgit v0.12