{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventPadGroupMode
(
EventPadGroupMode(..) ,
newZeroEventPadGroupMode ,
#if defined(ENABLE_OVERLOADING)
ResolveEventPadGroupModeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventPadGroupMode_group ,
#endif
getEventPadGroupModeGroup ,
setEventPadGroupModeGroup ,
#if defined(ENABLE_OVERLOADING)
eventPadGroupMode_mode ,
#endif
getEventPadGroupModeMode ,
setEventPadGroupModeMode ,
#if defined(ENABLE_OVERLOADING)
eventPadGroupMode_sendEvent ,
#endif
getEventPadGroupModeSendEvent ,
setEventPadGroupModeSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventPadGroupMode_time ,
#endif
getEventPadGroupModeTime ,
setEventPadGroupModeTime ,
#if defined(ENABLE_OVERLOADING)
eventPadGroupMode_type ,
#endif
getEventPadGroupModeType ,
setEventPadGroupModeType ,
clearEventPadGroupModeWindow ,
#if defined(ENABLE_OVERLOADING)
eventPadGroupMode_window ,
#endif
getEventPadGroupModeWindow ,
setEventPadGroupModeWindow ,
) 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 EventPadGroupMode = EventPadGroupMode (SP.ManagedPtr EventPadGroupMode)
deriving (EventPadGroupMode -> EventPadGroupMode -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventPadGroupMode -> EventPadGroupMode -> Bool
$c/= :: EventPadGroupMode -> EventPadGroupMode -> Bool
== :: EventPadGroupMode -> EventPadGroupMode -> Bool
$c== :: EventPadGroupMode -> EventPadGroupMode -> Bool
Eq)
instance SP.ManagedPtrNewtype EventPadGroupMode where
toManagedPtr :: EventPadGroupMode -> ManagedPtr EventPadGroupMode
toManagedPtr (EventPadGroupMode ManagedPtr EventPadGroupMode
p) = ManagedPtr EventPadGroupMode
p
instance BoxedPtr EventPadGroupMode where
boxedPtrCopy :: EventPadGroupMode -> IO EventPadGroupMode
boxedPtrCopy = \EventPadGroupMode
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EventPadGroupMode
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
24 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 EventPadGroupMode -> EventPadGroupMode
EventPadGroupMode)
boxedPtrFree :: EventPadGroupMode -> IO ()
boxedPtrFree = \EventPadGroupMode
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr EventPadGroupMode
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr EventPadGroupMode where
boxedPtrCalloc :: IO (Ptr EventPadGroupMode)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
24
newZeroEventPadGroupMode :: MonadIO m => m EventPadGroupMode
newZeroEventPadGroupMode :: forall (m :: * -> *). MonadIO m => m EventPadGroupMode
newZeroEventPadGroupMode = 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 EventPadGroupMode -> EventPadGroupMode
EventPadGroupMode
instance tag ~ 'AttrSet => Constructible EventPadGroupMode tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr EventPadGroupMode -> EventPadGroupMode)
-> [AttrOp EventPadGroupMode tag] -> m EventPadGroupMode
new ManagedPtr EventPadGroupMode -> EventPadGroupMode
_ [AttrOp EventPadGroupMode tag]
attrs = do
EventPadGroupMode
o <- forall (m :: * -> *). MonadIO m => m EventPadGroupMode
newZeroEventPadGroupMode
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set EventPadGroupMode
o [AttrOp EventPadGroupMode tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return EventPadGroupMode
o
getEventPadGroupModeType :: MonadIO m => EventPadGroupMode -> m Gdk.Enums.EventType
getEventPadGroupModeType :: forall (m :: * -> *). MonadIO m => EventPadGroupMode -> m EventType
getEventPadGroupModeType EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadGroupMode
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'
setEventPadGroupModeType :: MonadIO m => EventPadGroupMode -> Gdk.Enums.EventType -> m ()
setEventPadGroupModeType :: forall (m :: * -> *).
MonadIO m =>
EventPadGroupMode -> EventType -> m ()
setEventPadGroupModeType EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
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 EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventPadGroupModeTypeFieldInfo
instance AttrInfo EventPadGroupModeTypeFieldInfo where
type AttrBaseTypeConstraint EventPadGroupModeTypeFieldInfo = (~) EventPadGroupMode
type AttrAllowedOps EventPadGroupModeTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadGroupModeTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventPadGroupModeTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventPadGroupModeTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventPadGroupModeTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventPadGroupModeTypeFieldInfo = "type"
type AttrOrigin EventPadGroupModeTypeFieldInfo = EventPadGroupMode
attrGet = getEventPadGroupModeType
attrSet = setEventPadGroupModeType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventPadGroupMode.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadGroupMode.html#g:attr:type"
})
eventPadGroupMode_type :: AttrLabelProxy "type"
eventPadGroupMode_type = AttrLabelProxy
#endif
getEventPadGroupModeWindow :: MonadIO m => EventPadGroupMode -> m (Maybe Gdk.Window.Window)
getEventPadGroupModeWindow :: forall (m :: * -> *).
MonadIO m =>
EventPadGroupMode -> m (Maybe Window)
getEventPadGroupModeWindow EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadGroupMode
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
setEventPadGroupModeWindow :: MonadIO m => EventPadGroupMode -> Ptr Gdk.Window.Window -> m ()
setEventPadGroupModeWindow :: forall (m :: * -> *).
MonadIO m =>
EventPadGroupMode -> Ptr Window -> m ()
setEventPadGroupModeWindow EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr Window
val :: Ptr Gdk.Window.Window)
clearEventPadGroupModeWindow :: MonadIO m => EventPadGroupMode -> m ()
clearEventPadGroupModeWindow :: forall (m :: * -> *). MonadIO m => EventPadGroupMode -> m ()
clearEventPadGroupModeWindow EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadGroupMode
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 EventPadGroupModeWindowFieldInfo
instance AttrInfo EventPadGroupModeWindowFieldInfo where
type AttrBaseTypeConstraint EventPadGroupModeWindowFieldInfo = (~) EventPadGroupMode
type AttrAllowedOps EventPadGroupModeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventPadGroupModeWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventPadGroupModeWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventPadGroupModeWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventPadGroupModeWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventPadGroupModeWindowFieldInfo = "window"
type AttrOrigin EventPadGroupModeWindowFieldInfo = EventPadGroupMode
attrGet = getEventPadGroupModeWindow
attrSet = setEventPadGroupModeWindow
attrConstruct = undefined
attrClear = clearEventPadGroupModeWindow
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventPadGroupMode.window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadGroupMode.html#g:attr:window"
})
eventPadGroupMode_window :: AttrLabelProxy "window"
eventPadGroupMode_window = AttrLabelProxy
#endif
getEventPadGroupModeSendEvent :: MonadIO m => EventPadGroupMode -> m Int8
getEventPadGroupModeSendEvent :: forall (m :: * -> *). MonadIO m => EventPadGroupMode -> m Int8
getEventPadGroupModeSendEvent EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadGroupMode
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
setEventPadGroupModeSendEvent :: MonadIO m => EventPadGroupMode -> Int8 -> m ()
setEventPadGroupModeSendEvent :: forall (m :: * -> *).
MonadIO m =>
EventPadGroupMode -> Int8 -> m ()
setEventPadGroupModeSendEvent EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int8
val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventPadGroupModeSendEventFieldInfo
instance AttrInfo EventPadGroupModeSendEventFieldInfo where
type AttrBaseTypeConstraint EventPadGroupModeSendEventFieldInfo = (~) EventPadGroupMode
type AttrAllowedOps EventPadGroupModeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadGroupModeSendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventPadGroupModeSendEventFieldInfo = (~)Int8
type AttrTransferType EventPadGroupModeSendEventFieldInfo = Int8
type AttrGetType EventPadGroupModeSendEventFieldInfo = Int8
type AttrLabel EventPadGroupModeSendEventFieldInfo = "send_event"
type AttrOrigin EventPadGroupModeSendEventFieldInfo = EventPadGroupMode
attrGet = getEventPadGroupModeSendEvent
attrSet = setEventPadGroupModeSendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventPadGroupMode.sendEvent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadGroupMode.html#g:attr:sendEvent"
})
eventPadGroupMode_sendEvent :: AttrLabelProxy "sendEvent"
eventPadGroupMode_sendEvent = AttrLabelProxy
#endif
getEventPadGroupModeTime :: MonadIO m => EventPadGroupMode -> m Word32
getEventPadGroupModeTime :: forall (m :: * -> *). MonadIO m => EventPadGroupMode -> m Word32
getEventPadGroupModeTime EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setEventPadGroupModeTime :: MonadIO m => EventPadGroupMode -> Word32 -> m ()
setEventPadGroupModeTime :: forall (m :: * -> *).
MonadIO m =>
EventPadGroupMode -> Word32 -> m ()
setEventPadGroupModeTime EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventPadGroupModeTimeFieldInfo
instance AttrInfo EventPadGroupModeTimeFieldInfo where
type AttrBaseTypeConstraint EventPadGroupModeTimeFieldInfo = (~) EventPadGroupMode
type AttrAllowedOps EventPadGroupModeTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadGroupModeTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventPadGroupModeTimeFieldInfo = (~)Word32
type AttrTransferType EventPadGroupModeTimeFieldInfo = Word32
type AttrGetType EventPadGroupModeTimeFieldInfo = Word32
type AttrLabel EventPadGroupModeTimeFieldInfo = "time"
type AttrOrigin EventPadGroupModeTimeFieldInfo = EventPadGroupMode
attrGet = getEventPadGroupModeTime
attrSet = setEventPadGroupModeTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventPadGroupMode.time"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadGroupMode.html#g:attr:time"
})
eventPadGroupMode_time :: AttrLabelProxy "time"
eventPadGroupMode_time = AttrLabelProxy
#endif
getEventPadGroupModeGroup :: MonadIO m => EventPadGroupMode -> m Word32
getEventPadGroupModeGroup :: forall (m :: * -> *). MonadIO m => EventPadGroupMode -> m Word32
getEventPadGroupModeGroup EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setEventPadGroupModeGroup :: MonadIO m => EventPadGroupMode -> Word32 -> m ()
setEventPadGroupModeGroup :: forall (m :: * -> *).
MonadIO m =>
EventPadGroupMode -> Word32 -> m ()
setEventPadGroupModeGroup EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventPadGroupModeGroupFieldInfo
instance AttrInfo EventPadGroupModeGroupFieldInfo where
type AttrBaseTypeConstraint EventPadGroupModeGroupFieldInfo = (~) EventPadGroupMode
type AttrAllowedOps EventPadGroupModeGroupFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadGroupModeGroupFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventPadGroupModeGroupFieldInfo = (~)Word32
type AttrTransferType EventPadGroupModeGroupFieldInfo = Word32
type AttrGetType EventPadGroupModeGroupFieldInfo = Word32
type AttrLabel EventPadGroupModeGroupFieldInfo = "group"
type AttrOrigin EventPadGroupModeGroupFieldInfo = EventPadGroupMode
attrGet = getEventPadGroupModeGroup
attrSet = setEventPadGroupModeGroup
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventPadGroupMode.group"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadGroupMode.html#g:attr:group"
})
eventPadGroupMode_group :: AttrLabelProxy "group"
eventPadGroupMode_group = AttrLabelProxy
#endif
getEventPadGroupModeMode :: MonadIO m => EventPadGroupMode -> m Word32
getEventPadGroupModeMode :: forall (m :: * -> *). MonadIO m => EventPadGroupMode -> m Word32
getEventPadGroupModeMode EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setEventPadGroupModeMode :: MonadIO m => EventPadGroupMode -> Word32 -> m ()
setEventPadGroupModeMode :: forall (m :: * -> *).
MonadIO m =>
EventPadGroupMode -> Word32 -> m ()
setEventPadGroupModeMode EventPadGroupMode
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 EventPadGroupMode
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadGroupMode
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadGroupMode
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventPadGroupModeModeFieldInfo
instance AttrInfo EventPadGroupModeModeFieldInfo where
type AttrBaseTypeConstraint EventPadGroupModeModeFieldInfo = (~) EventPadGroupMode
type AttrAllowedOps EventPadGroupModeModeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadGroupModeModeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventPadGroupModeModeFieldInfo = (~)Word32
type AttrTransferType EventPadGroupModeModeFieldInfo = Word32
type AttrGetType EventPadGroupModeModeFieldInfo = Word32
type AttrLabel EventPadGroupModeModeFieldInfo = "mode"
type AttrOrigin EventPadGroupModeModeFieldInfo = EventPadGroupMode
attrGet = getEventPadGroupModeMode
attrSet = setEventPadGroupModeMode
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventPadGroupMode.mode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadGroupMode.html#g:attr:mode"
})
eventPadGroupMode_mode :: AttrLabelProxy "mode"
eventPadGroupMode_mode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventPadGroupMode
type instance O.AttributeList EventPadGroupMode = EventPadGroupModeAttributeList
type EventPadGroupModeAttributeList = ('[ '("type", EventPadGroupModeTypeFieldInfo), '("window", EventPadGroupModeWindowFieldInfo), '("sendEvent", EventPadGroupModeSendEventFieldInfo), '("time", EventPadGroupModeTimeFieldInfo), '("group", EventPadGroupModeGroupFieldInfo), '("mode", EventPadGroupModeModeFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventPadGroupModeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEventPadGroupModeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventPadGroupModeMethod t EventPadGroupMode, O.OverloadedMethod info EventPadGroupMode p) => OL.IsLabel t (EventPadGroupMode -> 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 ~ ResolveEventPadGroupModeMethod t EventPadGroupMode, O.OverloadedMethod info EventPadGroupMode p, R.HasField t EventPadGroupMode p) => R.HasField t EventPadGroupMode p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEventPadGroupModeMethod t EventPadGroupMode, O.OverloadedMethodInfo info EventPadGroupMode) => OL.IsLabel t (O.MethodProxy info EventPadGroupMode) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif