perl - 在 Perl TK 中将 Optionmenu 绑定到数组

Question

如果可能，我需要通过将数组绑定到选项菜单来自动更新 Perl Tk 中的选项菜单。

举个例子，我可以用一个列表框成功地做到这一点：

tie @datafile, "Tk::Listbox", $lb;

但是，当我尝试对选项菜单执行相同操作时，它无法自动加载。

tie @optionfile, "Tk::Optionmenu", $om;

这不可能吗？还是我做错了什么？谢谢。

Answer 1

在查看了该模块后，我注意到了一个解决方案，尽管时间更长——仍然是一个解决方案。我希望这可以帮助那里的人处理这些旧东西。

这是模块：http ://cpansearch.perl.org/src/SREZIC/Tk-804.031/Tk/Optionmenu.pm

向选项菜单添加选项

# Add to the array 
push @datafile3, $newReport;
# Add to the optionmenu
$om->addOptions($newReport);

然后拆除

# removing an option from the array and also the optionmenu itself. 
my $index = 0;

# remove from array
$index++ until $datafile3[$index] eq $selectBatch;
splice(@datafile3, $index, 1);
# remove from menu
$om->configure( -options  => [@datafile3]);