diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-02-05 17:35:14 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-02-05 17:35:14 (GMT) |
| commit | 4b01427e67e70e07876c9f56bed7ad10d3fda660 (patch) | |
| tree | aba5e420902f3e9764b952385ccec60f3441dadb /tests/textWind.test | |
| parent | 39823768aabddb132af9133105dbd6723dca7814 (diff) | |
| parent | ac3c1f125c104ab506961d6653f0de098a056686 (diff) | |
| download | tk-4b01427e67e70e07876c9f56bed7ad10d3fda660.zip tk-4b01427e67e70e07876c9f56bed7ad10d3fda660.tar.gz tk-4b01427e67e70e07876c9f56bed7ad10d3fda660.tar.bz2 | |
Fix [c0dbdd3ff3]: Tk Compatibility Fonts block access to system fonts
Diffstat (limited to 'tests/textWind.test')
| -rw-r--r-- | tests/textWind.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/textWind.test b/tests/textWind.test index 4008f89..d32bd8d 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -16,7 +16,7 @@ tcltest::loadTestedCommands option add *Text.borderWidth 2 option add *Text.highlightThickness 2 -option add *Text.font {Courier -12} +option add *Text.font {"Courier New" -12} deleteWindows @@ -27,7 +27,7 @@ update .t debug on # 15 on XP, 13 on Solaris 8 -set fixedHeight [font metrics {Courier -12} -linespace] +set fixedHeight [font metrics {"Courier New" -12} -linespace] set fixedDiff [expr {$fixedHeight - 13}] ;# 2 on XP set color [expr {[winfo depth .t] > 1 ? "green" : "black"}] |