{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson and Iñaki García Etxebarria
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- Generated during 'GI.Gdk.Enums.InputSourceTabletPad' interaction with tactile sensors.
-- 
-- /Since: 3.22/

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Gdk.Structs.EventPadAxis
    ( 

-- * Exported types
    EventPadAxis(..)                        ,
    newZeroEventPadAxis                     ,


 -- * Methods

#if defined(ENABLE_OVERLOADING)
    ResolveEventPadAxisMethod               ,
#endif



 -- * Properties


-- ** group #attr:group#
-- | the pad group the ring\/strip belongs to. A 'GI.Gdk.Enums.InputSourceTabletPad'
--   device may have one or more groups containing a set of buttons\/rings\/strips
--   each.

#if defined(ENABLE_OVERLOADING)
    eventPadAxis_group                      ,
#endif
    getEventPadAxisGroup                    ,
    setEventPadAxisGroup                    ,


-- ** index #attr:index#
-- | number of strip\/ring that was interacted. This number is 0-indexed.

#if defined(ENABLE_OVERLOADING)
    eventPadAxis_index                      ,
#endif
    getEventPadAxisIndex                    ,
    setEventPadAxisIndex                    ,


-- ** mode #attr:mode#
-- | The current mode of /@group@/. Different groups in a 'GI.Gdk.Enums.InputSourceTabletPad'
--   device may have different current modes.

#if defined(ENABLE_OVERLOADING)
    eventPadAxis_mode                       ,
#endif
    getEventPadAxisMode                     ,
    setEventPadAxisMode                     ,


-- ** sendEvent #attr:sendEvent#
-- | 'P.True' if the event was sent explicitly.

#if defined(ENABLE_OVERLOADING)
    eventPadAxis_sendEvent                  ,
#endif
    getEventPadAxisSendEvent                ,
    setEventPadAxisSendEvent                ,


-- ** time #attr:time#
-- | the time of the event in milliseconds.

#if defined(ENABLE_OVERLOADING)
    eventPadAxis_time                       ,
#endif
    getEventPadAxisTime                     ,
    setEventPadAxisTime                     ,


-- ** type #attr:type#
-- | the type of the event ('GI.Gdk.Enums.EventTypePadRing' or 'GI.Gdk.Enums.EventTypePadStrip').

#if defined(ENABLE_OVERLOADING)
    eventPadAxis_type                       ,
#endif
    getEventPadAxisType                     ,
    setEventPadAxisType                     ,


-- ** value #attr:value#
-- | The current value for the given axis.

#if defined(ENABLE_OVERLOADING)
    eventPadAxis_value                      ,
#endif
    getEventPadAxisValue                    ,
    setEventPadAxisValue                    ,


-- ** window #attr:window#
-- | the window which received the event.

    clearEventPadAxisWindow                 ,
#if defined(ENABLE_OVERLOADING)
    eventPadAxis_window                     ,
#endif
    getEventPadAxisWindow                   ,
    setEventPadAxisWindow                   ,




    ) 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

-- | Memory-managed wrapper type.
newtype EventPadAxis = EventPadAxis (SP.ManagedPtr EventPadAxis)
    deriving (EventPadAxis -> EventPadAxis -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventPadAxis -> EventPadAxis -> Bool
$c/= :: EventPadAxis -> EventPadAxis -> Bool
== :: EventPadAxis -> EventPadAxis -> Bool
$c== :: EventPadAxis -> EventPadAxis -> Bool
Eq)

instance SP.ManagedPtrNewtype EventPadAxis where
    toManagedPtr :: EventPadAxis -> ManagedPtr EventPadAxis
toManagedPtr (EventPadAxis ManagedPtr EventPadAxis
p) = ManagedPtr EventPadAxis
p

instance BoxedPtr EventPadAxis where
    boxedPtrCopy :: EventPadAxis -> IO EventPadAxis
boxedPtrCopy = \EventPadAxis
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EventPadAxis
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
36 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 EventPadAxis -> EventPadAxis
EventPadAxis)
    boxedPtrFree :: EventPadAxis -> IO ()
boxedPtrFree = \EventPadAxis
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr EventPadAxis
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr EventPadAxis where
    boxedPtrCalloc :: IO (Ptr EventPadAxis)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
36


-- | Construct a `EventPadAxis` struct initialized to zero.
newZeroEventPadAxis :: MonadIO m => m EventPadAxis
newZeroEventPadAxis :: forall (m :: * -> *). MonadIO m => m EventPadAxis
newZeroEventPadAxis = 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 EventPadAxis -> EventPadAxis
EventPadAxis

