iwidgets::regexpfield .fname \ -labeltext "Enter First Name:" \ -fixed 12 \ -regexp {^[a-zA-Z]+$}
iwidgets::Labeledwidget::alignlabels .fname
pack .fname \
-fill x \ -expand 1