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 ---- \n ----- mit 2 Zeilen -----  ", 
                          -relief => 'raised');
my $lbl_2 = $mw -> Label (-text => 'Textfeld 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');

#Geometry Management
$lbl_1 -> grid(-row=>0,-column=>0);
$lbl_2 -> grid(-row=>0,-column=>1,-sticky=>"ns");
$lbl_3 -> grid(-row=>1,-column=>0,-sticky=>"ew");
$lbl_4 -> grid(-row=>2,-column=>0,-sticky=>"w");
$lbl_5 -> grid(-row=>2,-column=>1,-sticky=>"e");

MainLoop;