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

MainLoop;

sub ExitApplication {
    # do nothing    
}