将Optionmenu绑定到Perl TK中的数组

如果可能的话，我需要通过将数组绑定到optionmenu来自动更新Perl-Tk中的optionmenu

举个例子，我可以通过一个列表框成功地实现这一点：

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

但是，当我尝试对Optionmenu执行相同操作时，它无法自动加载

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

---

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

复习完模块后，我发现了一个解决方案，虽然时间更长，但仍然是一个解决方案。我希望这能帮助其他人处理这些旧东西

以下是模块：

向选项菜单添加选项

# 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]);

---

没有为

Tk:：Optionmenu

实现tie接口。但我接受补丁：-）