unless ($frame){#initialisiere $frame, falls er noch nicht erzeugt worden ist

}
# packForget auf den aktiven frame, falls es ihn schon gibt:
$active_frame->packForget if ($active_frame);
#pack auf den (gerade initialisierten, oder sonst: schon bestehenden)
#frame '$frame'
    $frame->pack;
# merke dir den frame '$frame' als aktiv
     $active_frame = $frame;