use strict;


use Tk;
use Tk::HList;

my $mw  = MainWindow->new();

my $hlist       = $mw->Scrolled(
        'HList',
        -scrollbars => 'osoe',
        -columns => 3,
        -header => 1,
        -width => 100,
        -height => 30,
)->pack();

$hlist->header(
        'create',0,
        -text   => 'Name',
);
$hlist->header(
        'create',1,
        -text   => 'Nummer',
);
$hlist->header(
        'create',2,
        -text   => 'Wohnort',
);

my $entry_name = $hlist->Entry(-text => 'Name suchen...');
my $entry_number = $hlist->Entry(-text => 'Nummer suchen...');
my $entry_place = $hlist->Entry(-text => 'Ort suchen...');

$hlist->add(0);
$hlist->item('create',0, 0, -window => $entry_name, -itemtype => 'window',);
$hlist->item('create',0, 1, -window => $entry_number, -itemtype => 'window',);
$hlist->item('create',0, 2, -window => $entry_place, -itemtype => 'window',);
$hlist->add(1);
$hlist->item('create',1, 0, -text => 'Otto');
$hlist->item('create',1, 1, -text => '04545-25455');
$hlist->item('create',1, 2, -text => 'Berlin');
$hlist->add(2);
$hlist->item('create',2, 0, -text => 'Hans');
$hlist->item('create',2, 1, -text => '04539-49448');
$hlist->item('create',2, 2, -text => 'Frankfurt');

Tk::MainLoop();