{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gdk.Structs.EventScroll
(
EventScroll(..) ,
newZeroEventScroll ,
#if defined(ENABLE_OVERLOADING)
ResolveEventScrollMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
eventScroll_deltaX ,
#endif
getEventScrollDeltaX ,
setEventScrollDeltaX ,
#if defined(ENABLE_OVERLOADING)
eventScroll_deltaY ,
#endif
getEventScrollDeltaY ,
setEventScrollDeltaY ,
clearEventScrollDevice ,
#if defined(ENABLE_OVERLOADING)
eventScroll_device ,
#endif
getEventScrollDevice ,
setEventScrollDevice ,
#if defined(ENABLE_OVERLOADING)
eventScroll_direction ,
#endif
getEventScrollDirection ,
setEventScrollDirection ,
#if defined(ENABLE_OVERLOADING)
eventScroll_isStop ,
#endif
getEventScrollIsStop ,
setEventScrollIsStop ,
#if defined(ENABLE_OVERLOADING)
eventScroll_sendEvent ,
#endif
getEventScrollSendEvent ,
setEventScrollSendEvent ,
#if defined(ENABLE_OVERLOADING)
eventScroll_state ,
#endif
getEventScrollState ,
setEventScrollState ,
#if defined(ENABLE_OVERLOADING)
eventScroll_time ,
#endif
getEventScrollTime ,
setEventScrollTime ,
#if defined(ENABLE_OVERLOADING)
eventScroll_type ,
#endif
getEventScrollType ,
setEventScrollType ,
clearEventScrollWindow ,
#if defined(ENABLE_OVERLOADING)
eventScroll_window ,
#endif
getEventScrollWindow ,
setEventScrollWindow ,
#if defined(ENABLE_OVERLOADING)
eventScroll_x ,
#endif
getEventScrollX ,
setEventScrollX ,
#if defined(ENABLE_OVERLOADING)
eventScroll_xRoot ,
#endif
getEventScrollXRoot ,
setEventScrollXRoot ,
#if defined(ENABLE_OVERLOADING)
eventScroll_y ,
#endif
getEventScrollY ,
setEventScrollY ,
#if defined(ENABLE_OVERLOADING)
eventScroll_yRoot ,
#endif
getEventScrollYRoot ,
setEventScrollYRoot ,
) 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.Device as Gdk.Device
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventScroll = EventScroll (SP.ManagedPtr EventScroll)
deriving (EventScroll -> EventScroll -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EventScroll -> EventScroll -> Bool
$c/= :: EventScroll -> EventScroll -> Bool
== :: EventScroll -> EventScroll -> Bool
$c== :: EventScroll -> EventScroll -> Bool
Eq)
instance SP.ManagedPtrNewtype EventScroll where
toManagedPtr :: EventScroll -> ManagedPtr EventScroll
toManagedPtr (EventScroll ManagedPtr EventScroll
p) = ManagedPtr EventScroll
p
instance BoxedPtr EventScroll where
boxedPtrCopy :: EventScroll -> IO EventScroll
boxedPtrCopy = \EventScroll
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EventScroll
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
80 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 EventScroll -> EventScroll
EventScroll)
boxedPtrFree :: EventScroll -> IO ()
boxedPtrFree = \EventScroll
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr EventScroll
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr EventScroll where
boxedPtrCalloc :: IO (Ptr EventScroll)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
80
newZeroEventScroll :: MonadIO m => m EventScroll
newZeroEventScroll :: forall (m :: * -> *). MonadIO m => m EventScroll
newZeroEventScroll = 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 EventScroll -> EventScroll
EventScroll
instance tag ~ 'AttrSet => Constructible EventScroll tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr EventScroll -> EventScroll)
-> [AttrOp EventScroll tag] -> m EventScroll
new ManagedPtr EventScroll -> EventScroll
_ [AttrOp EventScroll tag]
attrs = do
EventScroll
o <- forall (m :: * -> *). MonadIO m => m EventScroll
newZeroEventScroll
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set EventScroll
o [AttrOp EventScroll tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return EventScroll
o
getEventScrollType :: MonadIO m => EventScroll -> m Gdk.Enums.EventType
getEventScrollType :: forall (m :: * -> *). MonadIO m => EventScroll -> m EventType
getEventScrollType EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
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'
setEventScrollType :: MonadIO m => EventScroll -> Gdk.Enums.EventType -> m ()
setEventScrollType :: forall (m :: * -> *). MonadIO m => EventScroll -> EventType -> m ()
setEventScrollType EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data EventScrollTypeFieldInfo
instance AttrInfo EventScrollTypeFieldInfo where
type AttrBaseTypeConstraint EventScrollTypeFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollTypeFieldInfo = (~) Gdk.Enums.EventType
type AttrTransferTypeConstraint EventScrollTypeFieldInfo = (~)Gdk.Enums.EventType
type AttrTransferType EventScrollTypeFieldInfo = Gdk.Enums.EventType
type AttrGetType EventScrollTypeFieldInfo = Gdk.Enums.EventType
type AttrLabel EventScrollTypeFieldInfo = "type"
type AttrOrigin EventScrollTypeFieldInfo = EventScroll
attrGet = getEventScrollType
attrSet = setEventScrollType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.type"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:type"
})
eventScroll_type :: AttrLabelProxy "type"
eventScroll_type = AttrLabelProxy
#endif
getEventScrollWindow :: MonadIO m => EventScroll -> m (Maybe Gdk.Window.Window)
getEventScrollWindow :: forall (m :: * -> *). MonadIO m => EventScroll -> m (Maybe Window)
getEventScrollWindow EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
Ptr Window
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
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
setEventScrollWindow :: MonadIO m => EventScroll -> Ptr Gdk.Window.Window -> m ()
setEventScrollWindow :: forall (m :: * -> *).
MonadIO m =>
EventScroll -> Ptr Window -> m ()
setEventScrollWindow EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr Window
val :: Ptr Gdk.Window.Window)
clearEventScrollWindow :: MonadIO m => EventScroll -> m ()
clearEventScrollWindow :: forall (m :: * -> *). MonadIO m => EventScroll -> m ()
clearEventScrollWindow EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
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 EventScrollWindowFieldInfo
instance AttrInfo EventScrollWindowFieldInfo where
type AttrBaseTypeConstraint EventScrollWindowFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventScrollWindowFieldInfo = (~) (Ptr Gdk.Window.Window)
type AttrTransferTypeConstraint EventScrollWindowFieldInfo = (~)(Ptr Gdk.Window.Window)
type AttrTransferType EventScrollWindowFieldInfo = (Ptr Gdk.Window.Window)
type AttrGetType EventScrollWindowFieldInfo = Maybe Gdk.Window.Window
type AttrLabel EventScrollWindowFieldInfo = "window"
type AttrOrigin EventScrollWindowFieldInfo = EventScroll
attrGet = getEventScrollWindow
attrSet = setEventScrollWindow
attrConstruct = undefined
attrClear = clearEventScrollWindow
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:window"
})
eventScroll_window :: AttrLabelProxy "window"
eventScroll_window = AttrLabelProxy
#endif
getEventScrollSendEvent :: MonadIO m => EventScroll -> m Int8
getEventScrollSendEvent :: forall (m :: * -> *). MonadIO m => EventScroll -> m Int8
getEventScrollSendEvent EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
Int8
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
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
setEventScrollSendEvent :: MonadIO m => EventScroll -> Int8 -> m ()
setEventScrollSendEvent :: forall (m :: * -> *). MonadIO m => EventScroll -> Int8 -> m ()
setEventScrollSendEvent EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Int8
val :: Int8)
#if defined(ENABLE_OVERLOADING)
data EventScrollSendEventFieldInfo
instance AttrInfo EventScrollSendEventFieldInfo where
type AttrBaseTypeConstraint EventScrollSendEventFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollSendEventFieldInfo = (~) Int8
type AttrTransferTypeConstraint EventScrollSendEventFieldInfo = (~)Int8
type AttrTransferType EventScrollSendEventFieldInfo = Int8
type AttrGetType EventScrollSendEventFieldInfo = Int8
type AttrLabel EventScrollSendEventFieldInfo = "send_event"
type AttrOrigin EventScrollSendEventFieldInfo = EventScroll
attrGet = getEventScrollSendEvent
attrSet = setEventScrollSendEvent
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.sendEvent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:sendEvent"
})
eventScroll_sendEvent :: AttrLabelProxy "sendEvent"
eventScroll_sendEvent = AttrLabelProxy
#endif
getEventScrollTime :: MonadIO m => EventScroll -> m Word32
getEventScrollTime :: forall (m :: * -> *). MonadIO m => EventScroll -> m Word32
getEventScrollTime EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
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
setEventScrollTime :: MonadIO m => EventScroll -> Word32 -> m ()
setEventScrollTime :: forall (m :: * -> *). MonadIO m => EventScroll -> Word32 -> m ()
setEventScrollTime EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventScrollTimeFieldInfo
instance AttrInfo EventScrollTimeFieldInfo where
type AttrBaseTypeConstraint EventScrollTimeFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollTimeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollTimeFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventScrollTimeFieldInfo = (~)Word32
type AttrTransferType EventScrollTimeFieldInfo = Word32
type AttrGetType EventScrollTimeFieldInfo = Word32
type AttrLabel EventScrollTimeFieldInfo = "time"
type AttrOrigin EventScrollTimeFieldInfo = EventScroll
attrGet = getEventScrollTime
attrSet = setEventScrollTime
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.time"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:time"
})
eventScroll_time :: AttrLabelProxy "time"
eventScroll_time = AttrLabelProxy
#endif
getEventScrollX :: MonadIO m => EventScroll -> m Double
getEventScrollX :: forall (m :: * -> *). MonadIO m => EventScroll -> m Double
getEventScrollX EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
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'
setEventScrollX :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollX :: forall (m :: * -> *). MonadIO m => EventScroll -> Double -> m ()
setEventScrollX EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventScrollXFieldInfo
instance AttrInfo EventScrollXFieldInfo where
type AttrBaseTypeConstraint EventScrollXFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollXFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollXFieldInfo = (~) Double
type AttrTransferTypeConstraint EventScrollXFieldInfo = (~)Double
type AttrTransferType EventScrollXFieldInfo = Double
type AttrGetType EventScrollXFieldInfo = Double
type AttrLabel EventScrollXFieldInfo = "x"
type AttrOrigin EventScrollXFieldInfo = EventScroll
attrGet = getEventScrollX
attrSet = setEventScrollX
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.x"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:x"
})
eventScroll_x :: AttrLabelProxy "x"
eventScroll_x = AttrLabelProxy
#endif
getEventScrollY :: MonadIO m => EventScroll -> m Double
getEventScrollY :: forall (m :: * -> *). MonadIO m => EventScroll -> m Double
getEventScrollY EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
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'
setEventScrollY :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollY :: forall (m :: * -> *). MonadIO m => EventScroll -> Double -> m ()
setEventScrollY EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventScrollYFieldInfo
instance AttrInfo EventScrollYFieldInfo where
type AttrBaseTypeConstraint EventScrollYFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollYFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollYFieldInfo = (~) Double
type AttrTransferTypeConstraint EventScrollYFieldInfo = (~)Double
type AttrTransferType EventScrollYFieldInfo = Double
type AttrGetType EventScrollYFieldInfo = Double
type AttrLabel EventScrollYFieldInfo = "y"
type AttrOrigin EventScrollYFieldInfo = EventScroll
attrGet = getEventScrollY
attrSet = setEventScrollY
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.y"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:y"
})
eventScroll_y :: AttrLabelProxy "y"
eventScroll_y = AttrLabelProxy
#endif
getEventScrollState :: MonadIO m => EventScroll -> m [Gdk.Flags.ModifierType]
getEventScrollState :: forall (m :: * -> *). MonadIO m => EventScroll -> m [ModifierType]
getEventScrollState EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CUInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: 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'
setEventScrollState :: MonadIO m => EventScroll -> [Gdk.Flags.ModifierType] -> m ()
setEventScrollState :: forall (m :: * -> *).
MonadIO m =>
EventScroll -> [ModifierType] -> m ()
setEventScrollState EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventScrollStateFieldInfo
instance AttrInfo EventScrollStateFieldInfo where
type AttrBaseTypeConstraint EventScrollStateFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollStateFieldInfo = (~) [Gdk.Flags.ModifierType]
type AttrTransferTypeConstraint EventScrollStateFieldInfo = (~)[Gdk.Flags.ModifierType]
type AttrTransferType EventScrollStateFieldInfo = [Gdk.Flags.ModifierType]
type AttrGetType EventScrollStateFieldInfo = [Gdk.Flags.ModifierType]
type AttrLabel EventScrollStateFieldInfo = "state"
type AttrOrigin EventScrollStateFieldInfo = EventScroll
attrGet = getEventScrollState
attrSet = setEventScrollState
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.state"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:state"
})
eventScroll_state :: AttrLabelProxy "state"
eventScroll_state = AttrLabelProxy
#endif
getEventScrollDirection :: MonadIO m => EventScroll -> m Gdk.Enums.ScrollDirection
getEventScrollDirection :: forall (m :: * -> *). MonadIO m => EventScroll -> m ScrollDirection
getEventScrollDirection EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CUInt
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) :: IO CUInt
let val' :: ScrollDirection
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) CUInt
val
forall (m :: * -> *) a. Monad m => a -> m a
return ScrollDirection
val'
setEventScrollDirection :: MonadIO m => EventScroll -> Gdk.Enums.ScrollDirection -> m ()
setEventScrollDirection :: forall (m :: * -> *).
MonadIO m =>
EventScroll -> ScrollDirection -> m ()
setEventScrollDirection EventScroll
s ScrollDirection
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
let val' :: CUInt
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) ScrollDirection
val
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data EventScrollDirectionFieldInfo
instance AttrInfo EventScrollDirectionFieldInfo where
type AttrBaseTypeConstraint EventScrollDirectionFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollDirectionFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollDirectionFieldInfo = (~) Gdk.Enums.ScrollDirection
type AttrTransferTypeConstraint EventScrollDirectionFieldInfo = (~)Gdk.Enums.ScrollDirection
type AttrTransferType EventScrollDirectionFieldInfo = Gdk.Enums.ScrollDirection
type AttrGetType EventScrollDirectionFieldInfo = Gdk.Enums.ScrollDirection
type AttrLabel EventScrollDirectionFieldInfo = "direction"
type AttrOrigin EventScrollDirectionFieldInfo = EventScroll
attrGet = getEventScrollDirection
attrSet = setEventScrollDirection
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.direction"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:direction"
})
eventScroll_direction :: AttrLabelProxy "direction"
eventScroll_direction = AttrLabelProxy
#endif
getEventScrollDevice :: MonadIO m => EventScroll -> m (Maybe Gdk.Device.Device)
getEventScrollDevice :: forall (m :: * -> *). MonadIO m => EventScroll -> m (Maybe Device)
getEventScrollDevice EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
Ptr Device
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO (Ptr Gdk.Device.Device)
Maybe Device
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Device
val forall a b. (a -> b) -> a -> b
$ \Ptr Device
val' -> do
Device
val'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Device -> Device
Gdk.Device.Device) Ptr Device
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Device
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Device
result
setEventScrollDevice :: MonadIO m => EventScroll -> Ptr Gdk.Device.Device -> m ()
setEventScrollDevice :: forall (m :: * -> *).
MonadIO m =>
EventScroll -> Ptr Device -> m ()
setEventScrollDevice EventScroll
s Ptr Device
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (Ptr Device
val :: Ptr Gdk.Device.Device)
clearEventScrollDevice :: MonadIO m => EventScroll -> m ()
clearEventScrollDevice :: forall (m :: * -> *). MonadIO m => EventScroll -> m ()
clearEventScrollDevice EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (forall a. Ptr a
FP.nullPtr :: Ptr Gdk.Device.Device)
#if defined(ENABLE_OVERLOADING)
data EventScrollDeviceFieldInfo
instance AttrInfo EventScrollDeviceFieldInfo where
type AttrBaseTypeConstraint EventScrollDeviceFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EventScrollDeviceFieldInfo = (~) (Ptr Gdk.Device.Device)
type AttrTransferTypeConstraint EventScrollDeviceFieldInfo = (~)(Ptr Gdk.Device.Device)
type AttrTransferType EventScrollDeviceFieldInfo = (Ptr Gdk.Device.Device)
type AttrGetType EventScrollDeviceFieldInfo = Maybe Gdk.Device.Device
type AttrLabel EventScrollDeviceFieldInfo = "device"
type AttrOrigin EventScrollDeviceFieldInfo = EventScroll
attrGet = getEventScrollDevice
attrSet = setEventScrollDevice
attrConstruct = undefined
attrClear = clearEventScrollDevice
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.device"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:device"
})
eventScroll_device :: AttrLabelProxy "device"
eventScroll_device = AttrLabelProxy
#endif
getEventScrollXRoot :: MonadIO m => EventScroll -> m Double
getEventScrollXRoot :: forall (m :: * -> *). MonadIO m => EventScroll -> m Double
getEventScrollXRoot EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44) :: 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'
setEventScrollXRoot :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollXRoot :: forall (m :: * -> *). MonadIO m => EventScroll -> Double -> m ()
setEventScrollXRoot EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventScrollXRootFieldInfo
instance AttrInfo EventScrollXRootFieldInfo where
type AttrBaseTypeConstraint EventScrollXRootFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollXRootFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollXRootFieldInfo = (~) Double
type AttrTransferTypeConstraint EventScrollXRootFieldInfo = (~)Double
type AttrTransferType EventScrollXRootFieldInfo = Double
type AttrGetType EventScrollXRootFieldInfo = Double
type AttrLabel EventScrollXRootFieldInfo = "x_root"
type AttrOrigin EventScrollXRootFieldInfo = EventScroll
attrGet = getEventScrollXRoot
attrSet = setEventScrollXRoot
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.xRoot"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:xRoot"
})
eventScroll_xRoot :: AttrLabelProxy "xRoot"
eventScroll_xRoot = AttrLabelProxy
#endif
getEventScrollYRoot :: MonadIO m => EventScroll -> m Double
getEventScrollYRoot :: forall (m :: * -> *). MonadIO m => EventScroll -> m Double
getEventScrollYRoot EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52) :: 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'
setEventScrollYRoot :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollYRoot :: forall (m :: * -> *). MonadIO m => EventScroll -> Double -> m ()
setEventScrollYRoot EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventScrollYRootFieldInfo
instance AttrInfo EventScrollYRootFieldInfo where
type AttrBaseTypeConstraint EventScrollYRootFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollYRootFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollYRootFieldInfo = (~) Double
type AttrTransferTypeConstraint EventScrollYRootFieldInfo = (~)Double
type AttrTransferType EventScrollYRootFieldInfo = Double
type AttrGetType EventScrollYRootFieldInfo = Double
type AttrLabel EventScrollYRootFieldInfo = "y_root"
type AttrOrigin EventScrollYRootFieldInfo = EventScroll
attrGet = getEventScrollYRoot
attrSet = setEventScrollYRoot
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.yRoot"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:yRoot"
})
eventScroll_yRoot :: AttrLabelProxy "yRoot"
eventScroll_yRoot = AttrLabelProxy
#endif
getEventScrollDeltaX :: MonadIO m => EventScroll -> m Double
getEventScrollDeltaX :: forall (m :: * -> *). MonadIO m => EventScroll -> m Double
getEventScrollDeltaX EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
60) :: 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'
setEventScrollDeltaX :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollDeltaX :: forall (m :: * -> *). MonadIO m => EventScroll -> Double -> m ()
setEventScrollDeltaX EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
60) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventScrollDeltaXFieldInfo
instance AttrInfo EventScrollDeltaXFieldInfo where
type AttrBaseTypeConstraint EventScrollDeltaXFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollDeltaXFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollDeltaXFieldInfo = (~) Double
type AttrTransferTypeConstraint EventScrollDeltaXFieldInfo = (~)Double
type AttrTransferType EventScrollDeltaXFieldInfo = Double
type AttrGetType EventScrollDeltaXFieldInfo = Double
type AttrLabel EventScrollDeltaXFieldInfo = "delta_x"
type AttrOrigin EventScrollDeltaXFieldInfo = EventScroll
attrGet = getEventScrollDeltaX
attrSet = setEventScrollDeltaX
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.deltaX"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:deltaX"
})
eventScroll_deltaX :: AttrLabelProxy "deltaX"
eventScroll_deltaX = AttrLabelProxy
#endif
getEventScrollDeltaY :: MonadIO m => EventScroll -> m Double
getEventScrollDeltaY :: forall (m :: * -> *). MonadIO m => EventScroll -> m Double
getEventScrollDeltaY EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
CDouble
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
68) :: 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'
setEventScrollDeltaY :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollDeltaY :: forall (m :: * -> *). MonadIO m => EventScroll -> Double -> m ()
setEventScrollDeltaY EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
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 EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
68) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data EventScrollDeltaYFieldInfo
instance AttrInfo EventScrollDeltaYFieldInfo where
type AttrBaseTypeConstraint EventScrollDeltaYFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollDeltaYFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollDeltaYFieldInfo = (~) Double
type AttrTransferTypeConstraint EventScrollDeltaYFieldInfo = (~)Double
type AttrTransferType EventScrollDeltaYFieldInfo = Double
type AttrGetType EventScrollDeltaYFieldInfo = Double
type AttrLabel EventScrollDeltaYFieldInfo = "delta_y"
type AttrOrigin EventScrollDeltaYFieldInfo = EventScroll
attrGet = getEventScrollDeltaY
attrSet = setEventScrollDeltaY
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.deltaY"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:deltaY"
})
eventScroll_deltaY :: AttrLabelProxy "deltaY"
eventScroll_deltaY = AttrLabelProxy
#endif
getEventScrollIsStop :: MonadIO m => EventScroll -> m Word32
getEventScrollIsStop :: forall (m :: * -> *). MonadIO m => EventScroll -> m Word32
getEventScrollIsStop EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
Word32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
76) :: IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setEventScrollIsStop :: MonadIO m => EventScroll -> Word32 -> m ()
setEventScrollIsStop :: forall (m :: * -> *). MonadIO m => EventScroll -> Word32 -> m ()
setEventScrollIsStop EventScroll
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 EventScroll
s forall a b. (a -> b) -> a -> b
$ \Ptr EventScroll
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr EventScroll
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
76) (Word32
val :: Word32)
#if defined(ENABLE_OVERLOADING)
data EventScrollIsStopFieldInfo
instance AttrInfo EventScrollIsStopFieldInfo where
type AttrBaseTypeConstraint EventScrollIsStopFieldInfo = (~) EventScroll
type AttrAllowedOps EventScrollIsStopFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint EventScrollIsStopFieldInfo = (~) Word32
type AttrTransferTypeConstraint EventScrollIsStopFieldInfo = (~)Word32
type AttrTransferType EventScrollIsStopFieldInfo = Word32
type AttrGetType EventScrollIsStopFieldInfo = Word32
type AttrLabel EventScrollIsStopFieldInfo = "is_stop"
type AttrOrigin EventScrollIsStopFieldInfo = EventScroll
attrGet = getEventScrollIsStop
attrSet = setEventScrollIsStop
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gdk.Structs.EventScroll.isStop"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdk-3.0.26/docs/GI-Gdk-Structs-EventScroll.html#g:attr:isStop"
})
eventScroll_isStop :: AttrLabelProxy "isStop"
eventScroll_isStop = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EventScroll
type instance O.AttributeList EventScroll = EventScrollAttributeList
type EventScrollAttributeList = ('[ '("type", EventScrollTypeFieldInfo), '("window", EventScrollWindowFieldInfo), '("sendEvent", EventScrollSendEventFieldInfo), '("time", EventScrollTimeFieldInfo), '("x", EventScrollXFieldInfo), '("y", EventScrollYFieldInfo), '("state", EventScrollStateFieldInfo), '("direction", EventScrollDirectionFieldInfo), '("device", EventScrollDeviceFieldInfo), '("xRoot", EventScrollXRootFieldInfo), '("yRoot", EventScrollYRootFieldInfo), '("deltaX", EventScrollDeltaXFieldInfo), '("deltaY", EventScrollDeltaYFieldInfo), '("isStop", EventScrollIsStopFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventScrollMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveEventScrollMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventScrollMethod t EventScroll, O.OverloadedMethod info EventScroll p) => OL.IsLabel t (EventScroll -> 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 ~ ResolveEventScrollMethod t EventScroll, O.OverloadedMethod info EventScroll p, R.HasField t EventScroll p) => R.HasField t EventScroll p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveEventScrollMethod t EventScroll, O.OverloadedMethodInfo info EventScroll) => OL.IsLabel t (O.MethodProxy info EventScroll) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif