From 39eaf0eb91266181d590621ca64e91363a82755a Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 18 Feb 2018 04:30:53 +0100 Subject: [PATCH] adding mouseButtonEventMotion --- src/Affection/MessageBus/Message/MouseMessage.hs | 3 ++- src/Affection/Subsystems/AffectionMouse.hs | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) 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)