|
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;
|