TextField in action

textField :: String -> Component (TextField, DisplayHandle)

main =
 mkDC []                           >>= \dc ->
   label "Name:" dc                >>= \ (_,dh1) ->
   textField "Haskell B." dc       >>= \ (field,dh2) ->
 realiseDH dc (hBox [dh1,dh2] dc)  >>= \win ->
 waitString field                  >>= \str ->
 putStr ("Your name is: "++str++"\n") >>
 closeWindow (getDCWindow win)