{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventTouchpadPinch
(
EventTouchpadPinch(..) ,
newZeroEventTouchpadPinch ,
noEventTouchpadPinch ,
#if defined(ENABLE_OVERLOADING)
ResolveEventTouchpadPinchMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_angleDelta ,
#endif
getEventTouchpadPinchAngleDelta ,
setEventTouchpadPinchAngleDelta ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_dx ,
#endif
getEventTouchpadPinchDx ,
setEventTouchpadPinchDx ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_dy ,
#endif
getEventTouchpadPinchDy ,
setEventTouchpadPinchDy ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_nFingers ,
#endif
getEventTouchpadPinchNFingers ,
setEventTouchpadPinchNFingers ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_phase ,
#endif
getEventTouchpadPinchPhase ,
setEventTouchpadPinchPhase ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_scale ,
#endif
getEventTouchpadPinchScale ,
setEventTouchpadPinchScale ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_sendEvent ,
#endif
getEventTouchpadPinchSendEvent ,
setEventTouchpadPinchSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_state ,
#endif
getEventTouchpadPinchState ,
setEventTouchpadPinchState ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_time ,
#endif
getEventTouchpadPinchTime ,
setEventTouchpadPinchTime ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_type ,
#endif
getEventTouchpadPinchType ,
setEventTouchpadPinchType ,
clearEventTouchpadPinchWindow ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_window ,
#endif
getEventTouchpadPinchWindow ,
setEventTouchpadPinchWindow ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_x ,
#endif
getEventTouchpadPinchX ,
setEventTouchpadPinchX ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_xRoot ,
#endif
getEventTouchpadPinchXRoot ,
setEventTouchpadPinchXRoot ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_y ,
#endif
getEventTouchpadPinchY ,
setEventTouchpadPinchY ,
#if defined(ENABLE_OVERLOADING)
eventTouchpadPinch_yRoot ,
#endif
getEventTouchpadPinchYRoot ,
setEventTouchpadPinchYRoot ,
) 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 EventTouchpadPinch = EventTouchpadPinch (ManagedPtr EventTouchpadPinch)
deriving (Eq)
instance WrappedPtr EventTouchpadPinch where
wrappedPtrCalloc = callocBytes 96
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 96 >=> wrapPtr EventTouchpadPinch)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventTouchpadPinch :: MonadIO m => m EventTouchpadPinch
newZeroEventTouchpadPinch = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouchpadPinch
instance tag ~ 'AttrSet => Constructible EventTouchpadPinch tag where
new _ attrs = do
o <- newZeroEventTouchpadPinch
GI.Attributes.set o attrs
return o
noEventTouchpadPinch :: Maybe EventTouchpadPinch
noEventTouchpadPinch = Nothing
getEventTouchpadPinchType :: MonadIO m => EventTouchpadPinch -> m Gdk.Enums.EventType
getEventTouchpadPinchType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CInt
let val' = (toEnum . fromIntegral) val
return val'
setEventTouchpadPinchType :: MonadIO m => EventTouchpadPinch -> Gdk.Enums.EventType -> m ()
setEventTouchpadPinchType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchTypeFieldInfo
instance AttrInfo EventTouchpadPinchTypeFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchTypeFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventTouchpadPinchTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventTouchpadPinchTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventTouchpadPinchTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventTouchpadPinchTypeFieldInfo = "type"
type AttrOrigin EventTouchpadPinchTypeFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchType
attrSet = setEventTouchpadPinchType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_type :: AttrLabelProxy "type"
eventTouchpadPinch_type = AttrLabelProxy
#endif
getEventTouchpadPinchWindow :: MonadIO m => EventTouchpadPinch -> m (Maybe Gdk.Window.Window)
getEventTouchpadPinchWindow 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
setEventTouchpadPinchWindow :: MonadIO m => EventTouchpadPinch -> Ptr Gdk.Window.Window -> m ()
setEventTouchpadPinchWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventTouchpadPinchWindow :: MonadIO m => EventTouchpadPinch -> m ()
clearEventTouchpadPinchWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: Ptr Gdk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchWindowFieldInfo
instance AttrInfo EventTouchpadPinchWindowFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchWindowFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventTouchpadPinchWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventTouchpadPinchWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventTouchpadPinchWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventTouchpadPinchWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventTouchpadPinchWindowFieldInfo = "window"
type AttrOrigin EventTouchpadPinchWindowFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchWindow
attrSet = setEventTouchpadPinchWindow
attrConstruct = undefined
attrClear = clearEventTouchpadPinchWindow
attrTransfer _ v = do
return v
eventTouchpadPinch_window :: AttrLabelProxy "window"
eventTouchpadPinch_window = AttrLabelProxy
#endif
getEventTouchpadPinchSendEvent :: MonadIO m => EventTouchpadPinch -> m Int8
getEventTouchpadPinchSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventTouchpadPinchSendEvent :: MonadIO m => EventTouchpadPinch -> Int8 -> m ()
setEventTouchpadPinchSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchSendEventFieldInfo
instance AttrInfo EventTouchpadPinchSendEventFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchSendEventFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchSendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventTouchpadPinchSendEventFieldInfo = (~)Int8
type AttrTransferType EventTouchpadPinchSendEventFieldInfo = Int8
type AttrGetType EventTouchpadPinchSendEventFieldInfo = Int8
type AttrLabel EventTouchpadPinchSendEventFieldInfo = "send_event"
type AttrOrigin EventTouchpadPinchSendEventFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchSendEvent
attrSet = setEventTouchpadPinchSendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_sendEvent :: AttrLabelProxy "sendEvent"
eventTouchpadPinch_sendEvent = AttrLabelProxy
#endif
getEventTouchpadPinchPhase :: MonadIO m => EventTouchpadPinch -> m Int8
getEventTouchpadPinchPhase s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 17) :: IO Int8
return val
setEventTouchpadPinchPhase :: MonadIO m => EventTouchpadPinch -> Int8 -> m ()
setEventTouchpadPinchPhase s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 17) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchPhaseFieldInfo
instance AttrInfo EventTouchpadPinchPhaseFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchPhaseFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchPhaseFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchPhaseFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventTouchpadPinchPhaseFieldInfo = (~)Int8
type AttrTransferType EventTouchpadPinchPhaseFieldInfo = Int8
type AttrGetType EventTouchpadPinchPhaseFieldInfo = Int8
type AttrLabel EventTouchpadPinchPhaseFieldInfo = "phase"
type AttrOrigin EventTouchpadPinchPhaseFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchPhase
attrSet = setEventTouchpadPinchPhase
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_phase :: AttrLabelProxy "phase"
eventTouchpadPinch_phase = AttrLabelProxy
#endif
getEventTouchpadPinchNFingers :: MonadIO m => EventTouchpadPinch -> m Int8
getEventTouchpadPinchNFingers s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 18) :: IO Int8
return val
setEventTouchpadPinchNFingers :: MonadIO m => EventTouchpadPinch -> Int8 -> m ()
setEventTouchpadPinchNFingers s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 18) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchNFingersFieldInfo
instance AttrInfo EventTouchpadPinchNFingersFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchNFingersFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchNFingersFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchNFingersFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventTouchpadPinchNFingersFieldInfo = (~)Int8
type AttrTransferType EventTouchpadPinchNFingersFieldInfo = Int8
type AttrGetType EventTouchpadPinchNFingersFieldInfo = Int8
type AttrLabel EventTouchpadPinchNFingersFieldInfo = "n_fingers"
type AttrOrigin EventTouchpadPinchNFingersFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchNFingers
attrSet = setEventTouchpadPinchNFingers
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_nFingers :: AttrLabelProxy "nFingers"
eventTouchpadPinch_nFingers = AttrLabelProxy
#endif
getEventTouchpadPinchTime :: MonadIO m => EventTouchpadPinch -> m Word32
getEventTouchpadPinchTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
setEventTouchpadPinchTime :: MonadIO m => EventTouchpadPinch -> Word32 -> m ()
setEventTouchpadPinchTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchTimeFieldInfo
instance AttrInfo EventTouchpadPinchTimeFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchTimeFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventTouchpadPinchTimeFieldInfo = (~)Word32
type AttrTransferType EventTouchpadPinchTimeFieldInfo = Word32
type AttrGetType EventTouchpadPinchTimeFieldInfo = Word32
type AttrLabel EventTouchpadPinchTimeFieldInfo = "time"
type AttrOrigin EventTouchpadPinchTimeFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchTime
attrSet = setEventTouchpadPinchTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_time :: AttrLabelProxy "time"
eventTouchpadPinch_time = AttrLabelProxy
#endif
getEventTouchpadPinchX :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchX s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchX :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchX s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 24) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchXFieldInfo
instance AttrInfo EventTouchpadPinchXFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchXFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchXFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchXFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchXFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchXFieldInfo = Double
type AttrGetType EventTouchpadPinchXFieldInfo = Double
type AttrLabel EventTouchpadPinchXFieldInfo = "x"
type AttrOrigin EventTouchpadPinchXFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchX
attrSet = setEventTouchpadPinchX
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_x :: AttrLabelProxy "x"
eventTouchpadPinch_x = AttrLabelProxy
#endif
getEventTouchpadPinchY :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchY s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchY :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchY s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 32) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchYFieldInfo
instance AttrInfo EventTouchpadPinchYFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchYFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchYFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchYFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchYFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchYFieldInfo = Double
type AttrGetType EventTouchpadPinchYFieldInfo = Double
type AttrLabel EventTouchpadPinchYFieldInfo = "y"
type AttrOrigin EventTouchpadPinchYFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchY
attrSet = setEventTouchpadPinchY
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_y :: AttrLabelProxy "y"
eventTouchpadPinch_y = AttrLabelProxy
#endif
getEventTouchpadPinchDx :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchDx s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchDx :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchDx s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 40) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchDxFieldInfo
instance AttrInfo EventTouchpadPinchDxFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchDxFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchDxFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchDxFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchDxFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchDxFieldInfo = Double
type AttrGetType EventTouchpadPinchDxFieldInfo = Double
type AttrLabel EventTouchpadPinchDxFieldInfo = "dx"
type AttrOrigin EventTouchpadPinchDxFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchDx
attrSet = setEventTouchpadPinchDx
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_dx :: AttrLabelProxy "dx"
eventTouchpadPinch_dx = AttrLabelProxy
#endif
getEventTouchpadPinchDy :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchDy s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchDy :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchDy s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 48) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchDyFieldInfo
instance AttrInfo EventTouchpadPinchDyFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchDyFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchDyFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchDyFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchDyFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchDyFieldInfo = Double
type AttrGetType EventTouchpadPinchDyFieldInfo = Double
type AttrLabel EventTouchpadPinchDyFieldInfo = "dy"
type AttrOrigin EventTouchpadPinchDyFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchDy
attrSet = setEventTouchpadPinchDy
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_dy :: AttrLabelProxy "dy"
eventTouchpadPinch_dy = AttrLabelProxy
#endif
getEventTouchpadPinchAngleDelta :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchAngleDelta s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchAngleDelta :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchAngleDelta s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 56) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchAngleDeltaFieldInfo
instance AttrInfo EventTouchpadPinchAngleDeltaFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchAngleDeltaFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchAngleDeltaFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchAngleDeltaFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchAngleDeltaFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchAngleDeltaFieldInfo = Double
type AttrGetType EventTouchpadPinchAngleDeltaFieldInfo = Double
type AttrLabel EventTouchpadPinchAngleDeltaFieldInfo = "angle_delta"
type AttrOrigin EventTouchpadPinchAngleDeltaFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchAngleDelta
attrSet = setEventTouchpadPinchAngleDelta
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_angleDelta :: AttrLabelProxy "angleDelta"
eventTouchpadPinch_angleDelta = AttrLabelProxy
#endif
getEventTouchpadPinchScale :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchScale s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchScale :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchScale s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 64) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchScaleFieldInfo
instance AttrInfo EventTouchpadPinchScaleFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchScaleFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchScaleFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchScaleFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchScaleFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchScaleFieldInfo = Double
type AttrGetType EventTouchpadPinchScaleFieldInfo = Double
type AttrLabel EventTouchpadPinchScaleFieldInfo = "scale"
type AttrOrigin EventTouchpadPinchScaleFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchScale
attrSet = setEventTouchpadPinchScale
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_scale :: AttrLabelProxy "scale"
eventTouchpadPinch_scale = AttrLabelProxy
#endif
getEventTouchpadPinchXRoot :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchXRoot s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 72) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchXRoot :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 72) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchXRootFieldInfo
instance AttrInfo EventTouchpadPinchXRootFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchXRootFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchXRootFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchXRootFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchXRootFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchXRootFieldInfo = Double
type AttrGetType EventTouchpadPinchXRootFieldInfo = Double
type AttrLabel EventTouchpadPinchXRootFieldInfo = "x_root"
type AttrOrigin EventTouchpadPinchXRootFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchXRoot
attrSet = setEventTouchpadPinchXRoot
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_xRoot :: AttrLabelProxy "xRoot"
eventTouchpadPinch_xRoot = AttrLabelProxy
#endif
getEventTouchpadPinchYRoot :: MonadIO m => EventTouchpadPinch -> m Double
getEventTouchpadPinchYRoot s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 80) :: IO CDouble
let val' = realToFrac val
return val'
setEventTouchpadPinchYRoot :: MonadIO m => EventTouchpadPinch -> Double -> m ()
setEventTouchpadPinchYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 80) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchYRootFieldInfo
instance AttrInfo EventTouchpadPinchYRootFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchYRootFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchYRootFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchYRootFieldInfo = (~) Double
type AttrTransferTypeConstraint EventTouchpadPinchYRootFieldInfo = (~)Double
type AttrTransferType EventTouchpadPinchYRootFieldInfo = Double
type AttrGetType EventTouchpadPinchYRootFieldInfo = Double
type AttrLabel EventTouchpadPinchYRootFieldInfo = "y_root"
type AttrOrigin EventTouchpadPinchYRootFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchYRoot
attrSet = setEventTouchpadPinchYRoot
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_yRoot :: AttrLabelProxy "yRoot"
eventTouchpadPinch_yRoot = AttrLabelProxy
#endif
getEventTouchpadPinchState :: MonadIO m => EventTouchpadPinch -> m [Gdk.Flags.ModifierType]
getEventTouchpadPinchState s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 88) :: IO CUInt
let val' = wordToGFlags val
return val'
setEventTouchpadPinchState :: MonadIO m => EventTouchpadPinch -> [Gdk.Flags.ModifierType] -> m ()
setEventTouchpadPinchState s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = gflagsToWord val
poke (ptr `plusPtr` 88) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventTouchpadPinchStateFieldInfo
instance AttrInfo EventTouchpadPinchStateFieldInfo where
type AttrBaseTypeConstraint EventTouchpadPinchStateFieldInfo = (~) EventTouchpadPinch
type AttrAllowedOps EventTouchpadPinchStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventTouchpadPinchStateFieldInfo = (~) [Gdk.Flags.ModifierType]
type AttrTransferTypeConstraint EventTouchpadPinchStateFieldInfo = (~)[Gdk.Flags.ModifierType]
type AttrTransferType EventTouchpadPinchStateFieldInfo = [Gdk.Flags.ModifierType]
type AttrGetType EventTouchpadPinchStateFieldInfo = [Gdk.Flags.ModifierType]
type AttrLabel EventTouchpadPinchStateFieldInfo = "state"
type AttrOrigin EventTouchpadPinchStateFieldInfo = EventTouchpadPinch
attrGet = getEventTouchpadPinchState
attrSet = setEventTouchpadPinchState
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
eventTouchpadPinch_state :: AttrLabelProxy "state"
eventTouchpadPinch_state = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventTouchpadPinch
type instance O.AttributeList EventTouchpadPinch = EventTouchpadPinchAttributeList
type EventTouchpadPinchAttributeList = ('[ '("type", EventTouchpadPinchTypeFieldInfo), '("window", EventTouchpadPinchWindowFieldInfo), '("sendEvent", EventTouchpadPinchSendEventFieldInfo), '("phase", EventTouchpadPinchPhaseFieldInfo), '("nFingers", EventTouchpadPinchNFingersFieldInfo), '("time", EventTouchpadPinchTimeFieldInfo), '("x", EventTouchpadPinchXFieldInfo), '("y", EventTouchpadPinchYFieldInfo), '("dx", EventTouchpadPinchDxFieldInfo), '("dy", EventTouchpadPinchDyFieldInfo), '("angleDelta", EventTouchpadPinchAngleDeltaFieldInfo), '("scale", EventTouchpadPinchScaleFieldInfo), '("xRoot", EventTouchpadPinchXRootFieldInfo), '("yRoot", EventTouchpadPinchYRootFieldInfo), '("state", EventTouchpadPinchStateFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventTouchpadPinchMethod (t :: Symbol) (o :: *) :: * where
ResolveEventTouchpadPinchMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventTouchpadPinchMethod t EventTouchpadPinch, O.MethodInfo info EventTouchpadPinch p) => OL.IsLabel t (EventTouchpadPinch -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif