use strict;
use warnings;
use Tk;

# Das MainWindow erzeugen
my $mw = MainWindow->new(-background  =>  'lightskyblue1');

$mw -> title('Test für grid');

my $lbl_1 = $mw -> Label (-text => '   Zelle  1,1  ',
                          -relief => 'sunken');
my $lbl_2 = $mw -> Label (-text => '   Zelle  2,2  ', 
                          -relief => 'sunken');
my $lbl_3 = $mw -> Label (-text => '   Zelle  3,3  ', 
                          -relief => 'sunken');
my $lbl_4 = $mw -> Label (-text => '       Zelle 4,1 bis 4,2       ', 
                          -relief => 'sunken');
my $lbl_5 = $mw -> Label (-text => '       Zelle 5,2 bis 5,3       ', 
                          -relief => 'sunken');

$lbl_1 -> grid(-row => '0', -column => '0');
$lbl_2 -> grid(-row => '1', -column => '1');
$lbl_3 -> grid(-row => '2', -column => '2');
$lbl_4 -> grid(-row => '3', -column => '0', 
                            -columnspan => '2');
$lbl_5 -> grid(-row => '4', -column => '1', 
                            -columnspan => '2');

MainLoop;