$dialog->configure(-focus => $entry);
    $mw->after(250,[$dialog,'focus']);
    $dialog->Show();