diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-11-22 22:23:41 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-11-22 22:23:41 (GMT) |
| commit | 7feb0a2ec8f0544fcbf584d987c6102abf6c24ca (patch) | |
| tree | 7ced7c286dfe3e216fd05ebcdf706dfb71155c38 /tests/textDisp.test | |
| parent | 491173bf30346721a6b32880a39876c2030cb1ec (diff) | |
| download | tk-7feb0a2ec8f0544fcbf584d987c6102abf6c24ca.zip tk-7feb0a2ec8f0544fcbf584d987c6102abf6c24ca.tar.gz tk-7feb0a2ec8f0544fcbf584d987c6102abf6c24ca.tar.bz2 | |
Added test for bug [7703f947aa] - Wrong refresh of display lines when tagging text as elided
Diffstat (limited to 'tests/textDisp.test')
| -rw-r--r-- | tests/textDisp.test | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index ef65956..96670ac 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -1262,6 +1262,19 @@ test textDisp-9.11 {TkTextRedrawTag} { update set tk_textRedraw } {} +test textDisp-9.12 {TkTextRedrawTag} { + .t configure -wrap char + .t delete 1.0 end + for {set i 1} {$i < 5} {incr i} { + .t insert end "Line $i+++Line $i\n" + } + .t tag configure hidden -elide true + .t tag add hidden 2.6 3.6 + update + .t tag add hidden 3.11 4.6 + update + list $tk_textRelayout $tk_textRedraw +} {2.0 {2.0 eof}} test textDisp-10.1 {TkTextRelayoutWindow} { .t configure -wrap char |