instance tag ~ 'AttrSet => Constructible EventPadAxis tag where
    new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr EventPadAxis -> EventPadAxis)
-> [AttrOp EventPadAxis tag] -> m EventPadAxis
new ManagedPtr EventPadAxis -> EventPadAxis
_ [AttrOp EventPadAxis tag]
attrs = do
        EventPadAxis
o <- forall (m :: * -> *). MonadIO m => m EventPadAxis
newZeroEventPadAxis
        forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set EventPadAxis
o [AttrOp EventPadAxis tag]
attrs
        forall (m :: * -> *) a. Monad m => a -> m a
return EventPadAxis
o


-- | Get the value of the “@type@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #type
-- @
getEventPadAxisType :: MonadIO m => EventPadAxis -> m Gdk.Enums.EventType
getEventPadAxisType :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m EventType
getEventPadAxisType EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
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'

-- | Set the value of the “@type@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #type 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisType :: MonadIO m => EventPadAxis -> Gdk.Enums.EventType -> m ()
setEventPadAxisType :: forall (m :: * -> *).
MonadIO m =>
EventPadAxis -> EventType -> m ()
setEventPadAxisType EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
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 EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
val' :: CInt)

#if defined(ENABLE_OVERLOADING)
data EventPadAxisTypeFieldInfo
instance AttrInfo EventPadAxisTypeFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisTypeFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventPadAxisTypeFieldInfo = (~) Gdk.Enums.EventType
    type AttrTransferTypeConstraint EventPadAxisTypeFieldInfo = (~)Gdk.Enums.EventType
    type AttrTransferType EventPadAxisTypeFieldInfo = Gdk.Enums.EventType
    type AttrGetType EventPadAxisTypeFieldInfo = Gdk.Enums.EventType
    type AttrLabel EventPadAxisTypeFieldInfo = "type"
    type AttrOrigin EventPadAxisTypeFieldInfo = EventPadAxis
    attrGet = getEventPadAxisType
    attrSet = setEventPadAxisType
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.type"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:type"
        })

eventPadAxis_type :: AttrLabelProxy "type"
eventPadAxis_type = AttrLabelProxy

#endif


-- | Get the value of the “@window@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #window
-- @
getEventPadAxisWindow :: MonadIO m => EventPadAxis -> m (Maybe Gdk.Window.Window)
getEventPadAxisWindow :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m (Maybe Window)
getEventPadAxisWindow EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
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

-- | Set the value of the “@window@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #window 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisWindow :: MonadIO m => EventPadAxis -> Ptr Gdk.Window.Window -> m ()
setEventPadAxisWindow :: forall (m :: * -> *).
MonadIO m =>
EventPadAxis -> Ptr Window -> m ()
setEventPadAxisWindow EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr Window
val :: Ptr Gdk.Window.Window)

-- | Set the value of the “@window@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #window
-- @
clearEventPadAxisWindow :: MonadIO m => EventPadAxis -> m ()
clearEventPadAxisWindow :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m ()
clearEventPadAxisWindow EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
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 EventPadAxisWindowFieldInfo
instance AttrInfo EventPadAxisWindowFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisWindowFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint EventPadAxisWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
    type AttrTransferTypeConstraint EventPadAxisWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
    type AttrTransferType EventPadAxisWindowFieldInfo = (Ptr Gdk.Window.Window)
    type AttrGetType EventPadAxisWindowFieldInfo = Maybe Gdk.Window.Window
    type AttrLabel EventPadAxisWindowFieldInfo = "window"
    type AttrOrigin EventPadAxisWindowFieldInfo = EventPadAxis
    attrGet = getEventPadAxisWindow
    attrSet = setEventPadAxisWindow
    attrConstruct = undefined
    attrClear = clearEventPadAxisWindow
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.window"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:window"
        })

eventPadAxis_window :: AttrLabelProxy "window"
eventPadAxis_window = AttrLabelProxy

#endif


-- | Get the value of the “@send_event@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #sendEvent
-- @
getEventPadAxisSendEvent :: MonadIO m => EventPadAxis -> m Int8
getEventPadAxisSendEvent :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m Int8
getEventPadAxisSendEvent EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
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

-- | Set the value of the “@send_event@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #sendEvent 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisSendEvent :: MonadIO m => EventPadAxis -> Int8 -> m ()
setEventPadAxisSendEvent :: forall (m :: * -> *). MonadIO m => EventPadAxis -> Int8 -> m ()
setEventPadAxisSendEvent EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int8
val :: Int8)

