在related thread中,已经给出了一个准代码示例,据说很容易修复:
registerMouseButton :: IO (Event MouseButton)
registerMouseButton = do
(addHandler, fire) <- newAddHandler
setMouseButtonCallback $ \button _ -> fire button
fromAddHandler addHandler
到目前为止我无法修复它。有人可以提供注册关键事件的功能代码片段吗?