blob: cc3d9056c75f446643ee8fb981558cabd28d7946 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Wetterhorn.Core.ButtonEvent where
import Wetterhorn.Foreign.WlRoots
import Data.Word (Word32)
import Foreign (Ptr)
data ButtonState = ButtonReleased | ButtonPressed deriving (Show, Read, Eq, Enum, Ord)
data ButtonEvent = ButtonEvent {
pointer :: Ptr WlrPointer,
timeMs :: Word32,
button :: Word32,
modifiers :: Word32,
state :: ButtonState
} deriving (Eq, Show, Ord)
|
