{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventOwnerChange
(
EventOwnerChange(..) ,
newZeroEventOwnerChange ,
noEventOwnerChange ,
#if defined(ENABLE_OVERLOADING)
ResolveEventOwnerChangeMethod ,
#endif
clearEventOwnerChangeOwner ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_owner ,
#endif
getEventOwnerChangeOwner ,
setEventOwnerChangeOwner ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_reason ,
#endif
getEventOwnerChangeReason ,
setEventOwnerChangeReason ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_selection ,
#endif
getEventOwnerChangeSelection ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_selectionTime ,
#endif
getEventOwnerChangeSelectionTime ,
setEventOwnerChangeSelectionTime ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_sendEvent ,
#endif
getEventOwnerChangeSendEvent ,
setEventOwnerChangeSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_time ,
#endif
getEventOwnerChangeTime ,
setEventOwnerChangeTime ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_type ,
#endif
getEventOwnerChangeType ,
setEventOwnerChangeType ,
clearEventOwnerChangeWindow ,
#if defined(ENABLE_OVERLOADING)
eventOwnerChange_window ,
#endif
getEventOwnerChangeWindow ,
setEventOwnerChangeWindow ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
import {-# SOURCE #-} qualified GI.Gdk.Structs.Atom as Gdk.Atom
newtype EventOwnerChange = EventOwnerChange (ManagedPtr EventOwnerChange)
deriving (Eq)
instance WrappedPtr EventOwnerChange where
wrappedPtrCalloc = callocBytes 56
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 56 >=> wrapPtr EventOwnerChange)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventOwnerChange :: MonadIO m => m EventOwnerChange
newZeroEventOwnerChange = liftIO $ wrappedPtrCalloc >>= wrapPtr EventOwnerChange
instance tag ~ 'AttrSet => Constructible EventOwnerChange tag where
new _ attrs = do
o <- newZeroEventOwnerChange
GI.Attributes.set o attrs
return o
noEventOwnerChange :: Maybe EventOwnerChange
noEventOwnerChange = Nothing
getEventOwnerChangeType :: MonadIO m => EventOwnerChange -> m Gdk.Enums.EventType
getEventOwnerChangeType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CInt
let val' = (toEnum . fromIntegral) val
return val'
setEventOwnerChangeType :: MonadIO m => EventOwnerChange -> Gdk.Enums.EventType -> m ()
setEventOwnerChangeType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeTypeFieldInfo
instance AttrInfo EventOwnerChangeTypeFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeTypeFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventOwnerChangeTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventOwnerChangeTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventOwnerChangeTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventOwnerChangeTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventOwnerChangeTypeFieldInfo = "type"
type AttrOrigin EventOwnerChangeTypeFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeType
attrSet = setEventOwnerChangeType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventOwnerChange_type :: AttrLabelProxy "type"
eventOwnerChange_type = AttrLabelProxy
#endif
getEventOwnerChangeWindow :: MonadIO m => EventOwnerChange -> m (Maybe Gdk.Window.Window)
getEventOwnerChangeWindow s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr Gdk.Window.Window)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject Gdk.Window.Window) val'
return val''
return result
setEventOwnerChangeWindow :: MonadIO m => EventOwnerChange -> Ptr Gdk.Window.Window -> m ()
setEventOwnerChangeWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventOwnerChangeWindow :: MonadIO m => EventOwnerChange -> m ()
clearEventOwnerChangeWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr Gdk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeWindowFieldInfo
instance AttrInfo EventOwnerChangeWindowFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeWindowFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventOwnerChangeWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventOwnerChangeWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventOwnerChangeWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventOwnerChangeWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventOwnerChangeWindowFieldInfo = "window"
type AttrOrigin EventOwnerChangeWindowFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeWindow
attrSet = setEventOwnerChangeWindow
attrConstruct = undefined
attrClear = clearEventOwnerChangeWindow
attrTransfer _ v = do
return v
eventOwnerChange_window :: AttrLabelProxy "window"
eventOwnerChange_window = AttrLabelProxy
#endif
getEventOwnerChangeSendEvent :: MonadIO m => EventOwnerChange -> m Int8
getEventOwnerChangeSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventOwnerChangeSendEvent :: MonadIO m => EventOwnerChange -> Int8 -> m ()
setEventOwnerChangeSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeSendEventFieldInfo
instance AttrInfo EventOwnerChangeSendEventFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeSendEventFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventOwnerChangeSendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventOwnerChangeSendEventFieldInfo = (~)Int8
type AttrTransferType EventOwnerChangeSendEventFieldInfo = Int8
type AttrGetType EventOwnerChangeSendEventFieldInfo = Int8
type AttrLabel EventOwnerChangeSendEventFieldInfo = "send_event"
type AttrOrigin EventOwnerChangeSendEventFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeSendEvent
attrSet = setEventOwnerChangeSendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventOwnerChange_sendEvent :: AttrLabelProxy "sendEvent"
eventOwnerChange_sendEvent = AttrLabelProxy
#endif
getEventOwnerChangeOwner :: MonadIO m => EventOwnerChange -> m (Maybe Gdk.Window.Window)
getEventOwnerChangeOwner s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (Ptr Gdk.Window.Window)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject Gdk.Window.Window) val'
return val''
return result
setEventOwnerChangeOwner :: MonadIO m => EventOwnerChange -> Ptr Gdk.Window.Window -> m ()
setEventOwnerChangeOwner s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: Ptr Gdk.Window.Window)
clearEventOwnerChangeOwner :: MonadIO m => EventOwnerChange -> m ()
clearEventOwnerChangeOwner s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (FP.nullPtr :: Ptr Gdk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeOwnerFieldInfo
instance AttrInfo EventOwnerChangeOwnerFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeOwnerFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeOwnerFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventOwnerChangeOwnerFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventOwnerChangeOwnerFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventOwnerChangeOwnerFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventOwnerChangeOwnerFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventOwnerChangeOwnerFieldInfo = "owner"
type AttrOrigin EventOwnerChangeOwnerFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeOwner
attrSet = setEventOwnerChangeOwner
attrConstruct = undefined
attrClear = clearEventOwnerChangeOwner
attrTransfer _ v = do
return v
eventOwnerChange_owner :: AttrLabelProxy "owner"
eventOwnerChange_owner = AttrLabelProxy
#endif
getEventOwnerChangeReason :: MonadIO m => EventOwnerChange -> m Gdk.Enums.OwnerChange
getEventOwnerChangeReason s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
setEventOwnerChangeReason :: MonadIO m => EventOwnerChange -> Gdk.Enums.OwnerChange -> m ()
setEventOwnerChangeReason s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 32) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeReasonFieldInfo
instance AttrInfo EventOwnerChangeReasonFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeReasonFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeReasonFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventOwnerChangeReasonFieldInfo = (~) Gdk.Enums.OwnerChange
type AttrTransferTypeConstraint EventOwnerChangeReasonFieldInfo = (~)Gdk.Enums.OwnerChange
type AttrTransferType EventOwnerChangeReasonFieldInfo = Gdk.Enums.OwnerChange
type AttrGetType EventOwnerChangeReasonFieldInfo = Gdk.Enums.OwnerChange
type AttrLabel EventOwnerChangeReasonFieldInfo = "reason"
type AttrOrigin EventOwnerChangeReasonFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeReason
attrSet = setEventOwnerChangeReason
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventOwnerChange_reason :: AttrLabelProxy "reason"
eventOwnerChange_reason = AttrLabelProxy
#endif
getEventOwnerChangeSelection :: MonadIO m => EventOwnerChange -> m Gdk.Atom.Atom
getEventOwnerChangeSelection s = liftIO $ withManagedPtr s $ \ptr -> do
let val = ptr `plusPtr` 40 :: (Ptr Gdk.Atom.Atom)
val' <- (newPtr Gdk.Atom.Atom) val
return val'
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeSelectionFieldInfo
instance AttrInfo EventOwnerChangeSelectionFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeSelectionFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeSelectionFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EventOwnerChangeSelectionFieldInfo = (~) (Ptr Gdk.Atom.Atom)
type AttrTransferTypeConstraint EventOwnerChangeSelectionFieldInfo = (~)(Ptr Gdk.Atom.Atom)
type AttrTransferType EventOwnerChangeSelectionFieldInfo = (Ptr Gdk.Atom.Atom)
type AttrGetType EventOwnerChangeSelectionFieldInfo = Gdk.Atom.Atom
type AttrLabel EventOwnerChangeSelectionFieldInfo = "selection"
type AttrOrigin EventOwnerChangeSelectionFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeSelection
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
eventOwnerChange_selection :: AttrLabelProxy "selection"
eventOwnerChange_selection = AttrLabelProxy
#endif
getEventOwnerChangeTime :: MonadIO m => EventOwnerChange -> m Word32
getEventOwnerChangeTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO Word32
return val
setEventOwnerChangeTime :: MonadIO m => EventOwnerChange -> Word32 -> m ()
setEventOwnerChangeTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 48) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeTimeFieldInfo
instance AttrInfo EventOwnerChangeTimeFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeTimeFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventOwnerChangeTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventOwnerChangeTimeFieldInfo = (~)Word32
type AttrTransferType EventOwnerChangeTimeFieldInfo = Word32
type AttrGetType EventOwnerChangeTimeFieldInfo = Word32
type AttrLabel EventOwnerChangeTimeFieldInfo = "time"
type AttrOrigin EventOwnerChangeTimeFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeTime
attrSet = setEventOwnerChangeTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventOwnerChange_time :: AttrLabelProxy "time"
eventOwnerChange_time = AttrLabelProxy
#endif
getEventOwnerChangeSelectionTime :: MonadIO m => EventOwnerChange -> m Word32
getEventOwnerChangeSelectionTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 52) :: IO Word32
return val
setEventOwnerChangeSelectionTime :: MonadIO m => EventOwnerChange -> Word32 -> m ()
setEventOwnerChangeSelectionTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 52) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventOwnerChangeSelectionTimeFieldInfo
instance AttrInfo EventOwnerChangeSelectionTimeFieldInfo where
type AttrBaseTypeConstraint EventOwnerChangeSelectionTimeFieldInfo = (~) EventOwnerChange
type AttrAllowedOps EventOwnerChangeSelectionTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventOwnerChangeSelectionTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventOwnerChangeSelectionTimeFieldInfo = (~)Word32
type AttrTransferType EventOwnerChangeSelectionTimeFieldInfo = Word32
type AttrGetType EventOwnerChangeSelectionTimeFieldInfo = Word32
type AttrLabel EventOwnerChangeSelectionTimeFieldInfo = "selection_time"
type AttrOrigin EventOwnerChangeSelectionTimeFieldInfo = EventOwnerChange
attrGet = getEventOwnerChangeSelectionTime
attrSet = setEventOwnerChangeSelectionTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventOwnerChange_selectionTime :: AttrLabelProxy "selectionTime"
eventOwnerChange_selectionTime = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventOwnerChange
type instance O.AttributeList EventOwnerChange = EventOwnerChangeAttributeList
type EventOwnerChangeAttributeList = ('[ '("type", EventOwnerChangeTypeFieldInfo), '("window", EventOwnerChangeWindowFieldInfo), '("sendEvent", EventOwnerChangeSendEventFieldInfo), '("owner", EventOwnerChangeOwnerFieldInfo), '("reason", EventOwnerChangeReasonFieldInfo), '("selection", EventOwnerChangeSelectionFieldInfo), '("time", EventOwnerChangeTimeFieldInfo), '("selectionTime", EventOwnerChangeSelectionTimeFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventOwnerChangeMethod (t :: Symbol) (o :: *) :: * where
ResolveEventOwnerChangeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, O.MethodInfo info EventOwnerChange p) => OL.IsLabel t (EventOwnerChange -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif