diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-11-30 22:01:10 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-11-30 22:01:10 (GMT) |
| commit | 0fe2477bba12ab50cd6de575cb0a6c5d649a7ab6 (patch) | |
| tree | ae320481aac6c273355de3bebc1f6341c8f3e7e7 /tests | |
| parent | bdd484f568bb6dfd8d9e05d5ab8b9d8470f83cf6 (diff) | |
| download | tk-0fe2477bba12ab50cd6de575cb0a6c5d649a7ab6.zip tk-0fe2477bba12ab50cd6de575cb0a6c5d649a7ab6.tar.gz tk-0fe2477bba12ab50cd6de575cb0a6c5d649a7ab6.tar.bz2 | |
Fixed FindDLine again (the previous fix [575b376065] was an improvement despite it did not fix all cases), see case 'C' in bug [7703f947aa]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textDisp.test | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 3add847..b04b2ce 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -2777,6 +2777,19 @@ test textDisp-22.10 {TkTextCharBbox, handling of elided lines} {textfonts} { [expr {[lindex [.t bbox 7.1] 0] - [lindex [.t bbox 6.8] 0]}] \ [expr {[lindex [.t bbox 7.12] 0] - [lindex [.t bbox 6.8] 0]}] } [list 0 0 0 0 0 0 0 0 0 0 0] +test textDisp-22.11 {TkTextCharBbox, handling of wrapped elided lines} {textfonts} { + .t configure -wrap char + .t delete 1.0 end + for {set i 1} {$i < 10} {incr i} { + .t insert end "Line $i - Line _$i - Lines .$i - Line [format %c [expr 64+$i]]\n" + } + .t tag add hidden 1.30 2.5 + .t tag configure hidden -elide true + update + list \ + [expr {[lindex [.t bbox 1.30] 0] - [lindex [.t bbox 2.4] 0]}] \ + [expr {[lindex [.t bbox 1.30] 0] - [lindex [.t bbox 2.5] 0]}] +} [list 0 0] .t delete 1.0 end .t insert end "Line 1" |