From 57b6fafedae5347caec09f695f997d6237e9385a Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Wed, 30 Nov 2005 23:42:48 +0000
Subject: * 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).
FossilOrigin-Name: d2985a445dd3884f4c1a59355c11b7ab7f2b52bd
---
ChangeLog | 4 ++++
tests/textWind.test | 10 +++-------
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 7285a9d..d94df83 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.
--
cgit v0.12