summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2014-11-22 22:23:41 (GMT)
committerfvogel <fvogelnew1@free.fr>2014-11-22 22:23:41 (GMT)
commit7feb0a2ec8f0544fcbf584d987c6102abf6c24ca (patch)
tree7ced7c286dfe3e216fd05ebcdf706dfb71155c38
parent491173bf30346721a6b32880a39876c2030cb1ec (diff)
downloadtk-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
-rw-r--r--tests/textDisp.test13
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