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

    -- | Copyright  : Will Thompson and Iñaki García Etxebarria
    -- License    : LGPL-2.1
    -- Maintainer : Iñaki García Etxebarria
    --
    -- A style provider for CSS.
    --
    -- It is able to parse CSS-like input in order to style widgets.
    --
    -- An application can make GTK parse a specific CSS style sheet by calling
    -- 'GI.Gtk.Objects.CssProvider.cssProviderLoadFromFile' or
    -- 'GI.Gtk.Objects.CssProvider.cssProviderLoadFromResource'
    -- and adding the provider with 'GI.Gtk.Objects.StyleContext.styleContextAddProvider' or
    -- 'GI.Gtk.Objects.StyleContext.styleContextAddProviderForDisplay'.
    --
    -- In addition, certain files will be read when GTK is initialized.
    -- First, the file @$XDG_CONFIG_HOME\/gtk-4.0\/gtk.css@ is loaded if it
    -- exists. Then, GTK loads the first existing file among
    -- @XDG_DATA_HOME\/themes\/THEME\/gtk-VERSION\/gtk-VARIANT.css@,
    -- @$HOME\/.themes\/THEME\/gtk-VERSION\/gtk-VARIANT.css@,
    -- @$XDG_DATA_DIRS\/themes\/THEME\/gtk-VERSION\/gtk-VARIANT.css@ and
    -- @DATADIR\/share\/themes\/THEME\/gtk-VERSION\/gtk-VARIANT.css@,
    -- where @THEME@ is the name of the current theme (see the
    -- [Settings:gtkThemeName]("GI.Gtk.Objects.Settings#g:attr:gtkThemeName") setting), @VARIANT@ is the
    -- variant to load (see the
    -- [Settings:gtkApplicationPreferDarkTheme]("GI.Gtk.Objects.Settings#g:attr:gtkApplicationPreferDarkTheme") setting),
    -- @DATADIR@ is the prefix configured when GTK was compiled (unless
    -- overridden by the @GTK_DATA_PREFIX@ environment variable), and
    -- @VERSION@ is the GTK version number. If no file is found for the
    -- current version, GTK tries older versions all the way back to 4.0.
    --
    -- To track errors while loading CSS, connect to the
    -- [CssProvider::parsingError]("GI.Gtk.Objects.CssProvider#g:signal:parsingError") signal.

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

    module GI.Gtk.Objects.CssProvider
        (

    -- * Exported types
        CssProvider(..)                         ,
        IsCssProvider                           ,
        toCssProvider                           ,

     -- * 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"), [loadFromBytes]("GI.Gtk.Objects.CssProvider#g:method:loadFromBytes"), [loadFromData]("GI.Gtk.Objects.CssProvider#g:method:loadFromData"), [loadFromFile]("GI.Gtk.Objects.CssProvider#g:method:loadFromFile"), [loadFromPath]("GI.Gtk.Objects.CssProvider#g:method:loadFromPath"), [loadFromResource]("GI.Gtk.Objects.CssProvider#g:method:loadFromResource"), [loadFromString]("GI.Gtk.Objects.CssProvider#g:method:loadFromString"), [loadNamed]("GI.Gtk.Objects.CssProvider#g:method:loadNamed"), [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"), [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"), [toString]("GI.Gtk.Objects.CssProvider#g:method:toString"), [unref]("GI.GObject.Objects.Object#g:method:unref"), [watchClosure]("GI.GObject.Objects.Object#g:method:watchClosure").
    --
    -- ==== Getters
    -- [getData]("GI.GObject.Objects.Object#g:method:getData"), [getProperty]("GI.GObject.Objects.Object#g:method:getProperty"), [getQdata]("GI.GObject.Objects.Object#g:method:getQdata").
    --
    -- ==== Setters
    -- [setData]("GI.GObject.Objects.Object#g:method:setData"), [setDataFull]("GI.GObject.Objects.Object#g:method:setDataFull"), [setProperty]("GI.GObject.Objects.Object#g:method:setProperty").

    #if defined(ENABLE_OVERLOADING)
        ResolveCssProviderMethod                ,
    #endif

    -- ** loadFromBytes #method:loadFromBytes#

    #if defined(ENABLE_OVERLOADING)
        CssProviderLoadFromBytesMethodInfo      ,
    #endif
        cssProviderLoadFromBytes                ,

    -- ** loadFromData #method:loadFromData#

    #if defined(ENABLE_OVERLOADING)
        CssProviderLoadFromDataMethodInfo       ,
    #endif
        cssProviderLoadFromData                 ,

    -- ** loadFromFile #method:loadFromFile#

    #if defined(ENABLE_OVERLOADING)
        CssProviderLoadFromFileMethodInfo       ,
    #endif
        cssProviderLoadFromFile                 ,

    -- ** loadFromPath #method:loadFromPath#

    #if defined(ENABLE_OVERLOADING)
        CssProviderLoadFromPathMethodInfo       ,
    #endif
        cssProviderLoadFromPath                 ,

    -- ** loadFromResource #method:loadFromResource#

    #if defined(ENABLE_OVERLOADING)
        CssProviderLoadFromResourceMethodInfo   ,
    #endif
        cssProviderLoadFromResource             ,

    -- ** loadFromString #method:loadFromString#

    #if defined(ENABLE_OVERLOADING)
        CssProviderLoadFromStringMethodInfo     ,
    #endif
        cssProviderLoadFromString               ,

    -- ** loadNamed #method:loadNamed#

    #if defined(ENABLE_OVERLOADING)
        CssProviderLoadNamedMethodInfo          ,
    #endif
        cssProviderLoadNamed                    ,

    -- ** new #method:new#

        cssProviderNew                          ,

    -- ** toString #method:toString#

    #if defined(ENABLE_OVERLOADING)
        CssProviderToStringMethodInfo           ,
    #endif
        cssProviderToString                     ,

     -- * Properties

    -- ** prefersColorScheme #attr:prefersColorScheme#
    -- | Define the color scheme used for rendering the user interface.
    --
    -- The UI can be set to either 'GI.Gtk.Enums.InterfaceColorSchemeLight',
    -- or 'GI.Gtk.Enums.InterfaceColorSchemeDark' mode. Other values will
    -- be interpreted the same as 'GI.Gtk.Enums.InterfaceColorSchemeLight'.
    --
    -- This setting is be available for media queries in CSS:
    --
    --
    -- === /css code/
    -- >@media (prefers-color-scheme: dark) {
    -- >  // some dark mode styling
    -- >}
    --
    --
    -- Changing this setting will reload the style sheet.
    --
    -- /Since: 4.20/

    #if defined(ENABLE_OVERLOADING)
        CssProviderPrefersColorSchemePropertyInfo,
    #endif
        constructCssProviderPrefersColorScheme  ,
    #if defined(ENABLE_OVERLOADING)
        cssProviderPrefersColorScheme           ,
    #endif
        getCssProviderPrefersColorScheme        ,
        setCssProviderPrefersColorScheme        ,

    -- ** prefersContrast #attr:prefersContrast#
    -- | Define the contrast mode to use for the user interface.
    --
    -- When set to 'GI.Gtk.Enums.InterfaceContrastMore' or
    -- 'GI.Gtk.Enums.InterfaceContrastLess', the UI is rendered in
    -- high or low contrast.
    --
    -- When set to 'GI.Gtk.Enums.InterfaceContrastNoPreference' (the default),
    -- the user interface will be rendered in default mode.
    --
    -- This setting is be available for media queries in CSS:
    --
    --
    -- === /css code/
    -- >@media (prefers-contrast: more) {
    -- >  // some style with high contrast
    -- >}
    --
    --
    -- Changing this setting will reload the style sheet.
    --
    -- /Since: 4.20/

    #if defined(ENABLE_OVERLOADING)
        CssProviderPrefersContrastPropertyInfo  ,
    #endif
        constructCssProviderPrefersContrast     ,
    #if defined(ENABLE_OVERLOADING)
        cssProviderPrefersContrast              ,
    #endif
        getCssProviderPrefersContrast           ,
        setCssProviderPrefersContrast           ,

    -- ** prefersReducedMotion #attr:prefersReducedMotion#
    -- | Define the type of reduced motion to use for the user interface.
    --
    -- When set to 'GI.Gtk.Enums.ReducedMotionReduce' the UI is rendered in
    -- with reduced motion animations.
    --
    -- When set to 'GI.Gtk.Enums.ReducedMotionNoPreference' (the default),
    -- the user interface will be rendered in default mode.
    --
    -- This setting is be available for media queries in CSS:
    --
    --
    -- === /css code/
    -- >@media (prefers-reduced-motion: reduce) {
    -- >  // some style with reduced motion
    -- >}
    --
    --
    -- Changing this setting will reload the style sheet.
    --
    -- /Since: 4.22/

    #if defined(ENABLE_OVERLOADING)
        CssProviderPrefersReducedMotionPropertyInfo,
    #endif
        constructCssProviderPrefersReducedMotion,
    #if defined(ENABLE_OVERLOADING)
        cssProviderPrefersReducedMotion         ,
    #endif
        getCssProviderPrefersReducedMotion      ,
        setCssProviderPrefersReducedMotion      ,

     -- * Signals

    -- ** parsingError #signal:parsingError#

        CssProviderParsingErrorCallback         ,
    #if defined(ENABLE_OVERLOADING)
        CssProviderParsingErrorSignalInfo       ,
    #endif
        afterCssProviderParsingError            ,
        onCssProviderParsingError               ,

        ) 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.GLib.Structs.Bytes as GLib.Bytes
    import qualified GI.GLib.Structs.String as GLib.String
    import qualified GI.GObject.Objects.Object as GObject.Object
    import qualified GI.Gio.Interfaces.File as Gio.File
    import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
    import {-# SOURCE #-} qualified GI.Gtk.Structs.CssLocation as Gtk.CssLocation
    import {-# SOURCE #-} qualified GI.Gtk.Structs.CssSection as Gtk.CssSection

    #else
    import qualified GI.GLib.Structs.Bytes as GLib.Bytes
    import qualified GI.GObject.Objects.Object as GObject.Object
    import qualified GI.Gio.Interfaces.File as Gio.File
    import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
    import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
    import {-# SOURCE #-} qualified GI.Gtk.Structs.CssSection as Gtk.CssSection

    #endif

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

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

    foreign import ccall "gtk_css_provider_get_type"
        c_gtk_css_provider_get_type :: IO B.Types.GType

    instance B.Types.TypedObject CssProvider where
        glibType :: IO GType
    glibType = IO GType
    c_gtk_css_provider_get_type

    instance B.Types.GObject CssProvider

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

    instance O.HasParentTypes CssProvider
    type instance O.ParentTypes CssProvider = '[GObject.Object.Object, Gtk.StyleProvider.StyleProvider]

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

    -- | Convert t'CssProvider' 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 CssProvider) where
        gvalueGType_ :: IO GType
    gvalueGType_ = IO GType
    c_gtk_css_provider_get_type
        gvalueSet_ :: Ptr GValue -> Maybe CssProvider -> IO ()
    gvalueSet_ Ptr GValue
    gv Maybe CssProvider
    P.Nothing = Ptr GValue -> Ptr CssProvider -> IO ()
    forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
    B.GValue.set_object Ptr GValue
    gv (Ptr CssProvider
    forall a. Ptr a
    FP.nullPtr :: FP.Ptr CssProvider)
        gvalueSet_ Ptr GValue
    gv (P.Just CssProvider
    obj) = CssProvider -> (Ptr CssProvider -> IO ()) -> IO ()
    forall a c.
    (HasCallStack, ManagedPtrNewtype a) =>
    a -> (Ptr a -> IO c) -> IO c
    B.ManagedPtr.withManagedPtr CssProvider
    obj (Ptr GValue -> Ptr CssProvider -> IO ()
    forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
    B.GValue.set_object Ptr GValue
    gv)
        gvalueGet_ :: Ptr GValue -> IO (Maybe CssProvider)
    gvalueGet_ Ptr GValue
    gv = do
            ptr <- Ptr GValue -> IO (Ptr CssProvider)
    forall a. GObject a => Ptr GValue -> IO (Ptr a)
    B.GValue.get_object Ptr GValue
    gv :: IO (FP.Ptr CssProvider)
            if ptr /= FP.nullPtr
            then P.Just <$> B.ManagedPtr.newObject CssProvider ptr
            else return P.Nothing

    #if defined(ENABLE_OVERLOADING)
    type family ResolveCssProviderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
        ResolveCssProviderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
        ResolveCssProviderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
        ResolveCssProviderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
        ResolveCssProviderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
        ResolveCssProviderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
        ResolveCssProviderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
        ResolveCssProviderMethod "loadFromBytes" o = CssProviderLoadFromBytesMethodInfo
        ResolveCssProviderMethod "loadFromData" o = CssProviderLoadFromDataMethodInfo
        ResolveCssProviderMethod "loadFromFile" o = CssProviderLoadFromFileMethodInfo
        ResolveCssProviderMethod "loadFromPath" o = CssProviderLoadFromPathMethodInfo
        ResolveCssProviderMethod "loadFromResource" o = CssProviderLoadFromResourceMethodInfo
        ResolveCssProviderMethod "loadFromString" o = CssProviderLoadFromStringMethodInfo
        ResolveCssProviderMethod "loadNamed" o = CssProviderLoadNamedMethodInfo
        ResolveCssProviderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
        ResolveCssProviderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
        ResolveCssProviderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
        ResolveCssProviderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
        ResolveCssProviderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
        ResolveCssProviderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
        ResolveCssProviderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
        ResolveCssProviderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
        ResolveCssProviderMethod "toString" o = CssProviderToStringMethodInfo
        ResolveCssProviderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
        ResolveCssProviderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
        ResolveCssProviderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
        ResolveCssProviderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
        ResolveCssProviderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
        ResolveCssProviderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
        ResolveCssProviderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
        ResolveCssProviderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
        ResolveCssProviderMethod l o = O.MethodResolutionFailed l o

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

    #endif

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

    #endif

    -- signal CssProvider::parsing-error
    -- | Signals that a parsing error occurred.
    --
    -- The expected error values are in the [error/@gtk@/.CssParserError]
    -- and t'GI.Gtk.Enums.CssParserWarning' enumerations.
    --
    -- The /@path@/, /@line@/ and /@position@/ describe the actual location of
    -- the error as accurately as possible.
    --
    -- Parsing errors are never fatal, so the parsing will resume after
    -- the error. Errors may however cause parts of the given data or
    -- even all of it to not be parsed at all. So it is a useful idea
    -- to check that the parsing succeeds by connecting to this signal.
    --
    -- Errors in the t'GI.Gtk.Enums.CssParserWarning' enumeration should not
    -- be treated as fatal errors.
    --
    -- Note that this signal may be emitted at any time as the css provider
    -- may opt to defer parsing parts or all of the input to a later time
    -- than when a loading function was called.
    type CssProviderParsingErrorCallback =
        Gtk.CssSection.CssSection
        -- ^ /@section@/: section the error happened in
        -> GError
        -- ^ /@error@/: The parsing error
        -> IO ()

    type C_CssProviderParsingErrorCallback =
        Ptr CssProvider ->                      -- object
        Ptr Gtk.CssSection.CssSection ->
        Ptr GError ->
        Ptr () ->                               -- user_data
        IO ()

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

    wrap_CssProviderParsingErrorCallback ::
        GObject a => (a -> CssProviderParsingErrorCallback) ->
        C_CssProviderParsingErrorCallback
    wrap_CssProviderParsingErrorCallback :: forall a.
    GObject a =>
    (a -> CssProviderParsingErrorCallback)
    -> C_CssProviderParsingErrorCallback
    wrap_CssProviderParsingErrorCallback a -> CssProviderParsingErrorCallback
    gi'cb Ptr CssProvider
    gi'selfPtr Ptr CssSection
    section Ptr GError
    error_ Ptr ()
    _ = do
        Ptr CssSection -> (CssSection -> IO ()) -> IO ()
    forall a b.
    (HasCallStack, ManagedPtrNewtype a) =>
    Ptr a -> (a -> IO b) -> IO b
    B.ManagedPtr.withTransient  Ptr CssSection
    section ((CssSection -> IO ()) -> IO ()) -> (CssSection -> IO ()) -> IO ()
    forall a b. (a -> b) -> a -> b
    $ \CssSection
    section' -> do
            error_' <- ((ManagedPtr GError -> GError) -> Ptr GError -> IO GError
    forall a.
    (HasCallStack, GBoxed a) =>
    (ManagedPtr a -> a) -> Ptr a -> IO a
    newBoxed ManagedPtr GError -> GError
    GError) Ptr GError
    error_
            B.ManagedPtr.withNewObject gi'selfPtr $ \CssProvider
    gi'self -> a -> CssProviderParsingErrorCallback
    gi'cb (CssProvider -> a
    forall a b. Coercible a b => a -> b
    Coerce.coerce CssProvider
    gi'self)  CssSection
    section' GError
    error_'

    -- | Connect a signal handler for the [parsingError](#signal:parsingError) 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' cssProvider #parsingError callback
    -- @
    --
    --
    onCssProviderParsingError :: (IsCssProvider a, MonadIO m) => a -> ((?self :: a) => CssProviderParsingErrorCallback) -> m SignalHandlerId
    onCssProviderParsingError :: forall a (m :: * -> *).
    (IsCssProvider a, MonadIO m) =>
    a
    -> ((?self::a) => CssProviderParsingErrorCallback)
    -> m SignalHandlerId
    onCssProviderParsingError a
    obj (?self::a) => CssProviderParsingErrorCallback
    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 -> CssProviderParsingErrorCallback
    wrapped a
    self = let ?self = a
    ?self::a
    self in (?self::a) => CssProviderParsingErrorCallback
    CssProviderParsingErrorCallback
    cb
        let wrapped' :: C_CssProviderParsingErrorCallback
    wrapped' = (a -> CssProviderParsingErrorCallback)
    -> C_CssProviderParsingErrorCallback
    forall a.
    GObject a =>
    (a -> CssProviderParsingErrorCallback)
    -> C_CssProviderParsingErrorCallback
    wrap_CssProviderParsingErrorCallback a -> CssProviderParsingErrorCallback
    wrapped
        wrapped'' <- C_CssProviderParsingErrorCallback
    -> IO (FunPtr C_CssProviderParsingErrorCallback)
    mk_CssProviderParsingErrorCallback C_CssProviderParsingErrorCallback
    wrapped'
        connectSignalFunPtr obj "parsing-error" wrapped'' SignalConnectBefore Nothing

    -- | Connect a signal handler for the [parsingError](#signal:parsingError) 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' cssProvider #parsingError 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.
    --
    afterCssProviderParsingError :: (IsCssProvider a, MonadIO m) => a -> ((?self :: a) => CssProviderParsingErrorCallback) -> m SignalHandlerId
    afterCssProviderParsingError :: forall a (m :: * -> *).
    (IsCssProvider a, MonadIO m) =>
    a
    -> ((?self::a) => CssProviderParsingErrorCallback)
    -> m SignalHandlerId
    afterCssProviderParsingError a
    obj (?self::a) => CssProviderParsingErrorCallback
    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 -> CssProviderParsingErrorCallback
    wrapped a
    self = let ?self = a
    ?self::a
    self in (?self::a) => CssProviderParsingErrorCallback
    CssProviderParsingErrorCallback
    cb
        let wrapped' :: C_CssProviderParsingErrorCallback
    wrapped' = (a -> CssProviderParsingErrorCallback)
    -> C_CssProviderParsingErrorCallback
    forall a.
    GObject a =>
    (a -> CssProviderParsingErrorCallback)
    -> C_CssProviderParsingErrorCallback
    wrap_CssProviderParsingErrorCallback a -> CssProviderParsingErrorCallback
    wrapped
        wrapped'' <- C_CssProviderParsingErrorCallback
    -> IO (FunPtr C_CssProviderParsingErrorCallback)
    mk_CssProviderParsingErrorCallback C_CssProviderParsingErrorCallback
    wrapped'
        connectSignalFunPtr obj "parsing-error" wrapped'' SignalConnectAfter Nothing

    #if defined(ENABLE_OVERLOADING)
    data CssProviderParsingErrorSignalInfo
    instance SignalInfo CssProviderParsingErrorSignalInfo where
        type HaskellCallbackType CssProviderParsingErrorSignalInfo = CssProviderParsingErrorCallback
        connectSignal obj cb connectMode detail = do
            let cb' = wrap_CssProviderParsingErrorCallback cb
            cb'' <- mk_CssProviderParsingErrorCallback cb'
            connectSignalFunPtr obj "parsing-error" cb'' connectMode detail
        dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider::parsing-error"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CssProvider.html#g:signal:parsingError"})

    #endif

    -- VVV Prop "prefers-color-scheme"
       -- Type: TInterface (Name {namespace = "Gtk", name = "InterfaceColorScheme"})
       -- Flags: [PropertyReadable,PropertyWritable]
       -- Nullable: (Nothing,Nothing)

    -- | Get the value of the “@prefers-color-scheme@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.get' cssProvider #prefersColorScheme
    -- @
    getCssProviderPrefersColorScheme :: (MonadIO m, IsCssProvider o) => o -> m Gtk.Enums.InterfaceColorScheme
    getCssProviderPrefersColorScheme :: forall (m :: * -> *) o.
    (MonadIO m, IsCssProvider o) =>
    o -> m InterfaceColorScheme
    getCssProviderPrefersColorScheme o
    obj = IO InterfaceColorScheme -> m InterfaceColorScheme
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO InterfaceColorScheme -> m InterfaceColorScheme)
    -> IO InterfaceColorScheme -> m InterfaceColorScheme
    forall a b. (a -> b) -> a -> b
    $ o -> String -> IO InterfaceColorScheme
    forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
    B.Properties.getObjectPropertyEnum o
    obj String
    "prefers-color-scheme"

    -- | Set the value of the “@prefers-color-scheme@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.set' cssProvider [ #prefersColorScheme 'Data.GI.Base.Attributes.:=' value ]
    -- @
    setCssProviderPrefersColorScheme :: (MonadIO m, IsCssProvider o) => o -> Gtk.Enums.InterfaceColorScheme -> m ()
    setCssProviderPrefersColorScheme :: forall (m :: * -> *) o.
    (MonadIO m, IsCssProvider o) =>
    o -> InterfaceColorScheme -> m ()
    setCssProviderPrefersColorScheme o
    obj InterfaceColorScheme
    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 -> InterfaceColorScheme -> IO ()
    forall a b.
    (GObject a, Enum b, BoxedEnum b) =>
    a -> String -> b -> IO ()
    B.Properties.setObjectPropertyEnum o
    obj String
    "prefers-color-scheme" InterfaceColorScheme
    val

    -- | Construct a t'GValueConstruct' with valid value for the “@prefers-color-scheme@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
    constructCssProviderPrefersColorScheme :: (IsCssProvider o, MIO.MonadIO m) => Gtk.Enums.InterfaceColorScheme -> m (GValueConstruct o)
    constructCssProviderPrefersColorScheme :: forall o (m :: * -> *).
    (IsCssProvider o, MonadIO m) =>
    InterfaceColorScheme -> m (GValueConstruct o)
    constructCssProviderPrefersColorScheme InterfaceColorScheme
    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 -> InterfaceColorScheme -> IO (GValueConstruct o)
    forall a o.
    (Enum a, BoxedEnum a) =>
    String -> a -> IO (GValueConstruct o)
    B.Properties.constructObjectPropertyEnum String
    "prefers-color-scheme" InterfaceColorScheme
    val

    #if defined(ENABLE_OVERLOADING)
    data CssProviderPrefersColorSchemePropertyInfo
    instance AttrInfo CssProviderPrefersColorSchemePropertyInfo where
        type AttrAllowedOps CssProviderPrefersColorSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
        type AttrBaseTypeConstraint CssProviderPrefersColorSchemePropertyInfo = IsCssProvider
        type AttrSetTypeConstraint CssProviderPrefersColorSchemePropertyInfo = (~) Gtk.Enums.InterfaceColorScheme
        type AttrTransferTypeConstraint CssProviderPrefersColorSchemePropertyInfo = (~) Gtk.Enums.InterfaceColorScheme
        type AttrTransferType CssProviderPrefersColorSchemePropertyInfo = Gtk.Enums.InterfaceColorScheme
        type AttrGetType CssProviderPrefersColorSchemePropertyInfo = Gtk.Enums.InterfaceColorScheme
        type AttrLabel CssProviderPrefersColorSchemePropertyInfo = "prefers-color-scheme"
        type AttrOrigin CssProviderPrefersColorSchemePropertyInfo = CssProvider
        attrGet = getCssProviderPrefersColorScheme
        attrSet = setCssProviderPrefersColorScheme
        attrPut = setCssProviderPrefersColorScheme
        attrTransfer _ v = do
            return v
        attrConstruct = constructCssProviderPrefersColorScheme
        attrClear = undefined
        dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.prefersColorScheme"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CssProvider.html#g:attr:prefersColorScheme"
            })
    #endif

    -- VVV Prop "prefers-contrast"
       -- Type: TInterface (Name {namespace = "Gtk", name = "InterfaceContrast"})
       -- Flags: [PropertyReadable,PropertyWritable]
       -- Nullable: (Nothing,Nothing)

    -- | Get the value of the “@prefers-contrast@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.get' cssProvider #prefersContrast
    -- @
    getCssProviderPrefersContrast :: (MonadIO m, IsCssProvider o) => o -> m Gtk.Enums.InterfaceContrast
    getCssProviderPrefersContrast :: forall (m :: * -> *) o.
    (MonadIO m, IsCssProvider o) =>
    o -> m InterfaceContrast
    getCssProviderPrefersContrast o
    obj = IO InterfaceContrast -> m InterfaceContrast
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO InterfaceContrast -> m InterfaceContrast)
    -> IO InterfaceContrast -> m InterfaceContrast
    forall a b. (a -> b) -> a -> b
    $ o -> String -> IO InterfaceContrast
    forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
    B.Properties.getObjectPropertyEnum o
    obj String
    "prefers-contrast"

    -- | Set the value of the “@prefers-contrast@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.set' cssProvider [ #prefersContrast 'Data.GI.Base.Attributes.:=' value ]
    -- @
    setCssProviderPrefersContrast :: (MonadIO m, IsCssProvider o) => o -> Gtk.Enums.InterfaceContrast -> m ()
    setCssProviderPrefersContrast :: forall (m :: * -> *) o.
    (MonadIO m, IsCssProvider o) =>
    o -> InterfaceContrast -> m ()
    setCssProviderPrefersContrast o
    obj InterfaceContrast
    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 -> InterfaceContrast -> IO ()
    forall a b.
    (GObject a, Enum b, BoxedEnum b) =>
    a -> String -> b -> IO ()
    B.Properties.setObjectPropertyEnum o
    obj String
    "prefers-contrast" InterfaceContrast
    val

    -- | Construct a t'GValueConstruct' with valid value for the “@prefers-contrast@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
    constructCssProviderPrefersContrast :: (IsCssProvider o, MIO.MonadIO m) => Gtk.Enums.InterfaceContrast -> m (GValueConstruct o)
    constructCssProviderPrefersContrast :: forall o (m :: * -> *).
    (IsCssProvider o, MonadIO m) =>
    InterfaceContrast -> m (GValueConstruct o)
    constructCssProviderPrefersContrast InterfaceContrast
    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 -> InterfaceContrast -> IO (GValueConstruct o)
    forall a o.
    (Enum a, BoxedEnum a) =>
    String -> a -> IO (GValueConstruct o)
    B.Properties.constructObjectPropertyEnum String
    "prefers-contrast" InterfaceContrast
    val

    #if defined(ENABLE_OVERLOADING)
    data CssProviderPrefersContrastPropertyInfo
    instance AttrInfo CssProviderPrefersContrastPropertyInfo where
        type AttrAllowedOps CssProviderPrefersContrastPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
        type AttrBaseTypeConstraint CssProviderPrefersContrastPropertyInfo = IsCssProvider
        type AttrSetTypeConstraint CssProviderPrefersContrastPropertyInfo = (~) Gtk.Enums.InterfaceContrast
        type AttrTransferTypeConstraint CssProviderPrefersContrastPropertyInfo = (~) Gtk.Enums.InterfaceContrast
        type AttrTransferType CssProviderPrefersContrastPropertyInfo = Gtk.Enums.InterfaceContrast
        type AttrGetType CssProviderPrefersContrastPropertyInfo = Gtk.Enums.InterfaceContrast
        type AttrLabel CssProviderPrefersContrastPropertyInfo = "prefers-contrast"
        type AttrOrigin CssProviderPrefersContrastPropertyInfo = CssProvider
        attrGet = getCssProviderPrefersContrast
        attrSet = setCssProviderPrefersContrast
        attrPut = setCssProviderPrefersContrast
        attrTransfer _ v = do
            return v
        attrConstruct = constructCssProviderPrefersContrast
        attrClear = undefined
        dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.prefersContrast"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CssProvider.html#g:attr:prefersContrast"
            })
    #endif

    -- VVV Prop "prefers-reduced-motion"
       -- Type: TInterface (Name {namespace = "Gtk", name = "ReducedMotion"})
       -- Flags: [PropertyReadable,PropertyWritable]
       -- Nullable: (Nothing,Nothing)

    -- | Get the value of the “@prefers-reduced-motion@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.get' cssProvider #prefersReducedMotion
    -- @
    getCssProviderPrefersReducedMotion :: (MonadIO m, IsCssProvider o) => o -> m Gtk.Enums.ReducedMotion
    getCssProviderPrefersReducedMotion :: forall (m :: * -> *) o.
    (MonadIO m, IsCssProvider o) =>
    o -> m ReducedMotion
    getCssProviderPrefersReducedMotion o
    obj = IO ReducedMotion -> m ReducedMotion
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    MIO.liftIO (IO ReducedMotion -> m ReducedMotion)
    -> IO ReducedMotion -> m ReducedMotion
    forall a b. (a -> b) -> a -> b
    $ o -> String -> IO ReducedMotion
    forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
    B.Properties.getObjectPropertyEnum o
    obj String
    "prefers-reduced-motion"

    -- | Set the value of the “@prefers-reduced-motion@” property.
    -- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
    --
    -- @
    -- 'Data.GI.Base.Attributes.set' cssProvider [ #prefersReducedMotion 'Data.GI.Base.Attributes.:=' value ]
    -- @
    setCssProviderPrefersReducedMotion :: (MonadIO m, IsCssProvider o) => o -> Gtk.Enums.ReducedMotion -> m ()
    setCssProviderPrefersReducedMotion :: forall (m :: * -> *) o.
    (MonadIO m, IsCssProvider o) =>
    o -> ReducedMotion -> m ()
    setCssProviderPrefersReducedMotion o
    obj ReducedMotion
    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 -> ReducedMotion -> IO ()
    forall a b.
    (GObject a, Enum b, BoxedEnum b) =>
    a -> String -> b -> IO ()
    B.Properties.setObjectPropertyEnum o
    obj String
    "prefers-reduced-motion" ReducedMotion
    val

    -- | Construct a t'GValueConstruct' with valid value for the “@prefers-reduced-motion@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
    constructCssProviderPrefersReducedMotion :: (IsCssProvider o, MIO.MonadIO m) => Gtk.Enums.ReducedMotion -> m (GValueConstruct o)
    constructCssProviderPrefersReducedMotion :: forall o (m :: * -> *).
    (IsCssProvider o, MonadIO m) =>
    ReducedMotion -> m (GValueConstruct o)
    constructCssProviderPrefersReducedMotion ReducedMotion
    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 -> ReducedMotion -> IO (GValueConstruct o)
    forall a o.
    (Enum a, BoxedEnum a) =>
    String -> a -> IO (GValueConstruct o)
    B.Properties.constructObjectPropertyEnum String
    "prefers-reduced-motion" ReducedMotion
    val

    #if defined(ENABLE_OVERLOADING)
    data CssProviderPrefersReducedMotionPropertyInfo
    instance AttrInfo CssProviderPrefersReducedMotionPropertyInfo where
        type AttrAllowedOps CssProviderPrefersReducedMotionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
        type AttrBaseTypeConstraint CssProviderPrefersReducedMotionPropertyInfo = IsCssProvider
        type AttrSetTypeConstraint CssProviderPrefersReducedMotionPropertyInfo = (~) Gtk.Enums.ReducedMotion
        type AttrTransferTypeConstraint CssProviderPrefersReducedMotionPropertyInfo = (~) Gtk.Enums.ReducedMotion
        type AttrTransferType CssProviderPrefersReducedMotionPropertyInfo = Gtk.Enums.ReducedMotion
        type AttrGetType CssProviderPrefersReducedMotionPropertyInfo = Gtk.Enums.ReducedMotion
        type AttrLabel CssProviderPrefersReducedMotionPropertyInfo = "prefers-reduced-motion"
        type AttrOrigin CssProviderPrefersReducedMotionPropertyInfo = CssProvider
        attrGet = getCssProviderPrefersReducedMotion
        attrSet = setCssProviderPrefersReducedMotion
        attrPut = setCssProviderPrefersReducedMotion
        attrTransfer _ v = do
            return v
        attrConstruct = constructCssProviderPrefersReducedMotion
        attrClear = undefined
        dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
            O.resolvedSymbolName = "GI.Gtk.Objects.CssProvider.prefersReducedMotion"
            , O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-CssProvider.html#g:attr:prefersReducedMotion"
            })
    #endif

    #if defined(ENABLE_OVERLOADING)
    instance O.HasAttributeList CssProvider
    type instance O.AttributeList CssProvider = CssProviderAttributeList
    type CssProviderAttributeList = ('[ '("prefersColorScheme", CssProviderPrefersColorSchemePropertyInfo), '("prefersContrast", CssProviderPrefersContrastPropertyInfo), '("prefersReducedMotion", CssProviderPrefersReducedMotionPropertyInfo)] :: [(Symbol, DK.Type)])
    #endif

    #if defined(ENABLE_OVERLOADING)
    cssProviderPrefersColorScheme :: AttrLabelProxy "prefersColorScheme"
    cssProviderPrefersColorScheme = AttrLabelProxy

    cssProviderPrefersContrast :: AttrLabelProxy "prefersContrast"
    cssProviderPrefersContrast = AttrLabelProxy

    cssProviderPrefersReducedMotion :: AttrLabelProxy "prefersReducedMotion"
    cssProviderPrefersReducedMotion = AttrLabelProxy

    #endif

    #if defined(ENABLE_OVERLOADING)
    type instance O.SignalList CssProvider = CssProviderSignalList
    type CssProviderSignalList = ('[ '("gtkPrivateChanged", Gtk.StyleProvider.StyleProviderGtkPrivateChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parsingError", CssProviderParsingErrorSignalInfo)] :: [(Symbol, DK.Type)])

    #endif

    -- method CssProvider::new
    -- method type : Constructor
    -- Args: []
    -- Lengths: []
    -- returnType: Just (TInterface Name { namespace = "Gtk" , name = "CssProvider" })
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_css_provider_new" gtk_css_provider_new ::
        IO (Ptr CssProvider)

    -- | Returns a newly created @GtkCssProvider@.
    cssProviderNew ::
        (B.CallStack.HasCallStack, MonadIO m) =>
        m CssProvider
        -- ^ __Returns:__ A new @GtkCssProvider@
    cssProviderNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m CssProvider
    cssProviderNew  = IO CssProvider -> m CssProvider
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO CssProvider -> m CssProvider)
    -> IO CssProvider -> m CssProvider
    forall a b. (a -> b) -> a -> b
    $ do
        result <- IO (Ptr CssProvider)
    gtk_css_provider_new
        checkUnexpectedReturnNULL "cssProviderNew" result
        result' <- (wrapObject CssProvider) result
        return result'

    #if defined(ENABLE_OVERLOADING)
    #endif

    -- method CssProvider::load_from_bytes
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "css_provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkCssProvider`" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "data"
    --           , argType = TInterface Name { namespace = "GLib" , name = "Bytes" }
    --           , argCType = Just "GBytes*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "`GBytes` containing the data to load"
    --                 , 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_css_provider_load_from_bytes" gtk_css_provider_load_from_bytes ::
        Ptr CssProvider ->                      -- css_provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        Ptr GLib.Bytes.Bytes ->                 -- data : TInterface (Name {namespace = "GLib", name = "Bytes"})
        IO ()

    -- | Loads /@data@/ into /@cssProvider@/.
    --
    -- This clears any previously loaded information.
    --
    -- /Since: 4.12/
    cssProviderLoadFromBytes ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
        a
        -- ^ /@cssProvider@/: a @GtkCssProvider@
        -> GLib.Bytes.Bytes
        -- ^ /@data@/: @GBytes@ containing the data to load
        -> m ()
    cssProviderLoadFromBytes :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsCssProvider a) =>
    a -> Bytes -> m ()
    cssProviderLoadFromBytes a
    cssProvider Bytes
    data_ = 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
        cssProvider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    cssProvider
        data_' <- unsafeManagedPtrGetPtr data_
        gtk_css_provider_load_from_bytes cssProvider' data_'
        touchManagedPtr cssProvider
        touchManagedPtr data_
        return ()

    #if defined(ENABLE_OVERLOADING)
    data CssProviderLoadFromBytesMethodInfo
    instance (signature ~ (GLib.Bytes.Bytes -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromBytesMethodInfo a signature where
        overloadedMethod = cssProviderLoadFromBytes

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

    #endif

    -- method CssProvider::load_from_data
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "css_provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkCssProvider`" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "data"
    --           , argType = TBasicType TUTF8
    --           , argCType = Just "const char*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "CSS data to be parsed"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "length"
    --           , argType = TBasicType TSSize
    --           , argCType = Just "gssize"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText =
    --                     Just
    --                       "the length of @data in bytes, or -1 for NUL terminated strings"
    --                 , 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_css_provider_load_from_data" gtk_css_provider_load_from_data ::
        Ptr CssProvider ->                      -- css_provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        CString ->                              -- data : TBasicType TUTF8
        DI.Int64 ->                             -- length : TBasicType TSSize
        IO ()

    {-# DEPRECATED cssProviderLoadFromData ["(Since version 4.12)","Use 'GI.Gtk.Objects.CssProvider.cssProviderLoadFromString'","  or 'GI.Gtk.Objects.CssProvider.cssProviderLoadFromBytes' instead"] #-}
    -- | Loads /@data@/ into /@cssProvider@/.
    --
    -- This clears any previously loaded information.
    cssProviderLoadFromData ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
        a
        -- ^ /@cssProvider@/: a @GtkCssProvider@
        -> T.Text
        -- ^ /@data@/: CSS data to be parsed
        -> DI.Int64
        -- ^ /@length@/: the length of /@data@/ in bytes, or -1 for NUL terminated strings
        -> m ()
    cssProviderLoadFromData :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsCssProvider a) =>
    a -> Text -> Int64 -> m ()
    cssProviderLoadFromData a
    cssProvider Text
    data_ Int64
    length_ = 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
        cssProvider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    cssProvider
        data_' <- textToCString data_
        gtk_css_provider_load_from_data cssProvider' data_' length_
        touchManagedPtr cssProvider
        freeMem data_'
        return ()

    #if defined(ENABLE_OVERLOADING)
    data CssProviderLoadFromDataMethodInfo
    instance (signature ~ (T.Text -> DI.Int64 -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromDataMethodInfo a signature where
        overloadedMethod = cssProviderLoadFromData

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

    #endif

    -- method CssProvider::load_from_file
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "css_provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkCssProvider`" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "file"
    --           , argType = TInterface Name { namespace = "Gio" , name = "File" }
    --           , argCType = Just "GFile*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "`GFile` pointing to a file to load"
    --                 , 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_css_provider_load_from_file" gtk_css_provider_load_from_file ::
        Ptr CssProvider ->                      -- css_provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        Ptr Gio.File.File ->                    -- file : TInterface (Name {namespace = "Gio", name = "File"})
        IO ()

    -- | Loads the data contained in /@file@/ into /@cssProvider@/.
    --
    -- This clears any previously loaded information.
    cssProviderLoadFromFile ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a, Gio.File.IsFile b) =>
        a
        -- ^ /@cssProvider@/: a @GtkCssProvider@
        -> b
        -- ^ /@file@/: @GFile@ pointing to a file to load
        -> m ()
    cssProviderLoadFromFile :: forall (m :: * -> *) a b.
    (HasCallStack, MonadIO m, IsCssProvider a, IsFile b) =>
    a -> b -> m ()
    cssProviderLoadFromFile a
    cssProvider b
    file = 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
        cssProvider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    cssProvider
        file' <- unsafeManagedPtrCastPtr file
        gtk_css_provider_load_from_file cssProvider' file'
        touchManagedPtr cssProvider
        touchManagedPtr file
        return ()

    #if defined(ENABLE_OVERLOADING)
    data CssProviderLoadFromFileMethodInfo
    instance (signature ~ (b -> m ()), MonadIO m, IsCssProvider a, Gio.File.IsFile b) => O.OverloadedMethod CssProviderLoadFromFileMethodInfo a signature where
        overloadedMethod = cssProviderLoadFromFile

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

    #endif

    -- method CssProvider::load_from_path
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "css_provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkCssProvider`" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "path"
    --           , argType = TBasicType TFileName
    --           , argCType = Just "const char*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText =
    --                     Just
    --                       "the path of a filename to load, in the GLib filename encoding"
    --                 , 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_css_provider_load_from_path" gtk_css_provider_load_from_path ::
        Ptr CssProvider ->                      -- css_provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        CString ->                              -- path : TBasicType TFileName
        IO ()

    -- | Loads the data contained in /@path@/ into /@cssProvider@/.
    --
    -- This clears any previously loaded information.
    cssProviderLoadFromPath ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
        a
        -- ^ /@cssProvider@/: a @GtkCssProvider@
        -> [Char]
        -- ^ /@path@/: the path of a filename to load, in the GLib filename encoding
        -> m ()
    cssProviderLoadFromPath :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsCssProvider a) =>
    a -> String -> m ()
    cssProviderLoadFromPath a
    cssProvider String
    path = 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
        cssProvider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    cssProvider
        path' <- stringToCString path
        gtk_css_provider_load_from_path cssProvider' path'
        touchManagedPtr cssProvider
        freeMem path'
        return ()

    #if defined(ENABLE_OVERLOADING)
    data CssProviderLoadFromPathMethodInfo
    instance (signature ~ ([Char] -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromPathMethodInfo a signature where
        overloadedMethod = cssProviderLoadFromPath

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

    #endif

    -- method CssProvider::load_from_resource
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "css_provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkCssProvider`" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "resource_path"
    --           , argType = TBasicType TUTF8
    --           , argCType = Just "const char*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GResource` resource path"
    --                 , 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_css_provider_load_from_resource" gtk_css_provider_load_from_resource ::
        Ptr CssProvider ->                      -- css_provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        CString ->                              -- resource_path : TBasicType TUTF8
        IO ()

    -- | Loads the data contained in the resource at /@resourcePath@/ into
    -- the /@cssProvider@/.
    --
    -- This clears any previously loaded information.
    cssProviderLoadFromResource ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
        a
        -- ^ /@cssProvider@/: a @GtkCssProvider@
        -> T.Text
        -- ^ /@resourcePath@/: a @GResource@ resource path
        -> m ()
    cssProviderLoadFromResource :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsCssProvider a) =>
    a -> Text -> m ()
    cssProviderLoadFromResource a
    cssProvider Text
    resourcePath = 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
        cssProvider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    cssProvider
        resourcePath' <- textToCString resourcePath
        gtk_css_provider_load_from_resource cssProvider' resourcePath'
        touchManagedPtr cssProvider
        freeMem resourcePath'
        return ()

    #if defined(ENABLE_OVERLOADING)
    data CssProviderLoadFromResourceMethodInfo
    instance (signature ~ (T.Text -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromResourceMethodInfo a signature where
        overloadedMethod = cssProviderLoadFromResource

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

    #endif

    -- method CssProvider::load_from_string
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "css_provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkCssProvider`" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "string"
    --           , argType = TBasicType TUTF8
    --           , argCType = Just "const char*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "the CSS to load" , 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_css_provider_load_from_string" gtk_css_provider_load_from_string ::
        Ptr CssProvider ->                      -- css_provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        CString ->                              -- string : TBasicType TUTF8
        IO ()

    -- | Loads /@string@/ into /@cssProvider@/.
    --
    -- This clears any previously loaded information.
    --
    -- /Since: 4.12/
    cssProviderLoadFromString ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
        a
        -- ^ /@cssProvider@/: a @GtkCssProvider@
        -> T.Text
        -- ^ /@string@/: the CSS to load
        -> m ()
    cssProviderLoadFromString :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsCssProvider a) =>
    a -> Text -> m ()
    cssProviderLoadFromString a
    cssProvider Text
    string = 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
        cssProvider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    cssProvider
        string' <- textToCString string
        gtk_css_provider_load_from_string cssProvider' string'
        touchManagedPtr cssProvider
        freeMem string'
        return ()

    #if defined(ENABLE_OVERLOADING)
    data CssProviderLoadFromStringMethodInfo
    instance (signature ~ (T.Text -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadFromStringMethodInfo a signature where
        overloadedMethod = cssProviderLoadFromString

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

    #endif

    -- method CssProvider::load_named
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a `GtkCssProvider`" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "name"
    --           , argType = TBasicType TUTF8
    --           , argCType = Just "const char*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "A theme name" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "variant"
    --           , argType = TBasicType TUTF8
    --           , argCType = Just "const char*"
    --           , direction = DirectionIn
    --           , mayBeNull = True
    --           , argDoc =
    --               Documentation
    --                 { rawDocText =
    --                     Just
    --                       "variant to load, for example, \"dark\", or\n  %NULL for the default"
    --                 , 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_css_provider_load_named" gtk_css_provider_load_named ::
        Ptr CssProvider ->                      -- provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        CString ->                              -- name : TBasicType TUTF8
        CString ->                              -- variant : TBasicType TUTF8
        IO ()

    {-# DEPRECATED cssProviderLoadNamed ["(Since version 4.20)","Using any of the other theme loaders, combine with media queries."] #-}
    -- | Loads a theme from the usual theme paths.
    --
    -- The actual process of finding the theme might change between
    -- releases, but it is guaranteed that this function uses the same
    -- mechanism to load the theme that GTK uses for loading its own theme.
    cssProviderLoadNamed ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
        a
        -- ^ /@provider@/: a @GtkCssProvider@
        -> T.Text
        -- ^ /@name@/: A theme name
        -> Maybe (T.Text)
        -- ^ /@variant@/: variant to load, for example, \"dark\", or
        --   'P.Nothing' for the default
        -> m ()
    cssProviderLoadNamed :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsCssProvider a) =>
    a -> Text -> Maybe Text -> m ()
    cssProviderLoadNamed a
    provider Text
    name Maybe Text
    variant = 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
        provider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    provider
        name' <- textToCString name
        maybeVariant <- case variant of
            Maybe Text
    Nothing -> CString -> IO CString
    forall a. a -> IO a
    forall (m :: * -> *) a. Monad m => a -> m a
    return CString
    forall a. Ptr a
    FP.nullPtr
            Just Text
    jVariant -> do
                jVariant' <- Text -> IO CString
    textToCString Text
    jVariant
                return jVariant'
        gtk_css_provider_load_named provider' name' maybeVariant
        touchManagedPtr provider
        freeMem name'
        freeMem maybeVariant
        return ()

    #if defined(ENABLE_OVERLOADING)
    data CssProviderLoadNamedMethodInfo
    instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderLoadNamedMethodInfo a signature where
        overloadedMethod = cssProviderLoadNamed

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

    #endif

    -- method CssProvider::to_string
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "provider"
    --           , argType =
    --               TInterface Name { namespace = "Gtk" , name = "CssProvider" }
    --           , argCType = Just "GtkCssProvider*"
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "the provider to write to a string"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , argCallbackUserData = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TUTF8)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gtk_css_provider_to_string" gtk_css_provider_to_string ::
        Ptr CssProvider ->                      -- provider : TInterface (Name {namespace = "Gtk", name = "CssProvider"})
        IO CString

    -- | Converts the /@provider@/ into a string representation in CSS
    -- format.
    --
    -- Using 'GI.Gtk.Objects.CssProvider.cssProviderLoadFromString' with the return
    -- value from this function on a new provider created with
    -- 'GI.Gtk.Objects.CssProvider.cssProviderNew' will basically create a duplicate
    -- of this /@provider@/.
    cssProviderToString ::
        (B.CallStack.HasCallStack, MonadIO m, IsCssProvider a) =>
        a
        -- ^ /@provider@/: the provider to write to a string
        -> m T.Text
        -- ^ __Returns:__ a new string representing the /@provider@/.
    cssProviderToString :: forall (m :: * -> *) a.
    (HasCallStack, MonadIO m, IsCssProvider a) =>
    a -> m Text
    cssProviderToString a
    provider = IO Text -> m Text
    forall a. IO a -> m a
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Text -> m Text) -> IO Text -> m Text
    forall a b. (a -> b) -> a -> b
    $ do
        provider' <- a -> IO (Ptr CssProvider)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    provider
        result <- gtk_css_provider_to_string provider'
        checkUnexpectedReturnNULL "cssProviderToString" result
        result' <- cstringToText result
        freeMem result
        touchManagedPtr provider
        return result'

    #if defined(ENABLE_OVERLOADING)
    data CssProviderToStringMethodInfo
    instance (signature ~ (m T.Text), MonadIO m, IsCssProvider a) => O.OverloadedMethod CssProviderToStringMethodInfo a signature where
        overloadedMethod = cssProviderToString

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

    #endif