#!/usr/bin/perl -w
use Tk;
$quality = "letter";
$main = MainWindow->new();
$label = $main->Label(-text => "Print Options");
$label->pack();
$frame = $main->Frame(-relief=>"groove",
-borderwidth=>2);
$radio1 = $frame->Radiobutton(-text=>"Draft",
-variable=>\$quality,
-value=>"draft");
$radio1->pack(-side=>"top");
$radio2 = $frame->Radiobutton(-text=>"Letter",
-variable=>\$quality,
-value=>"letter");
$radio2->pack(-side=>"top");
$frame->pack();
$button = $main->Button(-text => "Exit",
-command => \&exit_button);
$button->pack();
MainLoop();
sub exit_button {
if ( $both_sides eq "both") {
print "Print both sides.\n";
} else {
print "Print single-sided.\n";
}
exit;
}
|