#!/usr/bin/perl
use strict;
use Tk;
use Tk::TableMatrix;

my $mw = MainWindow->new();
my $tm = $mw->TableMatrix(
-state => 'disabled',
-browsecommand => \&brscmd,
)->pack();

MainLoop;

sub brscmd {
my ($previous_index, $actual_index) = @_;
my ($row, $col) = split ',', $actual_index;
print "r$row c$col\n";
}
[download]