diff options
| author | fvogel <fvogelnew1@free.fr> | 2017-09-22 20:25:38 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2017-09-22 20:25:38 (GMT) |
| commit | 9cd16d73c3ffe93977a7fba71483ca56869cdb88 (patch) | |
| tree | 1764946a2be3db94b910f39e0d8537a70fb6e29d /tests | |
| parent | 2fbabdb68b0dd55663c66c88a060974f68d7f08d (diff) | |
| download | tk-9cd16d73c3ffe93977a7fba71483ca56869cdb88.zip tk-9cd16d73c3ffe93977a7fba71483ca56869cdb88.tar.gz tk-9cd16d73c3ffe93977a7fba71483ca56869cdb88.tar.bz2 | |
Fix [dd9667635d]: text anchor not set
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/text.test | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/tests/text.test b/tests/text.test index 42b6114..6b4a597 100644 --- a/tests/text.test +++ b/tests/text.test @@ -7305,7 +7305,22 @@ test text-35.3 {widget dump -command destroys widget} -setup { } -result {ok} -test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup { +test text-36.1 "bug #dd9667635d: text anchor not set" -setup { + destroy .t + pack [text .t] +} -body { + .t insert end "Hello world!" + .t tag add sel 1.0 end + # this line shall not trigger error: + # bad text index "tk::anchor1" + event generate .t <<SelectPrevLine>> + update +} -cleanup { + destroy .t +} -result {} + + +test text-37.1 "bug #1777362: event handling with hyphenated windows" -setup { proc bgerror {m} {set ::my_error $m} set ::my_error {} pack [set w [text .t-1]] @@ -7318,7 +7333,7 @@ test text-36.1 "bug #1777362: event handling with hyphenated windows" -setup { } -cleanup { destroy .t-1 } -result {} -test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup { +test text-37.2 "bug #1777362: event handling with hyphenated windows" -setup { proc bgerror {m} {set ::my_error $m} set ::my_error {} pack [set w [text .t+1]] @@ -7331,7 +7346,7 @@ test text-36.2 "bug #1777362: event handling with hyphenated windows" -setup { } -cleanup { destroy $w } -result {} -test text-36.3 "bug #1777362: event handling with hyphenated windows" -setup { +test text-37.3 "bug #1777362: event handling with hyphenated windows" -setup { proc bgerror {m} {set ::my_error $m} set ::my_error {} pack [set w [text .t*1]] |