diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-04-24 09:48:37 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-04-24 09:48:37 (GMT) |
| commit | 2aa86905d9177731a46892a3c06d2590be66f624 (patch) | |
| tree | ce7dde0204a0d707b7770fbc0ef9104b4de9a6f4 /tests/textImage.test | |
| parent | 5ecce42c072918cdc8bc8197dd8fec59464e5555 (diff) | |
| download | tk-2aa86905d9177731a46892a3c06d2590be66f624.zip tk-2aa86905d9177731a46892a3c06d2590be66f624.tar.gz tk-2aa86905d9177731a46892a3c06d2590be66f624.tar.bz2 | |
Fix indentation in textImage.test
Diffstat (limited to 'tests/textImage.test')
| -rw-r--r-- | tests/textImage.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/textImage.test b/tests/textImage.test index 2666ec5..2f60211 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -389,15 +389,15 @@ test textImage-4.2 {alignment checking - baseline} -setup { # 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 - foreach {x y w h} [.t bbox small] {} - set norm [expr { - (([image height large] - $Metrics(-linespace))/2 - + $Metrics(-ascent) - [image height small] - $y) + font configure test_font2 -size $size + array set Metrics [font metrics test_font2] + update + foreach {x y w h} [.t bbox small] {} + set norm [expr { + (([image height large] - $Metrics(-linespace))/2 + + $Metrics(-ascent) - [image height small] - $y) }] - lappend result "$size $norm" + lappend result "$size $norm" } return $result } -cleanup { |