my $font;

sub new{
[...]
$font = $cw->Font('{arial} 6 {normal}');
[...]
}

Tk::Error: named font "{arial} 6 {normal}" already exists at C:/usr/lib/Tk/Font.pm line 76.
   at C:/usr/lib/Tk/Widget.pm line 256
   Tk callback for .toplevel
   Tk callback for .toplevel.displaydatabase.frame
   Tk callback for font
   Tk callback for .toplevel.button
   <ButtonRelease-1>
   (command bound to event)

$hlist->itemCget($index,0,-widget)->configure(-takefocus => 1);

$hlist->itemCget($index,0,-widget)->insert('end','');

$font = $cw->Font( -family => 'Times', -size => '22', -weight => 'normal' );