From 32c3620333d2a0608a749aff93284c034a9dab09 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 29 Oct 2003 01:08:19 +0000
Subject:         * tests/focusTcl.test (setup1): expand frame size to allow
 for         correct visibility of windows that use larger default fonts.

---
 tests/focusTcl.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/focusTcl.test b/tests/focusTcl.test
index db064e0..fed65fd 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.5 2002/07/14 15:45:23 dgp Exp $
+# RCS: @(#) $Id: focusTcl.test,v 1.5.2.1 2003/10/29 01:08:19 hobbs Exp $
 
 package require tcltest 2.1
 namespace import -force tcltest::configure
@@ -21,7 +21,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
-- 
cgit v0.12