module GI.Gdk.Structs.EventPadAxis
(
EventPadAxis(..) ,
newZeroEventPadAxis ,
noEventPadAxis ,
eventPadAxis_group ,
getEventPadAxisGroup ,
setEventPadAxisGroup ,
eventPadAxis_index ,
getEventPadAxisIndex ,
setEventPadAxisIndex ,
eventPadAxis_mode ,
getEventPadAxisMode ,
setEventPadAxisMode ,
eventPadAxis_sendEvent ,
getEventPadAxisSendEvent ,
setEventPadAxisSendEvent ,
eventPadAxis_time ,
getEventPadAxisTime ,
setEventPadAxisTime ,
eventPadAxis_type ,
getEventPadAxisType ,
setEventPadAxisType ,
eventPadAxis_value ,
getEventPadAxisValue ,
setEventPadAxisValue ,
clearEventPadAxisWindow ,
eventPadAxis_window ,
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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventPadAxis = EventPadAxis (ManagedPtr EventPadAxis)
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 CUInt
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' :: CUInt)
data EventPadAxisTypeFieldInfo
instance AttrInfo EventPadAxisTypeFieldInfo where
type AttrAllowedOps EventPadAxisTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadAxisTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrBaseTypeConstraint EventPadAxisTypeFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventPadAxisTypeFieldInfo = "type"
type AttrOrigin EventPadAxisTypeFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisType
attrSet _ = setEventPadAxisType
attrConstruct = undefined
attrClear _ = undefined
eventPadAxis_type :: AttrLabelProxy "type"
eventPadAxis_type = AttrLabelProxy
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)
data EventPadAxisWindowFieldInfo
instance AttrInfo EventPadAxisWindowFieldInfo where
type AttrAllowedOps EventPadAxisWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventPadAxisWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrBaseTypeConstraint EventPadAxisWindowFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventPadAxisWindowFieldInfo = "window"
type AttrOrigin EventPadAxisWindowFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisWindow
attrSet _ = setEventPadAxisWindow
attrConstruct = undefined
attrClear _ = clearEventPadAxisWindow
eventPadAxis_window :: AttrLabelProxy "window"
eventPadAxis_window = AttrLabelProxy
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)
data EventPadAxisSendEventFieldInfo
instance AttrInfo EventPadAxisSendEventFieldInfo where
type AttrAllowedOps EventPadAxisSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadAxisSendEventFieldInfo = (~) Int8
type AttrBaseTypeConstraint EventPadAxisSendEventFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisSendEventFieldInfo = Int8
type AttrLabel EventPadAxisSendEventFieldInfo = "send_event"
type AttrOrigin EventPadAxisSendEventFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisSendEvent
attrSet _ = setEventPadAxisSendEvent
attrConstruct = undefined
attrClear _ = undefined
eventPadAxis_sendEvent :: AttrLabelProxy "sendEvent"
eventPadAxis_sendEvent = AttrLabelProxy
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)
data EventPadAxisTimeFieldInfo
instance AttrInfo EventPadAxisTimeFieldInfo where
type AttrAllowedOps EventPadAxisTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadAxisTimeFieldInfo = (~) Word32
type AttrBaseTypeConstraint EventPadAxisTimeFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisTimeFieldInfo = Word32
type AttrLabel EventPadAxisTimeFieldInfo = "time"
type AttrOrigin EventPadAxisTimeFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisTime
attrSet _ = setEventPadAxisTime
attrConstruct = undefined
attrClear _ = undefined
eventPadAxis_time :: AttrLabelProxy "time"
eventPadAxis_time = AttrLabelProxy
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)
data EventPadAxisGroupFieldInfo
instance AttrInfo EventPadAxisGroupFieldInfo where
type AttrAllowedOps EventPadAxisGroupFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadAxisGroupFieldInfo = (~) Word32
type AttrBaseTypeConstraint EventPadAxisGroupFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisGroupFieldInfo = Word32
type AttrLabel EventPadAxisGroupFieldInfo = "group"
type AttrOrigin EventPadAxisGroupFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisGroup
attrSet _ = setEventPadAxisGroup
attrConstruct = undefined
attrClear _ = undefined
eventPadAxis_group :: AttrLabelProxy "group"
eventPadAxis_group = AttrLabelProxy
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)
data EventPadAxisIndexFieldInfo
instance AttrInfo EventPadAxisIndexFieldInfo where
type AttrAllowedOps EventPadAxisIndexFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadAxisIndexFieldInfo = (~) Word32
type AttrBaseTypeConstraint EventPadAxisIndexFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisIndexFieldInfo = Word32
type AttrLabel EventPadAxisIndexFieldInfo = "index"
type AttrOrigin EventPadAxisIndexFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisIndex
attrSet _ = setEventPadAxisIndex
attrConstruct = undefined
attrClear _ = undefined
eventPadAxis_index :: AttrLabelProxy "index"
eventPadAxis_index = AttrLabelProxy
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)
data EventPadAxisModeFieldInfo
instance AttrInfo EventPadAxisModeFieldInfo where
type AttrAllowedOps EventPadAxisModeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadAxisModeFieldInfo = (~) Word32
type AttrBaseTypeConstraint EventPadAxisModeFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisModeFieldInfo = Word32
type AttrLabel EventPadAxisModeFieldInfo = "mode"
type AttrOrigin EventPadAxisModeFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisMode
attrSet _ = setEventPadAxisMode
attrConstruct = undefined
attrClear _ = undefined
eventPadAxis_mode :: AttrLabelProxy "mode"
eventPadAxis_mode = AttrLabelProxy
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)
data EventPadAxisValueFieldInfo
instance AttrInfo EventPadAxisValueFieldInfo where
type AttrAllowedOps EventPadAxisValueFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventPadAxisValueFieldInfo = (~) Double
type AttrBaseTypeConstraint EventPadAxisValueFieldInfo = (~) EventPadAxis
type AttrGetType EventPadAxisValueFieldInfo = Double
type AttrLabel EventPadAxisValueFieldInfo = "value"
type AttrOrigin EventPadAxisValueFieldInfo = EventPadAxis
attrGet _ = getEventPadAxisValue
attrSet _ = setEventPadAxisValue
attrConstruct = undefined
attrClear _ = undefined
eventPadAxis_value :: AttrLabelProxy "value"
eventPadAxis_value = AttrLabelProxy
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, *)])
type family ResolveEventPadAxisMethod (t :: Symbol) (o :: *) :: * where
ResolveEventPadAxisMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventPadAxisMethod t EventPadAxis, O.MethodInfo info EventPadAxis p) => O.IsLabelProxy t (EventPadAxis -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveEventPadAxisMethod t EventPadAxis, O.MethodInfo info EventPadAxis p) => O.IsLabel t (EventPadAxis -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif