Added interface to enable/disable the mouse cursor.

mikeplus64 · Dec 20, 2011 · 844bc35 · 844bc35
1 parent d86fd07
commit 844bc35
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/GLFW-b.cabal b/GLFW-b.cabal
@@ -1,5 +1,5 @@
 name:         GLFW-b
-version:      0.1.0.0
+version:      0.1.0.1
 
 category:     Graphics
 

diff --git a/src/Graphics/UI/GLFW.hsc b/src/Graphics/UI/GLFW.hsc
@@ -73,6 +73,8 @@ module Graphics.UI.GLFW
   , setMouseButtonCallback
   , setMousePositionCallback
   , setMouseWheelCallback
+  , enableMouseCursor
+  , disableMouseCursor
     --
   , MouseButton(..)
   , MouseButtonCallback
@@ -163,6 +165,9 @@ foreign import ccall glfwSleep                    :: CDouble -> IO ()
 
 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 ()
@@ -825,6 +830,14 @@ setMouseWheelCallback cb = do
     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)
+
 -- -- -- -- -- -- -- -- -- --
 
 data MouseButton