$tl->bind("<Alt-Key-R>", sub { $Redo_PrettyPrint_b->invoke(); } );

##</code><code>##

-command => sub {
...
$ccmd_rc = system $auto_check_command, @ac_args;
warn "'Auto-Check' problem: ", $? >> 8, "\n" if $ccmd_rc;
...