#!/usr/bin/perl -w

use strict;
my ($main);

use Tk;			
$main = MainWindow->new();	

my ($sex, $shift) = ("?", "?");

$main->{nm} = $main->Frame();
    $main->{nm}{prompt} = $main->{nm}->Label(-text=>"name: ");
    $main->{nm}{entry}  = $main->{nm}->Entry(-width=>8);
    $main->{nm}{prompt}->pack($main->{nm}{entry}, -side=>"left", -fill=>"both");
$main->{sh} = $main->Frame();
    $main->{sh}{prompt} = $main->{sh}->Label(-text=>"shift: ");
    $main->{sh}{check} = $main->{sh}->Checkbutton(-text=>"night?",
	-variable=>\$shift, -onvalue=>"night", -offvalue=>"day");
    $main->{sh}{prompt}->pack($main->{sh}{check}, -side=>"left", -fill=>"both");
$main->{sex} = $main->Frame();
    $main->{sex}{prompt} = $main->{sex}->Label(-text=>"sex: ");
    $main->{sex}{male} = $main->{sex}->Radiobutton(-text=>"M",
	-variable=>\$sex, -value=>"boy");
    $main->{sex}{female} = $main->{sex}->Radiobutton(-text=>"F",
	-variable=>\$sex, -value=>"girl");
    $main->{sex}{prompt}->pack($main->{sex}{male}, $main->{sex}{female},
	-side=>"left", -fill=>"both");
$main->{ok} = $main->Button(-text=>"ok", -command=>\&done);
$main->{nm}->pack(@{ $main }{qw(sh sex ok)}, -side=>"top", -fill=>"both");

MainLoop();

sub done {
    my ($t) = $main->{nm}{entry}->get();
    print <<eof;
name : $t
shift: $shift
sex  : $sex
eof
    exit;
}