#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Tk;

my $top = MainWindow->new();

$listbox1 = $top->ScrlListbox(-label => "Einfache Selektion", 
                              -selectmode => "single",
                              -exportselection => 0
                             )->pack(-side => "left");
$listbox2 = $top->ScrlListbox(-label => "Zusammenhängende Gruppe", 
                              -selectmode => "extended",
                              -exportselection => 0
                             )->pack(-side => "left");
$listbox3 = $top->ScrlListbox(-label => "Verstreute Gruppe" , 
                              -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;