#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::HList;

my $mw    = tkinit();
my $image = $mw->Photo('img', -format => 'gif', 
                              -file => './locked.gif');
my $hlist = $mw->Scrolled('HList', -indent    => 16,
                                   -indicator => 1,)->pack();

insert_hlist();

MainLoop;


sub insert_hlist{
    for my $i(0..4){
        my $parent = $hlist->add($i,-itemtype => 'text', -text => $i);
        $hlist->indicatorCreate($parent,-itemtype => 'image', -image => $image);
        for my $j(0..5){
            my $entry = $hlist->addchild($i, -itemtype => 'imagetext', 
                                             -text     => $i . '.' . $j,
                                         );
            $hlist->indicatorCreate($entry,-itemtype => 'image',-image => $image);
        }
    }
}