summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorwart <wart>1999-12-16 02:13:49 (GMT)
committerwart <wart>1999-12-16 02:13:49 (GMT)
commit9c00fad8c5053bf9135c5d8ba265285aef05d11c (patch)
tree015abf3fe61b0592b8ddba61c5f18e84c7a518de
parent7607aa1b4fa1e27f6da464729e961f510627ea13 (diff)
downloadtk-9c00fad8c5053bf9135c5d8ba265285aef05d11c.zip
tk-9c00fad8c5053bf9135c5d8ba265285aef05d11c.tar.gz
tk-9c00fad8c5053bf9135c5d8ba265285aef05d11c.tar.bz2
Added a couple of extra update calls to prevent some window managers from
forcing users to manually place toplevels.
-rw-r--r--tests/unixWm.test4
1 files changed, 3 insertions, 1 deletions
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