{-# 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 ,
noEventScroll ,
#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.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.Device as Gdk.Device
import {-# SOURCE #-} qualified GI.Gdk.Objects.Window as Gdk.Window
newtype EventScroll = EventScroll (ManagedPtr EventScroll)
deriving (Eq)
instance WrappedPtr EventScroll where
wrappedPtrCalloc = callocBytes 96
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 96 >=> wrapPtr EventScroll)
wrappedPtrFree = Just ptr_to_g_free
newZeroEventScroll :: MonadIO m => m EventScroll
newZeroEventScroll = liftIO $ wrappedPtrCalloc >>= wrapPtr EventScroll
instance tag ~ 'AttrSet => Constructible EventScroll tag where
new _ attrs = do
o <- newZeroEventScroll
GI.Attributes.set o attrs
return o
noEventScroll :: Maybe EventScroll
noEventScroll = Nothing
getEventScrollType :: MonadIO m => EventScroll -> m Gdk.Enums.EventType
getEventScrollType s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CInt
let val' = (toEnum . fromIntegral) val
return val'
setEventScrollType :: MonadIO m => EventScroll -> Gdk.Enums.EventType -> m ()
setEventScrollType s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (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
eventScroll_type :: AttrLabelProxy "type"
eventScroll_type = AttrLabelProxy
#endif
getEventScrollWindow :: MonadIO m => EventScroll -> m (Maybe Gdk.Window.Window)
getEventScrollWindow 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
setEventScrollWindow :: MonadIO m => EventScroll -> Ptr Gdk.Window.Window -> m ()
setEventScrollWindow s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Ptr Gdk.Window.Window)
clearEventScrollWindow :: MonadIO m => EventScroll -> m ()
clearEventScrollWindow s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (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
eventScroll_window :: AttrLabelProxy "window"
eventScroll_window = AttrLabelProxy
#endif
getEventScrollSendEvent :: MonadIO m => EventScroll -> m Int8
getEventScrollSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO Int8
return val
setEventScrollSendEvent :: MonadIO m => EventScroll -> Int8 -> m ()
setEventScrollSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (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
eventScroll_sendEvent :: AttrLabelProxy "sendEvent"
eventScroll_sendEvent = AttrLabelProxy
#endif
getEventScrollTime :: MonadIO m => EventScroll -> m Word32
getEventScrollTime s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO Word32
return val
setEventScrollTime :: MonadIO m => EventScroll -> Word32 -> m ()
setEventScrollTime s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (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
eventScroll_time :: AttrLabelProxy "time"
eventScroll_time = AttrLabelProxy
#endif
getEventScrollX :: MonadIO m => EventScroll -> m Double
getEventScrollX s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CDouble
let val' = realToFrac val
return val'
setEventScrollX :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollX s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 24) (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
eventScroll_x :: AttrLabelProxy "x"
eventScroll_x = AttrLabelProxy
#endif
getEventScrollY :: MonadIO m => EventScroll -> m Double
getEventScrollY s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CDouble
let val' = realToFrac val
return val'
setEventScrollY :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollY s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 32) (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
eventScroll_y :: AttrLabelProxy "y"
eventScroll_y = AttrLabelProxy
#endif
getEventScrollState :: MonadIO m => EventScroll -> m [Gdk.Flags.ModifierType]
getEventScrollState s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO CUInt
let val' = wordToGFlags val
return val'
setEventScrollState :: MonadIO m => EventScroll -> [Gdk.Flags.ModifierType] -> m ()
setEventScrollState s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = gflagsToWord val
poke (ptr `plusPtr` 40) (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
eventScroll_state :: AttrLabelProxy "state"
eventScroll_state = AttrLabelProxy
#endif
getEventScrollDirection :: MonadIO m => EventScroll -> m Gdk.Enums.ScrollDirection
getEventScrollDirection s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 44) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
setEventScrollDirection :: MonadIO m => EventScroll -> Gdk.Enums.ScrollDirection -> m ()
setEventScrollDirection s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 44) (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
eventScroll_direction :: AttrLabelProxy "direction"
eventScroll_direction = AttrLabelProxy
#endif
getEventScrollDevice :: MonadIO m => EventScroll -> m (Maybe Gdk.Device.Device)
getEventScrollDevice s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO (Ptr Gdk.Device.Device)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject Gdk.Device.Device) val'
return val''
return result
setEventScrollDevice :: MonadIO m => EventScroll -> Ptr Gdk.Device.Device -> m ()
setEventScrollDevice s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 48) (val :: Ptr Gdk.Device.Device)
clearEventScrollDevice :: MonadIO m => EventScroll -> m ()
clearEventScrollDevice s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 48) (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
eventScroll_device :: AttrLabelProxy "device"
eventScroll_device = AttrLabelProxy
#endif
getEventScrollXRoot :: MonadIO m => EventScroll -> m Double
getEventScrollXRoot s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO CDouble
let val' = realToFrac val
return val'
setEventScrollXRoot :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 56) (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
eventScroll_xRoot :: AttrLabelProxy "xRoot"
eventScroll_xRoot = AttrLabelProxy
#endif
getEventScrollYRoot :: MonadIO m => EventScroll -> m Double
getEventScrollYRoot s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO CDouble
let val' = realToFrac val
return val'
setEventScrollYRoot :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 64) (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
eventScroll_yRoot :: AttrLabelProxy "yRoot"
eventScroll_yRoot = AttrLabelProxy
#endif
getEventScrollDeltaX :: MonadIO m => EventScroll -> m Double
getEventScrollDeltaX s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 72) :: IO CDouble
let val' = realToFrac val
return val'
setEventScrollDeltaX :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollDeltaX s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 72) (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
eventScroll_deltaX :: AttrLabelProxy "deltaX"
eventScroll_deltaX = AttrLabelProxy
#endif
getEventScrollDeltaY :: MonadIO m => EventScroll -> m Double
getEventScrollDeltaY s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 80) :: IO CDouble
let val' = realToFrac val
return val'
setEventScrollDeltaY :: MonadIO m => EventScroll -> Double -> m ()
setEventScrollDeltaY s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 80) (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
eventScroll_deltaY :: AttrLabelProxy "deltaY"
eventScroll_deltaY = AttrLabelProxy
#endif
getEventScrollIsStop :: MonadIO m => EventScroll -> m Word32
getEventScrollIsStop s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 88) :: IO Word32
return val
setEventScrollIsStop :: MonadIO m => EventScroll -> Word32 -> m ()
setEventScrollIsStop s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 88) (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
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, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEventScrollMethod (t :: Symbol) (o :: *) :: * where
ResolveEventScrollMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEventScrollMethod t EventScroll, O.MethodInfo 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
#endif