$window->protocol( 'WM_DELETE_WINDOW', \&Tk::NoOp);