in reply to Re^5: Getting selection from Tkx text
in thread Getting selection from Tkx text

yes after finding the text using Tkx::FindBar i still have to hightlight it again and hit enter before i can get the result in a variable

Sorry , see How do I post a question effectively? I'll be happy to take a look if you post a Short, Self Contained, Compilable, Example I can run and fixup

Replies are listed 'Best First'.
Re^7: Getting selection from Tkx text
by dabella12 (Acolyte) on Apr 03, 2013 at 16:51 UTC

    Here is my code

    use Tkx;
use Tkx::FindBar;
use strict;
use warnings;
my $name;
my $mw=Tkx::widget->new('.');
my $text=$mw->new_text(-width=>20,height=>10);
my $findbar=$mw->new_tkx_FindBar(-textwidget=>$text);
foreach(qw/David Mary William/) {
    $text->insert('end',"$_\n");
}
$findbar->g_pack();
$text-g_pack();
$findbar->show();
$text->g_bind('<Return>',sub{$name=$text->get(qw/sel.first sel.last);p
+rint "The name is $name\n"});

    [download]

[reply]
[d/l]

      Well that doesn't compile Can't find string terminator "/" anywhere before EOF at blah.pl line 15.

      Even if I were to fix that typo, the typos just keep going

      Try again please

[reply]
[d/l]

        Sorry the command should have read 

        $text->g_bind('<Return>',sub{$name=$text->get(qw/sel.first sel.last/);
+print "The name is $name\n"});

        [download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom