From 7c3c1aef2385370be1ebfaaa34fa816693b58484 Mon Sep 17 00:00:00 2001
From: wart <wart>
Date: Fri, 12 Nov 1999 23:55:16 +0000
Subject: Added "wm geometry" calls in some tests that were waiting for the
 user to place a window manually.  The Tk test suite can now run on twm with
 no user intervention.

---
 tests/canvText.test | 3 ++-
 tests/filebox.test  | 4 +++-
 tests/grid.test     | 5 +++--
 tests/winFont.test  | 3 ++-
 tests/xmfbox.test   | 3 ++-
 5 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/tests/canvText.test b/tests/canvText.test
index 00f8b7f..687b521 100644
--- a/tests/canvText.test
+++ b/tests/canvText.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: canvText.test,v 1.6 1999/04/21 21:53:29 rjohnson Exp $
+# RCS: @(#) $Id: canvText.test,v 1.7 1999/11/12 23:55:16 wart Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -243,6 +243,7 @@ test canvText-7.8 {DisplayText procedure: not selected} {
 test canvText-7.9 {DisplayText procedure: select end} {
     catch {destroy .t}
     toplevel .t
+    wm geometry .t +0+0
     canvas .t.c
     pack .t.c
     set id [.t.c create text 0 0 -text Dummy -anchor nw]
diff --git a/tests/filebox.test b/tests/filebox.test
index e4bc512..8e848ca 100644
--- a/tests/filebox.test
+++ b/tests/filebox.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: filebox.test,v 1.6 1999/04/16 01:51:37 stanton Exp $
+# RCS: @(#) $Id: filebox.test,v 1.7 1999/11/12 23:55:16 wart Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -223,6 +223,8 @@ foreach mode $modes {
 
 	test filebox-2.6 "$command command" {nonUnixUserInteraction} {
 	    toplevel .t1; toplevel .t2
+	    wm geometry .t1 +0+0
+	    wm geometry .t2 +0+0
 	    ToPressButton .t1 ok
 	    set choice {}
 	    lappend choice [$command \
diff --git a/tests/grid.test b/tests/grid.test
index ed0a455..8cec4aa 100644
--- a/tests/grid.test
+++ b/tests/grid.test
@@ -5,7 +5,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: grid.test,v 1.4 1999/04/16 01:51:38 stanton Exp $
+# RCS: @(#) $Id: grid.test,v 1.5 1999/11/12 23:55:16 wart Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -1198,6 +1198,7 @@ test grid-17.1 {forget and pending idle handlers} {
     # pending idle handlers when grid forget is invoked.
 
     toplevel .t
+    wm geometry .t +0+0
     frame .t.f
     label .t.f.l -text foobar
     grid .t.f.l
@@ -1207,7 +1208,7 @@ test grid-17.1 {forget and pending idle handlers} {
     grid forget .t.f
     destroy .t
 
-    toplevel .t
+    toplevel .t -geometry +0+0
     frame .t.f
     label .t.f.l -text foobar
     grid .t.f.l
diff --git a/tests/winFont.test b/tests/winFont.test
index 2c2798e..5fe5a57 100644
--- a/tests/winFont.test
+++ b/tests/winFont.test
@@ -10,7 +10,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: winFont.test,v 1.4 1999/04/16 01:51:43 stanton Exp $
+# RCS: @(#) $Id: winFont.test,v 1.5 1999/11/12 23:55:16 wart Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -20,6 +20,7 @@ catch {destroy .b}
 catch {font delete xyz}
 
 toplevel .b
+wm geometry .b +0+0
 update idletasks
 
 set courier {Courier 14}
diff --git a/tests/xmfbox.test b/tests/xmfbox.test
index c5b6736..29ebf18 100644
--- a/tests/xmfbox.test
+++ b/tests/xmfbox.test
@@ -9,7 +9,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: xmfbox.test,v 1.2 1999/04/16 01:51:44 stanton Exp $
+# RCS: @(#) $Id: xmfbox.test,v 1.3 1999/11/12 23:55:16 wart Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -69,6 +69,7 @@ test xmfbox-1.1 {tkMotifFDialog_Create, -parent switch} {unixOnly} {
 test xmfbox-1.2 {tkMotifFDialog_Create, -parent switch} {unixOnly} {
     catch {unset foo}
     toplevel .bar
+    wm geometry .bar +0+0
     set x [tkMotifFDialog_Create foo open {-parent .bar}]
     catch {destroy $x}
     catch {destroy .bar}
-- 
cgit v0.12