module GI.Gdk.Structs.EventScroll
(
EventScroll(..) ,
noEventScroll ,
eventScrollReadDeltaX ,
eventScrollReadDeltaY ,
eventScrollReadDevice ,
eventScrollReadDirection ,
eventScrollReadSendEvent ,
eventScrollReadState ,
eventScrollReadTime ,
eventScrollReadType ,
eventScrollReadWindow ,
eventScrollReadX ,
eventScrollReadXRoot ,
eventScrollReadY ,
eventScrollReadYRoot ,
) 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 EventScroll = EventScroll (ForeignPtr EventScroll)
noEventScroll :: Maybe EventScroll
noEventScroll = Nothing
eventScrollReadType :: EventScroll -> IO EventType
eventScrollReadType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
eventScrollReadWindow :: EventScroll -> IO Window
eventScrollReadWindow s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)
val' <- (newObject Window) val
return val'
eventScrollReadSendEvent :: EventScroll -> IO Int8
eventScrollReadSendEvent s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
eventScrollReadTime :: EventScroll -> IO Word32
eventScrollReadTime s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
eventScrollReadX :: EventScroll -> IO Double
eventScrollReadX s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CDouble
let val' = realToFrac val
return val'
eventScrollReadY :: EventScroll -> IO Double
eventScrollReadY s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CDouble
let val' = realToFrac val
return val'
eventScrollReadState :: EventScroll -> IO [ModifierType]
eventScrollReadState s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO CUInt
let val' = wordToGFlags val
return val'
eventScrollReadDirection :: EventScroll -> IO ScrollDirection
eventScrollReadDirection s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 44) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
eventScrollReadDevice :: EventScroll -> IO Device
eventScrollReadDevice s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO (Ptr Device)
val' <- (newObject Device) val
return val'
eventScrollReadXRoot :: EventScroll -> IO Double
eventScrollReadXRoot s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO CDouble
let val' = realToFrac val
return val'
eventScrollReadYRoot :: EventScroll -> IO Double
eventScrollReadYRoot s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO CDouble
let val' = realToFrac val
return val'
eventScrollReadDeltaX :: EventScroll -> IO Double
eventScrollReadDeltaX s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 72) :: IO CDouble
let val' = realToFrac val
return val'
eventScrollReadDeltaY :: EventScroll -> IO Double
eventScrollReadDeltaY s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 80) :: IO CDouble
let val' = realToFrac val
return val'