#!/usr/bin/perl -w
use strict vars;
use Tk;
require Tk::HList;

my $helix_lf = MainWindow->new();
my $helix_result_list=$helix_lf->Scrolled('HList',
              -scrollbars => 'oe',
              -width => 50,
              -height => 20,
              -header => 1,
              -columns => 5,
                -selectbackground=>'green',
               -command =>\&change_hlist_bg
 )->pack(-expand=>1, -fill=>'both', -padx=>2, -pady=>2);

$helix_result_list->headerCreate( 0, -text => 'Chain');
$helix_result_list->headerCreate( 1, -text => 'Ssqno');
$helix_result_list->headerCreate( 2, -text => 'Esqno');
$helix_result_list->headerCreate( 3, -text => 'Class');
$helix_result_list->headerCreate( 4, -text => 'Sequence');

$helix_result_list->add(helix_result_count);
$helix_result_list->add(helix_result_count1);

$helix_result_list->itemCreate(helix_result_count,0,-text=> "one");
$helix_result_list->itemCreate(helix_result_count,1,-text=> "two");
$helix_result_list->itemCreate(helix_result_count,2,-text=> "three");
$helix_result_list->itemCreate(helix_result_count,3,-text=> "four");
$helix_result_list->itemCreate(helix_result_count,4,-text=>"five");

$helix_result_list->itemCreate(helix_result_count1,0,-text=> "one");
$helix_result_list->itemCreate(helix_result_count1,1,-text=> "two");
$helix_result_list->itemCreate(helix_result_count1,2,-text=> "three");
$helix_result_list->itemCreate(helix_result_count1,3,-text=> "four");
$helix_result_list->itemCreate(helix_result_count1,4,-text=>"five");

MainLoop;

##</code><code>##

D:\PerlProjects\tests\HList.pl
Entry "" not found at C:/Perl/site/lib/Tk.pm line 228.