diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-01-17 05:33:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-01-17 05:33:25 (GMT) |
| commit | 7657ba2c549606f98734f4172266dc110fbecaa5 (patch) | |
| tree | a0ca8b1bb15b6c9b5679b3caacb09ab71aca25df /tests/text.test | |
| parent | b2c383f4b4e1df4ee9393ca65a9ba551753739a7 (diff) | |
| download | tk-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/text.test')
| -rw-r--r-- | tests/text.test | 15 |
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 |