#!/usr/bin/perl -w
use strict;
#use warnings;

use Tk;
use Tk::HList;
use Tk::ItemStyle;

my $main = tkinit();

my $hlist = $main -> HList(-header => 1, -columns => 2, -sizecmd => \&on_resize) 
                  ->pack(-fill => 'both', -expand => 1);

$hlist -> header('create', 0, -text => "Aenderung");
$hlist -> header('create', 1, -text => "Name123");

#spaltenbreite fuer spalte 0 festlegen
my $first_col = 65;
$hlist -> columnWidth(0, $first_col);


my @values = qw /test testtest2 test3 testtest4 test5 testtest6 test7 testtest8/;


my $blue_style = $hlist -> ItemStyle('text', -background => "lightblue");
my $red_style  = $hlist -> ItemStyle('text', -background => "red");


#Elemente aus @values in $hlist einfuegen,
#je zwei Elemente in eine Zeile

my $j = 0;

for (my $i=0; $i <= ($#values/2); $i++) {

  $hlist -> add($i);
  $hlist -> itemCreate($i, 0, -text => $values[$j], -style => ($i % 2) ? $blue_style : $red_style); #alternierende Farbe
  $j++;
  $hlist -> itemCreate($i, 1, -text => $values[$j], -style => ($i % 2) ? $blue_style : $red_style); #alternierende Farbe
  $j++;
}

MainLoop;

sub on_resize {
  my $width = $hlist->width;
  $hlist -> columnWidth(1, $width-$first_col-15) #-15 als Tolleranz fuer Rahmen etc.
}