{-# 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 ,
#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.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.Coerce as Coerce
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 GHC.Records as R
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 (SP.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)
instance SP.ManagedPtrNewtype X11Window where
toManagedPtr :: X11Window -> ManagedPtr X11Window
toManagedPtr (X11Window ManagedPtr X11Window
p) = ManagedPtr X11Window
p
foreign import ccall "gdk_x11_window_get_type"
c_gdk_x11_window_get_type :: IO B.Types.GType
instance B.Types.TypedObject X11Window where
glibType :: IO GType
glibType = IO GType
c_gdk_x11_window_get_type
instance B.Types.GObject X11Window
class (SP.GObject o, O.IsDescendantOf X11Window o) => IsX11Window o
instance (SP.GObject o, O.IsDescendantOf X11Window o) => IsX11Window o
instance O.HasParentTypes X11Window
type instance O.ParentTypes X11Window = '[Gdk.Window.Window, GObject.Object.Object]
toX11Window :: (MIO.MonadIO m, IsX11Window o) => o -> m X11Window
toX11Window :: forall (m :: * -> *) o.
(MonadIO m, IsX11Window o) =>
o -> m X11Window
toX11Window = IO X11Window -> m X11Window
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr X11Window -> X11Window
X11Window
instance B.GValue.IsGValue (Maybe X11Window) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_x11_window_get_type
gvalueSet_ :: Ptr GValue -> Maybe X11Window -> IO ()
gvalueSet_ Ptr GValue
gv Maybe X11Window
P.Nothing = Ptr GValue -> Ptr X11Window -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr X11Window
forall a. Ptr a
FP.nullPtr :: FP.Ptr X11Window)
gvalueSet_ Ptr GValue
gv (P.Just X11Window
obj) = X11Window -> (Ptr X11Window -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr X11Window
obj (Ptr GValue -> Ptr X11Window -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe X11Window)
gvalueGet_ Ptr GValue
gv = do
Ptr X11Window
ptr <- Ptr GValue -> IO (Ptr X11Window)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr X11Window)
if Ptr X11Window
ptr Ptr X11Window -> Ptr X11Window -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr X11Window
forall a. Ptr a
FP.nullPtr
then X11Window -> Maybe X11Window
forall a. a -> Maybe a
P.Just (X11Window -> Maybe X11Window)
-> IO X11Window -> IO (Maybe X11Window)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe X11Window -> IO (Maybe X11Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe X11Window
forall a. Maybe a
P.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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveX11WindowMethod t X11Window, O.OverloadedMethod info X11Window p, R.HasField t X11Window p) => R.HasField t X11Window p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveX11WindowMethod t X11Window, O.OverloadedMethodInfo info X11Window) => OL.IsLabel t (O.MethodProxy info X11Window) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> CULong -> m X11Window
x11WindowForeignNewForDisplay a
display 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> m Word32
x11WindowGetDesktop 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.OverloadedMethod X11WindowGetDesktopMethodInfo a signature where
overloadedMethod = x11WindowGetDesktop
instance O.OverloadedMethodInfo X11WindowGetDesktopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowGetDesktop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> m CULong
x11WindowGetXid 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.OverloadedMethod X11WindowGetXidMethodInfo a signature where
overloadedMethod = x11WindowGetXid
instance O.OverloadedMethodInfo X11WindowGetXidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowGetXid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> m ()
x11WindowMoveToCurrentDesktop 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.OverloadedMethod X11WindowMoveToCurrentDesktopMethodInfo a signature where
overloadedMethod = x11WindowMoveToCurrentDesktop
instance O.OverloadedMethodInfo X11WindowMoveToCurrentDesktopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowMoveToCurrentDesktop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> Word32 -> m ()
x11WindowMoveToDesktop a
window 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.OverloadedMethod X11WindowMoveToDesktopMethodInfo a signature where
overloadedMethod = x11WindowMoveToDesktop
instance O.OverloadedMethodInfo X11WindowMoveToDesktopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowMoveToDesktop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> Int32 -> Int32 -> Int32 -> Int32 -> m ()
x11WindowSetFrameExtents a
window Int32
left Int32
right Int32
top 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.OverloadedMethod X11WindowSetFrameExtentsMethodInfo a signature where
overloadedMethod = x11WindowSetFrameExtents
instance O.OverloadedMethodInfo X11WindowSetFrameExtentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowSetFrameExtents",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> Bool -> m ()
x11WindowSetFrameSyncEnabled a
window 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.OverloadedMethod X11WindowSetFrameSyncEnabledMethodInfo a signature where
overloadedMethod = x11WindowSetFrameSyncEnabled
instance O.OverloadedMethodInfo X11WindowSetFrameSyncEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowSetFrameSyncEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> Bool -> m ()
x11WindowSetHideTitlebarWhenMaximized a
window 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.OverloadedMethod X11WindowSetHideTitlebarWhenMaximizedMethodInfo a signature where
overloadedMethod = x11WindowSetHideTitlebarWhenMaximized
instance O.OverloadedMethodInfo X11WindowSetHideTitlebarWhenMaximizedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowSetHideTitlebarWhenMaximized",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> Text -> m ()
x11WindowSetThemeVariant a
window 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.OverloadedMethod X11WindowSetThemeVariantMethodInfo a signature where
overloadedMethod = x11WindowSetThemeVariant
instance O.OverloadedMethodInfo X11WindowSetThemeVariantMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowSetThemeVariant",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> Word32 -> m ()
x11WindowSetUserTime a
window 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.OverloadedMethod X11WindowSetUserTimeMethodInfo a signature where
overloadedMethod = x11WindowSetUserTime
instance O.OverloadedMethodInfo X11WindowSetUserTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowSetUserTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Window a) =>
a -> Text -> Maybe Text -> m ()
x11WindowSetUtf8Property a
window Text
name 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
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod X11WindowSetUtf8PropertyMethodInfo a signature where
overloadedMethod = x11WindowSetUtf8Property
instance O.OverloadedMethodInfo X11WindowSetUtf8PropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkX11.Objects.X11Window.x11WindowSetUtf8Property",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkx11-3.0.12/docs/GI-GdkX11-Objects-X11Window.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsX11Display a) =>
a -> CULong -> m X11Window
x11WindowLookupForDisplay a
display 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 Text
"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