Help for this page

Select Code to Download

Select or download this

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