use strict;
use warnings;
use Tk;
use Tk::HList;
use Tk::ItemStyle;
use Tk::HdrResizeButton;


my $mw = MainWindow->new();

my $table_hl = $mw->Scrolled( "HList",
                                 -header => 1,
                                 -columns => 2,
                                 -scrollbars => 'ose',
                                 -width => 70,
                                 -selectbackground => '#539FFD',
                                 -selectmode => 'extended',
                               )->pack();
                                           

$table_hl->header('create', 0, -text => "1");
$table_hl->header('create', 1, -text => "2");                                      


$table_hl->add(1);
$table_hl->itemCreate(1, 0, -text => "Schriftart 123");
$table_hl->itemCreate(1, 1, -text => "Scrhiftart 123");

my $style = $table_hl->ItemStyle( 'text',
                                                   -stylename => 'red',
                           -foreground => 'red',
                           -selectforeground => 'red',
                           );
                                                 
$table_hl->add(2);
$table_hl->itemCreate(2, 0, -text => "Schriftart 123", -style => 'red');
$table_hl->itemCreate(2, 1, -text => "Scrhiftart 123", -style => $style);

MainLoop;