wm title . "Regexpfield Example"

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

iwidgets::regexpfield .lname \
  -labeltext "Enter Last Name:" \
  -fixed 16 \
  -regexp {^[a-zA-Z]+$}

iwidgets::regexpfield .tnum \
  -labeltext "Enter Tele Num (XXX-XXX-XXXX):" \
  -fixed 12 \
  -regexp {^[-0-9]+$}

iwidgets::Labeledwidget::alignlabels .fname .lname .tnum

pack .fname .lname .tnum \
  -fill x \
  -expand 1