diff options
| -rw-r--r-- | tests/textDisp.test | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/textDisp.test b/tests/textDisp.test index 5dfed82..c56ca26 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -4216,6 +4216,20 @@ test textDisp-32.3 "NULL undisplayProc problems: #1791052" -setup { image delete $img destroy .tt } +test textDisp-32.4 {Button-1 click with elided lines - Bug 18371b7ce7} -setup { + pack [text .tt -borderwidth 0 -highlightthickness 0] + for {set n 1} {$n <= 5} {incr n} { + .tt insert end "Line $n\n" + } + .tt tag configure Elided -elide 1 + .tt tag add Elided 1.2 4.0 + update +} -body { + event generate .tt <Button-1> -x 1 -y 1 + .tt index insert +} -cleanup { + destroy .tt +} -result {1.0} test textDisp-33.0 {one line longer than fits in the widget} { pack [text .tt -wrap char] |