diff --git a/src/Affection/MessageBus/Message/MouseMessage.hs b/src/Affection/MessageBus/Message/MouseMessage.hs index 5833ae1..1ed6300 100644 --- a/src/Affection/MessageBus/Message/MouseMessage.hs +++ b/src/Affection/MessageBus/Message/MouseMessage.hs @@ -21,6 +21,7 @@ data MouseMessage | MsgMouseButton { msgMBWhen :: Double , msgMBWindow :: Maybe SDL.Window + , msgMBMotion :: SDL.InputMotion , msgMBWhich :: SDL.MouseDevice , msgMBButton :: SDL.MouseButton , msgMBClicks :: Word8 @@ -37,5 +38,5 @@ data MouseMessage instance Message MouseMessage where msgTime (MsgMouseMotion t _ _ _ _ _) = t - msgTime (MsgMouseButton t _ _ _ _ _) = t + msgTime (MsgMouseButton t _ _ _ _ _ _) = t msgTime (MsgMouseWheel t _ _ _ _) = t diff --git a/src/Affection/Subsystems/AffectionMouse.hs b/src/Affection/Subsystems/AffectionMouse.hs index b1ede2c..ace9010 100644 --- a/src/Affection/Subsystems/AffectionMouse.hs +++ b/src/Affection/Subsystems/AffectionMouse.hs @@ -46,6 +46,7 @@ consumeSDLMouseEvents am = doConsume partEmit am (MsgMouseButton ts (SDL.mouseButtonEventWindow dat) + (SDL.mouseButtonEventMotion dat) (SDL.mouseButtonEventWhich dat) (SDL.mouseButtonEventButton dat) (SDL.mouseButtonEventClicks dat)