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)