{-# 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 ,
#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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 qualified GHC.Records as R
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 (SP.ManagedPtr EventOwnerChange)
deriving (EventOwnerChange -> EventOwnerChange -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventOwnerChange -> EventOwnerChange -> Bool
$c/= :: EventOwnerChange -> EventOwnerChange -> Bool
== :: EventOwnerChange -> EventOwnerChange -> Bool
$c== :: EventOwnerChange -> EventOwnerChange -> Bool
Eq)
instance SP.ManagedPtrNewtype EventOwnerChange where
toManagedPtr :: EventOwnerChange -> ManagedPtr EventOwnerChange
toManagedPtr (EventOwnerChange ManagedPtr EventOwnerChange
p) = ManagedPtr EventOwnerChange
p
instance BoxedPtr EventOwnerChange where
boxedPtrCopy :: EventOwnerChange -> IO EventOwnerChange
boxedPtrCopy = \EventOwnerChange
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EventOwnerChange
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
32 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr EventOwnerChange -> EventOwnerChange
EventOwnerChange)
boxedPtrFree :: EventOwnerChange -> IO ()
boxedPtrFree = \EventOwnerChange
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr EventOwnerChange
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr EventOwnerChange where
boxedPtrCalloc :: IO (Ptr EventOwnerChange)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
32
newZeroEventOwnerChange :: MonadIO m => m EventOwnerChange
newZeroEventOwnerChange :: forall (m :: * -> *). MonadIO m => m EventOwnerChange
newZeroEventOwnerChange = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr EventOwnerChange -> EventOwnerChange
EventOwnerChange
instance tag ~ 'AttrSet => Constructible EventOwnerChange tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr EventOwnerChange -> EventOwnerChange)
-> [AttrOp EventOwnerChange tag] -> m EventOwnerChange
new ManagedPtr EventOwnerChange -> EventOwnerChange
_ [AttrOp EventOwnerChange tag]
attrs = do
EventOwnerChange
o <- forall (m :: * -> *). MonadIO m => m EventOwnerChange
newZeroEventOwnerChange
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set EventOwnerChange
o [AttrOp EventOwnerChange tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return EventOwnerChange
o
getEventOwnerChangeType :: MonadIO m => EventOwnerChange -> m Gdk.Enums.EventType
getEventOwnerChangeType :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> m EventType
getEventOwnerChangeType EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CInt
let val' :: EventType
val' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return EventType
val'
setEventOwnerChangeType :: MonadIO m => EventOwnerChange -> Gdk.Enums.EventType -> m ()
setEventOwnerChangeType :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> EventType -> m ()
setEventOwnerChangeType EventOwnerChange
s EventType
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
let val' :: CInt
val' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) EventType
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:type"
})
eventOwnerChange_type :: AttrLabelProxy "type"
eventOwnerChange_type = AttrLabelProxy
#endif
getEventOwnerChangeWindow :: MonadIO m => EventOwnerChange -> m (Maybe Gdk.Window.Window)
getEventOwnerChangeWindow :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> m (Maybe Window)
getEventOwnerChangeWindow EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: IO (Ptr Gdk.Window.Window)
Maybe Window
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Window
val forall a b. (a -> b) -> a -> b
$ \Ptr Window
val' -> do
Window
val'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gdk.Window.Window) Ptr Window
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Window
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
result
setEventOwnerChangeWindow :: MonadIO m => EventOwnerChange -> Ptr Gdk.Window.Window -> m ()
setEventOwnerChangeWindow :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> Ptr Window -> m ()
setEventOwnerChangeWindow EventOwnerChange
s Ptr Window
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr Window
val :: Ptr Gdk.Window.Window)
clearEventOwnerChangeWindow :: MonadIO m => EventOwnerChange -> m ()
clearEventOwnerChangeWindow :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> m ()
clearEventOwnerChangeWindow EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (forall a. Ptr a
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:window"
})
eventOwnerChange_window :: AttrLabelProxy "window"
eventOwnerChange_window = AttrLabelProxy
#endif
getEventOwnerChangeSendEvent :: MonadIO m => EventOwnerChange -> m Int8
getEventOwnerChangeSendEvent :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> m Int8
getEventOwnerChangeSendEvent EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO Int8
forall (m :: * -> *) a. Monad m => a -> m a
return Int8
val
setEventOwnerChangeSendEvent :: MonadIO m => EventOwnerChange -> Int8 -> m ()
setEventOwnerChangeSendEvent :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> Int8 -> m ()
setEventOwnerChangeSendEvent EventOwnerChange
s Int8
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int8
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.sendEvent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:sendEvent"
})
eventOwnerChange_sendEvent :: AttrLabelProxy "sendEvent"
eventOwnerChange_sendEvent = AttrLabelProxy
#endif
getEventOwnerChangeOwner :: MonadIO m => EventOwnerChange -> m (Maybe Gdk.Window.Window)
getEventOwnerChangeOwner :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> m (Maybe Window)
getEventOwnerChangeOwner EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) :: IO (Ptr Gdk.Window.Window)
Maybe Window
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Window
val forall a b. (a -> b) -> a -> b
$ \Ptr Window
val' -> do
Window
val'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gdk.Window.Window) Ptr Window
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Window
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
result
setEventOwnerChangeOwner :: MonadIO m => EventOwnerChange -> Ptr Gdk.Window.Window -> m ()
setEventOwnerChangeOwner :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> Ptr Window -> m ()
setEventOwnerChangeOwner EventOwnerChange
s Ptr Window
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Ptr Window
val :: Ptr Gdk.Window.Window)
clearEventOwnerChangeOwner :: MonadIO m => EventOwnerChange -> m ()
clearEventOwnerChangeOwner :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> m ()
clearEventOwnerChangeOwner EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (forall a. Ptr a
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.owner"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:owner"
})
eventOwnerChange_owner :: AttrLabelProxy "owner"
eventOwnerChange_owner = AttrLabelProxy
#endif
getEventOwnerChangeReason :: MonadIO m => EventOwnerChange -> m Gdk.Enums.OwnerChange
getEventOwnerChangeReason :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> m OwnerChange
getEventOwnerChangeReason EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
CUInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO CUInt
let val' :: OwnerChange
val' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return OwnerChange
val'
setEventOwnerChangeReason :: MonadIO m => EventOwnerChange -> Gdk.Enums.OwnerChange -> m ()
setEventOwnerChangeReason :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> OwnerChange -> m ()
setEventOwnerChangeReason EventOwnerChange
s OwnerChange
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
let val' :: CUInt
val' = (forall a b. (Integral a, Num b) => a -> b
fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
fromEnum) OwnerChange
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CUInt
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.reason"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:reason"
})
eventOwnerChange_reason :: AttrLabelProxy "reason"
eventOwnerChange_reason = AttrLabelProxy
#endif
getEventOwnerChangeSelection :: MonadIO m => EventOwnerChange -> m Gdk.Atom.Atom
getEventOwnerChangeSelection :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> m Atom
getEventOwnerChangeSelection EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
let val :: Ptr Atom
val = Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: (Ptr Gdk.Atom.Atom)
Atom
val' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Atom -> Atom
Gdk.Atom.Atom) Ptr Atom
val
forall (m :: * -> *) a. Monad m => a -> m a
return Atom
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.selection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:selection"
})
eventOwnerChange_selection :: AttrLabelProxy "selection"
eventOwnerChange_selection = AttrLabelProxy
#endif
getEventOwnerChangeTime :: MonadIO m => EventOwnerChange -> m Word32
getEventOwnerChangeTime :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> m Word32
getEventOwnerChangeTime EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setEventOwnerChangeTime :: MonadIO m => EventOwnerChange -> Word32 -> m ()
setEventOwnerChangeTime :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> Word32 -> m ()
setEventOwnerChangeTime EventOwnerChange
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (Word32
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.time"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:time"
})
eventOwnerChange_time :: AttrLabelProxy "time"
eventOwnerChange_time = AttrLabelProxy
#endif
getEventOwnerChangeSelectionTime :: MonadIO m => EventOwnerChange -> m Word32
getEventOwnerChangeSelectionTime :: forall (m :: * -> *). MonadIO m => EventOwnerChange -> m Word32
getEventOwnerChangeSelectionTime EventOwnerChange
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setEventOwnerChangeSelectionTime :: MonadIO m => EventOwnerChange -> Word32 -> m ()
setEventOwnerChangeSelectionTime :: forall (m :: * -> *).
MonadIO m =>
EventOwnerChange -> Word32 -> m ()
setEventOwnerChangeSelectionTime EventOwnerChange
s Word32
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr EventOwnerChange
s forall a b. (a -> b) -> a -> b
$ \Ptr EventOwnerChange
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventOwnerChange
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) (Word32
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventOwnerChange.selectionTime"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventOwnerChange.html#g:attr:selectionTime"
})
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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventOwnerChangeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEventOwnerChangeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, O.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, O.OverloadedMethod info EventOwnerChange p, R.HasField t EventOwnerChange p) => R.HasField t EventOwnerChange p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, O.OverloadedMethodInfo info EventOwnerChange) => OL.IsLabel t (O.MethodProxy info EventOwnerChange) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif