#!/Perl/bin/perl

use strict;
use warnings;
use Tk;
use Tk::TableMatrix::Spreadsheet;

my $mw = Tk::MainWindow->new();

my %tabellenInhalte = ();
my $tabelle = $mw->Scrolled(
    'Spreadsheet',
    -scrollbars => 'e',
    -titlerows => 1,
    -titlecols => 0,
    -rows => 10,
    -cols => 3, 
    -variable => \%tabellenInhalte,
    -selectmode => 'extended',
    -bg         => 'white',
    -rowtagcommand => sub {
        my $zeile = shift;
        return unless defined $zeile;
        # markiere den selektierten Eintrag
        print "markierte Zeile: $zeile\n";
    },
)->pack();
$tabelle->tagConfigure('readonly', state => 'disabled', -bg => 'lightgray',);
$tabelle->tagCell('readonly', "2,1");

$mw->MainLoop();