diff options
| author | fvogel <fvogelnew1@free.fr> | 2014-11-30 22:03:02 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2014-11-30 22:03:02 (GMT) |
| commit | a05ecd7e763d2feefd2674474f689a1eda2f706f (patch) | |
| tree | 4d91bcd5a649309c2447353122906847cf422cad /tests | |
| parent | 2c88933e6e6ca13bbb995b63c8157cb6b73e7e40 (diff) | |
| parent | 0fe2477bba12ab50cd6de575cb0a6c5d649a7ab6 (diff) | |
| download | tk-a05ecd7e763d2feefd2674474f689a1eda2f706f.zip tk-a05ecd7e763d2feefd2674474f689a1eda2f706f.tar.gz tk-a05ecd7e763d2feefd2674474f689a1eda2f706f.tar.bz2 | |
Merged from branch 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" |