\setupinteraction[state=start]

\starttext
\setupfield
[ShortLine]
[label,frame,horizontal]
[offset=4pt,height=fit,framecolor=green,background=screen,backgroundscreen=.80]
[height=18pt,width=80pt,align=middle,background=screen,backgroundscreen=.90,frame=off]
[height=18pt,width=80pt,color=red,align=right,style=type,background=screen,backgroundscreen=.90,frame=off]
\definefield[Email][line][ShortLine][][pragma@wxs.nl]
\field[Email][your email]
\stoptext

