#!/usr/bin/perl
use strict;
use Tk;
use Tk::HList;

my $mw    = MainWindow->new();
my $label = $mw->Label( -width => 15 );

my $hlist = $mw->Scrolled('HList',
    -itemtype   => 'text',
    -selectmode => 'single',
)->pack;

foreach (1..1000) {
     my $text = $_.time;
     $hlist->add( $_, -text => $text );
}

my $button = $mw->Button(-text => 'Leak Test',
                         -command => \&testleak)->pack;


MainLoop;

sub testleak{
   #foreach (1..1000) { 
#        # $hlist->delete('all');  
#         $hlist->delete('entry',$_);  

 #  }  

   foreach (1..1000) {
      my $text = $_.time;
#      $hlist->add( $_, -text => $text );  
     $hlist->entryconfigure( $_, -text => $text );

   }

}