Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # BrowseEntry, entry with listbox to select list values. |
2 | ||
3 | use Tk::BrowseEntry; | |
4 | ||
5 | my $month = "January"; | |
6 | ||
7 | outer: | |
8 | { | |
9 | my $top = MainWindow->new; | |
10 | my $f = $top->Frame; | |
11 | my $c = $f->BrowseEntry(-label => "Month:", -variable => \$month); | |
12 | $c->pack; | |
13 | $c->insert("end", "January"); | |
14 | $c->insert("end", "February"); | |
15 | $c->insert("end", "March"); | |
16 | $c->insert("end", "April"); | |
17 | $c->insert("end", "May"); | |
18 | $c->insert("end", "June"); | |
19 | $c->insert("end", "July"); | |
20 | $c->insert("end", "August"); | |
21 | $c->insert("end", "September"); | |
22 | $c->insert("end", "October"); | |
23 | $c->insert("end", "November"); | |
24 | $c->insert("end", "December"); | |
25 | my $bf = $f->Frame; | |
26 | $bf->Button(-text => "Print value", | |
27 | -command => sub { | |
28 | print "The month is $month\n"; | |
29 | }, -relief => "raised")->pack; | |
30 | ||
31 | $bf->pack; | |
32 | $f->pack; | |
33 | MainLoop; | |
34 | } |