{my ($gr_frame,$dropdown1,$button1);
 sub gruppe_loeschen
 
 {
     unless ($gr_frame){ # init
         $gr_frame = $main->Frame;
     
         $dropdown1 = $gr_frame->BrowseEntry(-width=> 50,
                                         )->pack(-side => 'top');
 
         $dropdown1->insert(0,'eins','zwei','drei','vier','fünf');

         $button1 = $gr_frame->Button(-text => 'Gruppe löschen',
                                      -command => sub{
                                          #irgendetwas
                                          $gr_frame->packForget;
                                      }
 
                                  )->pack(-side => 'bottom');
     }
     $gr_frame -> pack;

 }
 }