Re^6: Getting selection from Tkx text

[Anonymous Monk]

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

[dabella12]

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"});

[Anonymous Monk]

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

[dabella12]

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"});