# fix the bindtags order so that widget events are
# processed before class events
$t1->bindtags( [ ($t1->bindtags)[1,0,2,3] ] );

# now give the text widget a new Tab binding
$t1->bind( '<Tab>', sub { $t1->focusNext; Tk->break; } );