EventTouchpadSwipe.hs


{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)

Generated during touchpad swipe gestures.
-}

module GI.Gdk.Structs.EventTouchpadSwipe
    ( 

-- * Exported types
    EventTouchpadSwipe(..)                  ,
    newZeroEventTouchpadSwipe               ,
    noEventTouchpadSwipe                    ,


 -- * Properties
-- ** Dx
    eventTouchpadSwipeDx                    ,
    eventTouchpadSwipeReadDx                ,
    eventTouchpadSwipeWriteDx               ,


-- ** Dy
    eventTouchpadSwipeDy                    ,
    eventTouchpadSwipeReadDy                ,
    eventTouchpadSwipeWriteDy               ,


-- ** NFingers
    eventTouchpadSwipeNFingers              ,
    eventTouchpadSwipeReadNFingers          ,
    eventTouchpadSwipeWriteNFingers         ,


-- ** Phase
    eventTouchpadSwipePhase                 ,
    eventTouchpadSwipeReadPhase             ,
    eventTouchpadSwipeWritePhase            ,


-- ** SendEvent
    eventTouchpadSwipeReadSendEvent         ,
    eventTouchpadSwipeSendEvent             ,
    eventTouchpadSwipeWriteSendEvent        ,


-- ** State
    eventTouchpadSwipeReadState             ,
    eventTouchpadSwipeState                 ,
    eventTouchpadSwipeWriteState            ,


-- ** Time
    eventTouchpadSwipeReadTime              ,
    eventTouchpadSwipeTime                  ,
    eventTouchpadSwipeWriteTime             ,


-- ** Type
    eventTouchpadSwipeReadType              ,
    eventTouchpadSwipeType                  ,
    eventTouchpadSwipeWriteType             ,


-- ** Window
    eventTouchpadSwipeClearWindow           ,
    eventTouchpadSwipeReadWindow            ,
    eventTouchpadSwipeWindow                ,
    eventTouchpadSwipeWriteWindow           ,


-- ** X
    eventTouchpadSwipeReadX                 ,
    eventTouchpadSwipeWriteX                ,
    eventTouchpadSwipeX                     ,


-- ** XRoot
    eventTouchpadSwipeReadXRoot             ,
    eventTouchpadSwipeWriteXRoot            ,
    eventTouchpadSwipeXRoot                 ,


-- ** Y
    eventTouchpadSwipeReadY                 ,
    eventTouchpadSwipeWriteY                ,
    eventTouchpadSwipeY                     ,


-- ** YRoot
    eventTouchpadSwipeReadYRoot             ,
    eventTouchpadSwipeWriteYRoot            ,
    eventTouchpadSwipeYRoot                 ,




    ) where

import Data.GI.Base.ShortPrelude

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map

import GI.Gdk.Types
import GI.Gdk.Callbacks

newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe)
instance WrappedPtr EventTouchpadSwipe where
    wrappedPtrCalloc = callocBytes 88
    wrappedPtrCopy = copyPtr 88
    wrappedPtrFree = Just ptr_to_g_free

-- | Construct a `EventTouchpadSwipe` struct initialized to zero.
newZeroEventTouchpadSwipe :: MonadIO m => m EventTouchpadSwipe
newZeroEventTouchpadSwipe = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouchpadSwipe

instance tag ~ 'AttrSet => Constructible EventTouchpadSwipe tag where
    new _ attrs = do
        o <- newZeroEventTouchpadSwipe
        GI.Attributes.set o attrs
        return o


noEventTouchpadSwipe :: Maybe EventTouchpadSwipe
noEventTouchpadSwipe = Nothing

eventTouchpadSwipeReadType :: MonadIO m => EventTouchpadSwipe -> m EventType
eventTouchpadSwipeReadType s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 0) :: IO CUInt
    let val' = (toEnum . fromIntegral) val
    return val'

eventTouchpadSwipeWriteType :: MonadIO m => EventTouchpadSwipe -> EventType -> m ()
eventTouchpadSwipeWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = (fromIntegral . fromEnum) val
    poke (ptr `plusPtr` 0) (val' :: CUInt)

data EventTouchpadSwipeTypeFieldInfo
instance AttrInfo EventTouchpadSwipeTypeFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) EventType
    type AttrBaseTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeTypeFieldInfo = EventType
    type AttrLabel EventTouchpadSwipeTypeFieldInfo = "type"
    attrGet _ = eventTouchpadSwipeReadType
    attrSet _ = eventTouchpadSwipeWriteType
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeType :: AttrLabelProxy "type"
eventTouchpadSwipeType = AttrLabelProxy


