Help for this page
my %startfinish = $widget->tagRanges('sel'); ... { $widget->tagAdd("foundtag", $_, $startfinish{$_}); }