1

関連するスレッドでは、修正が容易であると思われる準コードの例が示されています。

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

ここまで直せませんでした。キーイベントを登録する機能コードのスニペットを誰か提供できますか?

4

1 に答える 1

0

GLFW-bを使用している場合は、次のようにできます。

registerMouseButton :: Window -> MomentIO (Event MouseButton)
registerMouseButton window = do
    (mouseEvent, fireMouseEvent) <- newEvent   
    liftIO $ setMouseButtonCallback window $ Just (\_ mouseButton _ _ -> fireMouseEvent mouseButton)
    return mouseEvent
于 2016-10-01T10:53:33.433 に答える