eventTouchpadSwipeReadWindow :: MonadIO m => EventTouchpadSwipe -> m (Maybe Window)
eventTouchpadSwipeReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)
    result <- convertIfNonNull val $ \val' -> do
        val'' <- (newObject Window) val'
        return val''
    return result

eventTouchpadSwipeWriteWindow :: MonadIO m => EventTouchpadSwipe -> Ptr Window -> m ()
eventTouchpadSwipeWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 8) (val :: Ptr Window)

eventTouchpadSwipeClearWindow :: MonadIO m => EventTouchpadSwipe -> m ()
eventTouchpadSwipeClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)

data EventTouchpadSwipeWindowFieldInfo
instance AttrInfo EventTouchpadSwipeWindowFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) (Ptr Window)
    type AttrBaseTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeWindowFieldInfo = Maybe Window
    type AttrLabel EventTouchpadSwipeWindowFieldInfo = "window"
    attrGet _ = eventTouchpadSwipeReadWindow
    attrSet _ = eventTouchpadSwipeWriteWindow
    attrConstruct = undefined
    attrClear _ = eventTouchpadSwipeClearWindow

eventTouchpadSwipeWindow :: AttrLabelProxy "window"
eventTouchpadSwipeWindow = AttrLabelProxy


eventTouchpadSwipeReadSendEvent :: MonadIO m => EventTouchpadSwipe -> m Int8
eventTouchpadSwipeReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 16) :: IO Int8
    return val

eventTouchpadSwipeWriteSendEvent :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
eventTouchpadSwipeWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 16) (val :: Int8)

data EventTouchpadSwipeSendEventFieldInfo
instance AttrInfo EventTouchpadSwipeSendEventFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) Int8
    type AttrBaseTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeSendEventFieldInfo = Int8
    type AttrLabel EventTouchpadSwipeSendEventFieldInfo = "send_event"
    attrGet _ = eventTouchpadSwipeReadSendEvent
    attrSet _ = eventTouchpadSwipeWriteSendEvent
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeSendEvent :: AttrLabelProxy "sendEvent"
eventTouchpadSwipeSendEvent = AttrLabelProxy


eventTouchpadSwipeReadPhase :: MonadIO m => EventTouchpadSwipe -> m TouchpadGesturePhase
eventTouchpadSwipeReadPhase s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 20) :: IO CUInt
    let val' = (toEnum . fromIntegral) val
    return val'

eventTouchpadSwipeWritePhase :: MonadIO m => EventTouchpadSwipe -> TouchpadGesturePhase -> m ()
eventTouchpadSwipeWritePhase s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = (fromIntegral . fromEnum) val
    poke (ptr `plusPtr` 20) (val' :: CUInt)

data EventTouchpadSwipePhaseFieldInfo
instance AttrInfo EventTouchpadSwipePhaseFieldInfo where
    type AttrAllowedOps EventTouchpadSwipePhaseFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) TouchpadGesturePhase
    type AttrBaseTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipePhaseFieldInfo = TouchpadGesturePhase
    type AttrLabel EventTouchpadSwipePhaseFieldInfo = "phase"
    attrGet _ = eventTouchpadSwipeReadPhase
    attrSet _ = eventTouchpadSwipeWritePhase
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipePhase :: AttrLabelProxy "phase"
eventTouchpadSwipePhase = AttrLabelProxy


eventTouchpadSwipeReadNFingers :: MonadIO m => EventTouchpadSwipe -> m Int8
eventTouchpadSwipeReadNFingers s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 24) :: IO Int8
    return val

eventTouchpadSwipeWriteNFingers :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
eventTouchpadSwipeWriteNFingers s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 24) (val :: Int8)

data EventTouchpadSwipeNFingersFieldInfo
instance AttrInfo EventTouchpadSwipeNFingersFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeNFingersFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) Int8
    type AttrBaseTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeNFingersFieldInfo = Int8
    type AttrLabel EventTouchpadSwipeNFingersFieldInfo = "n_fingers"
    attrGet _ = eventTouchpadSwipeReadNFingers
    attrSet _ = eventTouchpadSwipeWriteNFingers
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeNFingers :: AttrLabelProxy "nFingers"
eventTouchpadSwipeNFingers = AttrLabelProxy


eventTouchpadSwipeReadTime :: MonadIO m => EventTouchpadSwipe -> m Word32
eventTouchpadSwipeReadTime s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 28) :: IO Word32
    return val

