module Control.Monad.SFML.Window where
import Control.Monad.SFML.Types.TH
import qualified SFML.Window as W
$(liftWithDestroy 'id 'W.createContext)
$(lift 'W.setActiveContext)
$(lift 'W.isJoystickConnected)
$(lift 'W.getButtonCount)
$(lift 'W.hasAxis)
$(lift 'W.isJoystickButtonPressed)
$(lift 'W.getAxisPosition)
$(lift 'W.updateJoystick)
$(lift 'W.isKeyPressed)
$(lift 'W.isMouseButtonPressed)
$(lift 'W.getDesktopMode)
$(lift 'W.getFullscreenModes)
$(lift 'W.isValid)
$(liftWithDestroy 'id 'W.createWindow)
$(liftWithDestroy 'id 'W.windowFromHandle)