使用Perl/Tk代碼下拉菜單？

Question

我是Perl/Tk的新手，只想知道如何在基於Perl/Tk的GUI中使用下拉菜單以及如何填充它？任何人都可以請幫我解決這個問題嗎？

Answer 1

TkDocs有一個很好的Menus部分（這不是Tk的但TKX代碼，但這應該幫助）

Answer 2

每個Perl/Tk的安裝安裝了widget演示程序。只要運行它;你會在「菜單」部分找到一些菜單演示。我在此推薦第二項（標題爲「如上，但使用Perl/Tk -menuitems」）。所有演示都有一個「See Code」按鈕來顯示源代碼。

Answer 3

下面是一個代碼片段（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]);