diff options
| author | fvogel <fvogel@noemail.net> | 2015-12-26 21:10:45 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2015-12-26 21:10:45 (GMT) |
| commit | 88a2ec52c0403f619ded36af5e0fa7ecb7e0d356 (patch) | |
| tree | f6904f89fdc70479eab7dfce4572e2c0c7c70b7f /tests | |
| parent | 80c3fe57a5438f92fabf058c93f409e665025b36 (diff) | |
| parent | d6f0ed4613b5c8ca53a5cf8a70d6631060ab2961 (diff) | |
| download | tk-88a2ec52c0403f619ded36af5e0fa7ecb7e0d356.zip tk-88a2ec52c0403f619ded36af5e0fa7ecb7e0d356.tar.gz tk-88a2ec52c0403f619ded36af5e0fa7ecb7e0d356.tar.bz2 | |
Fixed bug [2f78c7c5ea] - text widget segfault with tablelist
FossilOrigin-Name: 5325caee9710aa62e28792a33276c56401c0985b
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 7aa2fef..ac3aee0 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 |