#!/usr/local/bin/perl -w
#
# Figure 16.7, p166
#
# not -w clean (how to do ?)
use Tk;
my $mw = MainWindow->new;
my $bold = $mw->Checkbutton(-text => 'Bold',
-variable => $bold,
-anchor => 'w',
);
my $italic = $mw->Checkbutton(-text => 'Italic',
-variable => $italic,
-anchor => 'w',
);
my $underline = $mw->Checkbutton(-text => 'Underline',
-variable => $underline,
-anchor => 'w',
);
$bold->pack(-side => 'top', -fill => 'x');
$italic->pack(-side => 'top', -fill => 'x');
$underline->pack(-side => 'top', -fill => 'x');
MainLoop;