$top->protocol( 'WM_DELETE_WINDOW', sub{} );