use strict;
use warnings;
use Tk;

my $mw = tkinit();

my %table = ();
my $ft = $mw->Scrolled(
    'Spreadsheet',
    -cols           => 8,
    -rows           => 9,
    -variable       => \%table,
    -selectmode     => 'extended',
    -bg             => 'white',
    -bg             =>  'white',
    -scrollbars     => 'se',
);

# Dokumentation
# $table->spans(?index?, ?rows,cols, index, rows,cols, ...?)

# Zeile 1: Zeit, colspan=8
$ft->spans("0,0", "0,0", "0,0", "0,8"); # geht, warum auch immer

# Zeile 2: 2 * Modus, colspan=4

# Zeile 3: 2 * (Person,Stamm,ZM,Endung), Stamm,ZM = rowspan=6

$ft->pack();

$mw->MainLoop();