diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-02-09 22:52:58 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-02-09 22:52:58 (GMT) |
| commit | 5fb0e4f1ac206e6981eafc494432196cd34e138f (patch) | |
| tree | 07faf0191cfa307638139254952210ee698ae085 /tests | |
| parent | 100c8158bd4887b6481076f77ddeb6dbf1167d9f (diff) | |
| parent | e10d9b811fe94f005b7639f5ec90eb9246c07165 (diff) | |
| download | tk-5fb0e4f1ac206e6981eafc494432196cd34e138f.zip tk-5fb0e4f1ac206e6981eafc494432196cd34e138f.tar.gz tk-5fb0e4f1ac206e6981eafc494432196cd34e138f.tar.bz2 | |
Fixed crash in 'text see' - Bug [e0f1c380bd]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 12a20c6..aed842c 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -1558,6 +1558,18 @@ test textDisp-11.19 {TkTextSetYView, see in elided lines} { set ind3 [.top.t index @0,0] list [expr {$ind1 == $ind2}] [expr {$ind1 == $ind3}] } {1 1} +test textDisp-11.20 {TkTextSetYView, see in elided lines} { + .top.t delete 1.0 end + .top.t configure -wrap none + for {set i 1} {$i < 5} {incr i} { + .top.t insert end [string repeat "Line $i " 50] + .top.t insert end "\n" + } + .top.t delete 3.11 3.14 + .top.t tag add hidden 3.0 4.0 + # this shall not crash (null chunkPtr in TkTextSeeCmd is tested) + .top.t see 3.0 +} {} .t configure -wrap word .t delete 50.0 51.0 |