#!/usr/bin/wish

set sex "?"
set shift "?"

frame .nm
    label .nm.prompt -text "name: "
    entry .nm.entry -width 8
    pack .nm.prompt .nm.entry -side left -fill both
frame .sh
    label .sh.prompt -text "shift: "
    checkbutton .sh.check -text "night?" -variable shift -onvalue night -offvalue day
    pack .sh.prompt .sh.check -side left -fill both
frame .sex
    label .sex.prompt -text "sex: "
    radiobutton .sex.male -text "M" -variable sex -value "boy"
    radiobutton .sex.female -text "F" -variable sex -value "girl"
    pack .sex.prompt .sex.male .sex.female -side left -fill both
button .ok -text "ok" -command done
pack .nm .sh .sex .ok -side top -fill both

proc done {} {
    global sex shift
    puts "name : [.nm.entry get]"
    puts "shift: $shift"
    puts "sex  : $sex"
    exit
}