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

use Tk;

my $top = MainWindow->new();

foreach $reliefstyle ("flat", "raised", "sunken", 
                      "ridge", "groove") {

                      # create frame around the label
    $frame = $top->Frame(-relief => $reliefstyle, 
                         -borderwidth => 5);

                      # pack side by side and towards
                      # top with 2mm distance
    $frame->pack(-side => "left", -padx => "2m", 
                                  -pady => "2m"); 

                      # create label
    $frame->Label(-text => $reliefstyle)->pack();
}

MainLoop;