use Tk;
use Tk::LineNumberText;

$mw = MainWindow->new;
$t = $mw->Text()->pack();
#$t = $mw->LineNumberText('Text')->pack();

$t->insert('end', "This is some\n");
$t->insert('end', "normal texaaaat\n");
$t->insert('end', "normal textasdfasdf\n");
$t->insert('end', "normal textasdasd\n");

$t->bind('<Button-1>' => [\&updateStatus]);
$t->bind('<KeyPress>' => [\&updateStatus]);

MainLoop();
    
sub updateStatus {
    #my ($line,$col) = split(/\./,$t->{'rtext'}->index('insert'));
    #$status = "line: $line, col: $col";
    $status = $t->index('current');
    print "$status\n";    
}