use strict;
use warnings;
use Tk;

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

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

# Wieder mal diverse Felder definieren
my $lbl_1 = $mw -> Label (-text => 'Feld 1',
                          -relief => 'raised');
my $lbl_2 = $mw -> Label (-text => 'Feld 2',
                          -relief => 'raised');
my $lbl_3 = $mw -> Label (-text => 'Feld 3',
                          -relief => 'raised');
my $lbl_4 = $mw -> Label (-text => 'Feld 4',
                          -relief => 'raised');
my $lbl_5 = $mw -> Label (-text => 'Feld 5',
                          -relief => 'raised');
my $lbl_6 = $mw -> Label (-text => 'Feld 6',
                          -relief => 'raised');

# "klebrig" mit Rand
$lbl_1 -> grid($lbl_2, $lbl_3,        # 1, 2, 3
               -sticky => "nsew", 
               -padx => 10, 
               -pady => 10);

# nur "klebrig"
$lbl_4 -> grid($lbl_5, $lbl_6,        # 4, 5, 6
               -sticky => "nsew",); 

MainLoop;