#!/usr/bin/perl -w

use strict;
my (%W);

# use Tk;			#=NIS=#
# $W{_} = MainWindow->new();	#=NIS=#

use Tcl::Tk qw(:perlTk);	#=MBVK=#
my $interp = Tcl::Tk->new();	#=MBVK=#
$W{_} = $interp->mainwindow();  #=MBVK=#

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

$W{_nm} = $W{_}->Frame();
    $W{_nm_prompt} = $W{_nm}->Label(-text=>"name: ");
    $W{_nm_entry}  = $W{_nm}->Entry(-width=>8);
    $W{_nm_prompt}->pack($W{_nm_entry}, -side=>"left", -fill=>"both");
$W{_sh} = $W{_}->Frame();
    $W{_sh_prompt} = $W{_sh}->Label(-text=>"shift: ");
    $W{_sh_check} = $W{_sh}->Checkbutton(-text=>"night?",
	-variable=>\$shift, -onvalue=>"night", -offvalue=>"day");
    $W{_sh_prompt}->pack($W{_sh_check}, -side=>"left", -fill=>"both");
$W{_sex} = $W{_}->Frame();
    $W{_sex_prompt} = $W{_sex}->Label(-text=>"sex: ");
    $W{_sex_male} = $W{_sex}->Radiobutton(-text=>"M",
	-variable=>\$sex, -value=>"boy");
    $W{_sex_female} = $W{_sex}->Radiobutton(-text=>"F",
	-variable=>\$sex, -value=>"girl");
    $W{_sex_prompt}->pack($W{_sex_male}, $W{_sex_female},
	-side=>"left", -fill=>"both");
$W{_ok} = $W{_}->Button(-text=>"ok", -command=>\&done);
$W{_nm}->pack(@W{qw(_sh _sex _ok)}, -side=>"top", -fill=>"both");

MainLoop();

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