Question

我正在Perl Tk中创建一个上下文菜单，并希望绑定向上和向下箭头按下事件以滚动菜单项。

如何获取当前活动的菜单项？

我知道$menu->activate(index)会根据index号激活一个菜单项，但我不知道如何获取当前激活的索引？

Answer 1

根据Tk::Menu的文档，以下内容应该有效（未经测试）：

my $index = $menu->index('active');