#!/usr/bin/perl -w
######################################################################
# message.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use Tk;

$top = MainWindow->new(); 

$top->Message(-width => "3c", -justify => "left",
              -text => "This is a left-ranged message"
             )->pack(-side => "left");
$top->Message(-width => "3c", -justify => "right",
              -text => "This is a right-ranged message "
             )->pack(-side => "left");
$top->Message(-width => "3c", -justify => "center",
              -text => "This is a centered message"
             )->pack(-side => "left");

MainLoop;