Thanks a lot !

you find the trouble : loosing focus. your code is efficient and is enough for me.

$mw->g_wm_withdraw();
$mw->g_wm_deiconify();
Tkx::MainLoop();
[download]

also thanks for the tutorial.

i was looking for some ;-)

i found this code :

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

which works well also. (when you know what your are searching for ...)