$mw->protocol('WM_DELETE_WINDOW',\&clean_exit);