On Thu, May 8, 2014 at 5:08 AM, Vlad Lopatin <madjestic13@gmail.com> wrote:

Hello List,

I am trying to make the following quasi-code example work:

registerMouseButton :: IO (Event MouseButton)
registerMouseButton = do
(addHandler, fire) <- newAddHandler
setMouseButtonCallback $ \button _ -> fire button
fromAddHandler addHandler

According to http://stackoverflow.com/questions/8631816/reactive-banana-how-to-create-an-addhandler it looks like it should be something straightforward.  

Can somebody show an example of a functional code that registers a key or a mouse event?

I don't have mouse registration, but this code should work for keys: https://github.com/dagit/1GAM/blob/master/pong/reactive-banana/Main.hs#L114

I haven't tested it in a while, but according to the git log I tested it against reactive-banana and GLFW-b at some point :)

Jason