use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();

# Nachrichten nur wegen des Buchformats zweizeilig
my $msg1 = 'Diese etwas längliche und völlig sinnlose ' .
           'Nachricht wird linksbündig angezeigt.';
my $msg2 = 'Diese ebenso längliche wie sinnlose Nachricht ' .
           'wird in der Mitte angezeigt.';
my $msg3 = 'Noch eine etwas längliche und sinnlose ' .
           'Nachricht, die rechtsbündig angezeigt wird.';

my $m1 = $mw->Message(-text => $msg1,
                   -width   => "4c",
                   -justify => "left")
            ->pack(-side => "left");
            
my $m2 = $mw->Message(-text => $msg2,
                   -width   => "4c",
                   -justify => "center")
            ->pack(-side => "left");
            
my $m3 = $mw->Message(-text => $msg3,
                   -width   => "4c",
                   -justify => "right")
            ->pack(-side => "left");
            
MainLoop;