diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/textWind.test | 10 |
2 files changed, 7 insertions, 7 deletions
@@ -1,5 +1,9 @@ 2005-11-30 Jeff Hobbs <jeffh@ActiveState.com> + * 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). + * win/tkWinWm.c (UpdateWrapper): Don't install frame menu on dead window. Backport of 1233635 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. |