summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-12-23 16:36:56 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-12-23 16:36:56 (GMT)
commit9e128a5e118f9b0ce894219129ba49b53f6cc3a8 (patch)
treee35a699a870b1e2e5402bfad92101d085336cbfe
parentdcb68b1c9c9f143fc7459480396bf38a6a89d011 (diff)
downloadtk-9e128a5e118f9b0ce894219129ba49b53f6cc3a8.zip
tk-9e128a5e118f9b0ce894219129ba49b53f6cc3a8.tar.gz
tk-9e128a5e118f9b0ce894219129ba49b53f6cc3a8.tar.bz2
Added new test textDisp-9.14 to check against regression regarding bug [2f78c7c5ea]
-rw-r--r--tests/textDisp.test24
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index 038eccd..ea4d0c2 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -1333,6 +1333,30 @@ test textDisp-9.13 {TkTextRedrawTag} {
update
list $tk_textRelayout $tk_textRedraw
} {{2.0 6.0 7.0} {2.0 6.0 7.0}}
+test textDisp-9.14 {TkTextRedrawTag} {
+ pack [text .tnocrash]
+ for {set i 1} {$i < 6} {incr i} {
+ .tnocrash insert end \nfoo$i
+ }
+ .tnocrash tag configure mytag1 -relief raised
+ .tnocrash tag configure mytag2 -relief solid
+ update
+ proc doit {} {
+ .tnocrash tag add mytag1 4.0 5.0
+ .tnocrash tag add mytag2 4.0 5.0
+ after idle {
+ .tnocrash tag remove mytag1 1.0 end
+ .tnocrash tag remove mytag2 1.0 end
+ }
+ .tnocrash delete 1.0 2.0
+ }
+ doit ; # must not crash
+ after 500 {
+ destroy .tnocrash
+ set done 1
+ }
+ vwait done
+} {}
test textDisp-10.1 {TkTextRelayoutWindow} {
.t configure -wrap char