diff options
| author | hobbs <hobbs> | 2005-11-30 23:42:49 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2005-11-30 23:42:49 (GMT) |
| commit | 05e8c9eeea6346d4828989ea1ac07eea25ab2837 (patch) | |
| tree | 8851df12496c33aec9d8b27ba3d31b074e4edb63 /tests | |
| parent | 67f9c039e662ff1fb807492ec7ad56f9d8f47369 (diff) | |
| download | tk-05e8c9eeea6346d4828989ea1ac07eea25ab2837.zip tk-05e8c9eeea6346d4828989ea1ac07eea25ab2837.tar.gz tk-05e8c9eeea6346d4828989ea1ac07eea25ab2837.tar.bz2 | |
* tests/textWind.test: use "Courier -12" on all platforms.
Reduces Windows XP test errors in that file from 9 to 2 (13.2 and
13.9 still off-by-one pixel).
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textWind.test | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/tests/textWind.test b/tests/textWind.test index c7093ca..babe7db 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textWind.test,v 1.5 2002/07/13 20:28:35 dgp Exp $ +# RCS: @(#) $Id: textWind.test,v 1.5.2.1 2005/11/30 23:42:49 hobbs Exp $ package require tcltest 2.1 namespace import -force tcltest::configure @@ -20,11 +20,7 @@ tcltest::loadTestedCommands option add *Text.borderWidth 2 option add *Text.highlightThickness 2 -if {$tcl_platform(platform) == "windows"} { - option add *Text.font {Courier -14} -} else { - option add *Text.font {Courier -12} -} +option add *Text.font {Courier -12} text .t -width 30 -height 6 -bd 2 -highlightthickness 2 pack append . .t {top expand fill} @@ -36,7 +32,7 @@ if {[winfo depth .t] > 1} { } else { set color black } - + # The statements below reset the main window; it's needed if the window # manager is mwm to make mwm forget about a previous minimum size setting. |