my $t1 = $mw->Text(
   	-background=>"navy",
   	-foreground=>"white",
   	-height=>35,
   	-width=>80,
   	-wrap=>"word",
   	-selectbackground=>"blueviolet"
   	);
my $e2 = $mw->Entry(
   	-background=>"navy",
   	-foreground=>"white",
   	-width=>80,
   	-textvariable=>\$description,
   	-selectbackground=>"blueviolet"
   	);
$t1->bind("<Tab>", sub { $e2->focus });