blob: d3e07630ecdc87b6f03ebe54655c4f650c38422e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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,
state :: ButtonState
} deriving (Eq, Show, Ord)
|
