diff options
author | fvogel <fvogelnew1@free.fr> | 2022-03-08 20:18:18 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2022-03-08 20:18:18 (GMT) |
commit | 822af973da0c377d5fdc2807967d49a41b687c7e (patch) | |
tree | 615e09d0548b0a74c72d4105845ecb86889787f6 | |
parent | 073080595902ccbf4873b9258c1885b3ee641a96 (diff) | |
download | tk-822af973da0c377d5fdc2807967d49a41b687c7e.zip tk-822af973da0c377d5fdc2807967d49a41b687c7e.tar.gz tk-822af973da0c377d5fdc2807967d49a41b687c7e.tar.bz2 |
Cherrypick [541e50a5] in order to add test textDisp-32.4 for the legacy text widget as it was added for the revised text widget. So we avoid unnecessary differences in the test suite for the two text widgets.
-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] |