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