module KeyboardMouseState (setKState , setPMState ) where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
import States


setKState :: MState -> KState -> Key -> KeyState -> Modifiers -> Position -> KState
setKState _ kst (MouseButton LeftButton) Down _ pos = (kStateChangeDownKP kst (Just (MouseButton LeftButton)) (Just pos))
setKState _ kst x Down _ _ = (kStateChangeDownKP kst (Just x) Nothing)
setKState _ kst _ Up _ _ = (kStateChangeDownKP kst Nothing  Nothing)


setPMState :: PMState -> Position -> PMState
setPMState pmst pos = pMStateChangeCPosition pmst (Just pos)