eventTouchpadSwipeWriteTime :: MonadIO m => EventTouchpadSwipe -> Word32 -> m ()
eventTouchpadSwipeWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 28) (val :: Word32)

data EventTouchpadSwipeTimeFieldInfo
instance AttrInfo EventTouchpadSwipeTimeFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) Word32
    type AttrBaseTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeTimeFieldInfo = Word32
    type AttrLabel EventTouchpadSwipeTimeFieldInfo = "time"
    attrGet _ = eventTouchpadSwipeReadTime
    attrSet _ = eventTouchpadSwipeWriteTime
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeTime :: AttrLabelProxy "time"
eventTouchpadSwipeTime = AttrLabelProxy


eventTouchpadSwipeReadX :: MonadIO m => EventTouchpadSwipe -> m Double
eventTouchpadSwipeReadX s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 32) :: IO CDouble
    let val' = realToFrac val
    return val'

eventTouchpadSwipeWriteX :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
eventTouchpadSwipeWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = realToFrac val
    poke (ptr `plusPtr` 32) (val' :: CDouble)

data EventTouchpadSwipeXFieldInfo
instance AttrInfo EventTouchpadSwipeXFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeXFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeXFieldInfo = (~) Double
    type AttrBaseTypeConstraint EventTouchpadSwipeXFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeXFieldInfo = Double
    type AttrLabel EventTouchpadSwipeXFieldInfo = "x"
    attrGet _ = eventTouchpadSwipeReadX
    attrSet _ = eventTouchpadSwipeWriteX
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeX :: AttrLabelProxy "x"
eventTouchpadSwipeX = AttrLabelProxy


eventTouchpadSwipeReadY :: MonadIO m => EventTouchpadSwipe -> m Double
eventTouchpadSwipeReadY s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 40) :: IO CDouble
    let val' = realToFrac val
    return val'

eventTouchpadSwipeWriteY :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
eventTouchpadSwipeWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = realToFrac val
    poke (ptr `plusPtr` 40) (val' :: CDouble)

data EventTouchpadSwipeYFieldInfo
instance AttrInfo EventTouchpadSwipeYFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeYFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeYFieldInfo = (~) Double
    type AttrBaseTypeConstraint EventTouchpadSwipeYFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeYFieldInfo = Double
    type AttrLabel EventTouchpadSwipeYFieldInfo = "y"
    attrGet _ = eventTouchpadSwipeReadY
    attrSet _ = eventTouchpadSwipeWriteY
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeY :: AttrLabelProxy "y"
eventTouchpadSwipeY = AttrLabelProxy


eventTouchpadSwipeReadDx :: MonadIO m => EventTouchpadSwipe -> m Double
eventTouchpadSwipeReadDx s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 48) :: IO CDouble
    let val' = realToFrac val
    return val'

eventTouchpadSwipeWriteDx :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
eventTouchpadSwipeWriteDx s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = realToFrac val
    poke (ptr `plusPtr` 48) (val' :: CDouble)

data EventTouchpadSwipeDxFieldInfo
instance AttrInfo EventTouchpadSwipeDxFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeDxFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) Double
    type AttrBaseTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeDxFieldInfo = Double
    type AttrLabel EventTouchpadSwipeDxFieldInfo = "dx"
    attrGet _ = eventTouchpadSwipeReadDx
    attrSet _ = eventTouchpadSwipeWriteDx
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeDx :: AttrLabelProxy "dx"
eventTouchpadSwipeDx = AttrLabelProxy


eventTouchpadSwipeReadDy :: MonadIO m => EventTouchpadSwipe -> m Double
eventTouchpadSwipeReadDy s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 56) :: IO CDouble
    let val' = realToFrac val
    return val'

eventTouchpadSwipeWriteDy :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
eventTouchpadSwipeWriteDy s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = realToFrac val
    poke (ptr `plusPtr` 56) (val' :: CDouble)

data EventTouchpadSwipeDyFieldInfo
instance AttrInfo EventTouchpadSwipeDyFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeDyFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) Double
    type AttrBaseTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeDyFieldInfo = Double
    type AttrLabel EventTouchpadSwipeDyFieldInfo = "dy"
    attrGet _ = eventTouchpadSwipeReadDy
    attrSet _ = eventTouchpadSwipeWriteDy
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeDy :: AttrLabelProxy "dy"
eventTouchpadSwipeDy = AttrLabelProxy


