summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2014-11-30 22:01:10 (GMT)
committerfvogel <fvogelnew1@free.fr>2014-11-30 22:01:10 (GMT)
commit0fe2477bba12ab50cd6de575cb0a6c5d649a7ab6 (patch)
treeae320481aac6c273355de3bebc1f6341c8f3e7e7 /tests
parentbdd484f568bb6dfd8d9e05d5ab8b9d8470f83cf6 (diff)
downloadtk-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.test13
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"