Perl TKで現在アクティブなメニュー項目を取得するには？

Question

私はPerl Tkでコンテキストメニューを作成しており、上下矢印の押下イベントをバインドしてメニュー項目をスクロールしたいと考えています。

現在アクティブなメニュー項目を取得するにはどうすればよいですか？

$menu->activate(index)は、indexの数字に基づいてメニュー項目をアクティブにしますが、現在のアクティブなインデックスを取得する方法がわかりません。

Answer 1

Tk::Menuの文書によると、次のように動作するはずです（テストしていません）：

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