#if defined(ENABLE_OVERLOADING)
data EventPadAxisSendEventFieldInfo
instance AttrInfo EventPadAxisSendEventFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisSendEventFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventPadAxisSendEventFieldInfo = (~) Int8
    type AttrTransferTypeConstraint EventPadAxisSendEventFieldInfo = (~)Int8
    type AttrTransferType EventPadAxisSendEventFieldInfo = Int8
    type AttrGetType EventPadAxisSendEventFieldInfo = Int8
    type AttrLabel EventPadAxisSendEventFieldInfo = "send_event"
    type AttrOrigin EventPadAxisSendEventFieldInfo = EventPadAxis
    attrGet = getEventPadAxisSendEvent
    attrSet = setEventPadAxisSendEvent
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.sendEvent"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:sendEvent"
        })

eventPadAxis_sendEvent :: AttrLabelProxy "sendEvent"
eventPadAxis_sendEvent = AttrLabelProxy

#endif


-- | Get the value of the “@time@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #time
-- @
getEventPadAxisTime :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisTime :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m Word32
getEventPadAxisTime EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
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

-- | Set the value of the “@time@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #time 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisTime :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisTime :: forall (m :: * -> *). MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisTime EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data EventPadAxisTimeFieldInfo
instance AttrInfo EventPadAxisTimeFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisTimeFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventPadAxisTimeFieldInfo = (~) Word32
    type AttrTransferTypeConstraint EventPadAxisTimeFieldInfo = (~)Word32
    type AttrTransferType EventPadAxisTimeFieldInfo = Word32
    type AttrGetType EventPadAxisTimeFieldInfo = Word32
    type AttrLabel EventPadAxisTimeFieldInfo = "time"
    type AttrOrigin EventPadAxisTimeFieldInfo = EventPadAxis
    attrGet = getEventPadAxisTime
    attrSet = setEventPadAxisTime
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.time"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:time"
        })

eventPadAxis_time :: AttrLabelProxy "time"
eventPadAxis_time = AttrLabelProxy

#endif


-- | Get the value of the “@group@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #group
-- @
getEventPadAxisGroup :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisGroup :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m Word32
getEventPadAxisGroup EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
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

-- | Set the value of the “@group@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #group 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisGroup :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisGroup :: forall (m :: * -> *). MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisGroup EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data EventPadAxisGroupFieldInfo
instance AttrInfo EventPadAxisGroupFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisGroupFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisGroupFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventPadAxisGroupFieldInfo = (~) Word32
    type AttrTransferTypeConstraint EventPadAxisGroupFieldInfo = (~)Word32
    type AttrTransferType EventPadAxisGroupFieldInfo = Word32
    type AttrGetType EventPadAxisGroupFieldInfo = Word32
    type AttrLabel EventPadAxisGroupFieldInfo = "group"
    type AttrOrigin EventPadAxisGroupFieldInfo = EventPadAxis
    attrGet = getEventPadAxisGroup
    attrSet = setEventPadAxisGroup
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.group"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:group"
        })

eventPadAxis_group :: AttrLabelProxy "group"
eventPadAxis_group = AttrLabelProxy

#endif


-- | Get the value of the “@index@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #index
-- @
getEventPadAxisIndex :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisIndex :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m Word32
getEventPadAxisIndex EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
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

-- | Set the value of the “@index@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #index 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisIndex :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisIndex :: forall (m :: * -> *). MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisIndex EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data EventPadAxisIndexFieldInfo
instance AttrInfo EventPadAxisIndexFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisIndexFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisIndexFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventPadAxisIndexFieldInfo = (~) Word32
    type AttrTransferTypeConstraint EventPadAxisIndexFieldInfo = (~)Word32
    type AttrTransferType EventPadAxisIndexFieldInfo = Word32
    type AttrGetType EventPadAxisIndexFieldInfo = Word32
    type AttrLabel EventPadAxisIndexFieldInfo = "index"
    type AttrOrigin EventPadAxisIndexFieldInfo = EventPadAxis
    attrGet = getEventPadAxisIndex
    attrSet = setEventPadAxisIndex
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.index"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:index"
        })

eventPadAxis_index :: AttrLabelProxy "index"
eventPadAxis_index = AttrLabelProxy

#endif


-- | Get the value of the “@mode@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #mode
-- @
getEventPadAxisMode :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisMode :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m Word32
getEventPadAxisMode EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
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

