17 lines
427 B
Haskell
17 lines
427 B
Haskell
module Affection.MessageBus.Message.KeyboardMessage where
|
|
|
|
import Affection.MessageBus.Message.Class
|
|
|
|
import qualified SDL
|
|
|
|
data KeyboardMessage = MsgKeyboardEvent
|
|
{ msgKbdWhen :: Double
|
|
, msgKbdWindow :: Maybe SDL.Window
|
|
, msgKbdKeyMotion :: SDL.InputMotion
|
|
, msgKbdKeyRepeat :: Bool
|
|
, msgKbdKeysym :: SDL.Keysym
|
|
} deriving (Show)
|
|
|
|
instance Message KeyboardMessage where
|
|
msgTime (MsgKeyboardEvent t _ _ _ _) = t
|