diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-04 15:17:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-04 15:17:03 (GMT) |
| commit | d7593d400af18cb2324c012a674e2bac709e768c (patch) | |
| tree | 7b047ab0fb5e2364b13cc8d3d5a208ad669f5ec8 /tests/menu.test | |
| parent | febcba8fc330403fb595f58acc3570f3d29fe1ed (diff) | |
| download | tk-d7593d400af18cb2324c012a674e2bac709e768c.zip tk-d7593d400af18cb2324c012a674e2bac709e768c.tar.gz tk-d7593d400af18cb2324c012a674e2bac709e768c.tar.bz2 | |
(Cherry-pick) Fix for bug [29b5c28ea]
Diffstat (limited to 'tests/menu.test')
| -rw-r--r-- | tests/menu.test | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/menu.test b/tests/menu.test index 571e453..10ad66f 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -3420,6 +3420,28 @@ test menu-22.5 {GetIndexFromCoords: mapped wide window} -setup { deleteWindows } -result 0 +test menu-22.6 {tk_popup on separator entry} -setup { + deleteWindows +} -constraints {x11} -body { + menu .m1 + label .l -text ClickMe! + .m1 add command -label "Example 1" -command bell + .m1 add command -label "Example 2" -command bell + .m1 add separator + .m1 add command -label "Example Other" -command "bell;bell" + tk_popup .m1 100 100 2 + set waiting 0 + tkwait visibility .m1 + after 333 incr waiting + vwait waiting + .m1 invoke 4 + after 333 incr waiting + vwait waiting + destroy .m1 +} -cleanup { + deleteWindows +} -result {} + test menu-23.1 {RecursivelyDeleteMenu} -setup { deleteWindows } -body { |