summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorwart <wart>1999-11-12 23:55:16 (GMT)
committerwart <wart>1999-11-12 23:55:16 (GMT)
commit7c3c1aef2385370be1ebfaaa34fa816693b58484 (patch)
tree96a96faf03522c970ff5942365d1970a1ecbab64
parentf26d87ff6dc4002600ced51b9c7bbb66b1d6f8df (diff)
downloadtk-7c3c1aef2385370be1ebfaaa34fa816693b58484.zip
tk-7c3c1aef2385370be1ebfaaa34fa816693b58484.tar.gz
tk-7c3c1aef2385370be1ebfaaa34fa816693b58484.tar.bz2
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.
-rw-r--r--tests/canvText.test3
-rw-r--r--tests/filebox.test4
-rw-r--r--tests/grid.test5
-rw-r--r--tests/winFont.test3
-rw-r--r--tests/xmfbox.test3
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}