diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-10-29 20:19:21 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-10-29 20:19:21 (GMT) |
| commit | ead20630da62cb8674fea88a385281fd05a0bcd4 (patch) | |
| tree | 43b2b58c37089d090962979573c0f8a8f9593163 /tests/entry.test | |
| parent | f4d4fd8a09e8d9dd4170ff2115ec46fe185b1ad8 (diff) | |
| download | tk-ead20630da62cb8674fea88a385281fd05a0bcd4.zip tk-ead20630da62cb8674fea88a385281fd05a0bcd4.tar.gz tk-ead20630da62cb8674fea88a385281fd05a0bcd4.tar.bz2 | |
Fixed bug [220854fff] - Trailing tab characters in entry widgets are not displayedbug_220854fff
Diffstat (limited to 'tests/entry.test')
| -rw-r--r-- | tests/entry.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/entry.test b/tests/entry.test index ffdbf45..27acfc1 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -778,6 +778,14 @@ test entry-6.11 {EntryComputeGeometry procedure} win { [expr 8+5*[font measure {helvetica 12} .]] \ [expr 8+5*[font measure {helvetica 12} X]] \ [expr 8+[font measure {helvetica 12} 12345]]] +test entry-6.12 {EntryComputeGeometry procedure} {fonts} { + catch {destroy .e} + entry .e -font $fixed -bd 2 -relief raised -width 20 + pack .e + .e insert end "012\t456\t" + update + list [.e index @81] [.e index @82] [.e index @116] [.e index @117] +} {6 7 7 8} catch {destroy .e} entry .e -width 10 -font $fixed -textvariable contents -xscrollcommand scroll |