SHARE
TWEET

Mads Lindstrm

a guest Aug 30th, 2008 142 Never
  1. intEntry :: Window w -> [Prop IntEntry] -> IO IntEntry
  2. intEntry = compose $ \p ->
  3.     do intEn <- textEntry p [ processEnter := True
  4.                             , on anyKey := handleInput
  5.                             , text := "0"
  6.                             , on mouse := \evt -> do putStrLn "In intEntry mouse event handler"
  7.                                                      evtHandler <- get p (on mouse)
  8.                                                      evtHandler evt
  9.                             ]
  10. ...
RAW Paste Data
Top