Help for this page
$mw->g_wm_withdraw(); $mw->g_wm_deiconify(); Tkx::MainLoop();
Tkx::focus(-force => $mw);