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
|