Select Code to Download

bind .t1 <Tab> { focus [tk_focusNext .t1]; break }

# fix the bindtags order so that widget events are
# processed before class events
...

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