diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2004-11-22 17:54:31 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2004-11-22 17:54:31 (GMT) |
| commit | 59fbbf43921d8a6b91e5ceec0eb17e6f42ad174b (patch) | |
| tree | 3c8b4b642041fd4457216f3833577b813476f5f1 /tests | |
| parent | a65088905654f032027106ddad2dee481829c309 (diff) | |
| download | tk-59fbbf43921d8a6b91e5ceec0eb17e6f42ad174b.zip tk-59fbbf43921d8a6b91e5ceec0eb17e6f42ad174b.tar.gz tk-59fbbf43921d8a6b91e5ceec0eb17e6f42ad174b.tar.bz2 | |
fix a platform-sensitive test
FossilOrigin-Name: 18780ab9e127973f64a589ded45614df05e33edd
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 6ec634d..4515fa6 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textDisp.test,v 1.31 2004/11/20 15:49:47 vincentdarley Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.32 2004/11/22 17:54:32 vincentdarley Exp $ package require tcltest 2.1 eval tcltest::configure $argv @@ -1813,7 +1813,7 @@ test textDisp-16.15 {TkTextYviewCmd procedure, "moveto" option} { test textDisp-16.16 {TkTextYviewCmd procedure, "moveto" option} {textfonts} { set count [expr {5 * $bigHeight + 150 * $fixedHeight}] set extra [expr {0.04 * double($fixedDiff * 150) / double($count)}] - .t yview moveto [expr {.754 - $extra}] + .t yview moveto [expr {.753 - $extra}] .t index @0,0 } {151.60} test textDisp-16.17 {TkTextYviewCmd procedure, "moveto" option} { |