#!/usr/local/bin/perl -w
#
# Figure 16.1, p159
#
use Tk;
my $mw = MainWindow->new;
for $relief('raised','sunken','flat','groove','ridge') {
print "$relief";
$$relief = $mw->Frame(
-width => '15m',
-height => '10m',
-relief => $relief,
-borderwidth => 4,
);
$$relief->pack(-side => 'left', -padx => '2m', -pady => '2m');
}
$flat->configure(-background => 'black'); #perl complains here
MainLoop;