eventTouchpadSwipeReadXRoot :: MonadIO m => EventTouchpadSwipe -> m Double
eventTouchpadSwipeReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 64) :: IO CDouble
    let val' = realToFrac val
    return val'

eventTouchpadSwipeWriteXRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
eventTouchpadSwipeWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = realToFrac val
    poke (ptr `plusPtr` 64) (val' :: CDouble)

data EventTouchpadSwipeXRootFieldInfo
instance AttrInfo EventTouchpadSwipeXRootFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeXRootFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) Double
    type AttrBaseTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeXRootFieldInfo = Double
    type AttrLabel EventTouchpadSwipeXRootFieldInfo = "x_root"
    attrGet _ = eventTouchpadSwipeReadXRoot
    attrSet _ = eventTouchpadSwipeWriteXRoot
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeXRoot :: AttrLabelProxy "xRoot"
eventTouchpadSwipeXRoot = AttrLabelProxy


eventTouchpadSwipeReadYRoot :: MonadIO m => EventTouchpadSwipe -> m Double
eventTouchpadSwipeReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 72) :: IO CDouble
    let val' = realToFrac val
    return val'

eventTouchpadSwipeWriteYRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
eventTouchpadSwipeWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = realToFrac val
    poke (ptr `plusPtr` 72) (val' :: CDouble)

data EventTouchpadSwipeYRootFieldInfo
instance AttrInfo EventTouchpadSwipeYRootFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeYRootFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) Double
    type AttrBaseTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeYRootFieldInfo = Double
    type AttrLabel EventTouchpadSwipeYRootFieldInfo = "y_root"
    attrGet _ = eventTouchpadSwipeReadYRoot
    attrSet _ = eventTouchpadSwipeWriteYRoot
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeYRoot :: AttrLabelProxy "yRoot"
eventTouchpadSwipeYRoot = AttrLabelProxy


eventTouchpadSwipeReadState :: MonadIO m => EventTouchpadSwipe -> m [ModifierType]
eventTouchpadSwipeReadState s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 80) :: IO CUInt
    let val' = wordToGFlags val
    return val'

eventTouchpadSwipeWriteState :: MonadIO m => EventTouchpadSwipe -> [ModifierType] -> m ()
eventTouchpadSwipeWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = gflagsToWord val
    poke (ptr `plusPtr` 80) (val' :: CUInt)

data EventTouchpadSwipeStateFieldInfo
instance AttrInfo EventTouchpadSwipeStateFieldInfo where
    type AttrAllowedOps EventTouchpadSwipeStateFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) [ModifierType]
    type AttrBaseTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) EventTouchpadSwipe
    type AttrGetType EventTouchpadSwipeStateFieldInfo = [ModifierType]
    type AttrLabel EventTouchpadSwipeStateFieldInfo = "state"
    attrGet _ = eventTouchpadSwipeReadState
    attrSet _ = eventTouchpadSwipeWriteState
    attrConstruct = undefined
    attrClear _ = undefined

eventTouchpadSwipeState :: AttrLabelProxy "state"
eventTouchpadSwipeState = AttrLabelProxy



type instance AttributeList EventTouchpadSwipe = EventTouchpadSwipeAttributeList
type EventTouchpadSwipeAttributeList = ('[ '("type", EventTouchpadSwipeTypeFieldInfo), '("window", EventTouchpadSwipeWindowFieldInfo), '("sendEvent", EventTouchpadSwipeSendEventFieldInfo), '("phase", EventTouchpadSwipePhaseFieldInfo), '("nFingers", EventTouchpadSwipeNFingersFieldInfo), '("time", EventTouchpadSwipeTimeFieldInfo), '("x", EventTouchpadSwipeXFieldInfo), '("y", EventTouchpadSwipeYFieldInfo), '("dx", EventTouchpadSwipeDxFieldInfo), '("dy", EventTouchpadSwipeDyFieldInfo), '("xRoot", EventTouchpadSwipeXRootFieldInfo), '("yRoot", EventTouchpadSwipeYRootFieldInfo), '("state", EventTouchpadSwipeStateFieldInfo)] :: [(Symbol, *)])

type family ResolveEventTouchpadSwipeMethod (t :: Symbol) (o :: *) :: * where
    ResolveEventTouchpadSwipeMethod l o = MethodResolutionFailed l o

instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, MethodInfo info EventTouchpadSwipe p) => IsLabelProxy t (EventTouchpadSwipe -> p) where
    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, MethodInfo info EventTouchpadSwipe p) => IsLabel t (EventTouchpadSwipe -> p) where
    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif