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

use Tk;

my $top = MainWindow->new();

foreach $bitmapstyle (qw(error gray25 gray50 hourglass 
                         info questhead question warning)) {
    $frame = $top->Frame();
    $frame->Label(-bitmap => $bitmapstyle)->pack();
    $frame->Label(-text => $bitmapstyle, 
                  -font => "*helvetica-bold-r-*12*"
                 )->pack(-anchor => "s");
    $frame->pack(-side => "left", -anchor => "s"); 
}

MainLoop;