{- |
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(..)                  ,
    noEventTouchpadSwipe                    ,


 -- * Properties
-- ** Dx
    eventTouchpadSwipeReadDx                ,


-- ** Dy
    eventTouchpadSwipeReadDy                ,


-- ** NFingers
    eventTouchpadSwipeReadNFingers          ,


-- ** Phase
    eventTouchpadSwipeReadPhase             ,


-- ** SendEvent
    eventTouchpadSwipeReadSendEvent         ,


-- ** State
    eventTouchpadSwipeReadState             ,


-- ** Time
    eventTouchpadSwipeReadTime              ,


-- ** Type
    eventTouchpadSwipeReadType              ,


-- ** Window
    eventTouchpadSwipeReadWindow            ,


-- ** X
    eventTouchpadSwipeReadX                 ,


-- ** XRoot
    eventTouchpadSwipeReadXRoot             ,


-- ** Y
    eventTouchpadSwipeReadY                 ,


-- ** YRoot
    eventTouchpadSwipeReadYRoot             ,




    ) where

import Prelude ()
import Data.GI.Base.ShortPrelude

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)
noEventTouchpadSwipe :: Maybe EventTouchpadSwipe
noEventTouchpadSwipe = Nothing

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

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

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

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

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

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

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

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

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

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

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

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

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