Select Code to Download

my $t1 = $mw->Text(
         -background=>"navy",
         -foreground=>"white",
...
$t1->bindtags( [ ($t1->bindtags)[1,0,2,3] ] );                        
+    # fix the bindtags order so that widget events are
                                                                      
+   # processed before class events
$t1->bind("<Tab>", sub { $t1->focusNext; Tk->break; });               
+   #Fix tab to shift focus, not print a tab.