$mw->g_wm_withdraw();
$mw->g_wm_deiconify();
Tkx::MainLoop();
##</code><code>##

Tkx::focus(-force => $mw);