diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-08 21:20:46 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-08 21:20:46 (GMT) |
commit | d0a67ec8ad6eebde787857604c064981cb8e7666 (patch) | |
tree | 1a2aafaade36559c669fe0f971cb34ea5f8f34e7 /tests/menu.test | |
parent | 3df7a0ff7653cafb8cfbba58cf29067155337ea8 (diff) | |
download | tk-d0a67ec8ad6eebde787857604c064981cb8e7666.zip tk-d0a67ec8ad6eebde787857604c064981cb8e7666.tar.gz tk-d0a67ec8ad6eebde787857604c064981cb8e7666.tar.bz2 |
Restore "$menu index" to return "none" for no index (for compatibility with Tk 8.6)
Diffstat (limited to 'tests/menu.test')
-rw-r--r-- | tests/menu.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/menu.test b/tests/menu.test index 054ac68..4e98e95 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -1864,10 +1864,10 @@ test menu-3.71 {MenuWidgetCmd procedure, "index end" option, bug [f3cd942e9e]} - destroy .m1 } -body { menu .m1 - .m1 index "end" + expr {[.m1 index "end"] in [list {} none]} } -cleanup { destroy .m1 -} -result {} +} -result 1 test menu-4.1 {TkInvokeMenu: disabled} -setup { |