diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-09-12 18:53:16 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-09-12 18:53:16 (GMT) |
| commit | 29521ce8cc82db85d7897f6d4eebeff44879f674 (patch) | |
| tree | 7a602c406db3bffc198e674dc988850ca829e7a9 | |
| parent | 09fd4ddcbeed3f50707b90312ce62dc636ccc8ac (diff) | |
| parent | a3561e3753f30dbcd0ef5db6dcc61146219fc513 (diff) | |
| download | tk-29521ce8cc82db85d7897f6d4eebeff44879f674.zip tk-29521ce8cc82db85d7897f6d4eebeff44879f674.tar.gz tk-29521ce8cc82db85d7897f6d4eebeff44879f674.tar.bz2 | |
Add new test textIndex-19.14 for [934cab5005]. This test does not fail with the legacy text widget but fails with revised_text.
| -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 f2cccac..faddcfa 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -834,6 +834,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 |