module GI.Gdk.Structs.EventVisibility
(
EventVisibility(..) ,
noEventVisibility ,
eventVisibilityReadSendEvent ,
eventVisibilityReadState ,
eventVisibilityReadType ,
eventVisibilityReadWindow ,
) 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 EventVisibility = EventVisibility (ForeignPtr EventVisibility)
noEventVisibility :: Maybe EventVisibility
noEventVisibility = Nothing
eventVisibilityReadType :: EventVisibility -> IO EventType
eventVisibilityReadType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
eventVisibilityReadWindow :: EventVisibility -> IO Window
eventVisibilityReadWindow s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)
val' <- (newObject Window) val
return val'
eventVisibilityReadSendEvent :: EventVisibility -> IO Int8
eventVisibilityReadSendEvent s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
eventVisibilityReadState :: EventVisibility -> IO VisibilityState
eventVisibilityReadState s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'