    {-# LANGUAGE TypeApplications #-}

    -- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
    -- License    : LGPL-2.1
    -- Maintainer : Iñaki García Etxebarria
    --
    -- /No description available in the introspection data./

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

    module GI.GdkX11.Objects.X11Screen
        (

    -- * Exported types
        X11Screen(..)                           ,
        IsX11Screen                             ,
        toX11Screen                             ,

     -- * Methods
    -- ** Overloaded methods #method:Overloaded methods#

    #if defined(ENABLE_OVERLOADING)
        ResolveX11ScreenMethod                  ,
    #endif

    -- ** getCurrentDesktop #method:getCurrentDesktop#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenGetCurrentDesktopMethodInfo    ,
    #endif
        x11ScreenGetCurrentDesktop              ,

    -- ** getMonitorOutput #method:getMonitorOutput#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenGetMonitorOutputMethodInfo     ,
    #endif
        x11ScreenGetMonitorOutput               ,

    -- ** getNumberOfDesktops #method:getNumberOfDesktops#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenGetNumberOfDesktopsMethodInfo  ,
    #endif
        x11ScreenGetNumberOfDesktops            ,

    -- ** getScreenNumber #method:getScreenNumber#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenGetScreenNumberMethodInfo      ,
    #endif
        x11ScreenGetScreenNumber                ,

    -- ** getWindowManagerName #method:getWindowManagerName#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenGetWindowManagerNameMethodInfo ,
    #endif
        x11ScreenGetWindowManagerName           ,

    -- ** getXscreen #method:getXscreen#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenGetXscreenMethodInfo           ,
    #endif
        x11ScreenGetXscreen                     ,

    -- ** lookupVisual #method:lookupVisual#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenLookupVisualMethodInfo         ,
    #endif
        x11ScreenLookupVisual                   ,

    -- ** supportsNetWmHint #method:supportsNetWmHint#

    #if defined(ENABLE_OVERLOADING)
        X11ScreenSupportsNetWmHintMethodInfo    ,
    #endif
        x11ScreenSupportsNetWmHint              ,

     -- * Signals
    -- ** windowManagerChanged #signal:windowManagerChanged#

        C_X11ScreenWindowManagerChangedCallback ,
        X11ScreenWindowManagerChangedCallback   ,
    #if defined(ENABLE_OVERLOADING)
        X11ScreenWindowManagerChangedSignalInfo ,
    #endif
        afterX11ScreenWindowManagerChanged      ,
        genClosure_X11ScreenWindowManagerChanged,
        mk_X11ScreenWindowManagerChangedCallback,
        noX11ScreenWindowManagerChangedCallback ,
        onX11ScreenWindowManagerChanged         ,
        wrap_X11ScreenWindowManagerChangedCallback,

        ) 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.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.Text as T
    import qualified Data.ByteString.Char8 as B
    import qualified Data.Map as Map
    import qualified Foreign.Ptr as FP
    import qualified GHC.OverloadedLabels as OL

    import qualified GI.GObject.Objects.Object as GObject.Object
    import qualified GI.Gdk.Objects.Screen as Gdk.Screen
    import qualified GI.Gdk.Structs.Atom as Gdk.Atom
    import {-# SOURCE #-} qualified GI.GdkX11.Objects.X11Visual as GdkX11.X11Visual
    import qualified GI.Xlib.Structs.Screen as Xlib.Screen

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

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

    foreign import ccall "gdk_x11_screen_get_type"
        c_gdk_x11_screen_get_type :: IO B.Types.GType

    instance B.Types.TypedObject X11Screen where
        glibType :: IO GType
    glibType = IO GType
    c_gdk_x11_screen_get_type

    instance B.Types.GObject X11Screen

    -- | Convert 'X11Screen' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
    instance B.GValue.IsGValue X11Screen where
        toGValue :: X11Screen -> IO GValue
    toGValue o :: X11Screen
    o = do
            GType
    gtype <- IO GType
    c_gdk_x11_screen_get_type
            X11Screen -> (Ptr X11Screen -> IO GValue) -> IO GValue
    forall a c.
    (HasCallStack, ManagedPtrNewtype a) =>
    a -> (Ptr a -> IO c) -> IO c
    B.ManagedPtr.withManagedPtr X11Screen
    o (GType
    -> (GValue -> Ptr X11Screen -> IO ()) -> Ptr X11Screen -> IO GValue
    forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
    B.GValue.buildGValue GType
    gtype GValue -> Ptr X11Screen -> IO ()
    forall a. GObject a => GValue -> Ptr a -> IO ()
    B.GValue.set_object)

        fromGValue :: GValue -> IO X11Screen
    fromGValue gv :: GValue
    gv = do
            Ptr X11Screen
    ptr <- GValue -> IO (Ptr X11Screen)
    forall b. GObject b => GValue -> IO (Ptr b)
    B.GValue.get_object GValue
    gv :: IO (Ptr X11Screen)
            (ManagedPtr X11Screen -> X11Screen)
    -> Ptr X11Screen -> IO X11Screen
    forall a b.
    (HasCallStack, GObject a, GObject b) =>
    (ManagedPtr a -> a) -> Ptr b -> IO a
    B.ManagedPtr.newObject ManagedPtr X11Screen -> X11Screen
    X11Screen Ptr X11Screen
    ptr

    -- | Type class for types which can be safely cast to `X11Screen`, for instance with `toX11Screen`.
    class (SP.GObject o, O.IsDescendantOf X11Screen o) => IsX11Screen o
    instance (SP.GObject o, O.IsDescendantOf X11Screen o) => IsX11Screen o

    instance O.HasParentTypes X11Screen
    type instance O.ParentTypes X11Screen = '[Gdk.Screen.Screen, GObject.Object.Object]

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

    #if defined(ENABLE_OVERLOADING)
    type family ResolveX11ScreenMethod (t :: Symbol) (o :: *) :: * where
        ResolveX11ScreenMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
        ResolveX11ScreenMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
        ResolveX11ScreenMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
        ResolveX11ScreenMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
        ResolveX11ScreenMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
        ResolveX11ScreenMethod "isComposited" o = Gdk.Screen.ScreenIsCompositedMethodInfo
        ResolveX11ScreenMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
        ResolveX11ScreenMethod "listVisuals" o = Gdk.Screen.ScreenListVisualsMethodInfo
        ResolveX11ScreenMethod "lookupVisual" o = X11ScreenLookupVisualMethodInfo
        ResolveX11ScreenMethod "makeDisplayName" o = Gdk.Screen.ScreenMakeDisplayNameMethodInfo
        ResolveX11ScreenMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
        ResolveX11ScreenMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
        ResolveX11ScreenMethod "ref" o = GObject.Object.ObjectRefMethodInfo
        ResolveX11ScreenMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
        ResolveX11ScreenMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
        ResolveX11ScreenMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
        ResolveX11ScreenMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
        ResolveX11ScreenMethod "supportsNetWmHint" o = X11ScreenSupportsNetWmHintMethodInfo
        ResolveX11ScreenMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
        ResolveX11ScreenMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
        ResolveX11ScreenMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
        ResolveX11ScreenMethod "getActiveWindow" o = Gdk.Screen.ScreenGetActiveWindowMethodInfo
        ResolveX11ScreenMethod "getCurrentDesktop" o = X11ScreenGetCurrentDesktopMethodInfo
        ResolveX11ScreenMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
        ResolveX11ScreenMethod "getDisplay" o = Gdk.Screen.ScreenGetDisplayMethodInfo
        ResolveX11ScreenMethod "getFontOptions" o = Gdk.Screen.ScreenGetFontOptionsMethodInfo
        ResolveX11ScreenMethod "getHeight" o = Gdk.Screen.ScreenGetHeightMethodInfo
        ResolveX11ScreenMethod "getHeightMm" o = Gdk.Screen.ScreenGetHeightMmMethodInfo
        ResolveX11ScreenMethod "getMonitorAtPoint" o = Gdk.Screen.ScreenGetMonitorAtPointMethodInfo
        ResolveX11ScreenMethod "getMonitorAtWindow" o = Gdk.Screen.ScreenGetMonitorAtWindowMethodInfo
        ResolveX11ScreenMethod "getMonitorGeometry" o = Gdk.Screen.ScreenGetMonitorGeometryMethodInfo
        ResolveX11ScreenMethod "getMonitorHeightMm" o = Gdk.Screen.ScreenGetMonitorHeightMmMethodInfo
        ResolveX11ScreenMethod "getMonitorOutput" o = X11ScreenGetMonitorOutputMethodInfo
        ResolveX11ScreenMethod "getMonitorPlugName" o = Gdk.Screen.ScreenGetMonitorPlugNameMethodInfo
        ResolveX11ScreenMethod "getMonitorScaleFactor" o = Gdk.Screen.ScreenGetMonitorScaleFactorMethodInfo
        ResolveX11ScreenMethod "getMonitorWidthMm" o = Gdk.Screen.ScreenGetMonitorWidthMmMethodInfo
        ResolveX11ScreenMethod "getMonitorWorkarea" o = Gdk.Screen.ScreenGetMonitorWorkareaMethodInfo
        ResolveX11ScreenMethod "getNMonitors" o = Gdk.Screen.ScreenGetNMonitorsMethodInfo
        ResolveX11ScreenMethod "getNumber" o = Gdk.Screen.ScreenGetNumberMethodInfo
        ResolveX11ScreenMethod "getNumberOfDesktops" o = X11ScreenGetNumberOfDesktopsMethodInfo
        ResolveX11ScreenMethod "getPrimaryMonitor" o = Gdk.Screen.ScreenGetPrimaryMonitorMethodInfo
        ResolveX11ScreenMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
        ResolveX11ScreenMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
        ResolveX11ScreenMethod "getResolution" o = Gdk.Screen.ScreenGetResolutionMethodInfo
        ResolveX11ScreenMethod "getRgbaVisual" o = Gdk.Screen.ScreenGetRgbaVisualMethodInfo
        ResolveX11ScreenMethod "getRootWindow" o = Gdk.Screen.ScreenGetRootWindowMethodInfo
        ResolveX11ScreenMethod "getScreenNumber" o = X11ScreenGetScreenNumberMethodInfo
        ResolveX11ScreenMethod "getSetting" o = Gdk.Screen.ScreenGetSettingMethodInfo
        ResolveX11ScreenMethod "getSystemVisual" o = Gdk.Screen.ScreenGetSystemVisualMethodInfo
        ResolveX11ScreenMethod "getToplevelWindows" o = Gdk.Screen.ScreenGetToplevelWindowsMethodInfo
        ResolveX11ScreenMethod "getWidth" o = Gdk.Screen.ScreenGetWidthMethodInfo
        ResolveX11ScreenMethod "getWidthMm" o = Gdk.Screen.ScreenGetWidthMmMethodInfo
        ResolveX11ScreenMethod "getWindowManagerName" o = X11ScreenGetWindowManagerNameMethodInfo
        ResolveX11ScreenMethod "getWindowStack" o = Gdk.Screen.ScreenGetWindowStackMethodInfo
        ResolveX11ScreenMethod "getXscreen" o = X11ScreenGetXscreenMethodInfo
        ResolveX11ScreenMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
        ResolveX11ScreenMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
        ResolveX11ScreenMethod "setFontOptions" o = Gdk.Screen.ScreenSetFontOptionsMethodInfo
        ResolveX11ScreenMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
        ResolveX11ScreenMethod "setResolution" o = Gdk.Screen.ScreenSetResolutionMethodInfo
        ResolveX11ScreenMethod l o = O.MethodResolutionFailed l o

    instance (info ~ ResolveX11ScreenMethod t X11Screen, O.MethodInfo info X11Screen p) => OL.IsLabel t (X11Screen -> p) where
    #if MIN_VERSION_base(4,10,0)
        fromLabel = O.overloadedMethod @info
    #else
        fromLabel _ = O.overloadedMethod @info
    #endif

    #endif

    -- signal X11Screen::window-manager-changed
    -- | /No description available in the introspection data./
    type X11ScreenWindowManagerChangedCallback =
        IO ()

    -- | A convenience synonym for @`Nothing` :: `Maybe` `X11ScreenWindowManagerChangedCallback`@.
    noX11ScreenWindowManagerChangedCallback :: Maybe X11ScreenWindowManagerChangedCallback
    noX11ScreenWindowManagerChangedCallback :: Maybe (IO ())
    noX11ScreenWindowManagerChangedCallback = Maybe (IO ())
    forall a. Maybe a
    Nothing

    -- | Type for the callback on the (unwrapped) C side.
    type C_X11ScreenWindowManagerChangedCallback =
        Ptr () ->                               -- object
        Ptr () ->                               -- user_data
        IO ()

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

    -- | Wrap the callback into a `GClosure`.
    genClosure_X11ScreenWindowManagerChanged :: MonadIO m => X11ScreenWindowManagerChangedCallback -> m (GClosure C_X11ScreenWindowManagerChangedCallback)
    genClosure_X11ScreenWindowManagerChanged :: IO () -> m (GClosure C_X11ScreenWindowManagerChangedCallback)
    genClosure_X11ScreenWindowManagerChanged cb :: IO ()
    cb = IO (GClosure C_X11ScreenWindowManagerChangedCallback)
    -> m (GClosure C_X11ScreenWindowManagerChangedCallback)
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO (GClosure C_X11ScreenWindowManagerChangedCallback)
     -> m (GClosure C_X11ScreenWindowManagerChangedCallback))
    -> IO (GClosure C_X11ScreenWindowManagerChangedCallback)
    -> m (GClosure C_X11ScreenWindowManagerChangedCallback)
    forall a b. (a -> b) -> a -> b
    $ do
        let cb' :: C_X11ScreenWindowManagerChangedCallback
    cb' = IO () -> C_X11ScreenWindowManagerChangedCallback
    wrap_X11ScreenWindowManagerChangedCallback IO ()
    cb
        C_X11ScreenWindowManagerChangedCallback
    -> IO (FunPtr C_X11ScreenWindowManagerChangedCallback)
    mk_X11ScreenWindowManagerChangedCallback C_X11ScreenWindowManagerChangedCallback
    cb' IO (FunPtr C_X11ScreenWindowManagerChangedCallback)
    -> (FunPtr C_X11ScreenWindowManagerChangedCallback
        -> IO (GClosure C_X11ScreenWindowManagerChangedCallback))
    -> IO (GClosure C_X11ScreenWindowManagerChangedCallback)
    forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
    >>= FunPtr C_X11ScreenWindowManagerChangedCallback
    -> IO (GClosure C_X11ScreenWindowManagerChangedCallback)
    forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
    B.GClosure.newGClosure

    -- | Wrap a `X11ScreenWindowManagerChangedCallback` into a `C_X11ScreenWindowManagerChangedCallback`.
    wrap_X11ScreenWindowManagerChangedCallback ::
        X11ScreenWindowManagerChangedCallback ->
        C_X11ScreenWindowManagerChangedCallback
    wrap_X11ScreenWindowManagerChangedCallback :: IO () -> C_X11ScreenWindowManagerChangedCallback
    wrap_X11ScreenWindowManagerChangedCallback _cb :: IO ()
    _cb _ _ = do
        IO ()
    _cb

    -- | Connect a signal handler for the [windowManagerChanged](#signal:windowManagerChanged) 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' x11Screen #windowManagerChanged callback
    -- @
    --
    --
    onX11ScreenWindowManagerChanged :: (IsX11Screen a, MonadIO m) => a -> X11ScreenWindowManagerChangedCallback -> m SignalHandlerId
    onX11ScreenWindowManagerChanged :: a -> IO () -> m SignalHandlerId
    onX11ScreenWindowManagerChanged obj :: a
    obj cb :: IO ()
    cb = IO SignalHandlerId -> m SignalHandlerId
    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 cb' :: C_X11ScreenWindowManagerChangedCallback
    cb' = IO () -> C_X11ScreenWindowManagerChangedCallback
    wrap_X11ScreenWindowManagerChangedCallback IO ()
    cb
        FunPtr C_X11ScreenWindowManagerChangedCallback
    cb'' <- C_X11ScreenWindowManagerChangedCallback
    -> IO (FunPtr C_X11ScreenWindowManagerChangedCallback)
    mk_X11ScreenWindowManagerChangedCallback C_X11ScreenWindowManagerChangedCallback
    cb'
        a
    -> Text
    -> FunPtr C_X11ScreenWindowManagerChangedCallback
    -> SignalConnectMode
    -> Maybe Text
    -> IO SignalHandlerId
    forall o a.
    GObject o =>
    o
    -> Text
    -> FunPtr a
    -> SignalConnectMode
    -> Maybe Text
    -> IO SignalHandlerId
    connectSignalFunPtr a
    obj "window-manager-changed" FunPtr C_X11ScreenWindowManagerChangedCallback
    cb'' SignalConnectMode
    SignalConnectBefore Maybe Text
    forall a. Maybe a
    Nothing

    -- | Connect a signal handler for the [windowManagerChanged](#signal:windowManagerChanged) 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' x11Screen #windowManagerChanged callback
    -- @
    --
    --
    afterX11ScreenWindowManagerChanged :: (IsX11Screen a, MonadIO m) => a -> X11ScreenWindowManagerChangedCallback -> m SignalHandlerId
    afterX11ScreenWindowManagerChanged :: a -> IO () -> m SignalHandlerId
    afterX11ScreenWindowManagerChanged obj :: a
    obj cb :: IO ()
    cb = IO SignalHandlerId -> m SignalHandlerId
    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 cb' :: C_X11ScreenWindowManagerChangedCallback
    cb' = IO () -> C_X11ScreenWindowManagerChangedCallback
    wrap_X11ScreenWindowManagerChangedCallback IO ()
    cb
        FunPtr C_X11ScreenWindowManagerChangedCallback
    cb'' <- C_X11ScreenWindowManagerChangedCallback
    -> IO (FunPtr C_X11ScreenWindowManagerChangedCallback)
    mk_X11ScreenWindowManagerChangedCallback C_X11ScreenWindowManagerChangedCallback
    cb'
        a
    -> Text
    -> FunPtr C_X11ScreenWindowManagerChangedCallback
    -> SignalConnectMode
    -> Maybe Text
    -> IO SignalHandlerId
    forall o a.
    GObject o =>
    o
    -> Text
    -> FunPtr a
    -> SignalConnectMode
    -> Maybe Text
    -> IO SignalHandlerId
    connectSignalFunPtr a
    obj "window-manager-changed" FunPtr C_X11ScreenWindowManagerChangedCallback
    cb'' SignalConnectMode
    SignalConnectAfter Maybe Text
    forall a. Maybe a
    Nothing

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenWindowManagerChangedSignalInfo
    instance SignalInfo X11ScreenWindowManagerChangedSignalInfo where
        type HaskellCallbackType X11ScreenWindowManagerChangedSignalInfo = X11ScreenWindowManagerChangedCallback
        connectSignal obj cb connectMode detail = do
            let cb' = wrap_X11ScreenWindowManagerChangedCallback cb
            cb'' <- mk_X11ScreenWindowManagerChangedCallback cb'
            connectSignalFunPtr obj "window-manager-changed" cb'' connectMode detail

    #endif

    #if defined(ENABLE_OVERLOADING)
    instance O.HasAttributeList X11Screen
    type instance O.AttributeList X11Screen = X11ScreenAttributeList
    type X11ScreenAttributeList = ('[ '("fontOptions", Gdk.Screen.ScreenFontOptionsPropertyInfo), '("resolution", Gdk.Screen.ScreenResolutionPropertyInfo)] :: [(Symbol, *)])
    #endif

    #if defined(ENABLE_OVERLOADING)
    #endif

    #if defined(ENABLE_OVERLOADING)
    type instance O.SignalList X11Screen = X11ScreenSignalList
    type X11ScreenSignalList = ('[ '("compositedChanged", Gdk.Screen.ScreenCompositedChangedSignalInfo), '("monitorsChanged", Gdk.Screen.ScreenMonitorsChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("sizeChanged", Gdk.Screen.ScreenSizeChangedSignalInfo), '("windowManagerChanged", X11ScreenWindowManagerChangedSignalInfo)] :: [(Symbol, *)])

    #endif

    -- method X11Screen::get_current_desktop
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GdkScreen" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TUInt32)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_get_current_desktop" gdk_x11_screen_get_current_desktop ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        IO Word32

    -- | Returns the current workspace for /@screen@/ when running under a
    -- window manager that supports multiple workspaces, as described
    -- in the
    -- <http://www.freedesktop.org/Standards/wm-spec Extended Window Manager Hints> specification.
    --
    -- /Since: 3.10/
    x11ScreenGetCurrentDesktop ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: a t'GI.Gdk.Objects.Screen.Screen'
        -> m Word32
        -- ^ __Returns:__ the current workspace, or 0 if workspaces are not supported
    x11ScreenGetCurrentDesktop :: a -> m Word32
    x11ScreenGetCurrentDesktop screen :: a
    screen = IO Word32 -> m Word32
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
    forall a b. (a -> b) -> a -> b
    $ do
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        Word32
    result <- Ptr X11Screen -> IO Word32
    gdk_x11_screen_get_current_desktop Ptr X11Screen
    screen'
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        Word32 -> IO Word32
    forall (m :: * -> *) a. Monad m => a -> m a
    return Word32
    result

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenGetCurrentDesktopMethodInfo
    instance (signature ~ (m Word32), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenGetCurrentDesktopMethodInfo a signature where
        overloadedMethod = x11ScreenGetCurrentDesktop

    #endif

    -- method X11Screen::get_monitor_output
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GdkScreen" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "monitor_num"
    --           , argType = TBasicType TInt
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText =
    --                     Just
    --                       "number of the monitor, between 0 and gdk_screen_get_n_monitors (screen)"
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TULong)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_get_monitor_output" gdk_x11_screen_get_monitor_output ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        Int32 ->                                -- monitor_num : TBasicType TInt
        IO CULong

    -- | Gets the XID of the specified output\/monitor.
    -- If the X server does not support version 1.2 of the RANDR
    -- extension, 0 is returned.
    --
    -- /Since: 2.14/
    x11ScreenGetMonitorOutput ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: a t'GI.Gdk.Objects.Screen.Screen'
        -> Int32
        -- ^ /@monitorNum@/: number of the monitor, between 0 and gdk_screen_get_n_monitors (screen)
        -> m CULong
        -- ^ __Returns:__ the XID of the monitor
    x11ScreenGetMonitorOutput :: a -> Int32 -> m SignalHandlerId
    x11ScreenGetMonitorOutput screen :: a
    screen monitorNum :: Int32
    monitorNum = IO SignalHandlerId -> m SignalHandlerId
    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
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        SignalHandlerId
    result <- Ptr X11Screen -> Int32 -> IO SignalHandlerId
    gdk_x11_screen_get_monitor_output Ptr X11Screen
    screen' Int32
    monitorNum
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        SignalHandlerId -> IO SignalHandlerId
    forall (m :: * -> *) a. Monad m => a -> m a
    return SignalHandlerId
    result

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenGetMonitorOutputMethodInfo
    instance (signature ~ (Int32 -> m CULong), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenGetMonitorOutputMethodInfo a signature where
        overloadedMethod = x11ScreenGetMonitorOutput

    #endif

    -- method X11Screen::get_number_of_desktops
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GdkScreen" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TUInt32)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_get_number_of_desktops" gdk_x11_screen_get_number_of_desktops ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        IO Word32

    -- | Returns the number of workspaces for /@screen@/ when running under a
    -- window manager that supports multiple workspaces, as described
    -- in the
    -- <http://www.freedesktop.org/Standards/wm-spec Extended Window Manager Hints> specification.
    --
    -- /Since: 3.10/
    x11ScreenGetNumberOfDesktops ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: a t'GI.Gdk.Objects.Screen.Screen'
        -> m Word32
        -- ^ __Returns:__ the number of workspaces, or 0 if workspaces are not supported
    x11ScreenGetNumberOfDesktops :: a -> m Word32
    x11ScreenGetNumberOfDesktops screen :: a
    screen = IO Word32 -> m Word32
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
    forall a b. (a -> b) -> a -> b
    $ do
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        Word32
    result <- Ptr X11Screen -> IO Word32
    gdk_x11_screen_get_number_of_desktops Ptr X11Screen
    screen'
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        Word32 -> IO Word32
    forall (m :: * -> *) a. Monad m => a -> m a
    return Word32
    result

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenGetNumberOfDesktopsMethodInfo
    instance (signature ~ (m Word32), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenGetNumberOfDesktopsMethodInfo a signature where
        overloadedMethod = x11ScreenGetNumberOfDesktops

    #endif

    -- method X11Screen::get_screen_number
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GdkScreen" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TInt)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_get_screen_number" gdk_x11_screen_get_screen_number ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        IO Int32

    -- | Returns the index of a t'GI.Gdk.Objects.Screen.Screen'.
    --
    -- /Since: 2.2/
    x11ScreenGetScreenNumber ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: a t'GI.Gdk.Objects.Screen.Screen'
        -> m Int32
        -- ^ __Returns:__ the position of /@screen@/ among the screens
        --     of its display
    x11ScreenGetScreenNumber :: a -> m Int32
    x11ScreenGetScreenNumber screen :: a
    screen = IO Int32 -> m Int32
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
    forall a b. (a -> b) -> a -> b
    $ do
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        Int32
    result <- Ptr X11Screen -> IO Int32
    gdk_x11_screen_get_screen_number Ptr X11Screen
    screen'
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        Int32 -> IO Int32
    forall (m :: * -> *) a. Monad m => a -> m a
    return Int32
    result

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenGetScreenNumberMethodInfo
    instance (signature ~ (m Int32), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenGetScreenNumberMethodInfo a signature where
        overloadedMethod = x11ScreenGetScreenNumber

    #endif

    -- method X11Screen::get_window_manager_name
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GdkScreen" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TUTF8)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_get_window_manager_name" gdk_x11_screen_get_window_manager_name ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        IO CString

    -- | Returns the name of the window manager for /@screen@/.
    --
    -- /Since: 2.2/
    x11ScreenGetWindowManagerName ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: a t'GI.Gdk.Objects.Screen.Screen'
        -> m T.Text
        -- ^ __Returns:__ the name of the window manager screen /@screen@/, or
        -- \"unknown\" if the window manager is unknown. The string is owned by GDK
        -- and should not be freed.
    x11ScreenGetWindowManagerName :: a -> m Text
    x11ScreenGetWindowManagerName screen :: a
    screen = IO Text -> m Text
    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
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        CString
    result <- Ptr X11Screen -> IO CString
    gdk_x11_screen_get_window_manager_name Ptr X11Screen
    screen'
        Text -> CString -> IO ()
    forall a. HasCallStack => Text -> Ptr a -> IO ()
    checkUnexpectedReturnNULL "x11ScreenGetWindowManagerName" CString
    result
        Text
    result' <- HasCallStack => CString -> IO Text
    CString -> IO Text
    cstringToText CString
    result
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        Text -> IO Text
    forall (m :: * -> *) a. Monad m => a -> m a
    return Text
    result'

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenGetWindowManagerNameMethodInfo
    instance (signature ~ (m T.Text), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenGetWindowManagerNameMethodInfo a signature where
        overloadedMethod = x11ScreenGetWindowManagerName

    #endif

    -- method X11Screen::get_xscreen
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GdkScreen" , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TInterface Name { namespace = "xlib" , name = "Screen" })
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_get_xscreen" gdk_x11_screen_get_xscreen ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        IO (Ptr Xlib.Screen.Screen)

    -- | Returns the screen of a t'GI.Gdk.Objects.Screen.Screen'.
    --
    -- /Since: 2.2/
    x11ScreenGetXscreen ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: a t'GI.Gdk.Objects.Screen.Screen'
        -> m Xlib.Screen.Screen
        -- ^ __Returns:__ an Xlib Screen*
    x11ScreenGetXscreen :: a -> m Screen
    x11ScreenGetXscreen screen :: a
    screen = IO Screen -> m Screen
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Screen -> m Screen) -> IO Screen -> m Screen
    forall a b. (a -> b) -> a -> b
    $ do
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        Ptr Screen
    result <- Ptr X11Screen -> IO (Ptr Screen)
    gdk_x11_screen_get_xscreen Ptr X11Screen
    screen'
        Text -> Ptr Screen -> IO ()
    forall a. HasCallStack => Text -> Ptr a -> IO ()
    checkUnexpectedReturnNULL "x11ScreenGetXscreen" Ptr Screen
    result
        Screen
    result' <- ((ManagedPtr Screen -> Screen) -> Ptr Screen -> IO Screen
    forall a.
    (HasCallStack, BoxedPtr a) =>
    (ManagedPtr a -> a) -> Ptr a -> IO a
    newPtr ManagedPtr Screen -> Screen
    Xlib.Screen.Screen) Ptr Screen
    result
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        Screen -> IO Screen
    forall (m :: * -> *) a. Monad m => a -> m a
    return Screen
    result'

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenGetXscreenMethodInfo
    instance (signature ~ (m Xlib.Screen.Screen), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenGetXscreenMethodInfo a signature where
        overloadedMethod = x11ScreenGetXscreen

    #endif

    -- method X11Screen::lookup_visual
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a #GdkScreen." , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "xvisualid"
    --           , argType = TBasicType TULong
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "an X Visual ID." , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just
    --               (TInterface Name { namespace = "GdkX11" , name = "X11Visual" })
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_lookup_visual" gdk_x11_screen_lookup_visual ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        CULong ->                               -- xvisualid : TBasicType TULong
        IO (Ptr GdkX11.X11Visual.X11Visual)

    -- | Looks up the t'GI.Gdk.Objects.Visual.Visual' for a particular screen and X Visual ID.
    --
    -- /Since: 2.2/
    x11ScreenLookupVisual ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: a t'GI.Gdk.Objects.Screen.Screen'.
        -> CULong
        -- ^ /@xvisualid@/: an X Visual ID.
        -> m GdkX11.X11Visual.X11Visual
        -- ^ __Returns:__ the t'GI.Gdk.Objects.Visual.Visual' (owned by the screen
        --   object), or 'P.Nothing' if the visual ID wasn’t found.
    x11ScreenLookupVisual :: a -> SignalHandlerId -> m X11Visual
    x11ScreenLookupVisual screen :: a
    screen xvisualid :: SignalHandlerId
    xvisualid = IO X11Visual -> m X11Visual
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO X11Visual -> m X11Visual) -> IO X11Visual -> m X11Visual
    forall a b. (a -> b) -> a -> b
    $ do
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        Ptr X11Visual
    result <- Ptr X11Screen -> SignalHandlerId -> IO (Ptr X11Visual)
    gdk_x11_screen_lookup_visual Ptr X11Screen
    screen' SignalHandlerId
    xvisualid
        Text -> Ptr X11Visual -> IO ()
    forall a. HasCallStack => Text -> Ptr a -> IO ()
    checkUnexpectedReturnNULL "x11ScreenLookupVisual" Ptr X11Visual
    result
        X11Visual
    result' <- ((ManagedPtr X11Visual -> X11Visual)
    -> Ptr X11Visual -> IO X11Visual
    forall a b.
    (HasCallStack, GObject a, GObject b) =>
    (ManagedPtr a -> a) -> Ptr b -> IO a
    newObject ManagedPtr X11Visual -> X11Visual
    GdkX11.X11Visual.X11Visual) Ptr X11Visual
    result
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        X11Visual -> IO X11Visual
    forall (m :: * -> *) a. Monad m => a -> m a
    return X11Visual
    result'

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenLookupVisualMethodInfo
    instance (signature ~ (CULong -> m GdkX11.X11Visual.X11Visual), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenLookupVisualMethodInfo a signature where
        overloadedMethod = x11ScreenLookupVisual

    #endif

    -- method X11Screen::supports_net_wm_hint
    -- method type : OrdinaryMethod
    -- Args: [ Arg
    --           { argCName = "screen"
    --           , argType =
    --               TInterface Name { namespace = "GdkX11" , name = "X11Screen" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "the relevant #GdkScreen."
    --                 , sinceVersion = Nothing
    --                 }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       , Arg
    --           { argCName = "property"
    --           , argType = TInterface Name { namespace = "Gdk" , name = "Atom" }
    --           , direction = DirectionIn
    --           , mayBeNull = False
    --           , argDoc =
    --               Documentation
    --                 { rawDocText = Just "a property atom." , sinceVersion = Nothing }
    --           , argScope = ScopeTypeInvalid
    --           , argClosure = -1
    --           , argDestroy = -1
    --           , argCallerAllocates = False
    --           , transfer = TransferNothing
    --           }
    --       ]
    -- Lengths: []
    -- returnType: Just (TBasicType TBoolean)
    -- throws : False
    -- Skip return : False

    foreign import ccall "gdk_x11_screen_supports_net_wm_hint" gdk_x11_screen_supports_net_wm_hint ::
        Ptr X11Screen ->                        -- screen : TInterface (Name {namespace = "GdkX11", name = "X11Screen"})
        Ptr Gdk.Atom.Atom ->                    -- property : TInterface (Name {namespace = "Gdk", name = "Atom"})
        IO CInt

    -- | This function is specific to the X11 backend of GDK, and indicates
    -- whether the window manager supports a certain hint from the
    -- <http://www.freedesktop.org/Standards/wm-spec Extended Window Manager Hints> specification.
    --
    -- When using this function, keep in mind that the window manager
    -- can change over time; so you shouldn’t use this function in
    -- a way that impacts persistent application state. A common bug
    -- is that your application can start up before the window manager
    -- does when the user logs in, and before the window manager starts
    -- 'GI.GdkX11.Objects.X11Screen.x11ScreenSupportsNetWmHint' will return 'P.False' for every property.
    -- You can monitor the window_manager_changed signal on t'GI.Gdk.Objects.Screen.Screen' to detect
    -- a window manager change.
    --
    -- /Since: 2.2/
    x11ScreenSupportsNetWmHint ::
        (B.CallStack.HasCallStack, MonadIO m, IsX11Screen a) =>
        a
        -- ^ /@screen@/: the relevant t'GI.Gdk.Objects.Screen.Screen'.
        -> Gdk.Atom.Atom
        -- ^ /@property@/: a property atom.
        -> m Bool
        -- ^ __Returns:__ 'P.True' if the window manager supports /@property@/
    x11ScreenSupportsNetWmHint :: a -> Atom -> m Bool
    x11ScreenSupportsNetWmHint screen :: a
    screen property :: Atom
    property = IO Bool -> m Bool
    forall (m :: * -> *) a. MonadIO m => IO a -> m a
    liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
    forall a b. (a -> b) -> a -> b
    $ do
        Ptr X11Screen
    screen' <- a -> IO (Ptr X11Screen)
    forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
    unsafeManagedPtrCastPtr a
    screen
        Ptr Atom
    property' <- Atom -> IO (Ptr Atom)
    forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
    unsafeManagedPtrGetPtr Atom
    property
        CInt
    result <- Ptr X11Screen -> Ptr Atom -> IO CInt
    gdk_x11_screen_supports_net_wm_hint Ptr X11Screen
    screen' Ptr Atom
    property'
        let result' :: Bool
    result' = (CInt -> CInt -> Bool
    forall a. Eq a => a -> a -> Bool
    /= 0) CInt
    result
        a -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr a
    screen
        Atom -> IO ()
    forall a. ManagedPtrNewtype a => a -> IO ()
    touchManagedPtr Atom
    property
        Bool -> IO Bool
    forall (m :: * -> *) a. Monad m => a -> m a
    return Bool
    result'

    #if defined(ENABLE_OVERLOADING)
    data X11ScreenSupportsNetWmHintMethodInfo
    instance (signature ~ (Gdk.Atom.Atom -> m Bool), MonadIO m, IsX11Screen a) => O.MethodInfo X11ScreenSupportsNetWmHintMethodInfo a signature where
        overloadedMethod = x11ScreenSupportsNetWmHint

    #endif