diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | tests/textWind.test | 10 |
2 files changed, 11 insertions, 5 deletions
@@ -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} |