unless ($FLG{'Toplevel'}) {
     $FLG{'Toplevel'} = 1;
}
else {
     $TopLevel->focus if ($Toplevel);
     return 0;
}