Mega Code Archive

 

Categories / Perl / GUI

 

Using Scroll Bar to control a list box

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;