perl - Perl/Tk コードを使用したドロップダウン メニュー?

Question

私は Perl/Tk を初めて使用し、Perl/Tk ベースの GUI でドロップダウン メニューを使用する方法と、ドロップダウン メニューにデータを入力する方法を知りたいだけです。誰でもこれで私を助けてもらえますか?

Answer 1

コードの一部を次に示します ( 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]);

Answer 2

すべての Perl/Tk インストールには、widgetデモンストレーション プログラムがインストールされています。実行するだけです。「メニュー」セクションの下にいくつかのメニューのデモがあります。ここで 2 番目の項目をお勧めします (タイトルは「上記のとおりですが、Perl/Tk -menuitems を使用しています」)。すべてのデモンストレーションには、ソース コードを表示するための [コードを見る] ボタンがあります。

Answer 3

TkDocsには素敵なメニューセクションがあります (これはTkではなくTkxコードですが、役立つはずです)。