-- | Set the value of the “@mode@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #mode 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisMode :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisMode :: forall (m :: * -> *). MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisMode EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (Word32
val :: Word32)

#if defined(ENABLE_OVERLOADING)
data EventPadAxisModeFieldInfo
instance AttrInfo EventPadAxisModeFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisModeFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisModeFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventPadAxisModeFieldInfo = (~) Word32
    type AttrTransferTypeConstraint EventPadAxisModeFieldInfo = (~)Word32
    type AttrTransferType EventPadAxisModeFieldInfo = Word32
    type AttrGetType EventPadAxisModeFieldInfo = Word32
    type AttrLabel EventPadAxisModeFieldInfo = "mode"
    type AttrOrigin EventPadAxisModeFieldInfo = EventPadAxis
    attrGet = getEventPadAxisMode
    attrSet = setEventPadAxisMode
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.mode"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:mode"
        })

eventPadAxis_mode :: AttrLabelProxy "mode"
eventPadAxis_mode = AttrLabelProxy

#endif


-- | Get the value of the “@value@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' eventPadAxis #value
-- @
getEventPadAxisValue :: MonadIO m => EventPadAxis -> m Double
getEventPadAxisValue :: forall (m :: * -> *). MonadIO m => EventPadAxis -> m Double
getEventPadAxisValue EventPadAxis
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) :: IO CDouble
    let val' :: Double
val' = forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
    forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'

-- | Set the value of the “@value@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' eventPadAxis [ #value 'Data.GI.Base.Attributes.:=' value ]
-- @
setEventPadAxisValue :: MonadIO m => EventPadAxis -> Double -> m ()
setEventPadAxisValue :: forall (m :: * -> *). MonadIO m => EventPadAxis -> Double -> m ()
setEventPadAxisValue EventPadAxis
s Double
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 EventPadAxis
s forall a b. (a -> b) -> a -> b
$ \Ptr EventPadAxis
ptr -> do
    let val' :: CDouble
val' = forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
    forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventPadAxis
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) (CDouble
val' :: CDouble)

#if defined(ENABLE_OVERLOADING)
data EventPadAxisValueFieldInfo
instance AttrInfo EventPadAxisValueFieldInfo where
    type AttrBaseTypeConstraint EventPadAxisValueFieldInfo = (~) EventPadAxis
    type AttrAllowedOps EventPadAxisValueFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint EventPadAxisValueFieldInfo = (~) Double
    type AttrTransferTypeConstraint EventPadAxisValueFieldInfo = (~)Double
    type AttrTransferType EventPadAxisValueFieldInfo = Double
    type AttrGetType EventPadAxisValueFieldInfo = Double
    type AttrLabel EventPadAxisValueFieldInfo = "value"
    type AttrOrigin EventPadAxisValueFieldInfo = EventPadAxis
    attrGet = getEventPadAxisValue
    attrSet = setEventPadAxisValue
    attrConstruct = undefined
    attrClear = undefined
    attrTransfer _ v = do
        return v
    dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
        O.resolvedSymbolName = "GI.Gdk.Structs.EventPadAxis.value"
        , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventPadAxis.html#g:attr:value"
        })

eventPadAxis_value :: AttrLabelProxy "value"
eventPadAxis_value = AttrLabelProxy

#endif



#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventPadAxis
type instance O.AttributeList EventPadAxis = EventPadAxisAttributeList
type EventPadAxisAttributeList = ('[ '("type", EventPadAxisTypeFieldInfo), '("window", EventPadAxisWindowFieldInfo), '("sendEvent", EventPadAxisSendEventFieldInfo), '("time", EventPadAxisTimeFieldInfo), '("group", EventPadAxisGroupFieldInfo), '("index", EventPadAxisIndexFieldInfo), '("mode", EventPadAxisModeFieldInfo), '("value", EventPadAxisValueFieldInfo)] :: [(Symbol, DK.Type)])
#endif

#if defined(ENABLE_OVERLOADING)
type family ResolveEventPadAxisMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
    ResolveEventPadAxisMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveEventPadAxisMethod t EventPadAxis, O.OverloadedMethod info EventPadAxis p) => OL.IsLabel t (EventPadAxis -> 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 ~ ResolveEventPadAxisMethod t EventPadAxis, O.OverloadedMethod info EventPadAxis p, R.HasField t EventPadAxis p) => R.HasField t EventPadAxis p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveEventPadAxisMethod t EventPadAxis, O.OverloadedMethodInfo info EventPadAxis) => OL.IsLabel t (O.MethodProxy info EventPadAxis) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif