使用 Perl/Tk 代码的下拉菜单？答案

【问题标题】：Drop down menu using Perl/Tk code?使用 Perl/Tk 代码的下拉菜单？
【发布时间】：2013-11-03 06:49:57
【问题描述】：

我是 Perl/Tk 的新手，只想知道如何在基于 Perl/Tk 的 GUI 中使用下拉菜单以及如何填充它？谁能帮我解决这个问题？

【问题讨论】：

【解决方案1】：

每个 Perl/Tk 安装都安装了 widget 演示程序。运行它；您将在“菜单”部分下找到一些菜单演示。我在这里推荐第二项（标题为“如上，但使用 Perl/Tk -menuitems”）。所有演示都有一个“查看代码”按钮用于显示源代码。

【讨论】：

【解决方案2】：

这是一个代码片段（source）：

use Tk;
use Tk::Optionmenu;

# have some variables
my ($var, $tvar);

# create a drop down menu
my $opt = $mw->Optionmenu(
-options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]],
-command => sub { print "got: ", shift, "\n" },
-variable => \$var,
-textvariable => \$tvar
)->pack(-side => 'left', -anchor => 'n',);

# populate with some values unless done during initialisation
$opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);

【讨论】：

【解决方案3】：

TkDocs 有一个不错的 Menus 部分（这不是 Tk 而是 Tkx 代码，但这应该会有所帮助）

【讨论】：