in reply to Re: selecting all occurences in tk::text
in thread selecting all occurences in tk::text

I found that I can select all istances at a time with FindAll. According to the manual, all matches are tagged with the sel tag. But how can I add the tag "color" to all matches? 

#formatting
$text->tagConfigure('color', -foreground =>"red",-font => "Courier $fo
+nt_kwic bold");
    
#search
$text->FindAll(-exact, -nocase, $word_search);

#Need here to tag all matches

[download]

Thanks

Replies are listed 'Best First'.
Re^3: selecting all occurences in tk::text
by lamprecht (Friar) on May 26, 2010 at 22:37 UTC
    Hi, 
    use Tk;
my $mw = tkinit;
my $t = $mw->Text()->pack;
$t->tagConfigure('foo', -background => 'yellow');
$t->insert('end',"foo\nbar\nbaz\nfoo\n");
$t->FindAll(qw/-exact -case foo/);
$t->tagAdd('foo',$t->tagRanges('sel'));
MainLoop;

    [download]

    See the tagRanges() and tagAdd() methods documented in Tk::Text

    Cheers, Christoph
    update: Added example
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom