summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles>1998-06-11 14:22:33 (GMT)
committersurles <surles>1998-06-11 14:22:33 (GMT)
commitb08870d61762f233ef24c901c16d86e6232383ba (patch)
tree35ca63bd8d732bcf421fdfab5a2768e3213530a5
parent1c157a1d1cd5ccc3b4ae38bf459e050e8ee702c9 (diff)
downloadtk-b08870d61762f233ef24c901c16d86e6232383ba.zip
tk-b08870d61762f233ef24c901c16d86e6232383ba.tar.gz
tk-b08870d61762f233ef24c901c16d86e6232383ba.tar.bz2
Added test to verify that Kerning works.
-rw-r--r--tests/winFont.test10
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