diff options
| -rw-r--r-- | tests/textWind.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/textWind.test b/tests/textWind.test index f2daaca..b453feb 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -13,7 +13,11 @@ tcltest::loadTestedCommands deleteWindows -set fixedFont {"Courier New" -12} +if {[tk windowingsystem] eq "aqua"} { + set fixedFont {"Courier" -12} +} else { + set fixedFont {"Courier New" -12} +} set fixedHeight [font metrics $fixedFont -linespace] set fixedWidth [font measure $fixedFont m] set fixedAscent [font metrics $fixedFont -ascent] |