use strict;
use warnings;
use Tk;

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

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

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

# Es lassen sich auch gleich mehrere Widgets nebeinander legen
$lbl_1 -> grid($lbl_2, $lbl_3);       # 1, 2, 3
# hier steht das 'x' als Platzhalter für eine leere Zelle
$lbl_4 -> grid('x',$lbl_5);           # 4, nix, 5

MainLoop;