my $btn = $hlist->Entry(-variable => \$zippi);
my $btn2 = $hlist->Checkbutton();
my $e = $hlist->addchild("");
$hlist->add(1);
$hlist->itemCreate('1', '0', -itemtype => 'window', (-widget => $btn));
$hlist->itemCreate($e, '1', -itemtype => 'window', (-widget => $btn2));