diff options
author | fvogel <fvogelnew1@free.fr> | 2023-11-06 20:49:40 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2023-11-06 20:49:40 (GMT) |
commit | 41f60ae2ae84d13e88e2355fdc039c2518aeb0d7 (patch) | |
tree | 0b8b39d9ae11e8c3158e9d1a2acb8c7f0de4a275 /tests | |
parent | 4275dd5c1890953223d6e85f5b1c0f77d38690c4 (diff) | |
download | tk-41f60ae2ae84d13e88e2355fdc039c2518aeb0d7.zip tk-41f60ae2ae84d13e88e2355fdc039c2518aeb0d7.tar.gz tk-41f60ae2ae84d13e88e2355fdc039c2518aeb0d7.tar.bz2 |
Make font-44.1 more independent of the actual font size available by still checking the same thing (doubling of the font size).
Diffstat (limited to 'tests')
-rw-r--r-- | tests/font.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/font.test b/tests/font.test index f112d16..80a0420 100644 --- a/tests/font.test +++ b/tests/font.test @@ -2342,11 +2342,12 @@ test font-43.1 {FieldSpecified procedure: specified vs. non-specified} -body { test font-44.1 {TkFontGetPixels: size < 0} -setup { set oldscale [tk scaling] } -body { + set oldsize [expr {[font actual {times -12} -size] * $oldscale}] tk scaling 0.5 - font actual {times -12} -size + expr {[font actual {times -12} -size] == $oldsize / 0.5} } -cleanup { tk scaling $oldscale -} -result 24 +} -result 1 test font-44.2 {TkFontGetPoints: size >= 0} -constraints {noExceed haveTimes12Font} -setup { set oldscale [tk scaling] } -body { |