{-# 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 ,
#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.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.Flags as Gdk.Flags
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventTouchpadSwipe = EventTouchpadSwipe (SP.ManagedPtr EventTouchpadSwipe)
deriving (EventTouchpadSwipe -> EventTouchpadSwipe -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventTouchpadSwipe -> EventTouchpadSwipe -> Bool
$c/= :: EventTouchpadSwipe -> EventTouchpadSwipe -> Bool
== :: EventTouchpadSwipe -> EventTouchpadSwipe -> Bool
$c== :: EventTouchpadSwipe -> EventTouchpadSwipe -> Bool
Eq)
instance SP.ManagedPtrNewtype EventTouchpadSwipe where
toManagedPtr :: EventTouchpadSwipe -> ManagedPtr EventTouchpadSwipe
toManagedPtr (EventTouchpadSwipe ManagedPtr EventTouchpadSwipe
p) = ManagedPtr EventTouchpadSwipe
p
instance BoxedPtr EventTouchpadSwipe where
boxedPtrCopy :: EventTouchpadSwipe -> IO EventTouchpadSwipe
boxedPtrCopy = \EventTouchpadSwipe
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EventTouchpadSwipe
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
68 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 EventTouchpadSwipe -> EventTouchpadSwipe
EventTouchpadSwipe)
boxedPtrFree :: EventTouchpadSwipe -> IO ()
boxedPtrFree = \EventTouchpadSwipe
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr EventTouchpadSwipe
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr EventTouchpadSwipe where
boxedPtrCalloc :: IO (Ptr EventTouchpadSwipe)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
68
newZeroEventTouchpadSwipe :: MonadIO m => m EventTouchpadSwipe
newZeroEventTouchpadSwipe :: forall (m :: * -> *). MonadIO m => m EventTouchpadSwipe
newZeroEventTouchpadSwipe = 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 EventTouchpadSwipe -> EventTouchpadSwipe
EventTouchpadSwipe
instance tag ~ 'AttrSet => Constructible EventTouchpadSwipe tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr EventTouchpadSwipe -> EventTouchpadSwipe)
-> [AttrOp EventTouchpadSwipe tag] -> m EventTouchpadSwipe
new ManagedPtr EventTouchpadSwipe -> EventTouchpadSwipe
_ [AttrOp EventTouchpadSwipe tag]
attrs = do
EventTouchpadSwipe
o <- forall (m :: * -> *). MonadIO m => m EventTouchpadSwipe
newZeroEventTouchpadSwipe
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set EventTouchpadSwipe
o [AttrOp EventTouchpadSwipe tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return EventTouchpadSwipe
o
getEventTouchpadSwipeType :: MonadIO m => EventTouchpadSwipe -> m Gdk.Enums.EventType
getEventTouchpadSwipeType :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> m EventType
getEventTouchpadSwipeType EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
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'
setEventTouchpadSwipeType :: MonadIO m => EventTouchpadSwipe -> Gdk.Enums.EventType -> m ()
setEventTouchpadSwipeType :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> EventType -> m ()
setEventTouchpadSwipeType EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
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 EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:type"
})
eventTouchpadSwipe_type :: AttrLabelProxy "type"
eventTouchpadSwipe_type = AttrLabelProxy
#endif
getEventTouchpadSwipeWindow :: MonadIO m => EventTouchpadSwipe -> m (Maybe Gdk.Window.Window)
getEventTouchpadSwipeWindow :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> m (Maybe Window)
getEventTouchpadSwipeWindow EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
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
setEventTouchpadSwipeWindow :: MonadIO m => EventTouchpadSwipe -> Ptr Gdk.Window.Window -> m ()
setEventTouchpadSwipeWindow :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Ptr Window -> m ()
setEventTouchpadSwipeWindow EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr Window
val :: Ptr Gdk.Window.Window)
clearEventTouchpadSwipeWindow :: MonadIO m => EventTouchpadSwipe -> m ()
clearEventTouchpadSwipeWindow :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m ()
clearEventTouchpadSwipeWindow EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventTouchpadSwipe
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 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:window"
})
eventTouchpadSwipe_window :: AttrLabelProxy "window"
eventTouchpadSwipe_window = AttrLabelProxy
#endif
getEventTouchpadSwipeSendEvent :: MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipeSendEvent :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipeSendEvent EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
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
setEventTouchpadSwipeSendEvent :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipeSendEvent :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipeSendEvent EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int8
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.sendEvent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:sendEvent"
})
eventTouchpadSwipe_sendEvent :: AttrLabelProxy "sendEvent"
eventTouchpadSwipe_sendEvent = AttrLabelProxy
#endif
getEventTouchpadSwipePhase :: MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipePhase :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipePhase EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
9) :: IO Int8
forall (m :: * -> *) a. Monad m => a -> m a
return Int8
val
setEventTouchpadSwipePhase :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipePhase :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipePhase EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
9) (Int8
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.phase"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:phase"
})
eventTouchpadSwipe_phase :: AttrLabelProxy "phase"
eventTouchpadSwipe_phase = AttrLabelProxy
#endif
getEventTouchpadSwipeNFingers :: MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipeNFingers :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Int8
getEventTouchpadSwipeNFingers EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
10) :: IO Int8
forall (m :: * -> *) a. Monad m => a -> m a
return Int8
val
setEventTouchpadSwipeNFingers :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipeNFingers :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Int8 -> m ()
setEventTouchpadSwipeNFingers EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
10) (Int8
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.nFingers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:nFingers"
})
eventTouchpadSwipe_nFingers :: AttrLabelProxy "nFingers"
eventTouchpadSwipe_nFingers = AttrLabelProxy
#endif
getEventTouchpadSwipeTime :: MonadIO m => EventTouchpadSwipe -> m Word32
getEventTouchpadSwipeTime :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Word32
getEventTouchpadSwipeTime EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
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
setEventTouchpadSwipeTime :: MonadIO m => EventTouchpadSwipe -> Word32 -> m ()
setEventTouchpadSwipeTime :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Word32 -> m ()
setEventTouchpadSwipeTime EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Word32
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.time"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:time"
})
eventTouchpadSwipe_time :: AttrLabelProxy "time"
eventTouchpadSwipe_time = AttrLabelProxy
#endif
getEventTouchpadSwipeX :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeX :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeX EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: 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'
setEventTouchpadSwipeX :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeX :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeX EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
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 EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CDouble
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.x"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:x"
})
eventTouchpadSwipe_x :: AttrLabelProxy "x"
eventTouchpadSwipe_x = AttrLabelProxy
#endif
getEventTouchpadSwipeY :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeY :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeY EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: 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'
setEventTouchpadSwipeY :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeY :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeY EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
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 EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CDouble
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.y"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:y"
})
eventTouchpadSwipe_y :: AttrLabelProxy "y"
eventTouchpadSwipe_y = AttrLabelProxy
#endif
getEventTouchpadSwipeDx :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeDx :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeDx EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: 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'
setEventTouchpadSwipeDx :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeDx :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeDx EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
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 EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (CDouble
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.dx"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:dx"
})
eventTouchpadSwipe_dx :: AttrLabelProxy "dx"
eventTouchpadSwipe_dx = AttrLabelProxy
#endif
getEventTouchpadSwipeDy :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeDy :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeDy EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: 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'
setEventTouchpadSwipeDy :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeDy :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeDy EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
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 EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (CDouble
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.dy"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:dy"
})
eventTouchpadSwipe_dy :: AttrLabelProxy "dy"
eventTouchpadSwipe_dy = AttrLabelProxy
#endif
getEventTouchpadSwipeXRoot :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeXRoot :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeXRoot EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: 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'
setEventTouchpadSwipeXRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeXRoot :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeXRoot EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
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 EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (CDouble
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.xRoot"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:xRoot"
})
eventTouchpadSwipe_xRoot :: AttrLabelProxy "xRoot"
eventTouchpadSwipe_xRoot = AttrLabelProxy
#endif
getEventTouchpadSwipeYRoot :: MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeYRoot :: forall (m :: * -> *). MonadIO m => EventTouchpadSwipe -> m Double
getEventTouchpadSwipeYRoot EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) :: 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'
setEventTouchpadSwipeYRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeYRoot :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> Double -> m ()
setEventTouchpadSwipeYRoot EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
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 EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) (CDouble
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.yRoot"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:yRoot"
})
eventTouchpadSwipe_yRoot :: AttrLabelProxy "yRoot"
eventTouchpadSwipe_yRoot = AttrLabelProxy
#endif
getEventTouchpadSwipeState :: MonadIO m => EventTouchpadSwipe -> m [Gdk.Flags.ModifierType]
getEventTouchpadSwipeState :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> m [ModifierType]
getEventTouchpadSwipeState EventTouchpadSwipe
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
CUInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64) :: IO CUInt
let val' :: [ModifierType]
val' = forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return [ModifierType]
val'
setEventTouchpadSwipeState :: MonadIO m => EventTouchpadSwipe -> [Gdk.Flags.ModifierType] -> m ()
setEventTouchpadSwipeState :: forall (m :: * -> *).
MonadIO m =>
EventTouchpadSwipe -> [ModifierType] -> m ()
setEventTouchpadSwipeState EventTouchpadSwipe
s [ModifierType]
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 EventTouchpadSwipe
s forall a b. (a -> b) -> a -> b
$ \Ptr EventTouchpadSwipe
ptr -> do
let val' :: CUInt
val' = forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventTouchpadSwipe
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
64) (CUInt
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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventTouchpadSwipe.state"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventTouchpadSwipe.html#g:attr:state"
})
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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventTouchpadSwipeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEventTouchpadSwipeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, O.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, O.OverloadedMethod info EventTouchpadSwipe p, R.HasField t EventTouchpadSwipe p) => R.HasField t EventTouchpadSwipe p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, O.OverloadedMethodInfo info EventTouchpadSwipe) => OL.IsLabel t (O.MethodProxy info EventTouchpadSwipe) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif