{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventTouchpadSwipe
(
EventTouchpadSwipe(..) ,
newZeroEventTouchpadSwipe ,
noEventTouchpadSwipe ,
#if defined(ENABLE_OVERLOADING)
ResolveEventTouchpadSwipeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_dx ,
#endif
getEventTouchpadSwipeDx ,
setEventTouchpadSwipeDx ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_dy ,
#endif
getEventTouchpadSwipeDy ,
setEventTouchpadSwipeDy ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_nFingers ,
#endif
getEventTouchpadSwipeNFingers ,
setEventTouchpadSwipeNFingers ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_phase ,
#endif
getEventTouchpadSwipePhase ,
setEventTouchpadSwipePhase ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_sendEvent ,
#endif
getEventTouchpadSwipeSendEvent ,
setEventTouchpadSwipeSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_state ,
#endif
getEventTouchpadSwipeState ,
setEventTouchpadSwipeState ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_time ,
#endif
getEventTouchpadSwipeTime ,
setEventTouchpadSwipeTime ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_type ,
#endif
getEventTouchpadSwipeType ,
setEventTouchpadSwipeType ,
clearEventTouchpadSwipeWindow ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_window ,
#endif
getEventTouchpadSwipeWindow ,
setEventTouchpadSwipeWindow ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_x ,
#endif
getEventTouchpadSwipeX ,
setEventTouchpadSwipeX ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_xRoot ,
#endif
getEventTouchpadSwipeXRoot ,
setEventTouchpadSwipeXRoot ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_y ,
#endif
getEventTouchpadSwipeY ,
setEventTouchpadSwipeY ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadSwipe_yRoot ,
#endif
getEventTouchpadSwipeYRoot ,
setEventTouchpadSwipeYRoot ,
) 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.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventTouchpadSwipe = EventTouchpadSwipe (ManagedPtr EventTouchpadSwipe)
deriving (Eq)
instance WrappedPtr EventTouchpadSwipe where
wrappedPtrCalloc = callocBytes 80
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 80 >=> wrapPtr EventTouchpadSwipe)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventTouchpadSwipe :: MonadIO m => m EventTouchpadSwipe
newZeroEventTouchpadSwipe = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouchpadSwipe
instance tag ~ 'AttrSet => Constructible EventTouchpadSwipe tag where
new _ attrs = do
o <- newZeroEventTouchpadSwipe
GI.Attributes.set o attrs
return o
noEventTouchpadSwipe :: Maybe EventTouchpadSwipe
noEventTouchpadSwipe = Nothing
getEventTouchpadSwipeType :: MonadIO m => EventTouchpadSwipe -> m Gdk.Enums.EventType
getEventTouchpadSwipeType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CInt
let val' = (toEnum . fromIntegral) val
return val'
setEventTouchpadSwipeType :: MonadIO m => EventTouchpadSwipe -> Gdk.Enums.EventType -> m ()
setEventTouchpadSwipeType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeTypeFieldInfo
instance AttrInfo EventTouchpadSwipeTypeFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventTouchpadSwipeTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventTouchpadSwipeTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventTouchpadSwipeTypeFieldInfo = "type"
type AttrOrigin EventTouchpadSwipeTypeFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeType
attrSet = setEventTouchpadSwipeType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_type :: AttrLabelProxy "type"
eventTouchpadSwipe_type = AttrLabelProxy
#endif
getEventTouchpadSwipeWindow :: MonadIO m => EventTouchpadSwipe -> m (Maybe Gdk.Window.Window)
getEventTouchpadSwipeWindow 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
setEventTouchpadSwipeWindow :: MonadIO m => EventTouchpadSwipe -> Ptr Gdk.Window.Window -> m ()
setEventTouchpadSwipeWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventTouchpadSwipeWindow :: MonadIO m => EventTouchpadSwipe -> m ()
clearEventTouchpadSwipeWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr Gdk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeWindowFieldInfo
instance AttrInfo EventTouchpadSwipeWindowFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventTouchpadSwipeWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventTouchpadSwipeWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventTouchpadSwipeWindowFieldInfo = "window"
type AttrOrigin EventTouchpadSwipeWindowFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeWindow
attrSet = setEventTouchpadSwipeWindow
attrConstruct = undefined
attrClear = clearEventTouchpadSwipeWindow
attrTransfer _ v = do
return v
eventTouchpadSwipe_window :: AttrLabelProxy "window"
eventTouchpadSwipe_window = AttrLabelProxy
#endif
getEventTouchpadSwipeSendEvent :: MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipeSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventTouchpadSwipeSendEvent :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipeSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeSendEventFieldInfo
instance AttrInfo EventTouchpadSwipeSendEventFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~)Int8
type AttrTransferType EventTouchpadSwipeSendEventFieldInfo = Int8
type AttrGetType EventTouchpadSwipeSendEventFieldInfo = Int8
type AttrLabel EventTouchpadSwipeSendEventFieldInfo = "send_event"
type AttrOrigin EventTouchpadSwipeSendEventFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeSendEvent
attrSet = setEventTouchpadSwipeSendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_sendEvent :: AttrLabelProxy "sendEvent"
eventTouchpadSwipe_sendEvent = AttrLabelProxy
#endif
getEventTouchpadSwipePhase :: MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipePhase s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 17) :: IO Int8
return val
setEventTouchpadSwipePhase :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipePhase s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 17) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipePhaseFieldInfo
instance AttrInfo EventTouchpadSwipePhaseFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipePhaseFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~)Int8
type AttrTransferType EventTouchpadSwipePhaseFieldInfo = Int8
type AttrGetType EventTouchpadSwipePhaseFieldInfo = Int8
type AttrLabel EventTouchpadSwipePhaseFieldInfo = "phase"
type AttrOrigin EventTouchpadSwipePhaseFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipePhase
attrSet = setEventTouchpadSwipePhase
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_phase :: AttrLabelProxy "phase"
eventTouchpadSwipe_phase = AttrLabelProxy
#endif
getEventTouchpadSwipeNFingers :: MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipeNFingers s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 18) :: IO Int8
return val
setEventTouchpadSwipeNFingers :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipeNFingers s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 18) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeNFingersFieldInfo
instance AttrInfo EventTouchpadSwipeNFingersFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeNFingersFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~)Int8
type AttrTransferType EventTouchpadSwipeNFingersFieldInfo = Int8
type AttrGetType EventTouchpadSwipeNFingersFieldInfo = Int8
type AttrLabel EventTouchpadSwipeNFingersFieldInfo = "n_fingers"
type AttrOrigin EventTouchpadSwipeNFingersFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeNFingers
attrSet = setEventTouchpadSwipeNFingers
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_nFingers :: AttrLabelProxy "nFingers"
eventTouchpadSwipe_nFingers = AttrLabelProxy
#endif
getEventTouchpadSwipeTime :: MonadIO m => EventTouchpadSwipe -> m Word32
getEventTouchpadSwipeTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
setEventTouchpadSwipeTime :: MonadIO m => EventTouchpadSwipe -> Word32 -> m ()
setEventTouchpadSwipeTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeTimeFieldInfo
instance AttrInfo EventTouchpadSwipeTimeFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~)Word32
type AttrTransferType EventTouchpadSwipeTimeFieldInfo = Word32
type AttrGetType EventTouchpadSwipeTimeFieldInfo = Word32
type AttrLabel EventTouchpadSwipeTimeFieldInfo = "time"
type AttrOrigin EventTouchpadSwipeTimeFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeTime
attrSet = setEventTouchpadSwipeTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_time :: AttrLabelProxy "time"
eventTouchpadSwipe_time = AttrLabelProxy
#endif
getEventTouchpadSwipeX :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeX s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadSwipeX :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeX s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 24) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeXFieldInfo
instance AttrInfo EventTouchpadSwipeXFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeXFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeXFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeXFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadSwipeXFieldInfo = (~)Double
type AttrTransferType EventTouchpadSwipeXFieldInfo = Double
type AttrGetType EventTouchpadSwipeXFieldInfo = Double
type AttrLabel EventTouchpadSwipeXFieldInfo = "x"
type AttrOrigin EventTouchpadSwipeXFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeX
attrSet = setEventTouchpadSwipeX
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_x :: AttrLabelProxy "x"
eventTouchpadSwipe_x = AttrLabelProxy
#endif
getEventTouchpadSwipeY :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeY s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadSwipeY :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeY s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 32) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeYFieldInfo
instance AttrInfo EventTouchpadSwipeYFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeYFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeYFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeYFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadSwipeYFieldInfo = (~)Double
type AttrTransferType EventTouchpadSwipeYFieldInfo = Double
type AttrGetType EventTouchpadSwipeYFieldInfo = Double
type AttrLabel EventTouchpadSwipeYFieldInfo = "y"
type AttrOrigin EventTouchpadSwipeYFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeY
attrSet = setEventTouchpadSwipeY
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_y :: AttrLabelProxy "y"
eventTouchpadSwipe_y = AttrLabelProxy
#endif
getEventTouchpadSwipeDx :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeDx s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadSwipeDx :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeDx s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 40) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeDxFieldInfo
instance AttrInfo EventTouchpadSwipeDxFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeDxFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadSwipeDxFieldInfo = (~)Double
type AttrTransferType EventTouchpadSwipeDxFieldInfo = Double
type AttrGetType EventTouchpadSwipeDxFieldInfo = Double
type AttrLabel EventTouchpadSwipeDxFieldInfo = "dx"
type AttrOrigin EventTouchpadSwipeDxFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeDx
attrSet = setEventTouchpadSwipeDx
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_dx :: AttrLabelProxy "dx"
eventTouchpadSwipe_dx = AttrLabelProxy
#endif
getEventTouchpadSwipeDy :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeDy s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadSwipeDy :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeDy s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 48) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeDyFieldInfo
instance AttrInfo EventTouchpadSwipeDyFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeDyFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadSwipeDyFieldInfo = (~)Double
type AttrTransferType EventTouchpadSwipeDyFieldInfo = Double
type AttrGetType EventTouchpadSwipeDyFieldInfo = Double
type AttrLabel EventTouchpadSwipeDyFieldInfo = "dy"
type AttrOrigin EventTouchpadSwipeDyFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeDy
attrSet = setEventTouchpadSwipeDy
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_dy :: AttrLabelProxy "dy"
eventTouchpadSwipe_dy = AttrLabelProxy
#endif
getEventTouchpadSwipeXRoot :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeXRoot s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadSwipeXRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 56) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeXRootFieldInfo
instance AttrInfo EventTouchpadSwipeXRootFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeXRootFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~)Double
type AttrTransferType EventTouchpadSwipeXRootFieldInfo = Double
type AttrGetType EventTouchpadSwipeXRootFieldInfo = Double
type AttrLabel EventTouchpadSwipeXRootFieldInfo = "x_root"
type AttrOrigin EventTouchpadSwipeXRootFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeXRoot
attrSet = setEventTouchpadSwipeXRoot
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_xRoot :: AttrLabelProxy "xRoot"
eventTouchpadSwipe_xRoot = AttrLabelProxy
#endif
getEventTouchpadSwipeYRoot :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeYRoot s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadSwipeYRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 64) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeYRootFieldInfo
instance AttrInfo EventTouchpadSwipeYRootFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeYRootFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~)Double
type AttrTransferType EventTouchpadSwipeYRootFieldInfo = Double
type AttrGetType EventTouchpadSwipeYRootFieldInfo = Double
type AttrLabel EventTouchpadSwipeYRootFieldInfo = "y_root"
type AttrOrigin EventTouchpadSwipeYRootFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeYRoot
attrSet = setEventTouchpadSwipeYRoot
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_yRoot :: AttrLabelProxy "yRoot"
eventTouchpadSwipe_yRoot = AttrLabelProxy
#endif
getEventTouchpadSwipeState :: MonadIO m => EventTouchpadSwipe -> m [Gdk.Flags.ModifierType]
getEventTouchpadSwipeState s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 72) :: IO CUInt
let val' = wordToGFlags val
return val'
setEventTouchpadSwipeState :: MonadIO m => EventTouchpadSwipe -> [Gdk.Flags.ModifierType] -> m ()
setEventTouchpadSwipeState s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = gflagsToWord val
poke (ptr `plusPtr` 72) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadSwipeStateFieldInfo
instance AttrInfo EventTouchpadSwipeStateFieldInfo where
type AttrBaseTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) EventTouchpadSwipe
type AttrAllowedOps EventTouchpadSwipeStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) [Gdk.Flags.ModifierType]
type AttrTransferTypeConstraint EventTouchpadSwipeStateFieldInfo = (~)[Gdk.Flags.ModifierType]
type AttrTransferType EventTouchpadSwipeStateFieldInfo = [Gdk.Flags.ModifierType]
type AttrGetType EventTouchpadSwipeStateFieldInfo = [Gdk.Flags.ModifierType]
type AttrLabel EventTouchpadSwipeStateFieldInfo = "state"
type AttrOrigin EventTouchpadSwipeStateFieldInfo = EventTouchpadSwipe
attrGet = getEventTouchpadSwipeState
attrSet = setEventTouchpadSwipeState
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadSwipe_state :: AttrLabelProxy "state"
eventTouchpadSwipe_state = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventTouchpadSwipe
type instance O.AttributeList EventTouchpadSwipe = EventTouchpadSwipeAttributeList
type EventTouchpadSwipeAttributeList = ('[ '("type", EventTouchpadSwipeTypeFieldInfo), '("window", EventTouchpadSwipeWindowFieldInfo), '("sendEvent", EventTouchpadSwipeSendEventFieldInfo), '("phase", EventTouchpadSwipePhaseFieldInfo), '("nFingers", EventTouchpadSwipeNFingersFieldInfo), '("time", EventTouchpadSwipeTimeFieldInfo), '("x", EventTouchpadSwipeXFieldInfo), '("y", EventTouchpadSwipeYFieldInfo), '("dx", EventTouchpadSwipeDxFieldInfo), '("dy", EventTouchpadSwipeDyFieldInfo), '("xRoot", EventTouchpadSwipeXRootFieldInfo), '("yRoot", EventTouchpadSwipeYRootFieldInfo), '("state", EventTouchpadSwipeStateFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventTouchpadSwipeMethod (t :: Symbol) (o :: *) :: * where
ResolveEventTouchpadSwipeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, O.MethodInfo info EventTouchpadSwipe p) => OL.IsLabel t (EventTouchpadSwipe -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif