edit ew =
    do (ew', s) <- activateEditWidget done (1, 10) (1, 10) ew
       Curses.wMove Curses.stdScr 5 0
       CursesH.drawLine 60 ("saved: " ++ s)
       Curses.refresh
       return ew'
edit ew =
    do (ew', s) <- activateEditWidget done (1, 10) (1, 10) ew
       Curses.wMove Curses.stdScr 5 0
       CursesH.drawLine 60 ("saved: " ++ s)
       Curses.refresh
       return ew'
edit ew =
    do (ew', s) <- activateEditWidget done (1, 10) (1, 10) ew
       Curses.wMove Curses.stdScr 5 0
       CursesH.drawLine 60 ("saved: " ++ s)
       Curses.refresh
       return ew'