Select Code to Download

use Tk;
my $mw = tkinit;
...
$t->FindAll(qw/-exact -case foo/);
$t->tagAdd('foo',$t->tagRanges('sel'));
MainLoop;