#!/usr/bin/wishx
package require wylib

mdew::mdew .md \
    -f {prefname	ent 16		{0 1}		{Preferred:}	}\
    -f {givnames	ent 14		{1 1}		{Given:}	-bg lightblue}\
    -f {surname		ent 20		{2 1 3}		{Surname:}	-bg lightblue}\
    -f {pertitle	ent 10		{0 2}		{Title:}	-spf scm -data {-f choices -data {Mr. Mrs. Sir}}}\
    -f {jobtitle	ent 34		{1 2 3}		{Job Title:}	-spf scm -data {-f choices -data {President Superintendant Supervisor Grunt}}}\
    -f {addr		mle {34 2}	{0 3 2 2}	{Address:}	-spf edw}\
    -f {city		ent 16		{2 3 2}		{City:}		-spf scm}\
    -f {state		ent  3		{4 3}		{State:}	-ini UT -spf scm -auto 1 -data state}\
    -f {zip		ent 10		{2 4}		{Zip:}		-spf zip}\
    -f {country		ent  5		{3 4 2}		{Country:}	-ini US -spf scm -data country}\
    -f {phone		ent 12		{0 5}		{Phone:}	-tem phone}\
    -f {mobile		ent 12		{1 5}		{Mobile:}	-tem phone}\
    -f {workph		ent 18		{2 5 3}		{Work Phone:}	-tem phone}\
    -f {bday		ent 11		{0 6}		{Birthdate:}	-spf cal}\
    -f {hiredate	ent 11		{1 6}		{Hire Date:}	-ini [date::date] -tem date -spf cal}\
    -f {termdate	ent 11		{2 6 2}		{Term Date:}	-ini {2004-Han} -tem date -spf cal}\
    -f {lrevdate	ent 11		{0 7}		{Last Review:}	-tem date -spf dat}\
    -f {nrevdate	ent 11		{1 7}		{Next Review:}	-tem date -spf dat}\
    -f {lastmod		inf 11		{2 7 2}		{Last Mod:}	-state disabled}\
    -f {status		pdm  6		{0 8}		{Status:}	-ini active -data {active {termin Terminated}}}\
    -f {empltyp		pdm  6		{1 8}		{Empl Type:}	-ini reg -data {{reg Regular} {part {Part Time}} {cont Contract}}}\
    -f {proxy		ent  4		{2 8}		{Proxy:}	-spf scm}\
    -f {pronam		inf 18		{}		{:}	-gmc {pack %w -in %p.proxy} -state disabled {Proxy's full name}}\
    -f {payrate		ent 12		{0 9}		{Pay Rate:}	-spf clc -just r}\
    -f {paytyp		pdm 10		{1 9}		{Pay Type:}	-ini hourly -data {hourly salary piecework}}\
    -f {superv		ent  4		{2 9 3}		{Supervisor:}	-bg pink -spf scm -auto 1}\
    -f {supnam		inf 18		{}		{:}	-bg pink -gmc {pack %w -in %p.superv} -state disabled {Name of the Supervisor}}\
    -f {ssn		ent 11		{0 10}		{SSN:}		-tem {{{} {[0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9][0-9][0-9]}} {###-##-####}}}\
    -f {username	ent 10		{1 10}		{Login:}	-help {Employee's username on the system}}\
    -f {email		ent 20		{2 10 3}	{Email:}	-ini kyle@actarg.com -tem email}\
    -f {mstat		pdm  2		{0 11}		{Marital:}	-ini s -data {{s Single} {m Married}}}\
    -f {eic		pdm  2		{1 11}		{EIC:}		-ini s -data {{{} None} {s Single} {m Married}}}\
    -f {wccode		ent  6		{2 11}		{Wk Comp:}	-just r}\
    -f {allow		ent  2		{3 11 2}	{Allow:}	-ini 1 -just r}\
    -f {cmt		mle {70 3}	{0 12 5}	{Comment:}	-spf edw -ini "Now is the time\nfor all\ngood men\n"}

pack .md -side top -fill x -exp 0

frame .b
pack .b -side bottom -fill x

button .b.chk -text Check -command {.md check -rep 1}
button .b.ini -text Init -command {.md init}
button .b.ext -text Exit -command exit
pack .b.chk .b.ini .b.ext -side left -fill x -exp 1

#bind .md <<Modified>> {puts "modified: %W [%W modified]"}
