Want more features on Pastebin? Sign Up, it's FREE!
Guest

Mads Lindstrm

By: a guest on Aug 30th, 2008  |  syntax: Haskell  |  size: 0.51 KB  |  views: 141  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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. ...
clone this paste RAW Paste Data