diff options
| -rw-r--r-- | tests/textImage.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/textImage.test b/tests/textImage.test index 9de9864..4d143e7 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -386,12 +386,13 @@ test textImage-4.2 {alignment checking - baseline} -setup { .t image create end -image large .t image create end -image small -align baseline .t insert end test + update # Sizes larger than 25 can be too big and lead to a negative 'norm', # at least on Windows XP with certain settings. foreach size {10 15 20 25} { font configure test_font2 -size $size array set Metrics [font metrics test_font2] - update ; .t sync + updateWidgets ; .t sync foreach {x y w h} [.t bbox small] {} set norm [expr { (([image height large] - $Metrics(-linespace))/2 |