module SFML.Window.Context
(
createContext
, destroy
, setActiveContext
)
where
import SFML.SFResource
import SFML.Window.Types
import Foreign.C.Types
createContext = sfContext_create
foreign import ccall unsafe "sfContext_create"
sfContext_create :: IO Context
instance SFResource Context where
destroy = sfContext_destroy
foreign import ccall unsafe "sfContext_destroy"
sfContext_destroy :: Context -> IO ()
setActiveContext :: Context -> Bool -> IO ()
setActiveContext ctx val = sfContext_setActive ctx (fromIntegral . fromEnum $ val)
foreign import ccall unsafe "sfContext_setActive"
sfContext_setActive :: Context -> CInt -> IO ()