nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

adding mouseButtonEventMotion

Browse source
This commit is contained in:
nek0 2018-02-18 04:30:53 +01:00
parent 8f662cf6fa
commit 39eaf0eb91
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Affection/MessageBus/Message/MouseMessage.hs
View file

@ -21,6 +21,7 @@ data MouseMessage
| MsgMouseButton | MsgMouseButton
{ msgMBWhen :: Double { msgMBWhen :: Double
, msgMBWindow :: Maybe SDL.Window , msgMBWindow :: Maybe SDL.Window
, msgMBMotion :: SDL.InputMotion
, msgMBWhich :: SDL.MouseDevice , msgMBWhich :: SDL.MouseDevice
, msgMBButton :: SDL.MouseButton , msgMBButton :: SDL.MouseButton
, msgMBClicks :: Word8 , msgMBClicks :: Word8
@ -37,5 +38,5 @@ data MouseMessage
instance Message MouseMessage where instance Message MouseMessage where
msgTime (MsgMouseMotion t _ _ _ _ _) = t msgTime (MsgMouseMotion t _ _ _ _ _) = t
msgTime (MsgMouseButton t _ _ _ _ _) = t msgTime (MsgMouseButton t _ _ _ _ _ _) = t
msgTime (MsgMouseWheel t _ _ _ _) = t msgTime (MsgMouseWheel t _ _ _ _) = t

1
src/Affection/Subsystems/AffectionMouse.hs
View file

@ -46,6 +46,7 @@ consumeSDLMouseEvents am = doConsume
partEmit am (MsgMouseButton partEmit am (MsgMouseButton
ts ts
(SDL.mouseButtonEventWindow dat) (SDL.mouseButtonEventWindow dat)
(SDL.mouseButtonEventMotion dat)
(SDL.mouseButtonEventWhich dat) (SDL.mouseButtonEventWhich dat)
(SDL.mouseButtonEventButton dat) (SDL.mouseButtonEventButton dat)
(SDL.mouseButtonEventClicks dat) (SDL.mouseButtonEventClicks dat)