diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-04-21 22:03:01 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-04-21 22:03:01 (GMT) |
| commit | 00604f72c60af9ed0748c955048a446f7e5f7b9c (patch) | |
| tree | 5deeaa223aed9f5fa42e43c83865f4287756eab3 /tests | |
| parent | fa289415c7aaacc173ab97665af201a54eae611a (diff) | |
| download | tk-00604f72c60af9ed0748c955048a446f7e5f7b9c.zip tk-00604f72c60af9ed0748c955048a446f7e5f7b9c.tar.gz tk-00604f72c60af9ed0748c955048a446f7e5f7b9c.tar.bz2 | |
Fixed [b362182e45] - Generation of virtual events through Tk_HandleEvent is unsafe
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/listbox.test | 1 | ||||
| -rw-r--r-- | tests/text.test | 6 |
2 files changed, 6 insertions, 1 deletions
diff --git a/tests/listbox.test b/tests/listbox.test index 76a4349..407420c 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -3170,6 +3170,7 @@ test listbox-31.2 {<<ListboxSelect>> event on lost selection} -setup { focus -force .l event generate .l <1> -x 5 -y 5 ; # <<ListboxSelect>> fires selection clear ; # <<ListboxSelect>> fires again + update set res } -cleanup { destroy .l diff --git a/tests/text.test b/tests/text.test index a778b79..a500daf 100644 --- a/tests/text.test +++ b/tests/text.test @@ -6280,7 +6280,7 @@ test text-27.11 {TextEditCmd procedure, set modified flag repeat} -setup { # Shouldn't require [update idle] to trigger event [Bug 1809538] lappend ::retval [.t edit modified] .t edit modified 1 - update idletasks + update lappend ::retval [.t edit modified] .t edit modified 1 ; # binding should only fire once [Bug 1799782] update idletasks @@ -6295,6 +6295,7 @@ test text-27.12 {<<Modified>> virtual event} -body { bind .t <<Modified>> "set ::retval modified" update idletasks .t insert end "nothing special\n" + update return $::retval } -cleanup { destroy .t @@ -6305,6 +6306,7 @@ test text-27.13 {<<Modified>> virtual event - insert before Modified} -body { bind .t <<Modified>> { set ::retval [.t get 1.0 end-1c] } update idletasks .t insert end "nothing special" + update return $::retval } -cleanup { destroy .t @@ -6317,6 +6319,7 @@ test text-27.14 {<<Modified>> virtual event - delete before Modified} -body { .t insert end "nothing special" .t edit modified 0 .t delete 1.0 1.2 + update set ::retval } -cleanup { destroy .t @@ -6328,6 +6331,7 @@ test text-27.15 {<<Selection>> virtual event} -body { update idletasks .t insert end "nothing special\n" .t tag add sel 1.0 1.1 + update set ::retval } -cleanup { destroy .t |