{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventSetting
(
EventSetting(..) ,
newZeroEventSetting ,
#if defined(ENABLE_OVERLOADING)
ResolveEventSettingMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventSetting_action ,
#endif
getEventSettingAction ,
setEventSettingAction ,
clearEventSettingName ,
#if defined(ENABLE_OVERLOADING)
eventSetting_name ,
#endif
getEventSettingName ,
setEventSettingName ,
#if defined(ENABLE_OVERLOADING)
eventSetting_sendEvent ,
#endif
getEventSettingSendEvent ,
setEventSettingSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventSetting_type ,
#endif
getEventSettingType ,
setEventSettingType ,
clearEventSettingWindow ,
#if defined(ENABLE_OVERLOADING)
eventSetting_window ,
#endif
getEventSettingWindow ,
setEventSettingWindow ,
) 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
newtype EventSetting = EventSetting (SP.ManagedPtr EventSetting)
deriving (EventSetting -> EventSetting -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventSetting -> EventSetting -> Bool
$c/= :: EventSetting -> EventSetting -> Bool
== :: EventSetting -> EventSetting -> Bool
$c== :: EventSetting -> EventSetting -> Bool
Eq)
instance SP.ManagedPtrNewtype EventSetting where
toManagedPtr :: EventSetting -> ManagedPtr EventSetting
toManagedPtr (EventSetting ManagedPtr EventSetting
p) = ManagedPtr EventSetting
p
instance BoxedPtr EventSetting where
boxedPtrCopy :: EventSetting -> IO EventSetting
boxedPtrCopy = \EventSetting
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EventSetting
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
20 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 EventSetting -> EventSetting
EventSetting)
boxedPtrFree :: EventSetting -> IO ()
boxedPtrFree = \EventSetting
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr EventSetting
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr EventSetting where
boxedPtrCalloc :: IO (Ptr EventSetting)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
20
newZeroEventSetting :: MonadIO m => m EventSetting
newZeroEventSetting :: forall (m :: * -> *). MonadIO m => m EventSetting
newZeroEventSetting = 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 EventSetting -> EventSetting
EventSetting
instance tag ~ 'AttrSet => Constructible EventSetting tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr EventSetting -> EventSetting)
-> [AttrOp EventSetting tag] -> m EventSetting
new ManagedPtr EventSetting -> EventSetting
_ [AttrOp EventSetting tag]
attrs = do
EventSetting
o <- forall (m :: * -> *). MonadIO m => m EventSetting
newZeroEventSetting
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set EventSetting
o [AttrOp EventSetting tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return EventSetting
o
getEventSettingType :: MonadIO m => EventSetting -> m Gdk.Enums.EventType
getEventSettingType :: forall (m :: * -> *). MonadIO m => EventSetting -> m EventType
getEventSettingType EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventSetting
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'
setEventSettingType :: MonadIO m => EventSetting -> Gdk.Enums.EventType -> m ()
setEventSettingType :: forall (m :: * -> *).
MonadIO m =>
EventSetting -> EventType -> m ()
setEventSettingType EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
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 EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventSettingTypeFieldInfo
instance AttrInfo EventSettingTypeFieldInfo where
type AttrBaseTypeConstraint EventSettingTypeFieldInfo = (~) EventSetting
type AttrAllowedOps EventSettingTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventSettingTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventSettingTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventSettingTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventSettingTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventSettingTypeFieldInfo = "type"
type AttrOrigin EventSettingTypeFieldInfo = EventSetting
attrGet = getEventSettingType
attrSet = setEventSettingType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventSetting.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventSetting.html#g:attr:type"
})
eventSetting_type :: AttrLabelProxy "type"
eventSetting_type = AttrLabelProxy
#endif
getEventSettingWindow :: MonadIO m => EventSetting -> m (Maybe Gdk.Window.Window)
getEventSettingWindow :: forall (m :: * -> *). MonadIO m => EventSetting -> m (Maybe Window)
getEventSettingWindow EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventSetting
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
setEventSettingWindow :: MonadIO m => EventSetting -> Ptr Gdk.Window.Window -> m ()
setEventSettingWindow :: forall (m :: * -> *).
MonadIO m =>
EventSetting -> Ptr Window -> m ()
setEventSettingWindow EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr Window
val :: Ptr Gdk.Window.Window)
clearEventSettingWindow :: MonadIO m => EventSetting -> m ()
clearEventSettingWindow :: forall (m :: * -> *). MonadIO m => EventSetting -> m ()
clearEventSettingWindow EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventSetting
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 EventSettingWindowFieldInfo
instance AttrInfo EventSettingWindowFieldInfo where
type AttrBaseTypeConstraint EventSettingWindowFieldInfo = (~) EventSetting
type AttrAllowedOps EventSettingWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventSettingWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventSettingWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventSettingWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventSettingWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventSettingWindowFieldInfo = "window"
type AttrOrigin EventSettingWindowFieldInfo = EventSetting
attrGet = getEventSettingWindow
attrSet = setEventSettingWindow
attrConstruct = undefined
attrClear = clearEventSettingWindow
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventSetting.window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventSetting.html#g:attr:window"
})
eventSetting_window :: AttrLabelProxy "window"
eventSetting_window = AttrLabelProxy
#endif
getEventSettingSendEvent :: MonadIO m => EventSetting -> m Int8
getEventSettingSendEvent :: forall (m :: * -> *). MonadIO m => EventSetting -> m Int8
getEventSettingSendEvent EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventSetting
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
setEventSettingSendEvent :: MonadIO m => EventSetting -> Int8 -> m ()
setEventSettingSendEvent :: forall (m :: * -> *). MonadIO m => EventSetting -> Int8 -> m ()
setEventSettingSendEvent EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int8
val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventSettingSendEventFieldInfo
instance AttrInfo EventSettingSendEventFieldInfo where
type AttrBaseTypeConstraint EventSettingSendEventFieldInfo = (~) EventSetting
type AttrAllowedOps EventSettingSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventSettingSendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventSettingSendEventFieldInfo = (~)Int8
type AttrTransferType EventSettingSendEventFieldInfo = Int8
type AttrGetType EventSettingSendEventFieldInfo = Int8
type AttrLabel EventSettingSendEventFieldInfo = "send_event"
type AttrOrigin EventSettingSendEventFieldInfo = EventSetting
attrGet = getEventSettingSendEvent
attrSet = setEventSettingSendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventSetting.sendEvent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventSetting.html#g:attr:sendEvent"
})
eventSetting_sendEvent :: AttrLabelProxy "sendEvent"
eventSetting_sendEvent = AttrLabelProxy
#endif
getEventSettingAction :: MonadIO m => EventSetting -> m Gdk.Enums.SettingAction
getEventSettingAction :: forall (m :: * -> *). MonadIO m => EventSetting -> m SettingAction
getEventSettingAction EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
CUInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) :: IO CUInt
let val' :: SettingAction
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 SettingAction
val'
setEventSettingAction :: MonadIO m => EventSetting -> Gdk.Enums.SettingAction -> m ()
setEventSettingAction :: forall (m :: * -> *).
MonadIO m =>
EventSetting -> SettingAction -> m ()
setEventSettingAction EventSetting
s SettingAction
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
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) SettingAction
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventSettingActionFieldInfo
instance AttrInfo EventSettingActionFieldInfo where
type AttrBaseTypeConstraint EventSettingActionFieldInfo = (~) EventSetting
type AttrAllowedOps EventSettingActionFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventSettingActionFieldInfo = (~) Gdk.Enums.SettingAction
type AttrTransferTypeConstraint EventSettingActionFieldInfo = (~)Gdk.Enums.SettingAction
type AttrTransferType EventSettingActionFieldInfo = Gdk.Enums.SettingAction
type AttrGetType EventSettingActionFieldInfo = Gdk.Enums.SettingAction
type AttrLabel EventSettingActionFieldInfo = "action"
type AttrOrigin EventSettingActionFieldInfo = EventSetting
attrGet = getEventSettingAction
attrSet = setEventSettingAction
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventSetting.action"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventSetting.html#g:attr:action"
})
eventSetting_action :: AttrLabelProxy "action"
eventSetting_action = AttrLabelProxy
#endif
getEventSettingName :: MonadIO m => EventSetting -> m (Maybe T.Text)
getEventSettingName :: forall (m :: * -> *). MonadIO m => EventSetting -> m (Maybe Text)
getEventSettingName EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO CString
Maybe Text
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
cstringToText CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setEventSettingName :: MonadIO m => EventSetting -> CString -> m ()
setEventSettingName :: forall (m :: * -> *). MonadIO m => EventSetting -> CString -> m ()
setEventSettingName EventSetting
s CString
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CString
val :: CString)
clearEventSettingName :: MonadIO m => EventSetting -> m ()
clearEventSettingName :: forall (m :: * -> *). MonadIO m => EventSetting -> m ()
clearEventSettingName EventSetting
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 EventSetting
s forall a b. (a -> b) -> a -> b
$ \Ptr EventSetting
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventSetting
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data EventSettingNameFieldInfo
instance AttrInfo EventSettingNameFieldInfo where
type AttrBaseTypeConstraint EventSettingNameFieldInfo = (~) EventSetting
type AttrAllowedOps EventSettingNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventSettingNameFieldInfo = (~) CString
type AttrTransferTypeConstraint EventSettingNameFieldInfo = (~)CString
type AttrTransferType EventSettingNameFieldInfo = CString
type AttrGetType EventSettingNameFieldInfo = Maybe T.Text
type AttrLabel EventSettingNameFieldInfo = "name"
type AttrOrigin EventSettingNameFieldInfo = EventSetting
attrGet = getEventSettingName
attrSet = setEventSettingName
attrConstruct = undefined
attrClear = clearEventSettingName
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventSetting.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventSetting.html#g:attr:name"
})
eventSetting_name :: AttrLabelProxy "name"
eventSetting_name = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventSetting
type instance O.AttributeList EventSetting = EventSettingAttributeList
type EventSettingAttributeList = ('[ '("type", EventSettingTypeFieldInfo), '("window", EventSettingWindowFieldInfo), '("sendEvent", EventSettingSendEventFieldInfo), '("action", EventSettingActionFieldInfo), '("name", EventSettingNameFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventSettingMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEventSettingMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventSettingMethod t EventSetting, O.OverloadedMethod info EventSetting p) => OL.IsLabel t (EventSetting -> 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 ~ ResolveEventSettingMethod t EventSetting, O.OverloadedMethod info EventSetting p, R.HasField t EventSetting p) => R.HasField t EventSetting p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEventSettingMethod t EventSetting, O.OverloadedMethodInfo info EventSetting) => OL.IsLabel t (O.MethodProxy info EventSetting) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif