summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2003-10-28 22:52:16 (GMT)
committerhobbs <hobbs>2003-10-28 22:52:16 (GMT)
commit09ab626ec7b027542d48fa6ffe22d4877574f8ce (patch)
tree435537f86b086bbac02a08f3949fb3ce2d08394b
parentcb79033c9b3014af425e76408eca6cea98376986 (diff)
downloadtk-09ab626ec7b027542d48fa6ffe22d4877574f8ce.zip
tk-09ab626ec7b027542d48fa6ffe22d4877574f8ce.tar.gz
tk-09ab626ec7b027542d48fa6ffe22d4877574f8ce.tar.bz2
* tests/focusTcl.test (setup1): expand frame size to allow for
correct visibility of windows that use larger default fonts.
-rw-r--r--tests/focusTcl.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/focusTcl.test b/tests/focusTcl.test
index 11071ff..1570c36 100644
--- a/tests/focusTcl.test
+++ b/tests/focusTcl.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: focusTcl.test,v 1.6 2003/04/01 21:06:28 dgp Exp $
+# RCS: @(#) $Id: focusTcl.test,v 1.7 2003/10/28 22:52:16 hobbs Exp $
package require tcltest 2.1
eval tcltest::configure $argv
@@ -18,7 +18,7 @@ proc setup1 w {
set w ""
}
foreach i {a b c d} {
- frame $w.$i -width 100 -height 50 -bd 2 -relief raised
+ frame $w.$i -width 200 -height 50 -bd 2 -relief raised
pack $w.$i
}
.b configure -width 0 -height 0