From 3d332dfaf096c37d18523caeeed045444df36079 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Wed, 10 Dec 2003 12:14:05 +0000
Subject: fixed 2 tests for padx, pady

---
 ChangeLog           |  6 ++++++
 tests/textWind.test | 10 +++++-----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d08e228..ebeb3d1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-12-10  Vince Darley <vincentdarley@users.sourceforge.net>
+
+	* tests/textWind.test: fixed 2 tests so they run on Windows as well
+	as unix, and so their results take account of -padx/-pady settings
+	for the text widget.
+	
 2003-12-10  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* doc/CrtImgType.3: Fixed line-transposition error found by Eric
diff --git a/tests/textWind.test b/tests/textWind.test
index b623aa0..d0c245c 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.14 2003/11/24 10:36:21 vincentdarley Exp $
+# RCS: @(#) $Id: textWind.test,v 1.15 2003/12/10 12:14:05 vincentdarley Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -374,7 +374,7 @@ test textWind-6.1 {EmbWinRequestProc procedure} {fonts} {
     lappend result [.t bbox 1.2] [.t bbox 1.3]
 } {{19 5 10 20} {29 8 7 13} {19 5 25 30} {44 13 7 13}}
 
-test textWind-7.1 {EmbWinLostSlaveProc procedure} {fonts} {
+test textWind-7.1 {EmbWinLostSlaveProc procedure} {textfonts} {
     .t delete 1.0 end
     .t insert 1.0 "Some sample text"
     frame .f -width 10 -height 20 -bg $color
@@ -383,8 +383,8 @@ test textWind-7.1 {EmbWinLostSlaveProc procedure} {fonts} {
     place .f -in .t -x 100 -y 50
     update
     list [winfo geom .f] [.t bbox 1.2]
-} {10x20+104+54 {19 11 0 0}}
-test textWind-7.2 {EmbWinLostSlaveProc procedure} {fonts} {
+} [list 10x20+105+55 [list 19 [expr {11+$fixedDiff/2}] 0 0]]
+test textWind-7.2 {EmbWinLostSlaveProc procedure} {textfonts} {
     .t delete 1.0 end
     .t insert 1.0 "Some sample text"
     frame .t.f -width 10 -height 20 -bg $color
@@ -393,7 +393,7 @@ test textWind-7.2 {EmbWinLostSlaveProc procedure} {fonts} {
     place .t.f -x 100 -y 50
     update
     list [winfo geom .t.f] [.t bbox 1.2]
-} {10x20+104+54 {19 11 0 0}}
+} [list 10x20+105+55 [list 19 [expr {11+$fixedDiff/2}] 0 0]]
 catch {destroy .f}
 catch {destroy .t.f}
 
-- 
cgit v0.12