summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-05-11 22:36:32 (GMT)
committerhobbs <hobbs>2000-05-11 22:36:32 (GMT)
commit5a144b535bc726066340b42e20955732a1ffabe3 (patch)
tree7b1dca9797072870a8c410082aeac6b9de58a16c
parent87c0b76bbd4d488c67f7d0cb6fd14306afb18b0f (diff)
downloadtk-5a144b535bc726066340b42e20955732a1ffabe3.zip
tk-5a144b535bc726066340b42e20955732a1ffabe3.tar.gz
tk-5a144b535bc726066340b42e20955732a1ffabe3.tar.bz2
* tests/focus.test (focusSetupAlt): removed wm withdraw from proc
as it would cause a hang for tkwait visibility
-rw-r--r--tests/focus.test3
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/focus.test b/tests/focus.test
index e8f850a..5750ae8 100644
--- a/tests/focus.test
+++ b/tests/focus.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: focus.test,v 1.5 1999/04/16 01:51:37 stanton Exp $
+# RCS: @(#) $Id: focus.test,v 1.6 2000/05/11 22:36:32 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -33,7 +33,6 @@ proc focusSetupAlt {} {
global env
catch {destroy .alt}
toplevel .alt -screen $env(TK_ALT_DISPLAY)
- wm withdraw .alt
foreach i {a b c d} {
button .alt.$i -text .alt.$i -relief raised -bd 2
pack .alt.$i