summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-01-17 05:33:25 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-01-17 05:33:25 (GMT)
commit7657ba2c549606f98734f4172266dc110fbecaa5 (patch)
treea0ca8b1bb15b6c9b5679b3caacb09ab71aca25df /tests
parentb2c383f4b4e1df4ee9393ca65a9ba551753739a7 (diff)
downloadtk-7657ba2c549606f98734f4172266dc110fbecaa5.zip
tk-7657ba2c549606f98734f4172266dc110fbecaa5.tar.gz
tk-7657ba2c549606f98734f4172266dc110fbecaa5.tar.bz2
bug-3021557 Moving the cursor in elided text freezes Tkbug_3021557
Diffstat (limited to 'tests')
-rw-r--r--tests/text.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test
index 17fcf29..d76b97f 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -683,6 +683,21 @@ test text-9.2.42 {TextWidgetCmd procedure, "count" option} {
test text-9.2.43 {TextWidgetCmd procedure, "count" option} {
.t count -lines -chars -indices -displaylines 1.0 end
} {3 903 903 45}
+test text-9.2.44 {TextWidgetCmd procedure, "count" option} -setup {
+ .t delete 1.0 end
+ 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]
+} -result {2 6 2 5}
.t configure -wrap none
# Newer tags are higher priority