Select Code to Download

#prevents mw from closing and iconifies instead
$mw->protocol('WM_DELETE_WINDOW' => sub {  $mw->iconify });

tksleep($mw, 100);

...
}