20 lines
484 B
Perl
20 lines
484 B
Perl
|
use Tk;
|
||
|
|
|
||
|
|
my $main = MainWindow->new;
|
||
|
|
|
||
|
|
my $listbox1 = $main->Listbox(-width => 25,
|
||
|
|
-height => 5);
|
||
|
|
|
||
|
|
$listbox1->insert('end', "Apples", "Blueberries",
|
||
|
|
"Bananas", "Kiwis", "Mangoes", "Oranges",
|
||
|
|
"Pears", "Pineapples");
|
||
|
|
|
||
|
|
my $scroll1 = $main->Scrollbar(-command => ['yview', $listbox1]);
|
||
|
|
|
||
|
|
$listbox1->configure(-yscrollcommand => ['set', $scroll1]);
|
||
|
|
|
||
|
|
$listbox1->pack(-side => 'left', -fill => 'both');
|
||
|
|
|
||
|
|
$scroll1->pack(-side => 'right', -fill => 'y');
|
||
|
|
|
||
|
|
MainLoop;
|