my $t1 = $mw->Text(
		 -background=>"navy",
		 -foreground=>"white",
		 -height=>35,
		 -width=>80,
		 -wrap=>"word",
		 -selectbackground=>"blueviolet"
		 );
$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.