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

use Tk;

$top=MainWindow->new();

$top->Radiobutton(-text => "Radio(1)", 
                  -variable => \$radiovar,
                  -value => "R1" )->pack();

$top->Radiobutton(-text => "Radio(2)", 
                  -variable => \$radiovar,
                  -value => "R2" )->pack();

MainLoop;