    {-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}

    -- | Copyright  : Will Thompson and Iñaki García Etxebarria
    -- License    : LGPL-2.1
    -- Maintainer : Iñaki García Etxebarria
    --
    -- Handles scroll events.
    --
    -- It is capable of handling both discrete and continuous scroll
    -- events from mice or touchpads, abstracting them both with the
    -- [EventControllerScroll::scroll]("GI.Gtk.Objects.EventControllerScroll#g:signal:scroll") signal. Deltas in
    -- the discrete case are multiples of 1.
    --
    -- In the case of continuous scroll events, @GtkEventControllerScroll@
    -- encloses all [EventControllerScroll::scroll]("GI.Gtk.Objects.EventControllerScroll#g:signal:scroll") emissions
    -- between two [EventControllerScroll::scrollBegin]("GI.Gtk.Objects.EventControllerScroll#g:signal:scrollBegin") and
    -- [EventControllerScroll::scrollEnd]("GI.Gtk.Objects.EventControllerScroll#g:signal:scrollEnd") signals.
    --
    -- The behavior of the event controller can be modified by the flags
    -- given at creation time, or modified at a later point through
    -- 'GI.Gtk.Objects.EventControllerScroll.eventControllerScrollSetFlags' (e.g. because the scrolling
    -- conditions of the widget changed).
    --
    -- The controller can be set up to emit motion for either\/both vertical
    -- and horizontal scroll events through 'GI.Gtk.Flags.EventControllerScrollFlagsVertical',
    -- 'GI.Gtk.Flags.EventControllerScrollFlagsHorizontal' and 'GI.Gtk.Flags.EventControllerScrollFlagsBothAxes'.
    -- If any axis is disabled, the respective [EventControllerScroll::scroll]("GI.Gtk.Objects.EventControllerScroll#g:signal:scroll")
    -- delta will be 0. Vertical scroll events will be translated to horizontal
    -- motion for the devices incapable of horizontal scrolling.
    --
    -- The event controller can also be forced to emit discrete events on all
    -- devices through 'GI.Gtk.Flags.EventControllerScrollFlagsDiscrete'. This can be used
    -- to implement discrete actions triggered through scroll events (e.g.
    -- switching across combobox options).
    --
    -- The 'GI.Gtk.Flags.EventControllerScrollFlagsKinetic' flag toggles the emission of the
    -- [EventControllerScroll::decelerate]("GI.Gtk.Objects.EventControllerScroll#g:signal:decelerate") signal, emitted at the end
    -- of scrolling with two X\/Y velocity arguments that are consistent with the
    -- motion that was received.

    #if !defined(__HADDOCK_VERSION__)
    #define ENABLE_OVERLOADING
    #endif

    module GI.Gtk.Objects.EventControllerScroll
        (

    -- * Exported types
        EventControllerScroll(..)               ,
        IsEventControllerScroll                 ,
        toEventControllerScroll                 ,

     -- * Methods
    -- |
    --
    --  === __Click to display all available methods, including inherited ones__
    -- ==== Methods
    -- [bindProperty]("GI.GObject.Objects.Object#g:method:bindProperty"), [bindPropertyFull]("GI.GObject.Objects.Object#g:method:bindPropertyFull"), [forceFloating]("GI.GObject.Objects.Object#g:method:forceFloating"), [freezeNotify]("GI.GObject.Objects.Object#g:method:freezeNotify"), [getv]("GI.GObject.Objects.Object#g:method:getv"), [isFloating]("GI.GObject.Objects.Object#g:method:isFloating"), [notify]("GI.GObject.Objects.Object#g:method:notify"), [notifyByPspec]("GI.GObject.Objects.Object#g:method:notifyByPspec"), [ref]("GI.GObject.Objects.Object#g:method:ref"), [refSink]("GI.GObject.Objects.Object#g:method:refSink"), [reset]("GI.Gtk.Objects.EventController#g:method:reset"), [runDispose]("GI.GObject.Objects.Object#g:method:runDispose"), [stealData]("GI.GObject.Objects.Object#g:method:stealData"), [stealQdata]("GI.GObject.Objects.Object#g:method:stealQdata"), [thawNotify]("GI.GObject.Objects.Object#g:method:thawNotify"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure").
    --
    -- ==== Getters
    -- [getCurrentEvent]("GI.Gtk.Objects.EventController#g:method:getCurrentEvent"), [getCurrentEventDevice]("GI.Gtk.Objects.EventController#g:method:getCurrentEventDevice"), [getCurrentEventState]("GI.Gtk.Objects.EventController#g:method:getCurrentEventState"), [getCurrentEventTime]("GI.Gtk.Objects.EventController#g:method:getCurrentEventTime"), [getData]("GI.GObject.Objects.Object#g:method:getData"), [getFlags]("GI.Gtk.Objects.EventControllerScroll#g:method:getFlags"), [getName]("GI.Gtk.Objects.EventController#g:method:getName"), [getPropagationLimit]("GI.Gtk.Objects.EventController#g:method:getPropagationLimit"), [getPropagationPhase]("GI.Gtk.Objects.EventController#g:method:getPropagationPhase"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata"), [getUnit]("GI.Gtk.Objects.EventControllerScroll#g:method:getUnit"), [getWidget]("GI.Gtk.Objects.EventController#g:method:getWidget").
    --
    -- ==== Setters
    -- [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setFlags]("GI.Gtk.Objects.EventControllerScroll#g:method:setFlags"), [setName]("GI.Gtk.Objects.EventController#g:method:setName"), [setPropagationLimit]("GI.Gtk.Objects.EventController#g:method:setPropagationLimit"), [setPropagationPhase]("GI.Gtk.Objects.EventController#g:method:setPropagationPhase"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty"), [setStaticName]("GI.Gtk.Objects.EventController#g:method:setStaticName").

    #if defined(ENABLE_OVERLOADING)
        ResolveEventControllerScrollMethod      ,
    #endif

    -- ** getFlags #method:getFlags#

    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollGetFlagsMethodInfo ,
    #endif
        eventControllerScrollGetFlags           ,

    -- ** getUnit #method:getUnit#

    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollGetUnitMethodInfo  ,
    #endif
        eventControllerScrollGetUnit            ,

    -- ** new #method:new#

        eventControllerScrollNew                ,

    -- ** setFlags #method:setFlags#

    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollSetFlagsMethodInfo ,
    #endif
        eventControllerScrollSetFlags           ,

     -- * Properties

    -- ** flags #attr:flags#
    -- | The flags affecting event controller behavior.

    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollFlagsPropertyInfo  ,
    #endif
        constructEventControllerScrollFlags     ,
    #if defined(ENABLE_OVERLOADING)
        eventControllerScrollFlags              ,
    #endif
        getEventControllerScrollFlags           ,
        setEventControllerScrollFlags           ,

     -- * Signals

    -- ** decelerate #signal:decelerate#

        EventControllerScrollDecelerateCallback ,
    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollDecelerateSignalInfo,
    #endif
        afterEventControllerScrollDecelerate    ,
        onEventControllerScrollDecelerate       ,

    -- ** scroll #signal:scroll#

        EventControllerScrollScrollCallback     ,
    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollScrollSignalInfo   ,
    #endif
        afterEventControllerScrollScroll        ,
        onEventControllerScrollScroll           ,

    -- ** scrollBegin #signal:scrollBegin#

        EventControllerScrollScrollBeginCallback,
    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollScrollBeginSignalInfo,
    #endif
        afterEventControllerScrollScrollBegin   ,
        onEventControllerScrollScrollBegin      ,

    -- ** scrollEnd #signal:scrollEnd#

        EventControllerScrollScrollEndCallback  ,
    #if defined(ENABLE_OVERLOADING)
        EventControllerScrollScrollEndSignalInfo,
    #endif
        afterEventControllerScrollScrollEnd     ,
        onEventControllerScrollScrollEnd        ,

        ) 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 qualified Data.Word as DW
    import qualified Data.Int as DI
    import qualified System.Posix.Types as SPT
    import qualified Foreign.C.Types as FCT

    -- Workaround for https://gitlab.haskell.org/ghc/ghc/-/issues/23392
    #if MIN_VERSION_base(4,18,0)
    import qualified GI.Cairo.Structs.Context as Cairo.Context
    import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
    import qualified GI.GLib.Callbacks as GLib.Callbacks
    import qualified GI.GLib.Structs.Bytes as GLib.Bytes
    import qualified GI.GObject.Objects.Object as GObject.Object
    import qualified GI.Gdk.Enums as Gdk.Enums
    import qualified GI.Gdk.Flags as Gdk.Flags
    import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
    import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
    import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
    import qualified GI.Gdk.Objects.Device as Gdk.Device
    import qualified GI.Gdk.Objects.Display as Gdk.Display
    import qualified GI.Gdk.Objects.Event as Gdk.Event
    import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
    import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
    import qualified GI.Gdk.Objects.Surface as Gdk.Surface
    import qualified GI.Gdk.Objects.Texture as Gdk.Texture
    import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
    import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
    import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
    import qualified GI.Gio.Interfaces.Icon as Gio.Icon
    import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
    import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
    import qualified GI.Graphene.Structs.Point as Graphene.Point
    import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
    import qualified GI.Graphene.Structs.Rect as Graphene.Rect
    import qualified GI.Graphene.Structs.Size as Graphene.Size
    import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
    import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
    import qualified GI.Gsk.Enums as Gsk.Enums
    import qualified GI.Gsk.Flags as Gsk.Flags
    import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
    import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
    import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
    import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
    import qualified GI.Gsk.Structs.ComponentTransfer as Gsk.ComponentTransfer
    import qualified GI.Gsk.Structs.Path as Gsk.Path
    import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
    import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
    import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
    import qualified GI.Gsk.Structs.Transform as Gsk.Transform
    import qualified GI.Gtk.Callbacks as Gtk.Callbacks
    import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
    import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
    import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
    import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
    import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
    import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
    import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
    import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
    import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
    import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
    import qualified GI.Pango.Enums as Pango.Enums
    import qualified GI.Pango.Objects.Context as Pango.Context
    import qualified GI.Pango.Objects.FontMap as Pango.FontMap
    import qualified GI.Pango.Objects.Layout as Pango.Layout

    #else
    import qualified GI.GObject.Objects.Object as GObject.Object
    import qualified GI.Gdk.Enums as Gdk.Enums
    import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
    import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController

    #endif

    -- | Memory-managed wrapper type.
    newtype EventControllerScroll = EventControllerScroll (SP.ManagedPtr EventControllerScroll)
        deriving (EventControllerScroll -> EventControllerScroll -> Bool
    (EventControllerScroll -> EventControllerScroll -> Bool)
    -> (EventControllerScroll -> EventControllerScroll -> Bool)
    -> Eq EventControllerScroll
    forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
    $c== :: EventControllerScroll -> EventControllerScroll -> Bool
    == :: EventControllerScroll -> EventControllerScroll -> Bool
    $c/= :: EventControllerScroll -> EventControllerScroll -> Bool
    /= :: EventControllerScroll -> EventControllerScroll -> Bool
    Eq)

    instance SP.ManagedPtrNewtype EventControllerScroll where
        toManagedPtr :: EventControllerScroll -> ManagedPtr EventControllerScroll
    toManagedPtr (EventControllerScroll ManagedPtr EventControllerScroll
    p) = ManagedPtr EventControllerScroll
    p

    foreign import ccall "gtk_event_controller_scroll_get_type"
        c_gtk_event_controller_scroll_get_type :: IO B.Types.GType

    instance B.Types.TypedObject EventControllerScroll where
        glibType :: IO GType
    glibType = IO GType
    c_gtk_event_controller_scroll_get_type

    instance B.Types.GObject EventControllerScroll

    -- | Type class for types which can be safely cast to t'EventControllerScroll', for instance with `toEventControllerScroll`.
    class (SP.GObject o, O.IsDescendantOf EventControllerScroll o) => IsEventControllerScroll o
    instance (SP.GObject o, O.IsDescendantOf EventControllerScroll o) => IsEventControllerScroll o

    instance O.HasParentTypes EventControllerScroll
    type instance O.ParentTypes EventControllerScroll = '[Gtk.EventController.EventController, GObject.Object.Object]

    -- | Cast to t'EventControllerScroll', for types for which this is known to be safe. For general casts, use 'Data.GI.Base.ManagedPtr.castTo'.
    toEventControllerScroll :: (MIO.MonadIO m, IsEventControllerScroll o) => o -> m EventControllerScroll
    toEventControllerScroll :: forall (m :: * -> *) o.
    (MonadIO m, IsEventControllerScroll o) =>
    o -> m EventControllerScroll
    toEventControllerScroll = IO EventControllerScroll -> m EventControllerScroll
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO EventControllerScroll -> m EventControllerScroll)
    -> (o -> IO EventControllerScroll) -> o -> m EventControllerScroll
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . (ManagedPtr EventControllerScroll -> EventControllerScroll)
    -> o -> IO EventControllerScroll
    forall o o'.
    (HasCallStack, ManagedPtrNewtype o, TypedObject o,
     ManagedPtrNewtype o', TypedObject o') =>
    (ManagedPtr o' -> o') -> o -> IO o'
    B.ManagedPtr.unsafeCastTo ManagedPtr EventControllerScroll -> EventControllerScroll
    EventControllerScroll

    -- | Convert t'EventControllerScroll' to and from t'Data.GI.Base.GValue.GValue'. See 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
    instance B.GValue.IsGValue (Maybe EventControllerScroll) where
        gvalueGType_ :: IO GType
    gvalueGType_ = IO GType
    c_gtk_event_controller_scroll_get_type
        gvalueSet_ :: Ptr GValue -> Maybe EventControllerScroll -> IO ()
    gvalueSet_ Ptr GValue
    gv Maybe EventControllerScroll
    P.Nothing = Ptr GValue -> Ptr EventControllerScroll -> IO ()
    forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
    B.GValue.set_object Ptr GValue
    gv (Ptr EventControllerScroll
    forall a. Ptr a
    FP.nullPtr :: FP.Ptr EventControllerScroll)
        gvalueSet_ Ptr GValue
    gv (P.Just EventControllerScroll
    obj) = EventControllerScroll
    -> (Ptr EventControllerScroll -> IO ()) -> IO ()
    forall a c.
    (HasCallStack, ManagedPtrNewtype a) =>
    a -> (Ptr a -> IO c) -> IO c
    B.ManagedPtr.withManagedPtr EventControllerScroll
    obj (Ptr GValue -> Ptr EventControllerScroll -> IO ()
    forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
    B.GValue.set_object Ptr GValue
    gv)
        gvalueGet_ :: Ptr GValue -> IO (Maybe EventControllerScroll)
    gvalueGet_ Ptr GValue
    gv = do
            ptr <- Ptr GValue -> IO (Ptr EventControllerScroll)
    forall a. GObject a => Ptr GValue -> IO (Ptr a)
    B.GValue.get_object Ptr GValue
    gv :: IO (FP.Ptr EventControllerScroll)
            if ptr /= FP.nullPtr
            then P.Just <$> B.ManagedPtr.newObject EventControllerScroll ptr
            else return P.Nothing

    #if defined(ENABLE_OVERLOADING)
    type family ResolveEventControllerScrollMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
        ResolveEventControllerScrollMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
        ResolveEventControllerScrollMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
        ResolveEventControllerScrollMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
        ResolveEventControllerScrollMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
        ResolveEventControllerScrollMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
        ResolveEventControllerScrollMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
        ResolveEventControllerScrollMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
        ResolveEventControllerScrollMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
        ResolveEventControllerScrollMethod "ref" o = GObject.Object.ObjectRefMethodInfo
        ResolveEventControllerScrollMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
        ResolveEventControllerScrollMethod "reset" o = Gtk.EventController.EventControllerResetMethodInfo
        ResolveEventControllerScrollMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
        ResolveEventControllerScrollMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
        ResolveEventControllerScrollMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
        ResolveEventControllerScrollMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
        ResolveEventControllerScrollMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
        ResolveEventControllerScrollMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
        ResolveEventControllerScrollMethod "getCurrentEvent" o = Gtk.EventController.EventControllerGetCurrentEventMethodInfo
        ResolveEventControllerScrollMethod "getCurrentEventDevice" o = Gtk.EventController.EventControllerGetCurrentEventDeviceMethodInfo
        ResolveEventControllerScrollMethod "getCurrentEventState" o = Gtk.EventController.EventControllerGetCurrentEventStateMethodInfo
        ResolveEventControllerScrollMethod "getCurrentEventTime" o = Gtk.EventController.EventControllerGetCurrentEventTimeMethodInfo
        ResolveEventControllerScrollMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
        ResolveEventControllerScrollMethod "getFlags" o = EventControllerScrollGetFlagsMethodInfo
        ResolveEventControllerScrollMethod "getName" o = Gtk.EventController.EventControllerGetNameMethodInfo
        ResolveEventControllerScrollMethod "getPropagationLimit" o = Gtk.EventController.EventControllerGetPropagationLimitMethodInfo
        ResolveEventControllerScrollMethod "getPropagationPhase" o = Gtk.EventController.EventControllerGetPropagationPhaseMethodInfo
        ResolveEventControllerScrollMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
        ResolveEventControllerScrollMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
        ResolveEventControllerScrollMethod "getUnit" o = EventControllerScrollGetUnitMethodInfo
        ResolveEventControllerScrollMethod "getWidget" o = Gtk.EventController.EventControllerGetWidgetMethodInfo
        ResolveEventControllerScrollMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
        ResolveEventControllerScrollMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
        ResolveEventControllerScrollMethod "setFlags" o = EventControllerScrollSetFlagsMethodInfo
        ResolveEventControllerScrollMethod "setName" o = Gtk.EventController.EventControllerSetNameMethodInfo
        ResolveEventControllerScrollMethod "setPropagationLimit" o = Gtk.EventController.EventControllerSetPropagationLimitMethodInfo
        ResolveEventControllerScrollMethod "setPropagationPhase" o = Gtk.EventController.EventControllerSetPropagationPhaseMethodInfo
        ResolveEventControllerScrollMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
        ResolveEventControllerScrollMethod "setStaticName" o = Gtk.EventController.EventControllerSetStaticNameMethodInfo
        ResolveEventControllerScrollMethod l o = O.MethodResolutionFailed l o

    instance (info ~ ResolveEventControllerScrollMethod t EventControllerScroll, O.OverloadedMethod info EventControllerScroll p) => OL.IsLabel t (EventControllerScroll -> 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 ~ ResolveEventControllerScrollMethod t EventControllerScroll, O.OverloadedMethod info EventControllerScroll p, R.HasField t EventControllerScroll p) => R.HasField t EventControllerScroll p where
        getField = O.overloadedMethod @info

    #endif

    instance (info ~ ResolveEventControllerScrollMethod t EventControllerScroll, O.OverloadedMethodInfo info EventControllerScroll) => OL.IsLabel t (O.MethodProxy info EventControllerScroll) where
    #if MIN_VERSION_base(4,10,0)
        fromLabel = O.MethodProxy
    #else
        fromLabel _ = O.MethodProxy
    #endif

    #endif

    -- signal EventControllerScroll::decelerate
    -- | Emitted after scroll is finished if the
    -- 'GI.Gtk.Flags.EventControllerScrollFlagsKinetic' flag is set.
    --
    -- /@velX@/ and /@velY@/ express the initial velocity that was
    -- imprinted by the scroll events. /@velX@/ and /@velY@/ are expressed in
    -- pixels\/ms.
    type EventControllerScrollDecelerateCallback =
        Double
        -- ^ /@velX@/: X velocity
        -> Double
        -- ^ /@velY@/: Y velocity
        -> IO ()

    type C_EventControllerScrollDecelerateCallback =
        Ptr EventControllerScroll ->            -- object
        CDouble ->
        CDouble ->
        Ptr () ->                               -- user_data
        IO ()

    -- | Generate a function pointer callable from C code, from a `C_EventControllerScrollDecelerateCallback`.
    foreign import ccall "wrapper"
        mk_EventControllerScrollDecelerateCallback :: C_EventControllerScrollDecelerateCallback -> IO (FunPtr C_EventControllerScrollDecelerateCallback)

    wrap_EventControllerScrollDecelerateCallback ::
        GObject a => (a -> EventControllerScrollDecelerateCallback) ->
        C_EventControllerScrollDecelerateCallback
    wrap_EventControllerScrollDecelerateCallback :: forall a.
    GObject a =>
    (a -> EventControllerScrollDecelerateCallback)
    -> C_EventControllerScrollDecelerateCallback
    wrap_EventControllerScrollDecelerateCallback a -> EventControllerScrollDecelerateCallback
    gi'cb Ptr EventControllerScroll
    gi'selfPtr CDouble
    velX CDouble
    velY Ptr ()
    _ = do
        let velX' :: Double
    velX' = CDouble -> Double
    forall a b. (Real a, Fractional b) => a -> b
    realToFrac CDouble
    velX
        let velY' :: Double
    velY' = CDouble -> Double
    forall a b. (Real a, Fractional b) => a -> b
    realToFrac CDouble
    velY
        Ptr EventControllerScroll
    -> (EventControllerScroll -> IO ()) -> IO ()
    forall o b.
    (HasCallStack, GObject o) =>
    Ptr o -> (o -> IO b) -> IO b
    B.ManagedPtr.withNewObject Ptr EventControllerScroll
    gi'selfPtr ((EventControllerScroll -> IO ()) -> IO ())
    -> (EventControllerScroll -> IO ()) -> IO ()
    forall a b. (a -> b) -> a -> b
    $ \EventControllerScroll
    gi'self -> a -> EventControllerScrollDecelerateCallback
    gi'cb (EventControllerScroll -> a
    forall a b. Coercible a b => a -> b
    Coerce.coerce EventControllerScroll
    gi'self)  Double
    velX' Double
    velY'

    -- | Connect a signal handler for the [decelerate](#signal:decelerate) signal, to be run before the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.on' eventControllerScroll #decelerate callback
    -- @
    --
    --
    onEventControllerScrollDecelerate :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollDecelerateCallback) -> m SignalHandlerId
    onEventControllerScrollDecelerate :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a
    -> ((?self::a) => EventControllerScrollDecelerateCallback)
    -> m SignalHandlerId
    onEventControllerScrollDecelerate a
    obj (?self::a) => EventControllerScrollDecelerateCallback
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> EventControllerScrollDecelerateCallback
    wrapped a
    self = let ?self = a
    ?self::a
    self in (?self::a) => EventControllerScrollDecelerateCallback
    EventControllerScrollDecelerateCallback
    cb
        let wrapped' :: C_EventControllerScrollDecelerateCallback
    wrapped' = (a -> EventControllerScrollDecelerateCallback)
    -> C_EventControllerScrollDecelerateCallback
    forall a.
    GObject a =>
    (a -> EventControllerScrollDecelerateCallback)
    -> C_EventControllerScrollDecelerateCallback
    wrap_EventControllerScrollDecelerateCallback a -> EventControllerScrollDecelerateCallback
    wrapped
        wrapped'' <- C_EventControllerScrollDecelerateCallback
    -> IO (FunPtr C_EventControllerScrollDecelerateCallback)
    mk_EventControllerScrollDecelerateCallback C_EventControllerScrollDecelerateCallback
    wrapped'
        connectSignalFunPtr obj "decelerate" wrapped'' SignalConnectBefore Nothing

    -- | Connect a signal handler for the [decelerate](#signal:decelerate) signal, to be run after the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.after' eventControllerScroll #decelerate callback
    -- @
    --
    --
    --
    -- By default the object invoking the signal is not passed to the callback.
    -- If you need to access it, you can use the implit @?self@ parameter.
    -- Note that this requires activating the @ImplicitParams@ GHC extension.
    --
    afterEventControllerScrollDecelerate :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollDecelerateCallback) -> m SignalHandlerId
    afterEventControllerScrollDecelerate :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a
    -> ((?self::a) => EventControllerScrollDecelerateCallback)
    -> m SignalHandlerId
    afterEventControllerScrollDecelerate a
    obj (?self::a) => EventControllerScrollDecelerateCallback
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> EventControllerScrollDecelerateCallback
    wrapped a
    self = let ?self = a
    ?self::a
    self in (?self::a) => EventControllerScrollDecelerateCallback
    EventControllerScrollDecelerateCallback
    cb
        let wrapped' :: C_EventControllerScrollDecelerateCallback
    wrapped' = (a -> EventControllerScrollDecelerateCallback)
    -> C_EventControllerScrollDecelerateCallback
    forall a.
    GObject a =>
    (a -> EventControllerScrollDecelerateCallback)
    -> C_EventControllerScrollDecelerateCallback
    wrap_EventControllerScrollDecelerateCallback a -> EventControllerScrollDecelerateCallback
    wrapped
        wrapped'' <- C_EventControllerScrollDecelerateCallback
    -> IO (FunPtr C_EventControllerScrollDecelerateCallback)
    mk_EventControllerScrollDecelerateCallback C_EventControllerScrollDecelerateCallback
    wrapped'
        connectSignalFunPtr obj "decelerate" wrapped'' SignalConnectAfter Nothing

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollDecelerateSignalInfo
    instance SignalInfo EventControllerScrollDecelerateSignalInfo where
        type HaskellCallbackType EventControllerScrollDecelerateSignalInfo = EventControllerScrollDecelerateCallback
        connectSignal obj cb connectMode detail = do
            let cb' = wrap_EventControllerScrollDecelerateCallback cb
            cb'' <- mk_EventControllerScrollDecelerateCallback cb'
            connectSignalFunPtr obj "decelerate" cb'' connectMode detail
        dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll::decelerate"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#g:signal:decelerate"})

    #endif

    -- signal EventControllerScroll::scroll
    -- | Signals that the widget should scroll by the
    -- amount specified by /@dx@/ and /@dy@/.
    --
    -- For the representation unit of the deltas, see
    -- 'GI.Gtk.Objects.EventControllerScroll.eventControllerScrollGetUnit'.
    type EventControllerScrollScrollCallback =
        Double
        -- ^ /@dx@/: X delta
        -> Double
        -- ^ /@dy@/: Y delta
        -> IO Bool
        -- ^ __Returns:__ 'P.True' if the scroll event was handled,
        --   'P.False' otherwise.

    type C_EventControllerScrollScrollCallback =
        Ptr EventControllerScroll ->            -- object
        CDouble ->
        CDouble ->
        Ptr () ->                               -- user_data
        IO CInt

    -- | Generate a function pointer callable from C code, from a `C_EventControllerScrollScrollCallback`.
    foreign import ccall "wrapper"
        mk_EventControllerScrollScrollCallback :: C_EventControllerScrollScrollCallback -> IO (FunPtr C_EventControllerScrollScrollCallback)

    wrap_EventControllerScrollScrollCallback ::
        GObject a => (a -> EventControllerScrollScrollCallback) ->
        C_EventControllerScrollScrollCallback
    wrap_EventControllerScrollScrollCallback :: forall a.
    GObject a =>
    (a -> EventControllerScrollScrollCallback)
    -> C_EventControllerScrollScrollCallback
    wrap_EventControllerScrollScrollCallback a -> EventControllerScrollScrollCallback
    gi'cb Ptr EventControllerScroll
    gi'selfPtr CDouble
    dx CDouble
    dy Ptr ()
    _ = do
        let dx' :: Double
    dx' = CDouble -> Double
    forall a b. (Real a, Fractional b) => a -> b
    realToFrac CDouble
    dx
        let dy' :: Double
    dy' = CDouble -> Double
    forall a b. (Real a, Fractional b) => a -> b
    realToFrac CDouble
    dy
        result <- Ptr EventControllerScroll
    -> (EventControllerScroll -> IO Bool) -> IO Bool
    forall o b.
    (HasCallStack, GObject o) =>
    Ptr o -> (o -> IO b) -> IO b
    B.ManagedPtr.withNewObject Ptr EventControllerScroll
    gi'selfPtr ((EventControllerScroll -> IO Bool) -> IO Bool)
    -> (EventControllerScroll -> IO Bool) -> IO Bool
    forall a b. (a -> b) -> a -> b
    $ \EventControllerScroll
    gi'self -> a -> EventControllerScrollScrollCallback
    gi'cb (EventControllerScroll -> a
    forall a b. Coercible a b => a -> b
    Coerce.coerce EventControllerScroll
    gi'self)  Double
    dx' Double
    dy'
        let result' = (Int -> CInt
    forall a b. (Integral a, Num b) => a -> b
    P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . Bool -> Int
    forall a. Enum a => a -> Int
    P.fromEnum) Bool
    result
        return result'

    -- | Connect a signal handler for the [scroll](#signal:scroll) signal, to be run before the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.on' eventControllerScroll #scroll callback
    -- @
    --
    --
    onEventControllerScrollScroll :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollScrollCallback) -> m SignalHandlerId
    onEventControllerScrollScroll :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a
    -> ((?self::a) => EventControllerScrollScrollCallback)
    -> m SignalHandlerId
    onEventControllerScrollScroll a
    obj (?self::a) => EventControllerScrollScrollCallback
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> EventControllerScrollScrollCallback
    wrapped a
    self = let ?self = a
    ?self::a
    self in (?self::a) => EventControllerScrollScrollCallback
    EventControllerScrollScrollCallback
    cb
        let wrapped' :: C_EventControllerScrollScrollCallback
    wrapped' = (a -> EventControllerScrollScrollCallback)
    -> C_EventControllerScrollScrollCallback
    forall a.
    GObject a =>
    (a -> EventControllerScrollScrollCallback)
    -> C_EventControllerScrollScrollCallback
    wrap_EventControllerScrollScrollCallback a -> EventControllerScrollScrollCallback
    wrapped
        wrapped'' <- C_EventControllerScrollScrollCallback
    -> IO (FunPtr C_EventControllerScrollScrollCallback)
    mk_EventControllerScrollScrollCallback C_EventControllerScrollScrollCallback
    wrapped'
        connectSignalFunPtr obj "scroll" wrapped'' SignalConnectBefore Nothing

    -- | Connect a signal handler for the [scroll](#signal:scroll) signal, to be run after the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.after' eventControllerScroll #scroll callback
    -- @
    --
    --
    --
    -- By default the object invoking the signal is not passed to the callback.
    -- If you need to access it, you can use the implit @?self@ parameter.
    -- Note that this requires activating the @ImplicitParams@ GHC extension.
    --
    afterEventControllerScrollScroll :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollScrollCallback) -> m SignalHandlerId
    afterEventControllerScrollScroll :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a
    -> ((?self::a) => EventControllerScrollScrollCallback)
    -> m SignalHandlerId
    afterEventControllerScrollScroll a
    obj (?self::a) => EventControllerScrollScrollCallback
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> EventControllerScrollScrollCallback
    wrapped a
    self = let ?self = a
    ?self::a
    self in (?self::a) => EventControllerScrollScrollCallback
    EventControllerScrollScrollCallback
    cb
        let wrapped' :: C_EventControllerScrollScrollCallback
    wrapped' = (a -> EventControllerScrollScrollCallback)
    -> C_EventControllerScrollScrollCallback
    forall a.
    GObject a =>
    (a -> EventControllerScrollScrollCallback)
    -> C_EventControllerScrollScrollCallback
    wrap_EventControllerScrollScrollCallback a -> EventControllerScrollScrollCallback
    wrapped
        wrapped'' <- C_EventControllerScrollScrollCallback
    -> IO (FunPtr C_EventControllerScrollScrollCallback)
    mk_EventControllerScrollScrollCallback C_EventControllerScrollScrollCallback
    wrapped'
        connectSignalFunPtr obj "scroll" wrapped'' SignalConnectAfter Nothing

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollScrollSignalInfo
    instance SignalInfo EventControllerScrollScrollSignalInfo where
        type HaskellCallbackType EventControllerScrollScrollSignalInfo = EventControllerScrollScrollCallback
        connectSignal obj cb connectMode detail = do
            let cb' = wrap_EventControllerScrollScrollCallback cb
            cb'' <- mk_EventControllerScrollScrollCallback cb'
            connectSignalFunPtr obj "scroll" cb'' connectMode detail
        dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll::scroll"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#g:signal:scroll"})

    #endif

    -- signal EventControllerScroll::scroll-begin
    -- | Signals that a new scrolling operation has begun.
    --
    -- It will only be emitted on devices capable of it.
    type EventControllerScrollScrollBeginCallback =
        IO ()

    type C_EventControllerScrollScrollBeginCallback =
        Ptr EventControllerScroll ->            -- object
        Ptr () ->                               -- user_data
        IO ()

    -- | Generate a function pointer callable from C code, from a `C_EventControllerScrollScrollBeginCallback`.
    foreign import ccall "wrapper"
        mk_EventControllerScrollScrollBeginCallback :: C_EventControllerScrollScrollBeginCallback -> IO (FunPtr C_EventControllerScrollScrollBeginCallback)

    wrap_EventControllerScrollScrollBeginCallback ::
        GObject a => (a -> EventControllerScrollScrollBeginCallback) ->
        C_EventControllerScrollScrollBeginCallback
    wrap_EventControllerScrollScrollBeginCallback :: forall a.
    GObject a =>
    (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    wrap_EventControllerScrollScrollBeginCallback a -> IO ()
    gi'cb Ptr EventControllerScroll
    gi'selfPtr Ptr ()
    _ = do
        Ptr EventControllerScroll
    -> (EventControllerScroll -> IO ()) -> IO ()
    forall o b.
    (HasCallStack, GObject o) =>
    Ptr o -> (o -> IO b) -> IO b
    B.ManagedPtr.withNewObject Ptr EventControllerScroll
    gi'selfPtr ((EventControllerScroll -> IO ()) -> IO ())
    -> (EventControllerScroll -> IO ()) -> IO ()
    forall a b. (a -> b) -> a -> b
    $ \EventControllerScroll
    gi'self -> a -> IO ()
    gi'cb (EventControllerScroll -> a
    forall a b. Coercible a b => a -> b
    Coerce.coerce EventControllerScroll
    gi'self)

    -- | Connect a signal handler for the [scrollBegin](#signal:scrollBegin) signal, to be run before the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.on' eventControllerScroll #scrollBegin callback
    -- @
    --
    --
    onEventControllerScrollScrollBegin :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollScrollBeginCallback) -> m SignalHandlerId
    onEventControllerScrollScrollBegin :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a -> ((?self::a) => IO ()) -> m SignalHandlerId
    onEventControllerScrollScrollBegin a
    obj (?self::a) => IO ()
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> IO ()
    wrapped a
    self = let ?self = a
    ?self::a
    self in IO ()
    (?self::a) => IO ()
    cb
        let wrapped' :: C_EventControllerScrollScrollBeginCallback
    wrapped' = (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    forall a.
    GObject a =>
    (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    wrap_EventControllerScrollScrollBeginCallback a -> IO ()
    wrapped
        wrapped'' <- C_EventControllerScrollScrollBeginCallback
    -> IO (FunPtr C_EventControllerScrollScrollBeginCallback)
    mk_EventControllerScrollScrollBeginCallback C_EventControllerScrollScrollBeginCallback
    wrapped'
        connectSignalFunPtr obj "scroll-begin" wrapped'' SignalConnectBefore Nothing

    -- | Connect a signal handler for the [scrollBegin](#signal:scrollBegin) signal, to be run after the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.after' eventControllerScroll #scrollBegin callback
    -- @
    --
    --
    --
    -- By default the object invoking the signal is not passed to the callback.
    -- If you need to access it, you can use the implit @?self@ parameter.
    -- Note that this requires activating the @ImplicitParams@ GHC extension.
    --
    afterEventControllerScrollScrollBegin :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollScrollBeginCallback) -> m SignalHandlerId
    afterEventControllerScrollScrollBegin :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a -> ((?self::a) => IO ()) -> m SignalHandlerId
    afterEventControllerScrollScrollBegin a
    obj (?self::a) => IO ()
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> IO ()
    wrapped a
    self = let ?self = a
    ?self::a
    self in IO ()
    (?self::a) => IO ()
    cb
        let wrapped' :: C_EventControllerScrollScrollBeginCallback
    wrapped' = (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    forall a.
    GObject a =>
    (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    wrap_EventControllerScrollScrollBeginCallback a -> IO ()
    wrapped
        wrapped'' <- C_EventControllerScrollScrollBeginCallback
    -> IO (FunPtr C_EventControllerScrollScrollBeginCallback)
    mk_EventControllerScrollScrollBeginCallback C_EventControllerScrollScrollBeginCallback
    wrapped'
        connectSignalFunPtr obj "scroll-begin" wrapped'' SignalConnectAfter Nothing

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollScrollBeginSignalInfo
    instance SignalInfo EventControllerScrollScrollBeginSignalInfo where
        type HaskellCallbackType EventControllerScrollScrollBeginSignalInfo = EventControllerScrollScrollBeginCallback
        connectSignal obj cb connectMode detail = do
            let cb' = wrap_EventControllerScrollScrollBeginCallback cb
            cb'' <- mk_EventControllerScrollScrollBeginCallback cb'
            connectSignalFunPtr obj "scroll-begin" cb'' connectMode detail
        dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll::scroll-begin"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#g:signal:scrollBegin"})

    #endif

    -- signal EventControllerScroll::scroll-end
    -- | Signals that a scrolling operation has finished.
    --
    -- It will only be emitted on devices capable of it.
    type EventControllerScrollScrollEndCallback =
        IO ()

    type C_EventControllerScrollScrollEndCallback =
        Ptr EventControllerScroll ->            -- object
        Ptr () ->                               -- user_data
        IO ()

    -- | Generate a function pointer callable from C code, from a `C_EventControllerScrollScrollEndCallback`.
    foreign import ccall "wrapper"
        mk_EventControllerScrollScrollEndCallback :: C_EventControllerScrollScrollEndCallback -> IO (FunPtr C_EventControllerScrollScrollEndCallback)

    wrap_EventControllerScrollScrollEndCallback ::
        GObject a => (a -> EventControllerScrollScrollEndCallback) ->
        C_EventControllerScrollScrollEndCallback
    wrap_EventControllerScrollScrollEndCallback :: forall a.
    GObject a =>
    (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    wrap_EventControllerScrollScrollEndCallback a -> IO ()
    gi'cb Ptr EventControllerScroll
    gi'selfPtr Ptr ()
    _ = do
        Ptr EventControllerScroll
    -> (EventControllerScroll -> IO ()) -> IO ()
    forall o b.
    (HasCallStack, GObject o) =>
    Ptr o -> (o -> IO b) -> IO b
    B.ManagedPtr.withNewObject Ptr EventControllerScroll
    gi'selfPtr ((EventControllerScroll -> IO ()) -> IO ())
    -> (EventControllerScroll -> IO ()) -> IO ()
    forall a b. (a -> b) -> a -> b
    $ \EventControllerScroll
    gi'self -> a -> IO ()
    gi'cb (EventControllerScroll -> a
    forall a b. Coercible a b => a -> b
    Coerce.coerce EventControllerScroll
    gi'self)

    -- | Connect a signal handler for the [scrollEnd](#signal:scrollEnd) signal, to be run before the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.on' eventControllerScroll #scrollEnd callback
    -- @
    --
    --
    onEventControllerScrollScrollEnd :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollScrollEndCallback) -> m SignalHandlerId
    onEventControllerScrollScrollEnd :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a -> ((?self::a) => IO ()) -> m SignalHandlerId
    onEventControllerScrollScrollEnd a
    obj (?self::a) => IO ()
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> IO ()
    wrapped a
    self = let ?self = a
    ?self::a
    self in IO ()
    (?self::a) => IO ()
    cb
        let wrapped' :: C_EventControllerScrollScrollBeginCallback
    wrapped' = (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    forall a.
    GObject a =>
    (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    wrap_EventControllerScrollScrollEndCallback a -> IO ()
    wrapped
        wrapped'' <- C_EventControllerScrollScrollBeginCallback
    -> IO (FunPtr C_EventControllerScrollScrollBeginCallback)
    mk_EventControllerScrollScrollEndCallback C_EventControllerScrollScrollBeginCallback
    wrapped'
        connectSignalFunPtr obj "scroll-end" wrapped'' SignalConnectBefore Nothing

    -- | Connect a signal handler for the [scrollEnd](#signal:scrollEnd) signal, to be run after the default handler.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Signals.after' eventControllerScroll #scrollEnd callback
    -- @
    --
    --
    --
    -- By default the object invoking the signal is not passed to the callback.
    -- If you need to access it, you can use the implit @?self@ parameter.
    -- Note that this requires activating the @ImplicitParams@ GHC extension.
    --
    afterEventControllerScrollScrollEnd :: (IsEventControllerScroll a, MonadIO m) => a -> ((?self :: a) => EventControllerScrollScrollEndCallback) -> m SignalHandlerId
    afterEventControllerScrollScrollEnd :: forall a (m :: * -> *).
    (IsEventControllerScroll a, MonadIO m) =>
    a -> ((?self::a) => IO ()) -> m SignalHandlerId
    afterEventControllerScrollScrollEnd a
    obj (?self::a) => IO ()
    cb = IO SignalHandlerId -> m SignalHandlerId
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO SignalHandlerId -> m SignalHandlerId)
    -> IO SignalHandlerId -> m SignalHandlerId
    forall a b. (a -> b) -> a -> b
    $ do
        let wrapped :: a -> IO ()
    wrapped a
    self = let ?self = a
    ?self::a
    self in IO ()
    (?self::a) => IO ()
    cb
        let wrapped' :: C_EventControllerScrollScrollBeginCallback
    wrapped' = (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    forall a.
    GObject a =>
    (a -> IO ()) -> C_EventControllerScrollScrollBeginCallback
    wrap_EventControllerScrollScrollEndCallback a -> IO ()
    wrapped
        wrapped'' <- C_EventControllerScrollScrollBeginCallback
    -> IO (FunPtr C_EventControllerScrollScrollBeginCallback)
    mk_EventControllerScrollScrollEndCallback C_EventControllerScrollScrollBeginCallback
    wrapped'
        connectSignalFunPtr obj "scroll-end" wrapped'' SignalConnectAfter Nothing

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollScrollEndSignalInfo
    instance SignalInfo EventControllerScrollScrollEndSignalInfo where
        type HaskellCallbackType EventControllerScrollScrollEndSignalInfo = EventControllerScrollScrollEndCallback
        connectSignal obj cb connectMode detail = do
            let cb' = wrap_EventControllerScrollScrollEndCallback cb
            cb'' <- mk_EventControllerScrollScrollEndCallback cb'
            connectSignalFunPtr obj "scroll-end" cb'' connectMode detail
        dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll::scroll-end"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#g:signal:scrollEnd"})

    #endif

    -- VVV Prop "flags"
       -- Type: TInterface (Name {namespace = "Gtk", name = "EventControllerScrollFlags"})
       -- Flags: [PropertyReadable,PropertyWritable]
       -- Nullable: (Just False,Just False)

    -- | Get the value of the “@flags@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.get' eventControllerScroll #flags
    -- @
    getEventControllerScrollFlags :: (MonadIO m, IsEventControllerScroll o) => o -> m [Gtk.Flags.EventControllerScrollFlags]
    getEventControllerScrollFlags :: forall (m :: * -> *) o.
    (MonadIO m, IsEventControllerScroll o) =>
    o -> m [EventControllerScrollFlags]
    getEventControllerScrollFlags o
    obj = IO [EventControllerScrollFlags] -> m [EventControllerScrollFlags]
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO [EventControllerScrollFlags] -> m [EventControllerScrollFlags])
    -> IO [EventControllerScrollFlags]
    -> m [EventControllerScrollFlags]
    forall a b. (a -> b) -> a -> b
    $ o -> String -> IO [EventControllerScrollFlags]
    forall a b.
    (GObject a, IsGFlag b, BoxedFlags b) =>
    a -> String -> IO [b]
    B.Properties.getObjectPropertyFlags o
    obj String
    "flags"

    -- | Set the value of the “@flags@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.set' eventControllerScroll [ #flags 'Data.GI.Base.Attributes.:=' value ]
    -- @
    setEventControllerScrollFlags :: (MonadIO m, IsEventControllerScroll o) => o -> [Gtk.Flags.EventControllerScrollFlags] -> m ()
    setEventControllerScrollFlags :: forall (m :: * -> *) o.
    (MonadIO m, IsEventControllerScroll o) =>
    o -> [EventControllerScrollFlags] -> m ()
    setEventControllerScrollFlags o
    obj [EventControllerScrollFlags]
    val = IO () -> m ()
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO () -> m ()) -> IO () -> m ()
    forall a b. (a -> b) -> a -> b
    $ do
        o -> String -> [EventControllerScrollFlags] -> IO ()
    forall a b.
    (IsGFlag b, BoxedFlags b, GObject a) =>
    a -> String -> [b] -> IO ()
    B.Properties.setObjectPropertyFlags o
    obj String
    "flags" [EventControllerScrollFlags]
    val

    -- | Construct a t'GValueConstruct' with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
    constructEventControllerScrollFlags :: (IsEventControllerScroll o, MIO.MonadIO m) => [Gtk.Flags.EventControllerScrollFlags] -> m (GValueConstruct o)
    constructEventControllerScrollFlags :: forall o (m :: * -> *).
    (IsEventControllerScroll o, MonadIO m) =>
    [EventControllerScrollFlags] -> m (GValueConstruct o)
    constructEventControllerScrollFlags [EventControllerScrollFlags]
    val = IO (GValueConstruct o) -> m (GValueConstruct o)
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
    -> IO (GValueConstruct o) -> m (GValueConstruct o)
    forall a b. (a -> b) -> a -> b
    $ do
        IO (GValueConstruct o) -> IO (GValueConstruct o)
    forall a. IO a -> IO a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
    -> IO (GValueConstruct o) -> IO (GValueConstruct o)
    forall a b. (a -> b) -> a -> b
    $ String -> [EventControllerScrollFlags] -> IO (GValueConstruct o)
    forall a o.
    (IsGFlag a, BoxedFlags a) =>
    String -> [a] -> IO (GValueConstruct o)
    B.Properties.constructObjectPropertyFlags String
    "flags" [EventControllerScrollFlags]
    val

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollFlagsPropertyInfo
    instance AttrInfo EventControllerScrollFlagsPropertyInfo where
        type AttrAllowedOps EventControllerScrollFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
        type AttrBaseTypeConstraint EventControllerScrollFlagsPropertyInfo = IsEventControllerScroll
        type AttrSetTypeConstraint EventControllerScrollFlagsPropertyInfo = (~) [Gtk.Flags.EventControllerScrollFlags]
        type AttrTransferTypeConstraint EventControllerScrollFlagsPropertyInfo = (~) [Gtk.Flags.EventControllerScrollFlags]
        type AttrTransferType EventControllerScrollFlagsPropertyInfo = [Gtk.Flags.EventControllerScrollFlags]
        type AttrGetType EventControllerScrollFlagsPropertyInfo = [Gtk.Flags.EventControllerScrollFlags]
        type AttrLabel EventControllerScrollFlagsPropertyInfo = "flags"
        type AttrOrigin EventControllerScrollFlagsPropertyInfo = EventControllerScroll
        attrGet = getEventControllerScrollFlags
        attrSet = setEventControllerScrollFlags
        attrPut = setEventControllerScrollFlags
        attrTransfer _ v = do
            return v
        attrConstruct = constructEventControllerScrollFlags
        attrClear = undefined
        dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll.flags"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#g:attr:flags"
            })
    #endif

    #if defined(ENABLE_OVERLOADING)
    instance O.HasAttributeList EventControllerScroll
    type instance O.AttributeList EventControllerScroll = EventControllerScrollAttributeList
    type EventControllerScrollAttributeList = ('[ '("flags", EventControllerScrollFlagsPropertyInfo), '("name", Gtk.EventController.EventControllerNamePropertyInfo), '("propagationLimit", Gtk.EventController.EventControllerPropagationLimitPropertyInfo), '("propagationPhase", Gtk.EventController.EventControllerPropagationPhasePropertyInfo), '("widget", Gtk.EventController.EventControllerWidgetPropertyInfo)] :: [(Symbol, DK.Type)])
    #endif

    #if defined(ENABLE_OVERLOADING)
    eventControllerScrollFlags :: AttrLabelProxy "flags"
    eventControllerScrollFlags = AttrLabelProxy

    #endif

    #if defined(ENABLE_OVERLOADING)
    type instance O.SignalList EventControllerScroll = EventControllerScrollSignalList
    type EventControllerScrollSignalList = ('[ '("decelerate", EventControllerScrollDecelerateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("scroll", EventControllerScrollScrollSignalInfo), '("scrollBegin", EventControllerScrollScrollBeginSignalInfo), '("scrollEnd", EventControllerScrollScrollEndSignalInfo)] :: [(Symbol, DK.Type)])

    #endif

    -- method EventControllerScroll::new
    -- method type : Constructor
    -- Args: [ Arg
    --           { argCName = "flags"
    --           , argType =
    --               TInterface
    --                 Name { namespace = "Gtk" , name = "EventControllerScrollFlags" }
    --           , argCType = Just "GtkEventControllerScrollFlags"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "flags affecting the controller behavior"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just
    --               (TInterface
    --                  Name { namespace = "Gtk" , name = "EventControllerScroll" })
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_event_controller_scroll_new" gtk_event_controller_scroll_new ::
        CUInt ->                                -- flags : TInterface (Name {namespace = "Gtk", name = "EventControllerScrollFlags"})
        IO (Ptr EventControllerScroll)

    -- | Creates a new event controller that will handle scroll events.
    eventControllerScrollNew ::
        (B.CallStack.HasCallStack, MonadIO m) =>
        [Gtk.Flags.EventControllerScrollFlags]
        -- ^ /@flags@/: flags affecting the controller behavior
        -> m EventControllerScroll
        -- ^ __Returns:__ a new @GtkEventControllerScroll@
    eventControllerScrollNew :: forall (m :: * -> *).
    (HasCallStack, MonadIO m) =>
    [EventControllerScrollFlags] -> m EventControllerScroll
    eventControllerScrollNew [EventControllerScrollFlags]
    flags = IO EventControllerScroll -> m EventControllerScroll
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO EventControllerScroll -> m EventControllerScroll)
    -> IO EventControllerScroll -> m EventControllerScroll
    forall a b. (a -> b) -> a -> b
    $ do
        let flags' :: CUInt
    flags' = [EventControllerScrollFlags] -> CUInt
    forall b a. (Num b, IsGFlag a) => [a] -> b
    gflagsToWord [EventControllerScrollFlags]
    flags
        result <- CUInt -> IO (Ptr EventControllerScroll)
    gtk_event_controller_scroll_new CUInt
    flags'
        checkUnexpectedReturnNULL "eventControllerScrollNew" result
        result' <- (wrapObject EventControllerScroll) result
        return result'

    #if defined(ENABLE_OVERLOADING)
    #endif

    -- method EventControllerScroll::get_flags
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "scroll"
    --           , argType =
    --               TInterface
    --                 Name { namespace = "Gtk" , name = "EventControllerScroll" }
    --           , argCType = Just "GtkEventControllerScroll*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkEventControllerScroll`"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just
    --               (TInterface
    --                  Name { namespace = "Gtk" , name = "EventControllerScrollFlags" })
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_event_controller_scroll_get_flags" gtk_event_controller_scroll_get_flags ::
        Ptr EventControllerScroll ->            -- scroll : TInterface (Name {namespace = "Gtk", name = "EventControllerScroll"})
        IO CUInt

    -- | Gets the flags conditioning the scroll controller behavior.
    eventControllerScrollGetFlags ::
        (B.CallStack.HasCallStack, MonadIO m, IsEventControllerScroll a) =>
        a
        -- ^ /@scroll@/: a @GtkEventControllerScroll@
        -> m [Gtk.Flags.EventControllerScrollFlags]
        -- ^ __Returns:__ the controller flags.
    eventControllerScrollGetFlags :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsEventControllerScroll a) =>
    a -> m [EventControllerScrollFlags]
    eventControllerScrollGetFlags a
    scroll = IO [EventControllerScrollFlags] -> m [EventControllerScrollFlags]
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO [EventControllerScrollFlags] -> m [EventControllerScrollFlags])
    -> IO [EventControllerScrollFlags]
    -> m [EventControllerScrollFlags]
    forall a b. (a -> b) -> a -> b
    $ do
        scroll' <- a -> IO (Ptr EventControllerScroll)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    scroll
        result <- gtk_event_controller_scroll_get_flags scroll'
        let result' = CUInt -> [EventControllerScrollFlags]
    forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
    wordToGFlags CUInt
    result
        touchManagedPtr scroll
        return result'

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollGetFlagsMethodInfo
    instance (signature ~ (m [Gtk.Flags.EventControllerScrollFlags]), MonadIO m, IsEventControllerScroll a) => O.OverloadedMethod EventControllerScrollGetFlagsMethodInfo a signature where
        overloadedMethod = eventControllerScrollGetFlags

    instance O.OverloadedMethodInfo EventControllerScrollGetFlagsMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll.eventControllerScrollGetFlags",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#v:eventControllerScrollGetFlags"
            })

    #endif

    -- method EventControllerScroll::get_unit
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "scroll"
    --           , argType =
    --               TInterface
    --                 Name { namespace = "Gtk" , name = "EventControllerScroll" }
    --           , argCType = Just "GtkEventControllerScroll*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkEventControllerScroll`."
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TInterface Name { namespace = "Gdk" , name = "ScrollUnit" })
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_event_controller_scroll_get_unit" gtk_event_controller_scroll_get_unit ::
        Ptr EventControllerScroll ->            -- scroll : TInterface (Name {namespace = "Gtk", name = "EventControllerScroll"})
        IO CUInt

    -- | Gets the scroll unit of the last
    -- [EventControllerScroll::scroll]("GI.Gtk.Objects.EventControllerScroll#g:signal:scroll") signal received.
    --
    -- Always returns 'GI.Gdk.Enums.ScrollUnitWheel' if the
    -- 'GI.Gtk.Flags.EventControllerScrollFlagsDiscrete' flag is set.
    --
    -- /Since: 4.8/
    eventControllerScrollGetUnit ::
        (B.CallStack.HasCallStack, MonadIO m, IsEventControllerScroll a) =>
        a
        -- ^ /@scroll@/: a @GtkEventControllerScroll@.
        -> m Gdk.Enums.ScrollUnit
        -- ^ __Returns:__ the scroll unit.
    eventControllerScrollGetUnit :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsEventControllerScroll a) =>
    a -> m ScrollUnit
    eventControllerScrollGetUnit a
    scroll = IO ScrollUnit -> m ScrollUnit
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO ScrollUnit -> m ScrollUnit) -> IO ScrollUnit -> m ScrollUnit
    forall a b. (a -> b) -> a -> b
    $ do
        scroll' <- a -> IO (Ptr EventControllerScroll)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    scroll
        result <- gtk_event_controller_scroll_get_unit scroll'
        let result' = (Int -> ScrollUnit
    forall a. Enum a => Int -> a
    toEnum (Int -> ScrollUnit) -> (CUInt -> Int) -> CUInt -> ScrollUnit
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . CUInt -> Int
    forall a b. (Integral a, Num b) => a -> b
    fromIntegral) CUInt
    result
        touchManagedPtr scroll
        return result'

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollGetUnitMethodInfo
    instance (signature ~ (m Gdk.Enums.ScrollUnit), MonadIO m, IsEventControllerScroll a) => O.OverloadedMethod EventControllerScrollGetUnitMethodInfo a signature where
        overloadedMethod = eventControllerScrollGetUnit

    instance O.OverloadedMethodInfo EventControllerScrollGetUnitMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll.eventControllerScrollGetUnit",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#v:eventControllerScrollGetUnit"
            })

    #endif

    -- method EventControllerScroll::set_flags
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "scroll"
    --           , argType =
    --               TInterface
    --                 Name { namespace = "Gtk" , name = "EventControllerScroll" }
    --           , argCType = Just "GtkEventControllerScroll*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkEventControllerScroll`"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "flags"
    --           , argType =
    --               TInterface
    --                 Name { namespace = "Gtk" , name = "EventControllerScrollFlags" }
    --           , argCType = Just "GtkEventControllerScrollFlags"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "flags affecting the controller behavior"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Nothing
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_event_controller_scroll_set_flags" gtk_event_controller_scroll_set_flags ::
        Ptr EventControllerScroll ->            -- scroll : TInterface (Name {namespace = "Gtk", name = "EventControllerScroll"})
        CUInt ->                                -- flags : TInterface (Name {namespace = "Gtk", name = "EventControllerScrollFlags"})
        IO ()

    -- | Sets the flags conditioning scroll controller behavior.
    eventControllerScrollSetFlags ::
        (B.CallStack.HasCallStack, MonadIO m, IsEventControllerScroll a) =>
        a
        -- ^ /@scroll@/: a @GtkEventControllerScroll@
        -> [Gtk.Flags.EventControllerScrollFlags]
        -- ^ /@flags@/: flags affecting the controller behavior
        -> m ()
    eventControllerScrollSetFlags :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsEventControllerScroll a) =>
    a -> [EventControllerScrollFlags] -> m ()
    eventControllerScrollSetFlags a
    scroll [EventControllerScrollFlags]
    flags = IO () -> m ()
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO () -> m ()) -> IO () -> m ()
    forall a b. (a -> b) -> a -> b
    $ do
        scroll' <- a -> IO (Ptr EventControllerScroll)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    scroll
        let flags' = [EventControllerScrollFlags] -> CUInt
    forall b a. (Num b, IsGFlag a) => [a] -> b
    gflagsToWord [EventControllerScrollFlags]
    flags
        gtk_event_controller_scroll_set_flags scroll' flags'
        touchManagedPtr scroll
        return ()

    #if defined(ENABLE_OVERLOADING)
    data EventControllerScrollSetFlagsMethodInfo
    instance (signature ~ ([Gtk.Flags.EventControllerScrollFlags] -> m ()), MonadIO m, IsEventControllerScroll a) => O.OverloadedMethod EventControllerScrollSetFlagsMethodInfo a signature where
        overloadedMethod = eventControllerScrollSetFlags

    instance O.OverloadedMethodInfo EventControllerScrollSetFlagsMethodInfo a where
        overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.EventControllerScroll.eventControllerScrollSetFlags",
            O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-EventControllerScroll.html#v:eventControllerScrollSetFlags"
            })

    #endif