my %startfinish  = $widget->tagRanges('sel');

        # undo uppercase
        my $s = $widget->Contents();
        $s =~ tr/A-Z/a-z/;
        $widget->Contents($s);
        
        foreach(sort keys %startfinish)
        {
            $widget->tagAdd("foundtag", $_, $startfinish{$_});
        }