{-# 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 ,
noEventPadAxis ,
#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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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 Data.Text as T
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 {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventPadAxis = EventPadAxis (ManagedPtr EventPadAxis)
deriving (Eq)
instance WrappedPtr EventPadAxis where
wrappedPtrCalloc = callocBytes 48
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 48 >=> wrapPtr EventPadAxis)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventPadAxis :: MonadIO m => m EventPadAxis
newZeroEventPadAxis = liftIO $ wrappedPtrCalloc >>= wrapPtr EventPadAxis
instance tag ~ 'AttrSet => Constructible EventPadAxis tag where
new _ attrs = do
o <- newZeroEventPadAxis
GI.Attributes.set o attrs
return o
noEventPadAxis :: Maybe EventPadAxis
noEventPadAxis = Nothing
getEventPadAxisType :: MonadIO m => EventPadAxis -> m Gdk.Enums.EventType
getEventPadAxisType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CInt
let val' = (toEnum . fromIntegral) val
return val'
setEventPadAxisType :: MonadIO m => EventPadAxis -> Gdk.Enums.EventType -> m ()
setEventPadAxisType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (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
eventPadAxis_type :: AttrLabelProxy "type"
eventPadAxis_type = AttrLabelProxy
#endif
getEventPadAxisWindow :: MonadIO m => EventPadAxis -> m (Maybe Gdk.Window.Window)
getEventPadAxisWindow s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO (Ptr Gdk.Window.Window)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject Gdk.Window.Window) val'
return val''
return result
setEventPadAxisWindow :: MonadIO m => EventPadAxis -> Ptr Gdk.Window.Window -> m ()
setEventPadAxisWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventPadAxisWindow :: MonadIO m => EventPadAxis -> m ()
clearEventPadAxisWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (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
eventPadAxis_window :: AttrLabelProxy "window"
eventPadAxis_window = AttrLabelProxy
#endif
getEventPadAxisSendEvent :: MonadIO m => EventPadAxis -> m Int8
getEventPadAxisSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventPadAxisSendEvent :: MonadIO m => EventPadAxis -> Int8 -> m ()
setEventPadAxisSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (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
eventPadAxis_sendEvent :: AttrLabelProxy "sendEvent"
eventPadAxis_sendEvent = AttrLabelProxy
#endif
getEventPadAxisTime :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
setEventPadAxisTime :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (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
eventPadAxis_time :: AttrLabelProxy "time"
eventPadAxis_time = AttrLabelProxy
#endif
getEventPadAxisGroup :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisGroup s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO Word32
return val
setEventPadAxisGroup :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisGroup s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (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
eventPadAxis_group :: AttrLabelProxy "group"
eventPadAxis_group = AttrLabelProxy
#endif
getEventPadAxisIndex :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisIndex s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO Word32
return val
setEventPadAxisIndex :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisIndex s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 28) (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
eventPadAxis_index :: AttrLabelProxy "index"
eventPadAxis_index = AttrLabelProxy
#endif
getEventPadAxisMode :: MonadIO m => EventPadAxis -> m Word32
getEventPadAxisMode s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO Word32
return val
setEventPadAxisMode :: MonadIO m => EventPadAxis -> Word32 -> m ()
setEventPadAxisMode s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (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
eventPadAxis_mode :: AttrLabelProxy "mode"
eventPadAxis_mode = AttrLabelProxy
#endif
getEventPadAxisValue :: MonadIO m => EventPadAxis -> m Double
getEventPadAxisValue s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO CDouble
let val' = realToFrac val
return val'
setEventPadAxisValue :: MonadIO m => EventPadAxis -> Double -> m ()
setEventPadAxisValue s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 40) (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
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, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventPadAxisMethod (t :: Symbol) (o :: *) :: * where
ResolveEventPadAxisMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventPadAxisMethod t EventPadAxis, O.MethodInfo 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
#endif