sub loeschen_Hlist{
    my ($hlist ) = @_;
    my ($entrypath, $show, $inhalt);
    $entrypath = $hlist->selectionGet;
    $show = $hlist->itemCget($entrypath, 1, 'widget');
    $hlist->delete('entry', $entrypath);
    
}