diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-12-03 23:28:42 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-12-03 23:28:42 (GMT) |
| commit | 4ccd3392912d78e23be5aad9be104d58f301c4b7 (patch) | |
| tree | 8736b9ef8e8f5b2f916b10716da9c48e58493743 /tests | |
| parent | 2164143b9b3b46a3949e819c17275313f2c7f8b4 (diff) | |
| parent | 45fd1aa9f09798ce73c7692243123ab5494095d0 (diff) | |
| download | tk-4ccd3392912d78e23be5aad9be104d58f301c4b7.zip tk-4ccd3392912d78e23be5aad9be104d58f301c4b7.tar.gz tk-4ccd3392912d78e23be5aad9be104d58f301c4b7.tar.bz2 | |
Merged from branch bug-7703f947aa
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index a3f9ae9..fff52d4 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -1458,7 +1458,7 @@ test textDisp-11.15 {TkTextSetYView, only a few lines visible} { update .top.t see 11.0 .top.t index @0,0 - # Thie index 9.0 should be just visible by a couple of pixels + # The index 9.0 should be just visible by a couple of pixels } {9.0} test textDisp-11.16 {TkTextSetYView, only a few lines visible} { .top.t yview 8.0 @@ -1471,9 +1471,23 @@ test textDisp-11.17 {TkTextSetYView, only a few lines visible} { update .top.t see 4.0 .top.t index @0,0 - # Thie index 2.0 should be just visible by a couple of pixels + # The index 2.0 should be just visible by a couple of pixels } {2.0} -destroy .top +test textDisp-11.18 {TkTextSetYView, see in elided lines} { + .top.t delete 1.0 end + for {set i 1} {$i < 20} {incr i} { + .top.t insert end [string repeat "Line $i" 10] + .top.t insert end "\n" + } + .top.t yview 4.0 + .top.t tag add hidden 4.10 "4.10 lineend" + .top.t tag add hidden 5.15 10.3 + .top.t tag configure hidden -elide true + update + .top.t see "8.0 lineend" + # The index "8.0 lineend" is on screen despite elided -> no scroll + .top.t index @0,0 +} {4.0} .t configure -wrap word .t delete 50.0 51.0 |