#!/usr/bin/perl -w
                         
use Tk;
use Tk::HList;
use strict;
   
my $i;
my $mw = MainWindow->new(-title => "HList Example");
my $list = $mw->Scrolled("HList",
                         -header => 1,
                         -columns => 1,
                         -scrollbars => "ose"
                         )->pack;
$list->header('create', 0, -text => "Num");
for ($i = 0 ; $i < 100 ; $i++) {
   $list->add($i);
   $list->itemCreate($i, 0, -text => $i);
}
$list->yview('moveto', 1);
MainLoop;