$top->protocol(WM_DELETE_COMMAND => sub { })