diff options
| author | fvogel <fvogelnew1@free.fr> | 2022-01-05 20:33:39 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2022-01-05 20:33:39 (GMT) |
| commit | 5d20906695103bcff6e8b250372db81d240ac320 (patch) | |
| tree | 45afac43dc944567608f67106a234a9ba3b1733d /tests/textIndex.test | |
| parent | 7bd95f1d4f8ac4e2de1aaf5f769cefd4da481cbf (diff) | |
| parent | 8a3569b1a0838f8f500218837c0ff6ef13ac93cd (diff) | |
| download | tk-5d20906695103bcff6e8b250372db81d240ac320.zip tk-5d20906695103bcff6e8b250372db81d240ac320.tar.gz tk-5d20906695103bcff6e8b250372db81d240ac320.tar.bz2 | |
merge 8.6
Diffstat (limited to 'tests/textIndex.test')
| -rw-r--r-- | tests/textIndex.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/textIndex.test b/tests/textIndex.test index 7e6cf05..33793bd 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -835,6 +835,18 @@ test textIndex-19.13 {Display lines} { destroy .txt .sbar } {} +test textIndex-19.14 {Display lines with elided lines} { + catch {destroy .t} + pack [text .t] + for {set n 1} {$n <= 1000} {incr n} { + .t insert end "Line $n\n" + } + .t tag configure Elided -elide 1 + .t tag add Elided 6.0 951.0 + update + set res [.t index "951.0 + 1 displaylines"] +} {952.0} + proc text_test_word {startend chars start} { destroy .t text .t |