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

use Tk;

my $top = MainWindow->new();

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

                      # Frame um das Label erzeugen
    $frame = $top->Frame(-relief => $reliefstyle, 
                         -borderwidth => 5);

                      # Mit 2mm Abstand seitlich und nach
                      # oben packen
    $frame->pack(-side => "left", -padx => "2m", 
                                  -pady => "2m"); 

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

MainLoop;