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