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

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;