Help for this page
-command => sub { numpress( $i ) } # equals -command => [ \&numpress, $i ]
$top->protocol( DELETE_WINDOW', [\&my_clean_up_routine, $top, $another_parameter] ); [download]