{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GdkX11.Objects.X11Window
(
X11Window(..) ,
IsX11Window ,
toX11Window ,
noX11Window ,
#if defined(ENABLE_OVERLOADING)
ResolveX11WindowMethod ,
#endif
x11WindowForeignNewForDisplay ,
#if defined(ENABLE_OVERLOADING)
X11WindowGetDesktopMethodInfo ,
#endif
x11WindowGetDesktop ,
#if defined(ENABLE_OVERLOADING)
X11WindowGetXidMethodInfo ,
#endif
x11WindowGetXid ,
x11WindowLookupForDisplay ,
#if defined(ENABLE_OVERLOADING)
X11WindowMoveToCurrentDesktopMethodInfo ,
#endif
x11WindowMoveToCurrentDesktop ,
#if defined(ENABLE_OVERLOADING)
X11WindowMoveToDesktopMethodInfo ,
#endif
x11WindowMoveToDesktop ,
#if defined(ENABLE_OVERLOADING)
X11WindowSetFrameExtentsMethodInfo ,
#endif
x11WindowSetFrameExtents ,
#if defined(ENABLE_OVERLOADING)
X11WindowSetFrameSyncEnabledMethodInfo ,
#endif
x11WindowSetFrameSyncEnabled ,
#if defined(ENABLE_OVERLOADING)
X11WindowSetHideTitlebarWhenMaximizedMethodInfo,
#endif
x11WindowSetHideTitlebarWhenMaximized ,
#if defined(ENABLE_OVERLOADING)
X11WindowSetThemeVariantMethodInfo ,
#endif
x11WindowSetThemeVariant ,
#if defined(ENABLE_OVERLOADING)
X11WindowSetUserTimeMethodInfo ,
#endif
x11WindowSetUserTime ,
#if defined(ENABLE_OVERLOADING)
X11WindowSetUtf8PropertyMethodInfo ,
#endif
x11WindowSetUtf8Property ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Window as Gdk.Window
import {-# SOURCE #-} qualified GI.GdkX11.Objects.X11Display as GdkX11.X11Display
newtype X11Window = X11Window (ManagedPtr X11Window)
deriving (X11Window -> X11Window -> Bool
(X11Window -> X11Window -> Bool)
-> (X11Window -> X11Window -> Bool) -> Eq X11Window
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: X11Window -> X11Window -> Bool
$c/= :: X11Window -> X11Window -> Bool
== :: X11Window -> X11Window -> Bool
$c== :: X11Window -> X11Window -> Bool
Eq)
foreign import ccall "gdk_x11_window_get_type"
c_gdk_x11_window_get_type :: IO GType
instance GObject X11Window where
gobjectType :: IO GType
gobjectType = IO GType
c_gdk_x11_window_get_type
instance B.GValue.IsGValue X11Window where
toGValue :: X11Window -> IO GValue
toGValue o :: X11Window
o = do
GType
gtype <- IO GType
c_gdk_x11_window_get_type
X11Window -> (Ptr X11Window -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr X11Window
o (GType
-> (GValue -> Ptr X11Window -> IO ()) -> Ptr X11Window -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr X11Window -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO X11Window
fromGValue gv :: GValue
gv = do
Ptr X11Window
ptr <- GValue -> IO (Ptr X11Window)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr X11Window)
(ManagedPtr X11Window -> X11Window)
-> Ptr X11Window -> IO X11Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr X11Window -> X11Window
X11Window Ptr X11Window
ptr
class (GObject o, O.IsDescendantOf X11Window o) => IsX11Window o
instance (GObject o, O.IsDescendantOf X11Window o) => IsX11Window o
instance O.HasParentTypes X11Window
type instance O.ParentTypes X11Window = '[Gdk.Window.Window, GObject.Object.Object]
toX11Window :: (MonadIO m, IsX11Window o) => o -> m X11Window
toX11Window :: o -> m X11Window
toX11Window = IO X11Window -> m X11Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO X11Window -> m X11Window)
-> (o -> IO X11Window) -> o -> m X11Window
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr X11Window -> X11Window) -> o -> IO X11Window
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr X11Window -> X11Window
X11Window
noX11Window :: Maybe X11Window
noX11Window :: Maybe X11Window
noX11Window = Maybe X11Window
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveX11WindowMethod (t :: Symbol) (o :: *) :: * where
ResolveX11WindowMethod "beep" o = Gdk.Window.WindowBeepMethodInfo
ResolveX11WindowMethod "beginDrawFrame" o = Gdk.Window.WindowBeginDrawFrameMethodInfo
ResolveX11WindowMethod "beginMoveDrag" o = Gdk.Window.WindowBeginMoveDragMethodInfo
ResolveX11WindowMethod "beginMoveDragForDevice" o = Gdk.Window.WindowBeginMoveDragForDeviceMethodInfo
ResolveX11WindowMethod "beginPaintRect" o = Gdk.Window.WindowBeginPaintRectMethodInfo
ResolveX11WindowMethod "beginPaintRegion" o = Gdk.Window.WindowBeginPaintRegionMethodInfo
ResolveX11WindowMethod "beginResizeDrag" o = Gdk.Window.WindowBeginResizeDragMethodInfo
ResolveX11WindowMethod "beginResizeDragForDevice" o = Gdk.Window.WindowBeginResizeDragForDeviceMethodInfo
ResolveX11WindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveX11WindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveX11WindowMethod "configureFinished" o = Gdk.Window.WindowConfigureFinishedMethodInfo
ResolveX11WindowMethod "coordsFromParent" o = Gdk.Window.WindowCoordsFromParentMethodInfo
ResolveX11WindowMethod "coordsToParent" o = Gdk.Window.WindowCoordsToParentMethodInfo
ResolveX11WindowMethod "createGlContext" o = Gdk.Window.WindowCreateGlContextMethodInfo
ResolveX11WindowMethod "createSimilarImageSurface" o = Gdk.Window.WindowCreateSimilarImageSurfaceMethodInfo
ResolveX11WindowMethod "createSimilarSurface" o = Gdk.Window.WindowCreateSimilarSurfaceMethodInfo
ResolveX11WindowMethod "deiconify" o = Gdk.Window.WindowDeiconifyMethodInfo
ResolveX11WindowMethod "destroy" o = Gdk.Window.WindowDestroyMethodInfo
ResolveX11WindowMethod "destroyNotify" o = Gdk.Window.WindowDestroyNotifyMethodInfo
ResolveX11WindowMethod "enableSynchronizedConfigure" o = Gdk.Window.WindowEnableSynchronizedConfigureMethodInfo
ResolveX11WindowMethod "endDrawFrame" o = Gdk.Window.WindowEndDrawFrameMethodInfo
ResolveX11WindowMethod "endPaint" o = Gdk.Window.WindowEndPaintMethodInfo
ResolveX11WindowMethod "ensureNative" o = Gdk.Window.WindowEnsureNativeMethodInfo
ResolveX11WindowMethod "flush" o = Gdk.Window.WindowFlushMethodInfo
ResolveX11WindowMethod "focus" o = Gdk.Window.WindowFocusMethodInfo
ResolveX11WindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveX11WindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveX11WindowMethod "freezeToplevelUpdatesLibgtkOnly" o = Gdk.Window.WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo
ResolveX11WindowMethod "freezeUpdates" o = Gdk.Window.WindowFreezeUpdatesMethodInfo
ResolveX11WindowMethod "fullscreen" o = Gdk.Window.WindowFullscreenMethodInfo
ResolveX11WindowMethod "fullscreenOnMonitor" o = Gdk.Window.WindowFullscreenOnMonitorMethodInfo
ResolveX11WindowMethod "geometryChanged" o = Gdk.Window.WindowGeometryChangedMethodInfo
ResolveX11WindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveX11WindowMethod "hasNative" o = Gdk.Window.WindowHasNativeMethodInfo
ResolveX11WindowMethod "hide" o = Gdk.Window.WindowHideMethodInfo
ResolveX11WindowMethod "iconify" o = Gdk.Window.WindowIconifyMethodInfo
ResolveX11WindowMethod "inputShapeCombineRegion" o = Gdk.Window.WindowInputShapeCombineRegionMethodInfo
ResolveX11WindowMethod "invalidateMaybeRecurse" o = Gdk.Window.WindowInvalidateMaybeRecurseMethodInfo
ResolveX11WindowMethod "invalidateRect" o = Gdk.Window.WindowInvalidateRectMethodInfo
ResolveX11WindowMethod "invalidateRegion" o = Gdk.Window.WindowInvalidateRegionMethodInfo
ResolveX11WindowMethod "isDestroyed" o = Gdk.Window.WindowIsDestroyedMethodInfo
ResolveX11WindowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveX11WindowMethod "isInputOnly" o = Gdk.Window.WindowIsInputOnlyMethodInfo
ResolveX11WindowMethod "isShaped" o = Gdk.Window.WindowIsShapedMethodInfo
ResolveX11WindowMethod "isViewable" o = Gdk.Window.WindowIsViewableMethodInfo
ResolveX11WindowMethod "isVisible" o = Gdk.Window.WindowIsVisibleMethodInfo
ResolveX11WindowMethod "lower" o = Gdk.Window.WindowLowerMethodInfo
ResolveX11WindowMethod "markPaintFromClip" o = Gdk.Window.WindowMarkPaintFromClipMethodInfo
ResolveX11WindowMethod "maximize" o = Gdk.Window.WindowMaximizeMethodInfo
ResolveX11WindowMethod "mergeChildInputShapes" o = Gdk.Window.WindowMergeChildInputShapesMethodInfo
ResolveX11WindowMethod "mergeChildShapes" o = Gdk.Window.WindowMergeChildShapesMethodInfo
ResolveX11WindowMethod "move" o = Gdk.Window.WindowMoveMethodInfo
ResolveX11WindowMethod "moveRegion" o = Gdk.Window.WindowMoveRegionMethodInfo
ResolveX11WindowMethod "moveResize" o = Gdk.Window.WindowMoveResizeMethodInfo
ResolveX11WindowMethod "moveToCurrentDesktop" o = X11WindowMoveToCurrentDesktopMethodInfo
ResolveX11WindowMethod "moveToDesktop" o = X11WindowMoveToDesktopMethodInfo
ResolveX11WindowMethod "moveToRect" o = Gdk.Window.WindowMoveToRectMethodInfo
ResolveX11WindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveX11WindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveX11WindowMethod "peekChildren" o = Gdk.Window.WindowPeekChildrenMethodInfo
ResolveX11WindowMethod "processUpdates" o = Gdk.Window.WindowProcessUpdatesMethodInfo
ResolveX11WindowMethod "raise" o = Gdk.Window.WindowRaiseMethodInfo
ResolveX11WindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveX11WindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveX11WindowMethod "registerDnd" o = Gdk.Window.WindowRegisterDndMethodInfo
ResolveX11WindowMethod "reparent" o = Gdk.Window.WindowReparentMethodInfo
ResolveX11WindowMethod "resize" o = Gdk.Window.WindowResizeMethodInfo
ResolveX11WindowMethod "restack" o = Gdk.Window.WindowRestackMethodInfo
ResolveX11WindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveX11WindowMethod "scroll" o = Gdk.Window.WindowScrollMethodInfo
ResolveX11WindowMethod "shapeCombineRegion" o = Gdk.Window.WindowShapeCombineRegionMethodInfo
ResolveX11WindowMethod "show" o = Gdk.Window.WindowShowMethodInfo
ResolveX11WindowMethod "showUnraised" o = Gdk.Window.WindowShowUnraisedMethodInfo
ResolveX11WindowMethod "showWindowMenu" o = Gdk.Window.WindowShowWindowMenuMethodInfo
ResolveX11WindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveX11WindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveX11WindowMethod "stick" o = Gdk.Window.WindowStickMethodInfo
ResolveX11WindowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveX11WindowMethod "thawToplevelUpdatesLibgtkOnly" o = Gdk.Window.WindowThawToplevelUpdatesLibgtkOnlyMethodInfo
ResolveX11WindowMethod "thawUpdates" o = Gdk.Window.WindowThawUpdatesMethodInfo
ResolveX11WindowMethod "unfullscreen" o = Gdk.Window.WindowUnfullscreenMethodInfo
ResolveX11WindowMethod "unmaximize" o = Gdk.Window.WindowUnmaximizeMethodInfo
ResolveX11WindowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveX11WindowMethod "unstick" o = Gdk.Window.WindowUnstickMethodInfo
ResolveX11WindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveX11WindowMethod "withdraw" o = Gdk.Window.WindowWithdrawMethodInfo
ResolveX11WindowMethod "getAcceptFocus" o = Gdk.Window.WindowGetAcceptFocusMethodInfo
ResolveX11WindowMethod "getBackgroundPattern" o = Gdk.Window.WindowGetBackgroundPatternMethodInfo
ResolveX11WindowMethod "getChildren" o = Gdk.Window.WindowGetChildrenMethodInfo
ResolveX11WindowMethod "getChildrenWithUserData" o = Gdk.Window.WindowGetChildrenWithUserDataMethodInfo
ResolveX11WindowMethod "getClipRegion" o = Gdk.Window.WindowGetClipRegionMethodInfo
ResolveX11WindowMethod "getComposited" o = Gdk.Window.WindowGetCompositedMethodInfo
ResolveX11WindowMethod "getCursor" o = Gdk.Window.WindowGetCursorMethodInfo
ResolveX11WindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveX11WindowMethod "getDecorations" o = Gdk.Window.WindowGetDecorationsMethodInfo
ResolveX11WindowMethod "getDesktop" o = X11WindowGetDesktopMethodInfo
ResolveX11WindowMethod "getDeviceCursor" o = Gdk.Window.WindowGetDeviceCursorMethodInfo
ResolveX11WindowMethod "getDeviceEvents" o = Gdk.Window.WindowGetDeviceEventsMethodInfo
ResolveX11WindowMethod "getDevicePosition" o = Gdk.Window.WindowGetDevicePositionMethodInfo
ResolveX11WindowMethod "getDevicePositionDouble" o = Gdk.Window.WindowGetDevicePositionDoubleMethodInfo
ResolveX11WindowMethod "getDisplay" o = Gdk.Window.WindowGetDisplayMethodInfo
ResolveX11WindowMethod "getDragProtocol" o = Gdk.Window.WindowGetDragProtocolMethodInfo
ResolveX11WindowMethod "getEffectiveParent" o = Gdk.Window.WindowGetEffectiveParentMethodInfo
ResolveX11WindowMethod "getEffectiveToplevel" o = Gdk.Window.WindowGetEffectiveToplevelMethodInfo
ResolveX11WindowMethod "getEventCompression" o = Gdk.Window.WindowGetEventCompressionMethodInfo
ResolveX11WindowMethod "getEvents" o = Gdk.Window.WindowGetEventsMethodInfo
ResolveX11WindowMethod "getFocusOnMap" o = Gdk.Window.WindowGetFocusOnMapMethodInfo
ResolveX11WindowMethod "getFrameClock" o = Gdk.Window.WindowGetFrameClockMethodInfo
ResolveX11WindowMethod "getFrameExtents" o = Gdk.Window.WindowGetFrameExtentsMethodInfo
ResolveX11WindowMethod "getFullscreenMode" o = Gdk.Window.WindowGetFullscreenModeMethodInfo
ResolveX11WindowMethod "getGeometry" o = Gdk.Window.WindowGetGeometryMethodInfo
ResolveX11WindowMethod "getGroup" o = Gdk.Window.WindowGetGroupMethodInfo
ResolveX11WindowMethod "getHeight" o = Gdk.Window.WindowGetHeightMethodInfo
ResolveX11WindowMethod "getModalHint" o = Gdk.Window.WindowGetModalHintMethodInfo
ResolveX11WindowMethod "getOrigin" o = Gdk.Window.WindowGetOriginMethodInfo
ResolveX11WindowMethod "getParent" o = Gdk.Window.WindowGetParentMethodInfo
ResolveX11WindowMethod "getPassThrough" o = Gdk.Window.WindowGetPassThroughMethodInfo
ResolveX11WindowMethod "getPointer" o = Gdk.Window.WindowGetPointerMethodInfo
ResolveX11WindowMethod "getPosition" o = Gdk.Window.WindowGetPositionMethodInfo
ResolveX11WindowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveX11WindowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveX11WindowMethod "getRootCoords" o = Gdk.Window.WindowGetRootCoordsMethodInfo
ResolveX11WindowMethod "getRootOrigin" o = Gdk.Window.WindowGetRootOriginMethodInfo
ResolveX11WindowMethod "getScaleFactor" o = Gdk.Window.WindowGetScaleFactorMethodInfo
ResolveX11WindowMethod "getScreen" o = Gdk.Window.WindowGetScreenMethodInfo
ResolveX11WindowMethod "getSourceEvents" o = Gdk.Window.WindowGetSourceEventsMethodInfo
ResolveX11WindowMethod "getState" o = Gdk.Window.WindowGetStateMethodInfo
ResolveX11WindowMethod "getSupportMultidevice" o = Gdk.Window.WindowGetSupportMultideviceMethodInfo
ResolveX11WindowMethod "getToplevel" o = Gdk.Window.WindowGetToplevelMethodInfo
ResolveX11WindowMethod "getTypeHint" o = Gdk.Window.WindowGetTypeHintMethodInfo
ResolveX11WindowMethod "getUpdateArea" o = Gdk.Window.WindowGetUpdateAreaMethodInfo
ResolveX11WindowMethod "getUserData" o = Gdk.Window.WindowGetUserDataMethodInfo
ResolveX11WindowMethod "getVisibleRegion" o = Gdk.Window.WindowGetVisibleRegionMethodInfo
ResolveX11WindowMethod "getVisual" o = Gdk.Window.WindowGetVisualMethodInfo
ResolveX11WindowMethod "getWidth" o = Gdk.Window.WindowGetWidthMethodInfo
ResolveX11WindowMethod "getWindowType" o = Gdk.Window.WindowGetWindowTypeMethodInfo
ResolveX11WindowMethod "getXid" o = X11WindowGetXidMethodInfo
ResolveX11WindowMethod "setAcceptFocus" o = Gdk.Window.WindowSetAcceptFocusMethodInfo
ResolveX11WindowMethod "setBackground" o = Gdk.Window.WindowSetBackgroundMethodInfo
ResolveX11WindowMethod "setBackgroundPattern" o = Gdk.Window.WindowSetBackgroundPatternMethodInfo
ResolveX11WindowMethod "setBackgroundRgba" o = Gdk.Window.WindowSetBackgroundRgbaMethodInfo
ResolveX11WindowMethod "setChildInputShapes" o = Gdk.Window.WindowSetChildInputShapesMethodInfo
ResolveX11WindowMethod "setChildShapes" o = Gdk.Window.WindowSetChildShapesMethodInfo
ResolveX11WindowMethod "setComposited" o = Gdk.Window.WindowSetCompositedMethodInfo
ResolveX11WindowMethod "setCursor" o = Gdk.Window.WindowSetCursorMethodInfo
ResolveX11WindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveX11WindowMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveX11WindowMethod "setDecorations" o = Gdk.Window.WindowSetDecorationsMethodInfo
ResolveX11WindowMethod "setDeviceCursor" o = Gdk.Window.WindowSetDeviceCursorMethodInfo
ResolveX11WindowMethod "setDeviceEvents" o = Gdk.Window.WindowSetDeviceEventsMethodInfo
ResolveX11WindowMethod "setEventCompression" o = Gdk.Window.WindowSetEventCompressionMethodInfo
ResolveX11WindowMethod "setEvents" o = Gdk.Window.WindowSetEventsMethodInfo
ResolveX11WindowMethod "setFocusOnMap" o = Gdk.Window.WindowSetFocusOnMapMethodInfo
ResolveX11WindowMethod "setFrameExtents" o = X11WindowSetFrameExtentsMethodInfo
ResolveX11WindowMethod "setFrameSyncEnabled" o = X11WindowSetFrameSyncEnabledMethodInfo
ResolveX11WindowMethod "setFullscreenMode" o = Gdk.Window.WindowSetFullscreenModeMethodInfo
ResolveX11WindowMethod "setFunctions" o = Gdk.Window.WindowSetFunctionsMethodInfo
ResolveX11WindowMethod "setGeometryHints" o = Gdk.Window.WindowSetGeometryHintsMethodInfo
ResolveX11WindowMethod "setGroup" o = Gdk.Window.WindowSetGroupMethodInfo
ResolveX11WindowMethod "setHideTitlebarWhenMaximized" o = X11WindowSetHideTitlebarWhenMaximizedMethodInfo
ResolveX11WindowMethod "setIconList" o = Gdk.Window.WindowSetIconListMethodInfo
ResolveX11WindowMethod "setIconName" o = Gdk.Window.WindowSetIconNameMethodInfo
ResolveX11WindowMethod "setKeepAbove" o = Gdk.Window.WindowSetKeepAboveMethodInfo
ResolveX11WindowMethod "setKeepBelow" o = Gdk.Window.WindowSetKeepBelowMethodInfo
ResolveX11WindowMethod "setModalHint" o = Gdk.Window.WindowSetModalHintMethodInfo
ResolveX11WindowMethod "setOpacity" o = Gdk.Window.WindowSetOpacityMethodInfo
ResolveX11WindowMethod "setOpaqueRegion" o = Gdk.Window.WindowSetOpaqueRegionMethodInfo
ResolveX11WindowMethod "setOverrideRedirect" o = Gdk.Window.WindowSetOverrideRedirectMethodInfo
ResolveX11WindowMethod "setPassThrough" o = Gdk.Window.WindowSetPassThroughMethodInfo
ResolveX11WindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveX11WindowMethod "setRole" o = Gdk.Window.WindowSetRoleMethodInfo
ResolveX11WindowMethod "setShadowWidth" o = Gdk.Window.WindowSetShadowWidthMethodInfo
ResolveX11WindowMethod "setSkipPagerHint" o = Gdk.Window.WindowSetSkipPagerHintMethodInfo
ResolveX11WindowMethod "setSkipTaskbarHint" o = Gdk.Window.WindowSetSkipTaskbarHintMethodInfo
ResolveX11WindowMethod "setSourceEvents" o = Gdk.Window.WindowSetSourceEventsMethodInfo
ResolveX11WindowMethod "setStartupId" o = Gdk.Window.WindowSetStartupIdMethodInfo
ResolveX11WindowMethod "setStaticGravities" o = Gdk.Window.WindowSetStaticGravitiesMethodInfo
ResolveX11WindowMethod "setSupportMultidevice" o = Gdk.Window.WindowSetSupportMultideviceMethodInfo
ResolveX11WindowMethod "setThemeVariant" o = X11WindowSetThemeVariantMethodInfo
ResolveX11WindowMethod "setTitle" o = Gdk.Window.WindowSetTitleMethodInfo
ResolveX11WindowMethod "setTransientFor" o = Gdk.Window.WindowSetTransientForMethodInfo
ResolveX11WindowMethod "setTypeHint" o = Gdk.Window.WindowSetTypeHintMethodInfo
ResolveX11WindowMethod "setUrgencyHint" o = Gdk.Window.WindowSetUrgencyHintMethodInfo
ResolveX11WindowMethod "setUserData" o = Gdk.Window.WindowSetUserDataMethodInfo
ResolveX11WindowMethod "setUserTime" o = X11WindowSetUserTimeMethodInfo
ResolveX11WindowMethod "setUtf8Property" o = X11WindowSetUtf8PropertyMethodInfo
ResolveX11WindowMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveX11WindowMethod t X11Window, O.MethodInfo info X11Window p) => OL.IsLabel t (X11Window -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList X11Window
type instance O.AttributeList X11Window = X11WindowAttributeList
type X11WindowAttributeList = ('[ '("cursor", Gdk.Window.WindowCursorPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList X11Window = X11WindowSignalList
type X11WindowSignalList = ('[ '("createSurface", Gdk.Window.WindowCreateSurfaceSignalInfo), '("fromEmbedder", Gdk.Window.WindowFromEmbedderSignalInfo), '("movedToRect", Gdk.Window.WindowMovedToRectSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pickEmbeddedChild", Gdk.Window.WindowPickEmbeddedChildSignalInfo), '("toEmbedder", Gdk.Window.WindowToEmbedderSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gdk_x11_window_foreign_new_for_display" gdk_x11_window_foreign_new_for_display ::
Ptr GdkX11.X11Display.X11Display ->
CULong ->
IO (Ptr X11Window)
x11WindowForeignNewForDisplay ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Display.IsX11Display a) =>
a
-> CULong
-> m X11Window
x11WindowForeignNewForDisplay :: a -> CULong -> m X11Window
x11WindowForeignNewForDisplay display :: a
display window :: CULong
window = IO X11Window -> m X11Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO X11Window -> m X11Window) -> IO X11Window -> m X11Window
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr X11Window
result <- Ptr X11Display -> CULong -> IO (Ptr X11Window)
gdk_x11_window_foreign_new_for_display Ptr X11Display
display' CULong
window
Text -> Ptr X11Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "x11WindowForeignNewForDisplay" Ptr X11Window
result
X11Window
result' <- ((ManagedPtr X11Window -> X11Window)
-> Ptr X11Window -> IO X11Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr X11Window -> X11Window
X11Window) Ptr X11Window
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
X11Window -> IO X11Window
forall (m :: * -> *) a. Monad m => a -> m a
return X11Window
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gdk_x11_window_get_desktop" gdk_x11_window_get_desktop ::
Ptr X11Window ->
IO Word32
x11WindowGetDesktop ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> m Word32
x11WindowGetDesktop :: a -> m Word32
x11WindowGetDesktop window :: a
window = 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 X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Word32
result <- Ptr X11Window -> IO Word32
gdk_x11_window_get_desktop Ptr X11Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data X11WindowGetDesktopMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowGetDesktopMethodInfo a signature where
overloadedMethod = x11WindowGetDesktop
#endif
foreign import ccall "gdk_x11_window_get_xid" gdk_x11_window_get_xid ::
Ptr X11Window ->
IO CULong
x11WindowGetXid ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> m CULong
x11WindowGetXid :: a -> m CULong
x11WindowGetXid window :: a
window = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CULong
result <- Ptr X11Window -> IO CULong
gdk_x11_window_get_xid Ptr X11Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data X11WindowGetXidMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowGetXidMethodInfo a signature where
overloadedMethod = x11WindowGetXid
#endif
foreign import ccall "gdk_x11_window_move_to_current_desktop" gdk_x11_window_move_to_current_desktop ::
Ptr X11Window ->
IO ()
x11WindowMoveToCurrentDesktop ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> m ()
x11WindowMoveToCurrentDesktop :: a -> m ()
x11WindowMoveToCurrentDesktop window :: a
window = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr X11Window -> IO ()
gdk_x11_window_move_to_current_desktop Ptr X11Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowMoveToCurrentDesktopMethodInfo
instance (signature ~ (m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowMoveToCurrentDesktopMethodInfo a signature where
overloadedMethod = x11WindowMoveToCurrentDesktop
#endif
foreign import ccall "gdk_x11_window_move_to_desktop" gdk_x11_window_move_to_desktop ::
Ptr X11Window ->
Word32 ->
IO ()
x11WindowMoveToDesktop ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> Word32
-> m ()
x11WindowMoveToDesktop :: a -> Word32 -> m ()
x11WindowMoveToDesktop window :: a
window desktop :: Word32
desktop = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr X11Window -> Word32 -> IO ()
gdk_x11_window_move_to_desktop Ptr X11Window
window' Word32
desktop
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowMoveToDesktopMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowMoveToDesktopMethodInfo a signature where
overloadedMethod = x11WindowMoveToDesktop
#endif
foreign import ccall "gdk_x11_window_set_frame_extents" gdk_x11_window_set_frame_extents ::
Ptr X11Window ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED x11WindowSetFrameExtents ["(Since version 3.12)","Use 'GI.Gdk.Objects.Window.windowSetShadowWidth' instead."] #-}
x11WindowSetFrameExtents ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> Int32
-> Int32
-> Int32
-> Int32
-> m ()
x11WindowSetFrameExtents :: a -> Int32 -> Int32 -> Int32 -> Int32 -> m ()
x11WindowSetFrameExtents window :: a
window left :: Int32
left right :: Int32
right top :: Int32
top bottom :: Int32
bottom = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr X11Window -> Int32 -> Int32 -> Int32 -> Int32 -> IO ()
gdk_x11_window_set_frame_extents Ptr X11Window
window' Int32
left Int32
right Int32
top Int32
bottom
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowSetFrameExtentsMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowSetFrameExtentsMethodInfo a signature where
overloadedMethod = x11WindowSetFrameExtents
#endif
foreign import ccall "gdk_x11_window_set_frame_sync_enabled" gdk_x11_window_set_frame_sync_enabled ::
Ptr X11Window ->
CInt ->
IO ()
x11WindowSetFrameSyncEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> Bool
-> m ()
x11WindowSetFrameSyncEnabled :: a -> Bool -> m ()
x11WindowSetFrameSyncEnabled window :: a
window frameSyncEnabled :: Bool
frameSyncEnabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let frameSyncEnabled' :: CInt
frameSyncEnabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
frameSyncEnabled
Ptr X11Window -> CInt -> IO ()
gdk_x11_window_set_frame_sync_enabled Ptr X11Window
window' CInt
frameSyncEnabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowSetFrameSyncEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowSetFrameSyncEnabledMethodInfo a signature where
overloadedMethod = x11WindowSetFrameSyncEnabled
#endif
foreign import ccall "gdk_x11_window_set_hide_titlebar_when_maximized" gdk_x11_window_set_hide_titlebar_when_maximized ::
Ptr X11Window ->
CInt ->
IO ()
x11WindowSetHideTitlebarWhenMaximized ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> Bool
-> m ()
x11WindowSetHideTitlebarWhenMaximized :: a -> Bool -> m ()
x11WindowSetHideTitlebarWhenMaximized window :: a
window hideTitlebarWhenMaximized :: Bool
hideTitlebarWhenMaximized = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
let hideTitlebarWhenMaximized' :: CInt
hideTitlebarWhenMaximized' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hideTitlebarWhenMaximized
Ptr X11Window -> CInt -> IO ()
gdk_x11_window_set_hide_titlebar_when_maximized Ptr X11Window
window' CInt
hideTitlebarWhenMaximized'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowSetHideTitlebarWhenMaximizedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowSetHideTitlebarWhenMaximizedMethodInfo a signature where
overloadedMethod = x11WindowSetHideTitlebarWhenMaximized
#endif
foreign import ccall "gdk_x11_window_set_theme_variant" gdk_x11_window_set_theme_variant ::
Ptr X11Window ->
CString ->
IO ()
x11WindowSetThemeVariant ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> T.Text
-> m ()
x11WindowSetThemeVariant :: a -> Text -> m ()
x11WindowSetThemeVariant window :: a
window variant :: Text
variant = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
variant' <- Text -> IO CString
textToCString Text
variant
Ptr X11Window -> CString -> IO ()
gdk_x11_window_set_theme_variant Ptr X11Window
window' CString
variant'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
variant'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowSetThemeVariantMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowSetThemeVariantMethodInfo a signature where
overloadedMethod = x11WindowSetThemeVariant
#endif
foreign import ccall "gdk_x11_window_set_user_time" gdk_x11_window_set_user_time ::
Ptr X11Window ->
Word32 ->
IO ()
x11WindowSetUserTime ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> Word32
-> m ()
x11WindowSetUserTime :: a -> Word32 -> m ()
x11WindowSetUserTime window :: a
window timestamp :: Word32
timestamp = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
Ptr X11Window -> Word32 -> IO ()
gdk_x11_window_set_user_time Ptr X11Window
window' Word32
timestamp
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowSetUserTimeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowSetUserTimeMethodInfo a signature where
overloadedMethod = x11WindowSetUserTime
#endif
foreign import ccall "gdk_x11_window_set_utf8_property" gdk_x11_window_set_utf8_property ::
Ptr X11Window ->
CString ->
CString ->
IO ()
x11WindowSetUtf8Property ::
(B.CallStack.HasCallStack, MonadIO m, IsX11Window a) =>
a
-> T.Text
-> Maybe (T.Text)
-> m ()
x11WindowSetUtf8Property :: a -> Text -> Maybe Text -> m ()
x11WindowSetUtf8Property window :: a
window name :: Text
name value :: Maybe Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Window
window' <- a -> IO (Ptr X11Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
window
CString
name' <- Text -> IO CString
textToCString Text
name
CString
maybeValue <- case Maybe Text
value of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jValue :: Text
jValue -> do
CString
jValue' <- Text -> IO CString
textToCString Text
jValue
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jValue'
Ptr X11Window -> CString -> CString -> IO ()
gdk_x11_window_set_utf8_property Ptr X11Window
window' CString
name' CString
maybeValue
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
window
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeValue
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data X11WindowSetUtf8PropertyMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsX11Window a) => O.MethodInfo X11WindowSetUtf8PropertyMethodInfo a signature where
overloadedMethod = x11WindowSetUtf8Property
#endif
foreign import ccall "gdk_x11_window_lookup_for_display" gdk_x11_window_lookup_for_display ::
Ptr GdkX11.X11Display.X11Display ->
CULong ->
IO (Ptr X11Window)
x11WindowLookupForDisplay ::
(B.CallStack.HasCallStack, MonadIO m, GdkX11.X11Display.IsX11Display a) =>
a
-> CULong
-> m X11Window
x11WindowLookupForDisplay :: a -> CULong -> m X11Window
x11WindowLookupForDisplay display :: a
display window :: CULong
window = IO X11Window -> m X11Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO X11Window -> m X11Window) -> IO X11Window -> m X11Window
forall a b. (a -> b) -> a -> b
$ do
Ptr X11Display
display' <- a -> IO (Ptr X11Display)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
display
Ptr X11Window
result <- Ptr X11Display -> CULong -> IO (Ptr X11Window)
gdk_x11_window_lookup_for_display Ptr X11Display
display' CULong
window
Text -> Ptr X11Window -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "x11WindowLookupForDisplay" Ptr X11Window
result
X11Window
result' <- ((ManagedPtr X11Window -> X11Window)
-> Ptr X11Window -> IO X11Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr X11Window -> X11Window
X11Window) Ptr X11Window
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
display
X11Window -> IO X11Window
forall (m :: * -> *) a. Monad m => a -> m a
return X11Window
result'
#if defined(ENABLE_OVERLOADING)
#endif