use warnings;
use strict;
use Tk;
my $mw = tkinit;
my $t = $mw->Scrolled('ROText')->pack;


for (1..10000){
    $t->insert('end', "$_\t yes no  yes no \n");
}
$t = $t->Subwidget('scrolled');
$t->bindtags(['Custom',$t->bindtags]);
$t->tagConfigure('Highlight', -background => 'yellow');
$t->bind('Custom','<3>',[\&edit, Ev('@')]);
$t->bind('<Motion>',[\&motion, Ev('@')]);
MainLoop;

sub motion{
    my $text = shift;
    my $i = $text->index($_[0]);
    my ($line,undef) = split (/\./,$i);
    $t->tagRemove('Highlight','1.0','end');
    $t->tagAdd('Highlight',"$line.0",($line+1).".0");

}
sub edit{
    #print @_;
    my $text = shift;
    my $i = $text->index($_[0]);
    my ($line,undef) = split (/\./,$i);
    print $line,"\n";
    
    # edit_dialog($text,$line)

    Tk::break;
}