summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-04-22 20:15:13 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-04-22 20:15:13 (GMT)
commitd9629dd3f036632bf29ca7792d85a0fd346e8cb9 (patch)
tree8c6c7f043684a3198a0d8ac2ca526eebfbed7b2d
parent00604f72c60af9ed0748c955048a446f7e5f7b9c (diff)
downloadtk-d9629dd3f036632bf29ca7792d85a0fd346e8cb9.zip
tk-d9629dd3f036632bf29ca7792d85a0fd346e8cb9.tar.gz
tk-d9629dd3f036632bf29ca7792d85a0fd346e8cb9.tar.bz2
Added test text-11a.51 to check the fix of [b362182e45]bug_b362182e45
-rw-r--r--tests/text.test19
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 {