regexpfield tcl tk

iwidgets::regexpfield .fname \
  -labeltext "Enter First Name:" \
  -fixed 12 \
  -regexp {^[a-zA-Z]+$}

iwidgets::Labeledwidget::alignlabels .fname

pack .fname \

   -fill x \
  -expand 1