diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-04-22 20:15:13 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-04-22 20:15:13 (GMT) |
| commit | d9629dd3f036632bf29ca7792d85a0fd346e8cb9 (patch) | |
| tree | 8c6c7f043684a3198a0d8ac2ca526eebfbed7b2d /tests | |
| parent | 00604f72c60af9ed0748c955048a446f7e5f7b9c (diff) | |
| download | tk-d9629dd3f036632bf29ca7792d85a0fd346e8cb9.zip tk-d9629dd3f036632bf29ca7792d85a0fd346e8cb9.tar.gz tk-d9629dd3f036632bf29ca7792d85a0fd346e8cb9.tar.bz2 | |
Added test text-11a.51 to check the fix of [b362182e45]bug_b362182e45
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/text.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test index a500daf..4b27c76 100644 --- a/tests/text.test +++ b/tests/text.test @@ -3053,6 +3053,25 @@ test text-11a.41 {"sync" "pendingsync" and <<WidgetViewSync>>} -setup { destroy .top.yt .top } -result {Sync:0 Pending:1 Sync:1 Pending:0} +test text-11a.51 {<<WidgetViewSync>> calls TkSendVirtualEvent(), + NOT Tk_HandleEvent(). + Bug [b362182e45704dd7bbd6aed91e48122035ea3d16]} -setup { + destroy .top.t .top +} -body { + set res {} + toplevel .top + pack [text .top.t] + for {set i 1} {$i < 10000} {incr i} { + .top.t insert end "Hello world!\n" + } + bind .top.t <<WidgetViewSync>> {destroy .top.t} + .top.t tag add mytag 1.5 8000.8 ; # shall not crash + update + set res "Still doing fine!" +} -cleanup { + destroy .top.t .top +} -result {Still doing fine!} + test text-12.1 {TextWidgetCmd procedure, "index" option} -setup { text .t } -body { |