my $thebutton = $hlist->Button(-text =>'Ok', -command => [\&change]);
$hlist->itemCreate($i, 3, -itemtype => 'window', -widget => $thebutton);