setMouseCapture :: Bool    -- ^ Set to true if you want to capture the mouse,
                           -- false if you want to release it.
                -> IO ()
setMouseCapture do_grab = do
    _ <- currentContextID
    void $ setRelativeMouseMode do_grab
setMouseCapture :: Bool    -- ^ Set to true if you want to capture the mouse,
                           -- false if you want to release it.
                -> IO ()
setMouseCapture do_grab = do
    _ <- currentContextID
    void $ setRelativeMouseMode do_grab
setMouseCapture do_grab = do
    _ <- currentContextID
    void $ setRelativeMouseMode do_grab