diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 19:27:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-23 19:27:22 (GMT) |
| commit | 4a635a2ac268c0734ec4265ac0071f56d3f82249 (patch) | |
| tree | 4573d9fd44f919043efcd8c91d10e39cf5786cbb /tests | |
| parent | 90913ce1f8b0d59e50df2ce83b0ae1d6dbba2c20 (diff) | |
| parent | e4d5dbc5918a3c4eaff32f4e83b822b332602906 (diff) | |
| download | tk-4a635a2ac268c0734ec4265ac0071f56d3f82249.zip tk-4a635a2ac268c0734ec4265ac0071f56d3f82249.tar.gz tk-4a635a2ac268c0734ec4265ac0071f56d3f82249.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/focus.test | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/focus.test b/tests/focus.test index ecbf496..03563bc 100644 --- a/tests/focus.test +++ b/tests/focus.test @@ -755,6 +755,29 @@ test focus-7.1 {TkSetFocusWin procedure, unmapped windows} -setup { destroy .top } -result {.top.s3} +test focus-8.1 {fdc0ed342d - segfault on focus -force} -body { + pack [button .b0] + toplevel .one + update + event generate .one <Motion> -warp 1 -x 175 -y 175 + update idletasks + destroy {*}[winfo children .] + toplevel .t + pack [canvas .t.c] + update + destroy .t.c + pack [label .t.l] + update + destroy .t.l + destroy {*}[winfo children .] + proc crashit {} { + pack [listbox .l] + update + focus -force .l; # This line segfaulted *with xvfb* + set res Reached + } + crashit +} -result {Reached} deleteWindows |