summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-01-19 19:53:34 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-01-19 19:53:34 (GMT)
commit6a1b23bb279925e25b7611184ad2915ff5043d8b (patch)
treef89178fd23eb2c6e8820b0e4024519aa7d1d6093 /tests
parent312e43120625077580d3ac4702bfa73fee6fb953 (diff)
parent2931e05764b25ec1ac949a503b9691b1b7391793 (diff)
downloadtk-6a1b23bb279925e25b7611184ad2915ff5043d8b.zip
tk-6a1b23bb279925e25b7611184ad2915ff5043d8b.tar.gz
tk-6a1b23bb279925e25b7611184ad2915ff5043d8b.tar.bz2
[Bug-3021557]: Moving the cursor in elided text freezes Tk
Diffstat (limited to 'tests')
-rw-r--r--tests/text.test18
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test
index 6cd1a07..2225481 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -2615,6 +2615,24 @@ test text-10.38 {TextWidgetCmd procedure, "count" option} -setup {
} -cleanup {
destroy .t
} -result {3 903 903 45}
+test text-10.39 {TextWidgetCmd procedure, "count" option} -setup {
+ text .t
+ pack .t
+ update
+ set res {}
+} -body {
+ .t insert end "Line 1 - This is Line 1\n"
+ .t insert end "Line 2 - This is Line 2\n"
+ .t insert end "Line 3 - This is Line 3\n"
+ .t insert end "Line 4 - This is Line 4\n"
+ .t insert end "Line 5 - This is Line 5\n"
+ lappend res [.t count -displaylines 1.19 3.24] [.t count -displaylines 1.0 end]
+ .t tag add hidden 2.9 3.17
+ .t tag configure hidden -elide true
+ lappend res [.t count -displaylines 1.19 3.24] [.t count -displaylines 1.0 end]
+} -cleanup {
+ destroy .t
+} -result {2 6 2 5}
test text-11.1 {counting with tag priority eliding} -setup {