my $hlist = $main -> HList(-sizecmd => [\&resize,$hlist]);

sub resize {
  my ($hlist) = @_;
  print $hlist->width();
}