Geçerli aktif menü maddesi Perl TK'de nasıl edinilir?

Question

Perl Tk'de bir Bağlam Menüsü oluşturuyorum ve menü öğeleri arasında gezinmek için Yukarı ve Aşağı okla basılan olayı bağlamak istiyorum.

Geçerli etkin menü öğesini nasıl alabilirim?

Biliyorum $menu->activate(index), index numarasına göre bir menü öğesini etkinleştirecektir ancak geçerli etkinleştirilmiş endeksi nasıl alacağımı bilmiyorum.

Answer 1

Tk::Menu belgelerine göre, şu (test) çalışması gerekir:

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