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

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;