summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2014-12-03 23:25:43 (GMT)
committerfvogel <fvogelnew1@free.fr>2014-12-03 23:25:43 (GMT)
commit45fd1aa9f09798ce73c7692243123ab5494095d0 (patch)
treeb407671cfb0f9f3fcb1743696ad4ed899b76fa2d /tests
parent5ae511b6ddb51f744323c8de59110461bc0abe93 (diff)
downloadtk-45fd1aa9f09798ce73c7692243123ab5494095d0.zip
tk-45fd1aa9f09798ce73c7692243123ab5494095d0.tar.gz
tk-45fd1aa9f09798ce73c7692243123ab5494095d0.tar.bz2
Fixed text see command for elided target indices.
Diffstat (limited to 'tests')
-rw-r--r--tests/textDisp.test16
1 files changed, 15 insertions, 1 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test
index 3b5eca2..fff52d4 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -1473,7 +1473,21 @@ test textDisp-11.17 {TkTextSetYView, only a few lines visible} {
.top.t index @0,0
# 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