{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventPadAxis
(
EventPadAxis(..) ,
newZeroEventPadAxis ,
#if defined(ENABLE_OVERLOADING)
ResolveEventPadAxisMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventPadAxis_group ,
#endif
getEventPadAxisGroup ,
setEventPadAxisGroup ,
#if defined(ENABLE_OVERLOADING)
eventPadAxis_index ,
#endif
getEventPadAxisIndex ,
setEventPadAxisIndex ,
#if defined(ENABLE_OVERLOADING)
eventPadAxis_mode ,
#endif
getEventPadAxisMode ,
setEventPadAxisMode ,
#if defined(ENABLE_OVERLOADING)
eventPadAxis_sendEvent ,
#endif
getEventPadAxisSendEvent ,
setEventPadAxisSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventPadAxis_time ,
#endif
getEventPadAxisTime ,
setEventPadAxisTime ,
#if defined(ENABLE_OVERLOADING)
eventPadAxis_type ,
#endif
getEventPadAxisType ,
setEventPadAxisType ,
#if defined(ENABLE_OVERLOADING)
eventPadAxis_value ,
#endif
getEventPadAxisValue ,
setEventPadAxisValue ,
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
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
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
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'
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
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
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)
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
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
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
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
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
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
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
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
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
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
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
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'
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