GLFW-b 0.1.0.0 → 0.1.0.1
raw patch · 2 files changed
+14/−1 lines, 2 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ Graphics.UI.GLFW: disableMouseCursor :: IO ()
+ Graphics.UI.GLFW: enableMouseCursor :: IO ()
Files
- GLFW-b.cabal +1/−1
- src/Graphics/UI/GLFW.hsc +13/−0
GLFW-b.cabal view
@@ -1,5 +1,5 @@ name: GLFW-b-version: 0.1.0.0+version: 0.1.0.1 category: Graphics
src/Graphics/UI/GLFW.hsc view
@@ -73,6 +73,8 @@ , setMouseButtonCallback , setMousePositionCallback , setMouseWheelCallback+ , enableMouseCursor+ , disableMouseCursor -- , MouseButton(..) , MouseButtonCallback@@ -163,6 +165,9 @@ foreign import ccall glfwGetGLVersion :: Ptr CInt -> Ptr CInt -> Ptr CInt -> IO () +foreign import ccall glfwEnable :: CInt -> IO ()+foreign import ccall glfwDisable :: CInt -> IO ()+ type GlfwCharCallback = CInt -> CInt -> IO () type GlfwKeyCallback = CInt -> CInt -> IO () type GlfwMouseButtonCallback = CInt -> CInt -> IO ()@@ -824,6 +829,14 @@ ccb <- wrapMouseWheelCallback (cb . fromC) glfwSetMouseWheelCallback ccb storeCallback mouseWheelCallback ccb++-- |Make the mouse cursor visible.+enableMouseCursor :: IO ()+enableMouseCursor = glfwEnable (#const GLFW_MOUSE_CURSOR)++-- |Make the mouse cursor invisible.+disableMouseCursor :: IO ()+disableMouseCursor = glfwDisable (#const GLFW_MOUSE_CURSOR) -- -- -- -- -- -- -- -- -- --