#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Tk;

$top = MainWindow->new(); 

$top->Message(-width => "3c", -justify => "left",
              -text => "Dies ist eine linksbündige Meldung"
             )->pack(-side => "left");
$top->Message(-width => "3c", -justify => "right",
              -text => "Dies ist eine rechtsbündige Meldung"
             )->pack(-side => "left");
$top->Message(-width => "3c", -justify => "center",
              -text => "Dies ist eine zentrierte Meldung"
             )->pack(-side => "left");

MainLoop;