Perl TK BrowseEntry ComboBox 默认选项

Question

我在内部接管了一个 Perl TK 项目。我想知道如何为使用 BrowseEntry 的组合框设置默认值图书馆。

这是组合框的构造方式。

$tm->ComboBox(
                  -variable    => \$invoice_per_country,
                  -font        => $main::UserPref->{'ListFont'},
                  -background  => 'white',
                  -relief      => 'groove',
                  -width       => 40,
                  -takefocus   => 1,
                  -listwidth   => 60,
                  -listheight  => scalar @invoice_countries,
                  -forcematch  => '',
                  -options     => [ @invoice_countries ],
                  -buttontakefocus => 0,
                  -disabledforeground => 'black',
                  -disabledbackground => 'white'

                 )
                 ->pack(-side => 'left',
                        -anchor => 'nw');

invoice_countries包含两个值: ('Canada', 'United States') .
我想知道如何在不切换值顺序的情况下将美国设为默认值(我们将添加更多国家/地区)。

Answer 1

您可以使用 variable BrowseEntry 上的选项:

#!/usr/bin/env perl

use strict;
use warnings;
use Tk;

my @items = ('Canada', 'United States');
my $mw = MainWindow->new;
$mw->geometry('300x300');
my $default = $items[1];

my $be = $mw->BrowseEntry(-label=> 'country', -variable=> \$default,)->place(-y=> 100);
my $lb = $be->Subwidget('slistbox');
$lb->insert('end', @items);

MainLoop();