diff options
| author | surles <surles@noemail.net> | 1998-06-11 14:22:32 (GMT) |
|---|---|---|
| committer | surles <surles@noemail.net> | 1998-06-11 14:22:32 (GMT) |
| commit | ab80cdb61f1e64878a13eff0d41e49cb5361c6f2 (patch) | |
| tree | 35ca63bd8d732bcf421fdfab5a2768e3213530a5 /tests | |
| parent | 50a74d97536aa44cc53110a175f3e58c5c7938ac (diff) | |
| download | tk-ab80cdb61f1e64878a13eff0d41e49cb5361c6f2.zip tk-ab80cdb61f1e64878a13eff0d41e49cb5361c6f2.tar.gz tk-ab80cdb61f1e64878a13eff0d41e49cb5361c6f2.tar.bz2 | |
Added test to verify that Kerning works.
FossilOrigin-Name: 1a2c69f563f8029a1306f373828afdf022a50862
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/winFont.test | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/winFont.test b/tests/winFont.test index a047108..172722f 100644 --- a/tests/winFont.test +++ b/tests/winFont.test @@ -149,7 +149,15 @@ test winfont-5.10 {Tk_MeasureChars procedure: make first part of word fit} { .b.l config -wrap [expr $ax*12] -text "0000000000000000" getsize } "[expr $ax*12] [expr $ay*2]" - +test winfont-5.10 {Tk_MeasureChars procedure: check for kerning} {nonPortable} { + set font [.b.l cget -font] + .b.l config -font {{MS Sans Serif} 8} -text "W" + set width [winfo reqwidth .b.l] + .b.l config -text "XaYoYaKaWx" + set x [lindex [getsize] 0] + .b.l config -font $font + expr $x < ($width*10) +} 1 test winfont-6.1 {Tk_DrawChars procedure: loop test} { .b.l config -text "a" update |