Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- intEntry :: Window w -> [Prop IntEntry] -> IO IntEntry
- intEntry = compose $ \p ->
- do intEn <- textEntry p [ processEnter := True
- , on anyKey := handleInput
- , text := "0"
- , on mouse := \evt -> do putStrLn "In intEntry mouse event handler"
- evtHandler <- get p (on mouse)
- evtHandler evt
- ]
- ...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement