module GI.Gdk.Structs.EventTouchpadSwipe
(
EventTouchpadSwipe(..) ,
noEventTouchpadSwipe ,
eventTouchpadSwipeReadDx ,
eventTouchpadSwipeReadDy ,
eventTouchpadSwipeReadNFingers ,
eventTouchpadSwipeReadPhase ,
eventTouchpadSwipeReadSendEvent ,
eventTouchpadSwipeReadState ,
eventTouchpadSwipeReadTime ,
eventTouchpadSwipeReadType ,
eventTouchpadSwipeReadWindow ,
eventTouchpadSwipeReadX ,
eventTouchpadSwipeReadXRoot ,
eventTouchpadSwipeReadY ,
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'