#!/usr/bin/perl -w
######################################################################
# 3lb.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Tk;

my $top = MainWindow->new();

$listbox1 = $top->ScrlListbox(-label => "Single selection", 
                              -selectmode => "single",
                              -exportselection => 0
                             )->pack(-side => "left");
$listbox2 = $top->ScrlListbox(-label => "Contiguous group", 
                              -selectmode => "extended",
                              -exportselection => 0
                             )->pack(-side => "left");
$listbox3 = $top->ScrlListbox(-label => "Scattered group" , 
                              -selectmode => "extended",
                              -exportselection => 0
                             )->pack(-side => "left");

foreach $i (1..10) {
    $listbox1->insert("end", "Single_$i");
    $listbox2->insert("end", "Extended_$i");
    $listbox3->insert("end", "Extended_$i");
}

MainLoop;