我是 Perl/Tk 的新手,只想知道如何在基于 Perl/Tk 的 GUI 中使用下拉菜单以及如何填充它?谁能帮我解决这个问题?
问问题
2702 次
3 回答
4
每个 Perl/Tk 安装都安装了widget
演示程序。运行它;您会在“菜单”部分找到一些菜单演示。我在这里推荐第二项(标题为“如上,但使用 Perl/Tk -menuitems”)。所有演示都有一个“查看代码”按钮用于显示源代码。
于 2013-11-03T13:32:42.300 回答
4
这是一个代码片段(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]);
于 2014-12-23T20:44:26.990 回答