#!/usr/bin/wish

if { $argc } {
	set prompt $argv
} else {
	set prompt "Your answer?"
}
wm title . $prompt

label .prompt -text $prompt -font -*-times-*-r-*-*-*-240-*-*-*-*-*-*
entry .ans -width 60 -textvariable answer
button .btnOK -text OK -command { puts $answer ; exit }
pack .prompt .ans .btnOK

focus .ans
bind .  { puts $answer ; exit }
bind .  exit