From 39301938e1a5b7bedd8a058964e3ae9bf96df477 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Tue, 28 Oct 2003 22:52:15 +0000
Subject:         * tests/focusTcl.test (setup1): expand frame size to allow
 for         correct visibility of windows that use larger default fonts.

FossilOrigin-Name: ce163253384dc8d4bb20e667162244e2f151bc62
---
 tests/focusTcl.test | 4 ++--
 1 file 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
-- 
cgit v0.12