Dear Monks,
still have problems with find-function. I tried with another solutions (own find-next), but with LineNumberText it didn't work. So, now I tried to use Findnext from the original Tk:Text, but there is something with the parameters.

#!/usr/bin/perl --
use strict;
use warnings;
use Tk::LineNumberText;
use Tk;

my $mw = MainWindow->new;
my $filename;

# Create necessary widgets
my $f = $mw->Frame->pack( -side => 'top', -fill => 'x' );
$f->Entry( -textvariable => (\ my $search) )->pack(
  -side   => 'left',
  -anchor => 'w',
  -fill   => 'x',
  -expand => 1
);
$f->Button( -text => "Exit", -command => sub { exit; } )
  ->pack( -side => 'right' );

my $t = $mw->LineNumberText("Text",
    -allowbookmarks=>1,
    -wrap=>'none',
    -font=>['Courier',11],
    -linenumfont=>['Courier',10],
    -curlinehighlight=>'both',
    -bg=>'white',
    -selectbackground => 'black')
->pack(  -side   => 'bottom',  -fill   => 'both',  -expand => 1,);

$f->Button(-text => "Findnext", -command => [$t->{'rtext'} => "FindNex
+t(-forward, -exact, -nocase)"])
  -> pack(-side => 'right');
$f->Button(-text => "findpop", -command => [$t->{'rtext'} => 'FindPopU
+p'])
  -> pack(-side => 'right');

$t->insert( end => join "\n", 1 .. 10 );
$t->insert( 'end', "\nthe_the_the the\n");
$t->insert( 'end', "\nthe_the_the the\n");

$t->bind(
  '<<Selection>>',
  sub {

#~     warn @_;
    my ($t) = @_;

    $t->tagDelete('ssel');
    if ( my (@range) = $t->tagRanges('sel') ) {
      $t->tagAdd( ssel => @range );
      for my $opt (qw' foreground background ') {
        $t->tagConfigure( ssel => "-$opt" => $t->cget("select$opt") );
      }
    } ## end if ( my (@range) = $t->tagRanges...)
    return;
  }
);
$t->bind(
  '<FocusOut>',
  sub {
    my ($t) = @_;
    return;

  }
);

MainLoop;
sub search(){
    print my ($search);
    #$text->search(?switches,? pattern, index, ?stopIndex?)
    my $result = $t->search(-forward, $search, '1.0', 'end');
    print $result;
    $t->focus;
}
sub findnext(){
    #@list = $text->tagRanges("tagname")
    # returns ( begin1, end1, begin2, end2 ... )
    my @list = $t->tagRanges("sel");
    #print @list;
    (my $start, my $end) = @list;
    print $start. "\t". $end. "\n";
    #$t = $text->get(index1 [ , index2 ]);
    my ($search) = $t->get($start, $end);
    #$t->FindNext(-forward, -exact,-nocase);
    my $result = $t->FindNext(-forward, -exact, -nocase, $search);
    #my $result = $t->FindNext(-forward, -exact, -nocase);
    #print $result;
}
[download]

Thanks in advance!

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.