Using Scroll Bar to control a list box : Listbox « GUI « Perl






  1. Perl
  2. GUI
  3. Listbox

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;








Related examples in the same category

1.Add list box to a window
2.Bind double click action to the list box
3.Insert value to list box
4.Fill data to a list box