{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) /No description available in the introspection data./ -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.Gdk.Objects.Window ( -- * Exported types Window(..) , IsWindow , toWindow , noWindow , -- * Methods -- ** atPointer #method:atPointer# windowAtPointer , -- ** beep #method:beep# #if ENABLE_OVERLOADING WindowBeepMethodInfo , #endif windowBeep , -- ** beginDrawFrame #method:beginDrawFrame# #if ENABLE_OVERLOADING WindowBeginDrawFrameMethodInfo , #endif windowBeginDrawFrame , -- ** beginMoveDrag #method:beginMoveDrag# #if ENABLE_OVERLOADING WindowBeginMoveDragMethodInfo , #endif windowBeginMoveDrag , -- ** beginMoveDragForDevice #method:beginMoveDragForDevice# #if ENABLE_OVERLOADING WindowBeginMoveDragForDeviceMethodInfo , #endif windowBeginMoveDragForDevice , -- ** beginPaintRect #method:beginPaintRect# #if ENABLE_OVERLOADING WindowBeginPaintRectMethodInfo , #endif windowBeginPaintRect , -- ** beginPaintRegion #method:beginPaintRegion# #if ENABLE_OVERLOADING WindowBeginPaintRegionMethodInfo , #endif windowBeginPaintRegion , -- ** beginResizeDrag #method:beginResizeDrag# #if ENABLE_OVERLOADING WindowBeginResizeDragMethodInfo , #endif windowBeginResizeDrag , -- ** beginResizeDragForDevice #method:beginResizeDragForDevice# #if ENABLE_OVERLOADING WindowBeginResizeDragForDeviceMethodInfo, #endif windowBeginResizeDragForDevice , -- ** configureFinished #method:configureFinished# #if ENABLE_OVERLOADING WindowConfigureFinishedMethodInfo , #endif windowConfigureFinished , -- ** constrainSize #method:constrainSize# windowConstrainSize , -- ** coordsFromParent #method:coordsFromParent# #if ENABLE_OVERLOADING WindowCoordsFromParentMethodInfo , #endif windowCoordsFromParent , -- ** coordsToParent #method:coordsToParent# #if ENABLE_OVERLOADING WindowCoordsToParentMethodInfo , #endif windowCoordsToParent , -- ** createGlContext #method:createGlContext# #if ENABLE_OVERLOADING WindowCreateGlContextMethodInfo , #endif windowCreateGlContext , -- ** createSimilarImageSurface #method:createSimilarImageSurface# #if ENABLE_OVERLOADING WindowCreateSimilarImageSurfaceMethodInfo, #endif windowCreateSimilarImageSurface , -- ** createSimilarSurface #method:createSimilarSurface# #if ENABLE_OVERLOADING WindowCreateSimilarSurfaceMethodInfo , #endif windowCreateSimilarSurface , -- ** deiconify #method:deiconify# #if ENABLE_OVERLOADING WindowDeiconifyMethodInfo , #endif windowDeiconify , -- ** destroy #method:destroy# #if ENABLE_OVERLOADING WindowDestroyMethodInfo , #endif windowDestroy , -- ** destroyNotify #method:destroyNotify# #if ENABLE_OVERLOADING WindowDestroyNotifyMethodInfo , #endif windowDestroyNotify , -- ** enableSynchronizedConfigure #method:enableSynchronizedConfigure# #if ENABLE_OVERLOADING WindowEnableSynchronizedConfigureMethodInfo, #endif windowEnableSynchronizedConfigure , -- ** endDrawFrame #method:endDrawFrame# #if ENABLE_OVERLOADING WindowEndDrawFrameMethodInfo , #endif windowEndDrawFrame , -- ** endPaint #method:endPaint# #if ENABLE_OVERLOADING WindowEndPaintMethodInfo , #endif windowEndPaint , -- ** ensureNative #method:ensureNative# #if ENABLE_OVERLOADING WindowEnsureNativeMethodInfo , #endif windowEnsureNative , -- ** flush #method:flush# #if ENABLE_OVERLOADING WindowFlushMethodInfo , #endif windowFlush , -- ** focus #method:focus# #if ENABLE_OVERLOADING WindowFocusMethodInfo , #endif windowFocus , -- ** freezeToplevelUpdatesLibgtkOnly #method:freezeToplevelUpdatesLibgtkOnly# #if ENABLE_OVERLOADING WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo, #endif windowFreezeToplevelUpdatesLibgtkOnly , -- ** freezeUpdates #method:freezeUpdates# #if ENABLE_OVERLOADING WindowFreezeUpdatesMethodInfo , #endif windowFreezeUpdates , -- ** fullscreen #method:fullscreen# #if ENABLE_OVERLOADING WindowFullscreenMethodInfo , #endif windowFullscreen , -- ** fullscreenOnMonitor #method:fullscreenOnMonitor# #if ENABLE_OVERLOADING WindowFullscreenOnMonitorMethodInfo , #endif windowFullscreenOnMonitor , -- ** geometryChanged #method:geometryChanged# #if ENABLE_OVERLOADING WindowGeometryChangedMethodInfo , #endif windowGeometryChanged , -- ** getAcceptFocus #method:getAcceptFocus# #if ENABLE_OVERLOADING WindowGetAcceptFocusMethodInfo , #endif windowGetAcceptFocus , -- ** getBackgroundPattern #method:getBackgroundPattern# #if ENABLE_OVERLOADING WindowGetBackgroundPatternMethodInfo , #endif windowGetBackgroundPattern , -- ** getChildren #method:getChildren# #if ENABLE_OVERLOADING WindowGetChildrenMethodInfo , #endif windowGetChildren , -- ** getChildrenWithUserData #method:getChildrenWithUserData# #if ENABLE_OVERLOADING WindowGetChildrenWithUserDataMethodInfo , #endif windowGetChildrenWithUserData , -- ** getClipRegion #method:getClipRegion# #if ENABLE_OVERLOADING WindowGetClipRegionMethodInfo , #endif windowGetClipRegion , -- ** getComposited #method:getComposited# #if ENABLE_OVERLOADING WindowGetCompositedMethodInfo , #endif windowGetComposited , -- ** getCursor #method:getCursor# #if ENABLE_OVERLOADING WindowGetCursorMethodInfo , #endif windowGetCursor , -- ** getDecorations #method:getDecorations# #if ENABLE_OVERLOADING WindowGetDecorationsMethodInfo , #endif windowGetDecorations , -- ** getDeviceCursor #method:getDeviceCursor# #if ENABLE_OVERLOADING WindowGetDeviceCursorMethodInfo , #endif windowGetDeviceCursor , -- ** getDeviceEvents #method:getDeviceEvents# #if ENABLE_OVERLOADING WindowGetDeviceEventsMethodInfo , #endif windowGetDeviceEvents , -- ** getDevicePosition #method:getDevicePosition# #if ENABLE_OVERLOADING WindowGetDevicePositionMethodInfo , #endif windowGetDevicePosition , -- ** getDevicePositionDouble #method:getDevicePositionDouble# #if ENABLE_OVERLOADING WindowGetDevicePositionDoubleMethodInfo , #endif windowGetDevicePositionDouble , -- ** getDisplay #method:getDisplay# #if ENABLE_OVERLOADING WindowGetDisplayMethodInfo , #endif windowGetDisplay , -- ** getDragProtocol #method:getDragProtocol# #if ENABLE_OVERLOADING WindowGetDragProtocolMethodInfo , #endif windowGetDragProtocol , -- ** getEffectiveParent #method:getEffectiveParent# #if ENABLE_OVERLOADING WindowGetEffectiveParentMethodInfo , #endif windowGetEffectiveParent , -- ** getEffectiveToplevel #method:getEffectiveToplevel# #if ENABLE_OVERLOADING WindowGetEffectiveToplevelMethodInfo , #endif windowGetEffectiveToplevel , -- ** getEventCompression #method:getEventCompression# #if ENABLE_OVERLOADING WindowGetEventCompressionMethodInfo , #endif windowGetEventCompression , -- ** getEvents #method:getEvents# #if ENABLE_OVERLOADING WindowGetEventsMethodInfo , #endif windowGetEvents , -- ** getFocusOnMap #method:getFocusOnMap# #if ENABLE_OVERLOADING WindowGetFocusOnMapMethodInfo , #endif windowGetFocusOnMap , -- ** getFrameClock #method:getFrameClock# #if ENABLE_OVERLOADING WindowGetFrameClockMethodInfo , #endif windowGetFrameClock , -- ** getFrameExtents #method:getFrameExtents# #if ENABLE_OVERLOADING WindowGetFrameExtentsMethodInfo , #endif windowGetFrameExtents , -- ** getFullscreenMode #method:getFullscreenMode# #if ENABLE_OVERLOADING WindowGetFullscreenModeMethodInfo , #endif windowGetFullscreenMode , -- ** getGeometry #method:getGeometry# #if ENABLE_OVERLOADING WindowGetGeometryMethodInfo , #endif windowGetGeometry , -- ** getGroup #method:getGroup# #if ENABLE_OVERLOADING WindowGetGroupMethodInfo , #endif windowGetGroup , -- ** getHeight #method:getHeight# #if ENABLE_OVERLOADING WindowGetHeightMethodInfo , #endif windowGetHeight , -- ** getModalHint #method:getModalHint# #if ENABLE_OVERLOADING WindowGetModalHintMethodInfo , #endif windowGetModalHint , -- ** getOrigin #method:getOrigin# #if ENABLE_OVERLOADING WindowGetOriginMethodInfo , #endif windowGetOrigin , -- ** getParent #method:getParent# #if ENABLE_OVERLOADING WindowGetParentMethodInfo , #endif windowGetParent , -- ** getPassThrough #method:getPassThrough# #if ENABLE_OVERLOADING WindowGetPassThroughMethodInfo , #endif windowGetPassThrough , -- ** getPointer #method:getPointer# #if ENABLE_OVERLOADING WindowGetPointerMethodInfo , #endif windowGetPointer , -- ** getPosition #method:getPosition# #if ENABLE_OVERLOADING WindowGetPositionMethodInfo , #endif windowGetPosition , -- ** getRootCoords #method:getRootCoords# #if ENABLE_OVERLOADING WindowGetRootCoordsMethodInfo , #endif windowGetRootCoords , -- ** getRootOrigin #method:getRootOrigin# #if ENABLE_OVERLOADING WindowGetRootOriginMethodInfo , #endif windowGetRootOrigin , -- ** getScaleFactor #method:getScaleFactor# #if ENABLE_OVERLOADING WindowGetScaleFactorMethodInfo , #endif windowGetScaleFactor , -- ** getScreen #method:getScreen# #if ENABLE_OVERLOADING WindowGetScreenMethodInfo , #endif windowGetScreen , -- ** getSourceEvents #method:getSourceEvents# #if ENABLE_OVERLOADING WindowGetSourceEventsMethodInfo , #endif windowGetSourceEvents , -- ** getState #method:getState# #if ENABLE_OVERLOADING WindowGetStateMethodInfo , #endif windowGetState , -- ** getSupportMultidevice #method:getSupportMultidevice# #if ENABLE_OVERLOADING WindowGetSupportMultideviceMethodInfo , #endif windowGetSupportMultidevice , -- ** getToplevel #method:getToplevel# #if ENABLE_OVERLOADING WindowGetToplevelMethodInfo , #endif windowGetToplevel , -- ** getTypeHint #method:getTypeHint# #if ENABLE_OVERLOADING WindowGetTypeHintMethodInfo , #endif windowGetTypeHint , -- ** getUpdateArea #method:getUpdateArea# #if ENABLE_OVERLOADING WindowGetUpdateAreaMethodInfo , #endif windowGetUpdateArea , -- ** getUserData #method:getUserData# #if ENABLE_OVERLOADING WindowGetUserDataMethodInfo , #endif windowGetUserData , -- ** getVisibleRegion #method:getVisibleRegion# #if ENABLE_OVERLOADING WindowGetVisibleRegionMethodInfo , #endif windowGetVisibleRegion , -- ** getVisual #method:getVisual# #if ENABLE_OVERLOADING WindowGetVisualMethodInfo , #endif windowGetVisual , -- ** getWidth #method:getWidth# #if ENABLE_OVERLOADING WindowGetWidthMethodInfo , #endif windowGetWidth , -- ** getWindowType #method:getWindowType# #if ENABLE_OVERLOADING WindowGetWindowTypeMethodInfo , #endif windowGetWindowType , -- ** hasNative #method:hasNative# #if ENABLE_OVERLOADING WindowHasNativeMethodInfo , #endif windowHasNative , -- ** hide #method:hide# #if ENABLE_OVERLOADING WindowHideMethodInfo , #endif windowHide , -- ** iconify #method:iconify# #if ENABLE_OVERLOADING WindowIconifyMethodInfo , #endif windowIconify , -- ** inputShapeCombineRegion #method:inputShapeCombineRegion# #if ENABLE_OVERLOADING WindowInputShapeCombineRegionMethodInfo , #endif windowInputShapeCombineRegion , -- ** invalidateMaybeRecurse #method:invalidateMaybeRecurse# #if ENABLE_OVERLOADING WindowInvalidateMaybeRecurseMethodInfo , #endif windowInvalidateMaybeRecurse , -- ** invalidateRect #method:invalidateRect# #if ENABLE_OVERLOADING WindowInvalidateRectMethodInfo , #endif windowInvalidateRect , -- ** invalidateRegion #method:invalidateRegion# #if ENABLE_OVERLOADING WindowInvalidateRegionMethodInfo , #endif windowInvalidateRegion , -- ** isDestroyed #method:isDestroyed# #if ENABLE_OVERLOADING WindowIsDestroyedMethodInfo , #endif windowIsDestroyed , -- ** isInputOnly #method:isInputOnly# #if ENABLE_OVERLOADING WindowIsInputOnlyMethodInfo , #endif windowIsInputOnly , -- ** isShaped #method:isShaped# #if ENABLE_OVERLOADING WindowIsShapedMethodInfo , #endif windowIsShaped , -- ** isViewable #method:isViewable# #if ENABLE_OVERLOADING WindowIsViewableMethodInfo , #endif windowIsViewable , -- ** isVisible #method:isVisible# #if ENABLE_OVERLOADING WindowIsVisibleMethodInfo , #endif windowIsVisible , -- ** lower #method:lower# #if ENABLE_OVERLOADING WindowLowerMethodInfo , #endif windowLower , -- ** markPaintFromClip #method:markPaintFromClip# #if ENABLE_OVERLOADING WindowMarkPaintFromClipMethodInfo , #endif windowMarkPaintFromClip , -- ** maximize #method:maximize# #if ENABLE_OVERLOADING WindowMaximizeMethodInfo , #endif windowMaximize , -- ** mergeChildInputShapes #method:mergeChildInputShapes# #if ENABLE_OVERLOADING WindowMergeChildInputShapesMethodInfo , #endif windowMergeChildInputShapes , -- ** mergeChildShapes #method:mergeChildShapes# #if ENABLE_OVERLOADING WindowMergeChildShapesMethodInfo , #endif windowMergeChildShapes , -- ** move #method:move# #if ENABLE_OVERLOADING WindowMoveMethodInfo , #endif windowMove , -- ** moveRegion #method:moveRegion# #if ENABLE_OVERLOADING WindowMoveRegionMethodInfo , #endif windowMoveRegion , -- ** moveResize #method:moveResize# #if ENABLE_OVERLOADING WindowMoveResizeMethodInfo , #endif windowMoveResize , -- ** moveToRect #method:moveToRect# #if ENABLE_OVERLOADING WindowMoveToRectMethodInfo , #endif windowMoveToRect , -- ** new #method:new# windowNew , -- ** peekChildren #method:peekChildren# #if ENABLE_OVERLOADING WindowPeekChildrenMethodInfo , #endif windowPeekChildren , -- ** processAllUpdates #method:processAllUpdates# windowProcessAllUpdates , -- ** processUpdates #method:processUpdates# #if ENABLE_OVERLOADING WindowProcessUpdatesMethodInfo , #endif windowProcessUpdates , -- ** raise #method:raise# #if ENABLE_OVERLOADING WindowRaiseMethodInfo , #endif windowRaise , -- ** registerDnd #method:registerDnd# #if ENABLE_OVERLOADING WindowRegisterDndMethodInfo , #endif windowRegisterDnd , -- ** reparent #method:reparent# #if ENABLE_OVERLOADING WindowReparentMethodInfo , #endif windowReparent , -- ** resize #method:resize# #if ENABLE_OVERLOADING WindowResizeMethodInfo , #endif windowResize , -- ** restack #method:restack# #if ENABLE_OVERLOADING WindowRestackMethodInfo , #endif windowRestack , -- ** scroll #method:scroll# #if ENABLE_OVERLOADING WindowScrollMethodInfo , #endif windowScroll , -- ** setAcceptFocus #method:setAcceptFocus# #if ENABLE_OVERLOADING WindowSetAcceptFocusMethodInfo , #endif windowSetAcceptFocus , -- ** setBackground #method:setBackground# #if ENABLE_OVERLOADING WindowSetBackgroundMethodInfo , #endif windowSetBackground , -- ** setBackgroundPattern #method:setBackgroundPattern# #if ENABLE_OVERLOADING WindowSetBackgroundPatternMethodInfo , #endif windowSetBackgroundPattern , -- ** setBackgroundRgba #method:setBackgroundRgba# #if ENABLE_OVERLOADING WindowSetBackgroundRgbaMethodInfo , #endif windowSetBackgroundRgba , -- ** setChildInputShapes #method:setChildInputShapes# #if ENABLE_OVERLOADING WindowSetChildInputShapesMethodInfo , #endif windowSetChildInputShapes , -- ** setChildShapes #method:setChildShapes# #if ENABLE_OVERLOADING WindowSetChildShapesMethodInfo , #endif windowSetChildShapes , -- ** setComposited #method:setComposited# #if ENABLE_OVERLOADING WindowSetCompositedMethodInfo , #endif windowSetComposited , -- ** setCursor #method:setCursor# #if ENABLE_OVERLOADING WindowSetCursorMethodInfo , #endif windowSetCursor , -- ** setDebugUpdates #method:setDebugUpdates# windowSetDebugUpdates , -- ** setDecorations #method:setDecorations# #if ENABLE_OVERLOADING WindowSetDecorationsMethodInfo , #endif windowSetDecorations , -- ** setDeviceCursor #method:setDeviceCursor# #if ENABLE_OVERLOADING WindowSetDeviceCursorMethodInfo , #endif windowSetDeviceCursor , -- ** setDeviceEvents #method:setDeviceEvents# #if ENABLE_OVERLOADING WindowSetDeviceEventsMethodInfo , #endif windowSetDeviceEvents , -- ** setEventCompression #method:setEventCompression# #if ENABLE_OVERLOADING WindowSetEventCompressionMethodInfo , #endif windowSetEventCompression , -- ** setEvents #method:setEvents# #if ENABLE_OVERLOADING WindowSetEventsMethodInfo , #endif windowSetEvents , -- ** setFocusOnMap #method:setFocusOnMap# #if ENABLE_OVERLOADING WindowSetFocusOnMapMethodInfo , #endif windowSetFocusOnMap , -- ** setFullscreenMode #method:setFullscreenMode# #if ENABLE_OVERLOADING WindowSetFullscreenModeMethodInfo , #endif windowSetFullscreenMode , -- ** setFunctions #method:setFunctions# #if ENABLE_OVERLOADING WindowSetFunctionsMethodInfo , #endif windowSetFunctions , -- ** setGeometryHints #method:setGeometryHints# #if ENABLE_OVERLOADING WindowSetGeometryHintsMethodInfo , #endif windowSetGeometryHints , -- ** setGroup #method:setGroup# #if ENABLE_OVERLOADING WindowSetGroupMethodInfo , #endif windowSetGroup , -- ** setIconList #method:setIconList# #if ENABLE_OVERLOADING WindowSetIconListMethodInfo , #endif windowSetIconList , -- ** setIconName #method:setIconName# #if ENABLE_OVERLOADING WindowSetIconNameMethodInfo , #endif windowSetIconName , -- ** setKeepAbove #method:setKeepAbove# #if ENABLE_OVERLOADING WindowSetKeepAboveMethodInfo , #endif windowSetKeepAbove , -- ** setKeepBelow #method:setKeepBelow# #if ENABLE_OVERLOADING WindowSetKeepBelowMethodInfo , #endif windowSetKeepBelow , -- ** setModalHint #method:setModalHint# #if ENABLE_OVERLOADING WindowSetModalHintMethodInfo , #endif windowSetModalHint , -- ** setOpacity #method:setOpacity# #if ENABLE_OVERLOADING WindowSetOpacityMethodInfo , #endif windowSetOpacity , -- ** setOpaqueRegion #method:setOpaqueRegion# #if ENABLE_OVERLOADING WindowSetOpaqueRegionMethodInfo , #endif windowSetOpaqueRegion , -- ** setOverrideRedirect #method:setOverrideRedirect# #if ENABLE_OVERLOADING WindowSetOverrideRedirectMethodInfo , #endif windowSetOverrideRedirect , -- ** setPassThrough #method:setPassThrough# #if ENABLE_OVERLOADING WindowSetPassThroughMethodInfo , #endif windowSetPassThrough , -- ** setRole #method:setRole# #if ENABLE_OVERLOADING WindowSetRoleMethodInfo , #endif windowSetRole , -- ** setShadowWidth #method:setShadowWidth# #if ENABLE_OVERLOADING WindowSetShadowWidthMethodInfo , #endif windowSetShadowWidth , -- ** setSkipPagerHint #method:setSkipPagerHint# #if ENABLE_OVERLOADING WindowSetSkipPagerHintMethodInfo , #endif windowSetSkipPagerHint , -- ** setSkipTaskbarHint #method:setSkipTaskbarHint# #if ENABLE_OVERLOADING WindowSetSkipTaskbarHintMethodInfo , #endif windowSetSkipTaskbarHint , -- ** setSourceEvents #method:setSourceEvents# #if ENABLE_OVERLOADING WindowSetSourceEventsMethodInfo , #endif windowSetSourceEvents , -- ** setStartupId #method:setStartupId# #if ENABLE_OVERLOADING WindowSetStartupIdMethodInfo , #endif windowSetStartupId , -- ** setStaticGravities #method:setStaticGravities# #if ENABLE_OVERLOADING WindowSetStaticGravitiesMethodInfo , #endif windowSetStaticGravities , -- ** setSupportMultidevice #method:setSupportMultidevice# #if ENABLE_OVERLOADING WindowSetSupportMultideviceMethodInfo , #endif windowSetSupportMultidevice , -- ** setTitle #method:setTitle# #if ENABLE_OVERLOADING WindowSetTitleMethodInfo , #endif windowSetTitle , -- ** setTransientFor #method:setTransientFor# #if ENABLE_OVERLOADING WindowSetTransientForMethodInfo , #endif windowSetTransientFor , -- ** setTypeHint #method:setTypeHint# #if ENABLE_OVERLOADING WindowSetTypeHintMethodInfo , #endif windowSetTypeHint , -- ** setUrgencyHint #method:setUrgencyHint# #if ENABLE_OVERLOADING WindowSetUrgencyHintMethodInfo , #endif windowSetUrgencyHint , -- ** setUserData #method:setUserData# #if ENABLE_OVERLOADING WindowSetUserDataMethodInfo , #endif windowSetUserData , -- ** shapeCombineRegion #method:shapeCombineRegion# #if ENABLE_OVERLOADING WindowShapeCombineRegionMethodInfo , #endif windowShapeCombineRegion , -- ** show #method:show# #if ENABLE_OVERLOADING WindowShowMethodInfo , #endif windowShow , -- ** showUnraised #method:showUnraised# #if ENABLE_OVERLOADING WindowShowUnraisedMethodInfo , #endif windowShowUnraised , -- ** showWindowMenu #method:showWindowMenu# #if ENABLE_OVERLOADING WindowShowWindowMenuMethodInfo , #endif windowShowWindowMenu , -- ** stick #method:stick# #if ENABLE_OVERLOADING WindowStickMethodInfo , #endif windowStick , -- ** thawToplevelUpdatesLibgtkOnly #method:thawToplevelUpdatesLibgtkOnly# #if ENABLE_OVERLOADING WindowThawToplevelUpdatesLibgtkOnlyMethodInfo, #endif windowThawToplevelUpdatesLibgtkOnly , -- ** thawUpdates #method:thawUpdates# #if ENABLE_OVERLOADING WindowThawUpdatesMethodInfo , #endif windowThawUpdates , -- ** unfullscreen #method:unfullscreen# #if ENABLE_OVERLOADING WindowUnfullscreenMethodInfo , #endif windowUnfullscreen , -- ** unmaximize #method:unmaximize# #if ENABLE_OVERLOADING WindowUnmaximizeMethodInfo , #endif windowUnmaximize , -- ** unstick #method:unstick# #if ENABLE_OVERLOADING WindowUnstickMethodInfo , #endif windowUnstick , -- ** withdraw #method:withdraw# #if ENABLE_OVERLOADING WindowWithdrawMethodInfo , #endif windowWithdraw , -- * Properties -- ** cursor #attr:cursor# {- | The mouse pointer for a 'GI.Gdk.Objects.Window.Window'. See 'GI.Gdk.Objects.Window.windowSetCursor' and 'GI.Gdk.Objects.Window.windowGetCursor' for details. /Since: 2.18/ -} #if ENABLE_OVERLOADING WindowCursorPropertyInfo , #endif clearWindowCursor , constructWindowCursor , getWindowCursor , setWindowCursor , #if ENABLE_OVERLOADING windowCursor , #endif -- * Signals -- ** createSurface #signal:createSurface# C_WindowCreateSurfaceCallback , WindowCreateSurfaceCallback , #if ENABLE_OVERLOADING WindowCreateSurfaceSignalInfo , #endif afterWindowCreateSurface , genClosure_WindowCreateSurface , mk_WindowCreateSurfaceCallback , noWindowCreateSurfaceCallback , onWindowCreateSurface , wrap_WindowCreateSurfaceCallback , -- ** fromEmbedder #signal:fromEmbedder# C_WindowFromEmbedderCallback , WindowFromEmbedderCallback , #if ENABLE_OVERLOADING WindowFromEmbedderSignalInfo , #endif afterWindowFromEmbedder , genClosure_WindowFromEmbedder , mk_WindowFromEmbedderCallback , noWindowFromEmbedderCallback , onWindowFromEmbedder , wrap_WindowFromEmbedderCallback , -- ** movedToRect #signal:movedToRect# C_WindowMovedToRectCallback , WindowMovedToRectCallback , #if ENABLE_OVERLOADING WindowMovedToRectSignalInfo , #endif afterWindowMovedToRect , genClosure_WindowMovedToRect , mk_WindowMovedToRectCallback , noWindowMovedToRectCallback , onWindowMovedToRect , wrap_WindowMovedToRectCallback , -- ** pickEmbeddedChild #signal:pickEmbeddedChild# C_WindowPickEmbeddedChildCallback , WindowPickEmbeddedChildCallback , #if ENABLE_OVERLOADING WindowPickEmbeddedChildSignalInfo , #endif afterWindowPickEmbeddedChild , genClosure_WindowPickEmbeddedChild , mk_WindowPickEmbeddedChildCallback , noWindowPickEmbeddedChildCallback , onWindowPickEmbeddedChild , wrap_WindowPickEmbeddedChildCallback , -- ** toEmbedder #signal:toEmbedder# C_WindowToEmbedderCallback , WindowToEmbedderCallback , #if ENABLE_OVERLOADING WindowToEmbedderSignalInfo , #endif afterWindowToEmbedder , genClosure_WindowToEmbedder , mk_WindowToEmbedderCallback , noWindowToEmbedderCallback , onWindowToEmbedder , wrap_WindowToEmbedderCallback , ) 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.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.Cairo.Enums as Cairo.Enums import qualified GI.Cairo.Structs.Context as Cairo.Context import qualified GI.Cairo.Structs.Pattern as Cairo.Pattern import qualified GI.Cairo.Structs.Region as Cairo.Region import qualified GI.Cairo.Structs.Surface as Cairo.Surface import qualified GI.GObject.Objects.Object as GObject.Object import qualified GI.Gdk.Callbacks as Gdk.Callbacks import {-# SOURCE #-} qualified GI.Gdk.Enums as Gdk.Enums import {-# SOURCE #-} qualified GI.Gdk.Flags as Gdk.Flags import {-# SOURCE #-} qualified GI.Gdk.Objects.Cursor as Gdk.Cursor import {-# SOURCE #-} qualified GI.Gdk.Objects.Device as Gdk.Device import {-# SOURCE #-} qualified GI.Gdk.Objects.Display as Gdk.Display import {-# SOURCE #-} qualified GI.Gdk.Objects.DrawingContext as Gdk.DrawingContext import {-# SOURCE #-} qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock import {-# SOURCE #-} qualified GI.Gdk.Objects.GLContext as Gdk.GLContext import {-# SOURCE #-} qualified GI.Gdk.Objects.Screen as Gdk.Screen import {-# SOURCE #-} qualified GI.Gdk.Objects.Visual as Gdk.Visual import {-# SOURCE #-} qualified GI.Gdk.Structs.Color as Gdk.Color import {-# SOURCE #-} qualified GI.Gdk.Structs.Geometry as Gdk.Geometry import {-# SOURCE #-} qualified GI.Gdk.Structs.RGBA as Gdk.RGBA import {-# SOURCE #-} qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle import {-# SOURCE #-} qualified GI.Gdk.Structs.WindowAttr as Gdk.WindowAttr import {-# SOURCE #-} qualified GI.Gdk.Unions.Event as Gdk.Event import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf -- | Memory-managed wrapper type. newtype Window = Window (ManagedPtr Window) foreign import ccall "gdk_window_get_type" c_gdk_window_get_type :: IO GType instance GObject Window where gobjectType = c_gdk_window_get_type -- | Type class for types which can be safely cast to `Window`, for instance with `toWindow`. class (GObject o, O.IsDescendantOf Window o) => IsWindow o instance (GObject o, O.IsDescendantOf Window o) => IsWindow o instance O.HasParentTypes Window type instance O.ParentTypes Window = '[GObject.Object.Object] -- | Cast to `Window`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toWindow :: (MonadIO m, IsWindow o) => o -> m Window toWindow = liftIO . unsafeCastTo Window -- | A convenience alias for `Nothing` :: `Maybe` `Window`. noWindow :: Maybe Window noWindow = Nothing #if ENABLE_OVERLOADING type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where ResolveWindowMethod "beep" o = WindowBeepMethodInfo ResolveWindowMethod "beginDrawFrame" o = WindowBeginDrawFrameMethodInfo ResolveWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo ResolveWindowMethod "beginMoveDragForDevice" o = WindowBeginMoveDragForDeviceMethodInfo ResolveWindowMethod "beginPaintRect" o = WindowBeginPaintRectMethodInfo ResolveWindowMethod "beginPaintRegion" o = WindowBeginPaintRegionMethodInfo ResolveWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo ResolveWindowMethod "beginResizeDragForDevice" o = WindowBeginResizeDragForDeviceMethodInfo ResolveWindowMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolveWindowMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolveWindowMethod "configureFinished" o = WindowConfigureFinishedMethodInfo ResolveWindowMethod "coordsFromParent" o = WindowCoordsFromParentMethodInfo ResolveWindowMethod "coordsToParent" o = WindowCoordsToParentMethodInfo ResolveWindowMethod "createGlContext" o = WindowCreateGlContextMethodInfo ResolveWindowMethod "createSimilarImageSurface" o = WindowCreateSimilarImageSurfaceMethodInfo ResolveWindowMethod "createSimilarSurface" o = WindowCreateSimilarSurfaceMethodInfo ResolveWindowMethod "deiconify" o = WindowDeiconifyMethodInfo ResolveWindowMethod "destroy" o = WindowDestroyMethodInfo ResolveWindowMethod "destroyNotify" o = WindowDestroyNotifyMethodInfo ResolveWindowMethod "enableSynchronizedConfigure" o = WindowEnableSynchronizedConfigureMethodInfo ResolveWindowMethod "endDrawFrame" o = WindowEndDrawFrameMethodInfo ResolveWindowMethod "endPaint" o = WindowEndPaintMethodInfo ResolveWindowMethod "ensureNative" o = WindowEnsureNativeMethodInfo ResolveWindowMethod "flush" o = WindowFlushMethodInfo ResolveWindowMethod "focus" o = WindowFocusMethodInfo ResolveWindowMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolveWindowMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolveWindowMethod "freezeToplevelUpdatesLibgtkOnly" o = WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo ResolveWindowMethod "freezeUpdates" o = WindowFreezeUpdatesMethodInfo ResolveWindowMethod "fullscreen" o = WindowFullscreenMethodInfo ResolveWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo ResolveWindowMethod "geometryChanged" o = WindowGeometryChangedMethodInfo ResolveWindowMethod "getv" o = GObject.Object.ObjectGetvMethodInfo ResolveWindowMethod "hasNative" o = WindowHasNativeMethodInfo ResolveWindowMethod "hide" o = WindowHideMethodInfo ResolveWindowMethod "iconify" o = WindowIconifyMethodInfo ResolveWindowMethod "inputShapeCombineRegion" o = WindowInputShapeCombineRegionMethodInfo ResolveWindowMethod "invalidateMaybeRecurse" o = WindowInvalidateMaybeRecurseMethodInfo ResolveWindowMethod "invalidateRect" o = WindowInvalidateRectMethodInfo ResolveWindowMethod "invalidateRegion" o = WindowInvalidateRegionMethodInfo ResolveWindowMethod "isDestroyed" o = WindowIsDestroyedMethodInfo ResolveWindowMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolveWindowMethod "isInputOnly" o = WindowIsInputOnlyMethodInfo ResolveWindowMethod "isShaped" o = WindowIsShapedMethodInfo ResolveWindowMethod "isViewable" o = WindowIsViewableMethodInfo ResolveWindowMethod "isVisible" o = WindowIsVisibleMethodInfo ResolveWindowMethod "lower" o = WindowLowerMethodInfo ResolveWindowMethod "markPaintFromClip" o = WindowMarkPaintFromClipMethodInfo ResolveWindowMethod "maximize" o = WindowMaximizeMethodInfo ResolveWindowMethod "mergeChildInputShapes" o = WindowMergeChildInputShapesMethodInfo ResolveWindowMethod "mergeChildShapes" o = WindowMergeChildShapesMethodInfo ResolveWindowMethod "move" o = WindowMoveMethodInfo ResolveWindowMethod "moveRegion" o = WindowMoveRegionMethodInfo ResolveWindowMethod "moveResize" o = WindowMoveResizeMethodInfo ResolveWindowMethod "moveToRect" o = WindowMoveToRectMethodInfo ResolveWindowMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolveWindowMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolveWindowMethod "peekChildren" o = WindowPeekChildrenMethodInfo ResolveWindowMethod "processUpdates" o = WindowProcessUpdatesMethodInfo ResolveWindowMethod "raise" o = WindowRaiseMethodInfo ResolveWindowMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolveWindowMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolveWindowMethod "registerDnd" o = WindowRegisterDndMethodInfo ResolveWindowMethod "reparent" o = WindowReparentMethodInfo ResolveWindowMethod "resize" o = WindowResizeMethodInfo ResolveWindowMethod "restack" o = WindowRestackMethodInfo ResolveWindowMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolveWindowMethod "scroll" o = WindowScrollMethodInfo ResolveWindowMethod "shapeCombineRegion" o = WindowShapeCombineRegionMethodInfo ResolveWindowMethod "show" o = WindowShowMethodInfo ResolveWindowMethod "showUnraised" o = WindowShowUnraisedMethodInfo ResolveWindowMethod "showWindowMenu" o = WindowShowWindowMenuMethodInfo ResolveWindowMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolveWindowMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolveWindowMethod "stick" o = WindowStickMethodInfo ResolveWindowMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolveWindowMethod "thawToplevelUpdatesLibgtkOnly" o = WindowThawToplevelUpdatesLibgtkOnlyMethodInfo ResolveWindowMethod "thawUpdates" o = WindowThawUpdatesMethodInfo ResolveWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo ResolveWindowMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo ResolveWindowMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolveWindowMethod "withdraw" o = WindowWithdrawMethodInfo ResolveWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo ResolveWindowMethod "getBackgroundPattern" o = WindowGetBackgroundPatternMethodInfo ResolveWindowMethod "getChildren" o = WindowGetChildrenMethodInfo ResolveWindowMethod "getChildrenWithUserData" o = WindowGetChildrenWithUserDataMethodInfo ResolveWindowMethod "getClipRegion" o = WindowGetClipRegionMethodInfo ResolveWindowMethod "getComposited" o = WindowGetCompositedMethodInfo ResolveWindowMethod "getCursor" o = WindowGetCursorMethodInfo ResolveWindowMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolveWindowMethod "getDecorations" o = WindowGetDecorationsMethodInfo ResolveWindowMethod "getDeviceCursor" o = WindowGetDeviceCursorMethodInfo ResolveWindowMethod "getDeviceEvents" o = WindowGetDeviceEventsMethodInfo ResolveWindowMethod "getDevicePosition" o = WindowGetDevicePositionMethodInfo ResolveWindowMethod "getDevicePositionDouble" o = WindowGetDevicePositionDoubleMethodInfo ResolveWindowMethod "getDisplay" o = WindowGetDisplayMethodInfo ResolveWindowMethod "getDragProtocol" o = WindowGetDragProtocolMethodInfo ResolveWindowMethod "getEffectiveParent" o = WindowGetEffectiveParentMethodInfo ResolveWindowMethod "getEffectiveToplevel" o = WindowGetEffectiveToplevelMethodInfo ResolveWindowMethod "getEventCompression" o = WindowGetEventCompressionMethodInfo ResolveWindowMethod "getEvents" o = WindowGetEventsMethodInfo ResolveWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo ResolveWindowMethod "getFrameClock" o = WindowGetFrameClockMethodInfo ResolveWindowMethod "getFrameExtents" o = WindowGetFrameExtentsMethodInfo ResolveWindowMethod "getFullscreenMode" o = WindowGetFullscreenModeMethodInfo ResolveWindowMethod "getGeometry" o = WindowGetGeometryMethodInfo ResolveWindowMethod "getGroup" o = WindowGetGroupMethodInfo ResolveWindowMethod "getHeight" o = WindowGetHeightMethodInfo ResolveWindowMethod "getModalHint" o = WindowGetModalHintMethodInfo ResolveWindowMethod "getOrigin" o = WindowGetOriginMethodInfo ResolveWindowMethod "getParent" o = WindowGetParentMethodInfo ResolveWindowMethod "getPassThrough" o = WindowGetPassThroughMethodInfo ResolveWindowMethod "getPointer" o = WindowGetPointerMethodInfo ResolveWindowMethod "getPosition" o = WindowGetPositionMethodInfo ResolveWindowMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolveWindowMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolveWindowMethod "getRootCoords" o = WindowGetRootCoordsMethodInfo ResolveWindowMethod "getRootOrigin" o = WindowGetRootOriginMethodInfo ResolveWindowMethod "getScaleFactor" o = WindowGetScaleFactorMethodInfo ResolveWindowMethod "getScreen" o = WindowGetScreenMethodInfo ResolveWindowMethod "getSourceEvents" o = WindowGetSourceEventsMethodInfo ResolveWindowMethod "getState" o = WindowGetStateMethodInfo ResolveWindowMethod "getSupportMultidevice" o = WindowGetSupportMultideviceMethodInfo ResolveWindowMethod "getToplevel" o = WindowGetToplevelMethodInfo ResolveWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo ResolveWindowMethod "getUpdateArea" o = WindowGetUpdateAreaMethodInfo ResolveWindowMethod "getUserData" o = WindowGetUserDataMethodInfo ResolveWindowMethod "getVisibleRegion" o = WindowGetVisibleRegionMethodInfo ResolveWindowMethod "getVisual" o = WindowGetVisualMethodInfo ResolveWindowMethod "getWidth" o = WindowGetWidthMethodInfo ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo ResolveWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo ResolveWindowMethod "setBackground" o = WindowSetBackgroundMethodInfo ResolveWindowMethod "setBackgroundPattern" o = WindowSetBackgroundPatternMethodInfo ResolveWindowMethod "setBackgroundRgba" o = WindowSetBackgroundRgbaMethodInfo ResolveWindowMethod "setChildInputShapes" o = WindowSetChildInputShapesMethodInfo ResolveWindowMethod "setChildShapes" o = WindowSetChildShapesMethodInfo ResolveWindowMethod "setComposited" o = WindowSetCompositedMethodInfo ResolveWindowMethod "setCursor" o = WindowSetCursorMethodInfo ResolveWindowMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolveWindowMethod "setDecorations" o = WindowSetDecorationsMethodInfo ResolveWindowMethod "setDeviceCursor" o = WindowSetDeviceCursorMethodInfo ResolveWindowMethod "setDeviceEvents" o = WindowSetDeviceEventsMethodInfo ResolveWindowMethod "setEventCompression" o = WindowSetEventCompressionMethodInfo ResolveWindowMethod "setEvents" o = WindowSetEventsMethodInfo ResolveWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo ResolveWindowMethod "setFullscreenMode" o = WindowSetFullscreenModeMethodInfo ResolveWindowMethod "setFunctions" o = WindowSetFunctionsMethodInfo ResolveWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo ResolveWindowMethod "setGroup" o = WindowSetGroupMethodInfo ResolveWindowMethod "setIconList" o = WindowSetIconListMethodInfo ResolveWindowMethod "setIconName" o = WindowSetIconNameMethodInfo ResolveWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo ResolveWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo ResolveWindowMethod "setModalHint" o = WindowSetModalHintMethodInfo ResolveWindowMethod "setOpacity" o = WindowSetOpacityMethodInfo ResolveWindowMethod "setOpaqueRegion" o = WindowSetOpaqueRegionMethodInfo ResolveWindowMethod "setOverrideRedirect" o = WindowSetOverrideRedirectMethodInfo ResolveWindowMethod "setPassThrough" o = WindowSetPassThroughMethodInfo ResolveWindowMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolveWindowMethod "setRole" o = WindowSetRoleMethodInfo ResolveWindowMethod "setShadowWidth" o = WindowSetShadowWidthMethodInfo ResolveWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo ResolveWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo ResolveWindowMethod "setSourceEvents" o = WindowSetSourceEventsMethodInfo ResolveWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo ResolveWindowMethod "setStaticGravities" o = WindowSetStaticGravitiesMethodInfo ResolveWindowMethod "setSupportMultidevice" o = WindowSetSupportMultideviceMethodInfo ResolveWindowMethod "setTitle" o = WindowSetTitleMethodInfo ResolveWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo ResolveWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo ResolveWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo ResolveWindowMethod "setUserData" o = WindowSetUserDataMethodInfo ResolveWindowMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolveWindowMethod t Window, O.MethodInfo info Window p) => OL.IsLabel t (Window -> p) where #if MIN_VERSION_base(4,10,0) fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #else fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif #endif -- signal Window::create-surface {- | The ::create-surface signal is emitted when an offscreen window needs its surface (re)created, which happens either when the window is first drawn to, or when the window is being resized. The first signal handler that returns a non-'Nothing' surface will stop any further signal emission, and its surface will be used. Note that it is not possible to access the window\'s previous surface from within any callback of this signal. Calling 'GI.Gdk.Functions.offscreenWindowGetSurface' will lead to a crash. /Since: 3.0/ -} type WindowCreateSurfaceCallback = Int32 {- ^ /@width@/: the width of the offscreen surface to create -} -> Int32 {- ^ /@height@/: the height of the offscreen surface to create -} -> IO Cairo.Surface.Surface {- ^ __Returns:__ the newly created 'GI.Cairo.Structs.Surface.Surface' for the offscreen window -} -- | A convenience synonym for @`Nothing` :: `Maybe` `WindowCreateSurfaceCallback`@. noWindowCreateSurfaceCallback :: Maybe WindowCreateSurfaceCallback noWindowCreateSurfaceCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_WindowCreateSurfaceCallback = Ptr () -> -- object Int32 -> Int32 -> Ptr () -> -- user_data IO (Ptr Cairo.Surface.Surface) -- | Generate a function pointer callable from C code, from a `C_WindowCreateSurfaceCallback`. foreign import ccall "wrapper" mk_WindowCreateSurfaceCallback :: C_WindowCreateSurfaceCallback -> IO (FunPtr C_WindowCreateSurfaceCallback) -- | Wrap the callback into a `GClosure`. genClosure_WindowCreateSurface :: MonadIO m => WindowCreateSurfaceCallback -> m (GClosure C_WindowCreateSurfaceCallback) genClosure_WindowCreateSurface cb = liftIO $ do let cb' = wrap_WindowCreateSurfaceCallback cb mk_WindowCreateSurfaceCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `WindowCreateSurfaceCallback` into a `C_WindowCreateSurfaceCallback`. wrap_WindowCreateSurfaceCallback :: WindowCreateSurfaceCallback -> C_WindowCreateSurfaceCallback wrap_WindowCreateSurfaceCallback _cb _ width height _ = do result <- _cb width height result' <- B.ManagedPtr.disownBoxed result return result' {- | Connect a signal handler for the “@create-surface@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' window #createSurface callback @ -} onWindowCreateSurface :: (IsWindow a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId onWindowCreateSurface obj cb = liftIO $ do let cb' = wrap_WindowCreateSurfaceCallback cb cb'' <- mk_WindowCreateSurfaceCallback cb' connectSignalFunPtr obj "create-surface" cb'' SignalConnectBefore {- | Connect a signal handler for the “@create-surface@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' window #createSurface callback @ -} afterWindowCreateSurface :: (IsWindow a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId afterWindowCreateSurface obj cb = liftIO $ do let cb' = wrap_WindowCreateSurfaceCallback cb cb'' <- mk_WindowCreateSurfaceCallback cb' connectSignalFunPtr obj "create-surface" cb'' SignalConnectAfter -- signal Window::from-embedder {- | The ::from-embedder signal is emitted to translate coordinates in the embedder of an offscreen window to the offscreen window. See also 'GI.Gdk.Objects.Window.Window'::@/to-embedder/@. /Since: 2.18/ -} type WindowFromEmbedderCallback = Double {- ^ /@embedderX@/: x coordinate in the embedder window -} -> Double {- ^ /@embedderY@/: y coordinate in the embedder window -} -> IO ((Double, Double)) -- | A convenience synonym for @`Nothing` :: `Maybe` `WindowFromEmbedderCallback`@. noWindowFromEmbedderCallback :: Maybe WindowFromEmbedderCallback noWindowFromEmbedderCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_WindowFromEmbedderCallback = Ptr () -> -- object CDouble -> CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_WindowFromEmbedderCallback`. foreign import ccall "wrapper" mk_WindowFromEmbedderCallback :: C_WindowFromEmbedderCallback -> IO (FunPtr C_WindowFromEmbedderCallback) -- | Wrap the callback into a `GClosure`. genClosure_WindowFromEmbedder :: MonadIO m => WindowFromEmbedderCallback -> m (GClosure C_WindowFromEmbedderCallback) genClosure_WindowFromEmbedder cb = liftIO $ do let cb' = wrap_WindowFromEmbedderCallback cb mk_WindowFromEmbedderCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `WindowFromEmbedderCallback` into a `C_WindowFromEmbedderCallback`. wrap_WindowFromEmbedderCallback :: WindowFromEmbedderCallback -> C_WindowFromEmbedderCallback wrap_WindowFromEmbedderCallback _cb _ embedderX embedderY offscreenX offscreenY _ = do let embedderX' = realToFrac embedderX let embedderY' = realToFrac embedderY (outoffscreenX, outoffscreenY) <- _cb embedderX' embedderY' let outoffscreenX' = realToFrac outoffscreenX poke offscreenX outoffscreenX' let outoffscreenY' = realToFrac outoffscreenY poke offscreenY outoffscreenY' {- | Connect a signal handler for the “@from-embedder@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' window #fromEmbedder callback @ -} onWindowFromEmbedder :: (IsWindow a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId onWindowFromEmbedder obj cb = liftIO $ do let cb' = wrap_WindowFromEmbedderCallback cb cb'' <- mk_WindowFromEmbedderCallback cb' connectSignalFunPtr obj "from-embedder" cb'' SignalConnectBefore {- | Connect a signal handler for the “@from-embedder@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' window #fromEmbedder callback @ -} afterWindowFromEmbedder :: (IsWindow a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId afterWindowFromEmbedder obj cb = liftIO $ do let cb' = wrap_WindowFromEmbedderCallback cb cb'' <- mk_WindowFromEmbedderCallback cb' connectSignalFunPtr obj "from-embedder" cb'' SignalConnectAfter -- signal Window::moved-to-rect {- | Emitted when the position of /@window@/ is finalized after being moved to a destination rectangle. /@window@/ might be flipped over the destination rectangle in order to keep it on-screen, in which case /@flippedX@/ and /@flippedY@/ will be set to 'True' accordingly. /@flippedRect@/ is the ideal position of /@window@/ after any possible flipping, but before any possible sliding. /@finalRect@/ is /@flippedRect@/, but possibly translated in the case that flipping is still ineffective in keeping /@window@/ on-screen. /Since: 3.22/ -} type WindowMovedToRectCallback = Ptr () {- ^ /@flippedRect@/: the position of /@window@/ after any possible flipping or 'Nothing' if the backend can\'t obtain it -} -> Ptr () {- ^ /@finalRect@/: the final position of /@window@/ or 'Nothing' if the backend can\'t obtain it -} -> Bool {- ^ /@flippedX@/: 'True' if the anchors were flipped horizontally -} -> Bool {- ^ /@flippedY@/: 'True' if the anchors were flipped vertically -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `WindowMovedToRectCallback`@. noWindowMovedToRectCallback :: Maybe WindowMovedToRectCallback noWindowMovedToRectCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_WindowMovedToRectCallback = Ptr () -> -- object Ptr () -> Ptr () -> CInt -> CInt -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_WindowMovedToRectCallback`. foreign import ccall "wrapper" mk_WindowMovedToRectCallback :: C_WindowMovedToRectCallback -> IO (FunPtr C_WindowMovedToRectCallback) -- | Wrap the callback into a `GClosure`. genClosure_WindowMovedToRect :: MonadIO m => WindowMovedToRectCallback -> m (GClosure C_WindowMovedToRectCallback) genClosure_WindowMovedToRect cb = liftIO $ do let cb' = wrap_WindowMovedToRectCallback cb mk_WindowMovedToRectCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `WindowMovedToRectCallback` into a `C_WindowMovedToRectCallback`. wrap_WindowMovedToRectCallback :: WindowMovedToRectCallback -> C_WindowMovedToRectCallback wrap_WindowMovedToRectCallback _cb _ flippedRect finalRect flippedX flippedY _ = do let flippedX' = (/= 0) flippedX let flippedY' = (/= 0) flippedY _cb flippedRect finalRect flippedX' flippedY' {- | Connect a signal handler for the “@moved-to-rect@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' window #movedToRect callback @ -} onWindowMovedToRect :: (IsWindow a, MonadIO m) => a -> WindowMovedToRectCallback -> m SignalHandlerId onWindowMovedToRect obj cb = liftIO $ do let cb' = wrap_WindowMovedToRectCallback cb cb'' <- mk_WindowMovedToRectCallback cb' connectSignalFunPtr obj "moved-to-rect" cb'' SignalConnectBefore {- | Connect a signal handler for the “@moved-to-rect@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' window #movedToRect callback @ -} afterWindowMovedToRect :: (IsWindow a, MonadIO m) => a -> WindowMovedToRectCallback -> m SignalHandlerId afterWindowMovedToRect obj cb = liftIO $ do let cb' = wrap_WindowMovedToRectCallback cb cb'' <- mk_WindowMovedToRectCallback cb' connectSignalFunPtr obj "moved-to-rect" cb'' SignalConnectAfter -- signal Window::pick-embedded-child {- | The ::pick-embedded-child signal is emitted to find an embedded child at the given position. /Since: 2.18/ -} type WindowPickEmbeddedChildCallback = Double {- ^ /@x@/: x coordinate in the window -} -> Double {- ^ /@y@/: y coordinate in the window -} -> IO (Maybe Window) {- ^ __Returns:__ the 'GI.Gdk.Objects.Window.Window' of the embedded child at /@x@/, /@y@/, or 'Nothing' -} -- | A convenience synonym for @`Nothing` :: `Maybe` `WindowPickEmbeddedChildCallback`@. noWindowPickEmbeddedChildCallback :: Maybe WindowPickEmbeddedChildCallback noWindowPickEmbeddedChildCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_WindowPickEmbeddedChildCallback = Ptr () -> -- object CDouble -> CDouble -> Ptr () -> -- user_data IO (Ptr Window) -- | Generate a function pointer callable from C code, from a `C_WindowPickEmbeddedChildCallback`. foreign import ccall "wrapper" mk_WindowPickEmbeddedChildCallback :: C_WindowPickEmbeddedChildCallback -> IO (FunPtr C_WindowPickEmbeddedChildCallback) -- | Wrap the callback into a `GClosure`. genClosure_WindowPickEmbeddedChild :: MonadIO m => WindowPickEmbeddedChildCallback -> m (GClosure C_WindowPickEmbeddedChildCallback) genClosure_WindowPickEmbeddedChild cb = liftIO $ do let cb' = wrap_WindowPickEmbeddedChildCallback cb mk_WindowPickEmbeddedChildCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `WindowPickEmbeddedChildCallback` into a `C_WindowPickEmbeddedChildCallback`. wrap_WindowPickEmbeddedChildCallback :: WindowPickEmbeddedChildCallback -> C_WindowPickEmbeddedChildCallback wrap_WindowPickEmbeddedChildCallback _cb _ x y _ = do let x' = realToFrac x let y' = realToFrac y result <- _cb x' y' maybeM nullPtr result $ \result' -> do result'' <- unsafeManagedPtrCastPtr result' return result'' {- | Connect a signal handler for the “@pick-embedded-child@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' window #pickEmbeddedChild callback @ -} onWindowPickEmbeddedChild :: (IsWindow a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId onWindowPickEmbeddedChild obj cb = liftIO $ do let cb' = wrap_WindowPickEmbeddedChildCallback cb cb'' <- mk_WindowPickEmbeddedChildCallback cb' connectSignalFunPtr obj "pick-embedded-child" cb'' SignalConnectBefore {- | Connect a signal handler for the “@pick-embedded-child@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' window #pickEmbeddedChild callback @ -} afterWindowPickEmbeddedChild :: (IsWindow a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId afterWindowPickEmbeddedChild obj cb = liftIO $ do let cb' = wrap_WindowPickEmbeddedChildCallback cb cb'' <- mk_WindowPickEmbeddedChildCallback cb' connectSignalFunPtr obj "pick-embedded-child" cb'' SignalConnectAfter -- signal Window::to-embedder {- | The ::to-embedder signal is emitted to translate coordinates in an offscreen window to its embedder. See also 'GI.Gdk.Objects.Window.Window'::@/from-embedder/@. /Since: 2.18/ -} type WindowToEmbedderCallback = Double {- ^ /@offscreenX@/: x coordinate in the offscreen window -} -> Double {- ^ /@offscreenY@/: y coordinate in the offscreen window -} -> IO ((Double, Double)) -- | A convenience synonym for @`Nothing` :: `Maybe` `WindowToEmbedderCallback`@. noWindowToEmbedderCallback :: Maybe WindowToEmbedderCallback noWindowToEmbedderCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_WindowToEmbedderCallback = Ptr () -> -- object CDouble -> CDouble -> Ptr CDouble -> Ptr CDouble -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_WindowToEmbedderCallback`. foreign import ccall "wrapper" mk_WindowToEmbedderCallback :: C_WindowToEmbedderCallback -> IO (FunPtr C_WindowToEmbedderCallback) -- | Wrap the callback into a `GClosure`. genClosure_WindowToEmbedder :: MonadIO m => WindowToEmbedderCallback -> m (GClosure C_WindowToEmbedderCallback) genClosure_WindowToEmbedder cb = liftIO $ do let cb' = wrap_WindowToEmbedderCallback cb mk_WindowToEmbedderCallback cb' >>= B.GClosure.newGClosure -- | Wrap a `WindowToEmbedderCallback` into a `C_WindowToEmbedderCallback`. wrap_WindowToEmbedderCallback :: WindowToEmbedderCallback -> C_WindowToEmbedderCallback wrap_WindowToEmbedderCallback _cb _ offscreenX offscreenY embedderX embedderY _ = do let offscreenX' = realToFrac offscreenX let offscreenY' = realToFrac offscreenY (outembedderX, outembedderY) <- _cb offscreenX' offscreenY' let outembedderX' = realToFrac outembedderX poke embedderX outembedderX' let outembedderY' = realToFrac outembedderY poke embedderY outembedderY' {- | Connect a signal handler for the “@to-embedder@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' window #toEmbedder callback @ -} onWindowToEmbedder :: (IsWindow a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId onWindowToEmbedder obj cb = liftIO $ do let cb' = wrap_WindowToEmbedderCallback cb cb'' <- mk_WindowToEmbedderCallback cb' connectSignalFunPtr obj "to-embedder" cb'' SignalConnectBefore {- | Connect a signal handler for the “@to-embedder@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' window #toEmbedder callback @ -} afterWindowToEmbedder :: (IsWindow a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId afterWindowToEmbedder obj cb = liftIO $ do let cb' = wrap_WindowToEmbedderCallback cb cb'' <- mk_WindowToEmbedderCallback cb' connectSignalFunPtr obj "to-embedder" cb'' SignalConnectAfter -- VVV Prop "cursor" -- Type: TInterface (Name {namespace = "Gdk", name = "Cursor"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Just True) {- | Get the value of the “@cursor@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' window #cursor @ -} getWindowCursor :: (MonadIO m, IsWindow o) => o -> m (Maybe Gdk.Cursor.Cursor) getWindowCursor obj = liftIO $ B.Properties.getObjectPropertyObject obj "cursor" Gdk.Cursor.Cursor {- | Set the value of the “@cursor@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' window [ #cursor 'Data.GI.Base.Attributes.:=' value ] @ -} setWindowCursor :: (MonadIO m, IsWindow o, Gdk.Cursor.IsCursor a) => o -> a -> m () setWindowCursor obj val = liftIO $ B.Properties.setObjectPropertyObject obj "cursor" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@cursor@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructWindowCursor :: (IsWindow o, Gdk.Cursor.IsCursor a) => a -> IO (GValueConstruct o) constructWindowCursor val = B.Properties.constructObjectPropertyObject "cursor" (Just val) {- | Set the value of the “@cursor@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #cursor @ -} clearWindowCursor :: (MonadIO m, IsWindow o) => o -> m () clearWindowCursor obj = liftIO $ B.Properties.setObjectPropertyObject obj "cursor" (Nothing :: Maybe Gdk.Cursor.Cursor) #if ENABLE_OVERLOADING data WindowCursorPropertyInfo instance AttrInfo WindowCursorPropertyInfo where type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint WindowCursorPropertyInfo = Gdk.Cursor.IsCursor type AttrBaseTypeConstraint WindowCursorPropertyInfo = IsWindow type AttrGetType WindowCursorPropertyInfo = (Maybe Gdk.Cursor.Cursor) type AttrLabel WindowCursorPropertyInfo = "cursor" type AttrOrigin WindowCursorPropertyInfo = Window attrGet _ = getWindowCursor attrSet _ = setWindowCursor attrConstruct _ = constructWindowCursor attrClear _ = clearWindowCursor #endif #if ENABLE_OVERLOADING instance O.HasAttributeList Window type instance O.AttributeList Window = WindowAttributeList type WindowAttributeList = ('[ '("cursor", WindowCursorPropertyInfo)] :: [(Symbol, *)]) #endif #if ENABLE_OVERLOADING windowCursor :: AttrLabelProxy "cursor" windowCursor = AttrLabelProxy #endif #if ENABLE_OVERLOADING data WindowCreateSurfaceSignalInfo instance SignalInfo WindowCreateSurfaceSignalInfo where type HaskellCallbackType WindowCreateSurfaceSignalInfo = WindowCreateSurfaceCallback connectSignal _ obj cb connectMode = do let cb' = wrap_WindowCreateSurfaceCallback cb cb'' <- mk_WindowCreateSurfaceCallback cb' connectSignalFunPtr obj "create-surface" cb'' connectMode data WindowFromEmbedderSignalInfo instance SignalInfo WindowFromEmbedderSignalInfo where type HaskellCallbackType WindowFromEmbedderSignalInfo = WindowFromEmbedderCallback connectSignal _ obj cb connectMode = do let cb' = wrap_WindowFromEmbedderCallback cb cb'' <- mk_WindowFromEmbedderCallback cb' connectSignalFunPtr obj "from-embedder" cb'' connectMode data WindowMovedToRectSignalInfo instance SignalInfo WindowMovedToRectSignalInfo where type HaskellCallbackType WindowMovedToRectSignalInfo = WindowMovedToRectCallback connectSignal _ obj cb connectMode = do let cb' = wrap_WindowMovedToRectCallback cb cb'' <- mk_WindowMovedToRectCallback cb' connectSignalFunPtr obj "moved-to-rect" cb'' connectMode data WindowPickEmbeddedChildSignalInfo instance SignalInfo WindowPickEmbeddedChildSignalInfo where type HaskellCallbackType WindowPickEmbeddedChildSignalInfo = WindowPickEmbeddedChildCallback connectSignal _ obj cb connectMode = do let cb' = wrap_WindowPickEmbeddedChildCallback cb cb'' <- mk_WindowPickEmbeddedChildCallback cb' connectSignalFunPtr obj "pick-embedded-child" cb'' connectMode data WindowToEmbedderSignalInfo instance SignalInfo WindowToEmbedderSignalInfo where type HaskellCallbackType WindowToEmbedderSignalInfo = WindowToEmbedderCallback connectSignal _ obj cb connectMode = do let cb' = wrap_WindowToEmbedderCallback cb cb'' <- mk_WindowToEmbedderCallback cb' connectSignalFunPtr obj "to-embedder" cb'' connectMode type instance O.SignalList Window = WindowSignalList type WindowSignalList = ('[ '("createSurface", WindowCreateSurfaceSignalInfo), '("fromEmbedder", WindowFromEmbedderSignalInfo), '("movedToRect", WindowMovedToRectSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pickEmbeddedChild", WindowPickEmbeddedChildSignalInfo), '("toEmbedder", WindowToEmbedderSignalInfo)] :: [(Symbol, *)]) #endif -- method Window::new -- method type : Constructor -- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkWindow, or %NULL to create the window as a child of\n the default root window for the default display.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TInterface (Name {namespace = "Gdk", name = "WindowAttr"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "attributes of the new window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes_mask", argType = TInterface (Name {namespace = "Gdk", name = "WindowAttributesType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "mask indicating which\n fields in @attributes are valid", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_new" gdk_window_new :: Ptr Window -> -- parent : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.WindowAttr.WindowAttr -> -- attributes : TInterface (Name {namespace = "Gdk", name = "WindowAttr"}) CUInt -> -- attributes_mask : TInterface (Name {namespace = "Gdk", name = "WindowAttributesType"}) IO (Ptr Window) {- | Creates a new 'GI.Gdk.Objects.Window.Window' using the attributes from /@attributes@/. See 'GI.Gdk.Structs.WindowAttr.WindowAttr' and 'GI.Gdk.Flags.WindowAttributesType' for more details. Note: to use this on displays other than the default display, /@parent@/ must be specified. -} windowNew :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => Maybe (a) {- ^ /@parent@/: a 'GI.Gdk.Objects.Window.Window', or 'Nothing' to create the window as a child of the default root window for the default display. -} -> Gdk.WindowAttr.WindowAttr {- ^ /@attributes@/: attributes of the new window -} -> [Gdk.Flags.WindowAttributesType] {- ^ /@attributesMask@/: mask indicating which fields in /@attributes@/ are valid -} -> m Window {- ^ __Returns:__ the new 'GI.Gdk.Objects.Window.Window' -} windowNew parent attributes attributesMask = liftIO $ do maybeParent <- case parent of Nothing -> return nullPtr Just jParent -> do jParent' <- unsafeManagedPtrCastPtr jParent return jParent' attributes' <- unsafeManagedPtrGetPtr attributes let attributesMask' = gflagsToWord attributesMask result <- gdk_window_new maybeParent attributes' attributesMask' checkUnexpectedReturnNULL "windowNew" result result' <- (wrapObject Window) result whenJust parent touchManagedPtr touchManagedPtr attributes return result' #if ENABLE_OVERLOADING #endif -- method Window::beep -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_beep" gdk_window_beep :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Emits a short beep associated to /@window@/ in the appropriate display, if supported. Otherwise, emits a short beep on the display just as 'GI.Gdk.Objects.Display.displayBeep'. /Since: 2.12/ -} windowBeep :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowBeep window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_beep window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowBeepMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowBeepMethodInfo a signature where overloadedMethod _ = windowBeep #endif -- method Window::begin_draw_frame -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a Cairo region", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "DrawingContext"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_draw_frame" gdk_window_begin_draw_frame :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- region : TInterface (Name {namespace = "cairo", name = "Region"}) IO (Ptr Gdk.DrawingContext.DrawingContext) {- | Indicates that you are beginning the process of redrawing /@region@/ on /@window@/, and provides you with a 'GI.Gdk.Objects.DrawingContext.DrawingContext'. If /@window@/ is a top level 'GI.Gdk.Objects.Window.Window', backed by a native window implementation, a backing store (offscreen buffer) large enough to contain /@region@/ will be created. The backing store will be initialized with the background color or background surface for /@window@/. Then, all drawing operations performed on /@window@/ will be diverted to the backing store. When you call @/gdk_window_end_frame()/@, the contents of the backing store will be copied to /@window@/, making it visible on screen. Only the part of /@window@/ contained in /@region@/ will be modified; that is, drawing operations are clipped to /@region@/. The net result of all this is to remove flicker, because the user sees the finished product appear all at once when you call 'GI.Gdk.Objects.Window.windowEndDrawFrame'. If you draw to /@window@/ directly without calling 'GI.Gdk.Objects.Window.windowBeginDrawFrame', the user may see flicker as individual drawing operations are performed in sequence. When using GTK+, the widget system automatically places calls to 'GI.Gdk.Objects.Window.windowBeginDrawFrame' and 'GI.Gdk.Objects.Window.windowEndDrawFrame' around emissions of the @GtkWidget::draw@ signal. That is, if you’re drawing the contents of the widget yourself, you can assume that the widget has a cleared background, is already set as the clip region, and already has a backing store. Therefore in most cases, application code in GTK does not need to call 'GI.Gdk.Objects.Window.windowBeginDrawFrame' explicitly. /Since: 3.22/ -} windowBeginDrawFrame :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Cairo.Region.Region {- ^ /@region@/: a Cairo region -} -> m Gdk.DrawingContext.DrawingContext {- ^ __Returns:__ a 'GI.Gdk.Objects.DrawingContext.DrawingContext' context that should be used to draw the contents of the window; the returned context is owned by GDK. -} windowBeginDrawFrame window region = liftIO $ do window' <- unsafeManagedPtrCastPtr window region' <- unsafeManagedPtrGetPtr region result <- gdk_window_begin_draw_frame window' region' checkUnexpectedReturnNULL "windowBeginDrawFrame" result result' <- (newObject Gdk.DrawingContext.DrawingContext) result touchManagedPtr window touchManagedPtr region return result' #if ENABLE_OVERLOADING data WindowBeginDrawFrameMethodInfo instance (signature ~ (Cairo.Region.Region -> m Gdk.DrawingContext.DrawingContext), MonadIO m, IsWindow a) => O.MethodInfo WindowBeginDrawFrameMethodInfo a signature where overloadedMethod _ = windowBeginDrawFrame #endif -- method Window::begin_move_drag -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the button being used to drag, or 0 for a keyboard-initiated drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window X coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window Y coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timestamp of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_move_drag" gdk_window_begin_move_drag :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- button : TBasicType TInt Int32 -> -- root_x : TBasicType TInt Int32 -> -- root_y : TBasicType TInt Word32 -> -- timestamp : TBasicType TUInt32 IO () {- | Begins a window move operation (for a toplevel window). This function assumes that the drag is controlled by the client pointer device, use 'GI.Gdk.Objects.Window.windowBeginMoveDragForDevice' to begin a drag with a different device. -} windowBeginMoveDrag :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@button@/: the button being used to drag, or 0 for a keyboard-initiated drag -} -> Int32 {- ^ /@rootX@/: root window X coordinate of mouse click that began the drag -} -> Int32 {- ^ /@rootY@/: root window Y coordinate of mouse click that began the drag -} -> Word32 {- ^ /@timestamp@/: timestamp of mouse click that began the drag -} -> m () windowBeginMoveDrag window button rootX rootY timestamp = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_begin_move_drag window' button rootX rootY timestamp touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowBeginMoveDragMethodInfo instance (signature ~ (Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowBeginMoveDragMethodInfo a signature where overloadedMethod _ = windowBeginMoveDrag #endif -- method Window::begin_move_drag_for_device -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the device used for the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the button being used to drag, or 0 for a keyboard-initiated drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window X coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window Y coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timestamp of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_move_drag_for_device" gdk_window_begin_move_drag_for_device :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) Int32 -> -- button : TBasicType TInt Int32 -> -- root_x : TBasicType TInt Int32 -> -- root_y : TBasicType TInt Word32 -> -- timestamp : TBasicType TUInt32 IO () {- | Begins a window move operation (for a toplevel window). You might use this function to implement a “window move grip,” for example. The function works best with window managers that support the but has a fallback implementation for other window managers. /Since: 3.4/ -} windowBeginMoveDragForDevice :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> b {- ^ /@device@/: the device used for the operation -} -> Int32 {- ^ /@button@/: the button being used to drag, or 0 for a keyboard-initiated drag -} -> Int32 {- ^ /@rootX@/: root window X coordinate of mouse click that began the drag -} -> Int32 {- ^ /@rootY@/: root window Y coordinate of mouse click that began the drag -} -> Word32 {- ^ /@timestamp@/: timestamp of mouse click that began the drag -} -> m () windowBeginMoveDragForDevice window device button rootX rootY timestamp = liftIO $ do window' <- unsafeManagedPtrCastPtr window device' <- unsafeManagedPtrCastPtr device gdk_window_begin_move_drag_for_device window' device' button rootX rootY timestamp touchManagedPtr window touchManagedPtr device return () #if ENABLE_OVERLOADING data WindowBeginMoveDragForDeviceMethodInfo instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => O.MethodInfo WindowBeginMoveDragForDeviceMethodInfo a signature where overloadedMethod _ = windowBeginMoveDragForDevice #endif -- method Window::begin_paint_rect -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle you intend to draw to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_paint_rect" gdk_window_begin_paint_rect :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Rectangle.Rectangle -> -- rectangle : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) IO () {-# DEPRECATED windowBeginPaintRect ["(Since version 3.22)","Use 'GI.Gdk.Objects.Window.windowBeginDrawFrame' instead"] #-} {- | A convenience wrapper around 'GI.Gdk.Objects.Window.windowBeginPaintRegion' which creates a rectangular region for you. See 'GI.Gdk.Objects.Window.windowBeginPaintRegion' for details. -} windowBeginPaintRect :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Rectangle.Rectangle {- ^ /@rectangle@/: rectangle you intend to draw to -} -> m () windowBeginPaintRect window rectangle = liftIO $ do window' <- unsafeManagedPtrCastPtr window rectangle' <- unsafeManagedPtrGetPtr rectangle gdk_window_begin_paint_rect window' rectangle' touchManagedPtr window touchManagedPtr rectangle return () #if ENABLE_OVERLOADING data WindowBeginPaintRectMethodInfo instance (signature ~ (Gdk.Rectangle.Rectangle -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowBeginPaintRectMethodInfo a signature where overloadedMethod _ = windowBeginPaintRect #endif -- method Window::begin_paint_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "region you intend to draw to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_paint_region" gdk_window_begin_paint_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- region : TInterface (Name {namespace = "cairo", name = "Region"}) IO () {-# DEPRECATED windowBeginPaintRegion ["(Since version 3.22)","Use 'GI.Gdk.Objects.Window.windowBeginDrawFrame' instead"] #-} {- | Indicates that you are beginning the process of redrawing /@region@/. A backing store (offscreen buffer) large enough to contain /@region@/ will be created. The backing store will be initialized with the background color or background surface for /@window@/. Then, all drawing operations performed on /@window@/ will be diverted to the backing store. When you call 'GI.Gdk.Objects.Window.windowEndPaint', the backing store will be copied to /@window@/, making it visible onscreen. Only the part of /@window@/ contained in /@region@/ will be modified; that is, drawing operations are clipped to /@region@/. The net result of all this is to remove flicker, because the user sees the finished product appear all at once when you call 'GI.Gdk.Objects.Window.windowEndPaint'. If you draw to /@window@/ directly without calling 'GI.Gdk.Objects.Window.windowBeginPaintRegion', the user may see flicker as individual drawing operations are performed in sequence. The clipping and background-initializing features of 'GI.Gdk.Objects.Window.windowBeginPaintRegion' are conveniences for the programmer, so you can avoid doing that work yourself. When using GTK+, the widget system automatically places calls to 'GI.Gdk.Objects.Window.windowBeginPaintRegion' and 'GI.Gdk.Objects.Window.windowEndPaint' around emissions of the expose_event signal. That is, if you’re writing an expose event handler, you can assume that the exposed area in 'GI.Gdk.Structs.EventExpose.EventExpose' has already been cleared to the window background, is already set as the clip region, and already has a backing store. Therefore in most cases, application code need not call 'GI.Gdk.Objects.Window.windowBeginPaintRegion'. (You can disable the automatic calls around expose events on a widget-by-widget basis by calling @/gtk_widget_set_double_buffered()/@.) If you call this function multiple times before calling the matching 'GI.Gdk.Objects.Window.windowEndPaint', the backing stores are pushed onto a stack. 'GI.Gdk.Objects.Window.windowEndPaint' copies the topmost backing store onscreen, subtracts the topmost region from all other regions in the stack, and pops the stack. All drawing operations affect only the topmost backing store in the stack. One matching call to 'GI.Gdk.Objects.Window.windowEndPaint' is required for each call to 'GI.Gdk.Objects.Window.windowBeginPaintRegion'. -} windowBeginPaintRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Cairo.Region.Region {- ^ /@region@/: region you intend to draw to -} -> m () windowBeginPaintRegion window region = liftIO $ do window' <- unsafeManagedPtrCastPtr window region' <- unsafeManagedPtrGetPtr region gdk_window_begin_paint_region window' region' touchManagedPtr window touchManagedPtr region return () #if ENABLE_OVERLOADING data WindowBeginPaintRegionMethodInfo instance (signature ~ (Cairo.Region.Region -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowBeginPaintRegionMethodInfo a signature where overloadedMethod _ = windowBeginPaintRegion #endif -- method Window::begin_resize_drag -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface (Name {namespace = "Gdk", name = "WindowEdge"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the edge or corner from which the drag is started", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the button being used to drag, or 0 for a keyboard-initiated drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window X coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window Y coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timestamp of mouse click that began the drag (use gdk_event_get_time())", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_resize_drag" gdk_window_begin_resize_drag :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- edge : TInterface (Name {namespace = "Gdk", name = "WindowEdge"}) Int32 -> -- button : TBasicType TInt Int32 -> -- root_x : TBasicType TInt Int32 -> -- root_y : TBasicType TInt Word32 -> -- timestamp : TBasicType TUInt32 IO () {- | Begins a window resize operation (for a toplevel window). This function assumes that the drag is controlled by the client pointer device, use 'GI.Gdk.Objects.Window.windowBeginResizeDragForDevice' to begin a drag with a different device. -} windowBeginResizeDrag :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Enums.WindowEdge {- ^ /@edge@/: the edge or corner from which the drag is started -} -> Int32 {- ^ /@button@/: the button being used to drag, or 0 for a keyboard-initiated drag -} -> Int32 {- ^ /@rootX@/: root window X coordinate of mouse click that began the drag -} -> Int32 {- ^ /@rootY@/: root window Y coordinate of mouse click that began the drag -} -> Word32 {- ^ /@timestamp@/: timestamp of mouse click that began the drag (use 'GI.Gdk.Unions.Event.eventGetTime') -} -> m () windowBeginResizeDrag window edge button rootX rootY timestamp = liftIO $ do window' <- unsafeManagedPtrCastPtr window let edge' = (fromIntegral . fromEnum) edge gdk_window_begin_resize_drag window' edge' button rootX rootY timestamp touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowBeginResizeDragMethodInfo instance (signature ~ (Gdk.Enums.WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowBeginResizeDragMethodInfo a signature where overloadedMethod _ = windowBeginResizeDrag #endif -- method Window::begin_resize_drag_for_device -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface (Name {namespace = "Gdk", name = "WindowEdge"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the edge or corner from which the drag is started", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the device used for the operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the button being used to drag, or 0 for a keyboard-initiated drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window X coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "root window Y coordinate of mouse click that began the drag", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timestamp of mouse click that began the drag (use gdk_event_get_time())", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_begin_resize_drag_for_device" gdk_window_begin_resize_drag_for_device :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- edge : TInterface (Name {namespace = "Gdk", name = "WindowEdge"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) Int32 -> -- button : TBasicType TInt Int32 -> -- root_x : TBasicType TInt Int32 -> -- root_y : TBasicType TInt Word32 -> -- timestamp : TBasicType TUInt32 IO () {- | Begins a window resize operation (for a toplevel window). You might use this function to implement a “window resize grip,” for example; in fact @/GtkStatusbar/@ uses it. The function works best with window managers that support the but has a fallback implementation for other window managers. /Since: 3.4/ -} windowBeginResizeDragForDevice :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Enums.WindowEdge {- ^ /@edge@/: the edge or corner from which the drag is started -} -> b {- ^ /@device@/: the device used for the operation -} -> Int32 {- ^ /@button@/: the button being used to drag, or 0 for a keyboard-initiated drag -} -> Int32 {- ^ /@rootX@/: root window X coordinate of mouse click that began the drag -} -> Int32 {- ^ /@rootY@/: root window Y coordinate of mouse click that began the drag -} -> Word32 {- ^ /@timestamp@/: timestamp of mouse click that began the drag (use 'GI.Gdk.Unions.Event.eventGetTime') -} -> m () windowBeginResizeDragForDevice window edge device button rootX rootY timestamp = liftIO $ do window' <- unsafeManagedPtrCastPtr window let edge' = (fromIntegral . fromEnum) edge device' <- unsafeManagedPtrCastPtr device gdk_window_begin_resize_drag_for_device window' edge' device' button rootX rootY timestamp touchManagedPtr window touchManagedPtr device return () #if ENABLE_OVERLOADING data WindowBeginResizeDragForDeviceMethodInfo instance (signature ~ (Gdk.Enums.WindowEdge -> b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => O.MethodInfo WindowBeginResizeDragForDeviceMethodInfo a signature where overloadedMethod _ = windowBeginResizeDragForDevice #endif -- method Window::configure_finished -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_configure_finished" gdk_window_configure_finished :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {-# DEPRECATED windowConfigureFinished ["(Since version 3.8)","this function is no longer needed"] #-} {- | Does nothing, present only for compatiblity. /Since: 2.6/ -} windowConfigureFinished :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowConfigureFinished window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_configure_finished window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowConfigureFinishedMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowConfigureFinishedMethodInfo a signature where overloadedMethod _ = windowConfigureFinished #endif -- method Window::coords_from_parent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a child window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X coordinate in parent\8217s coordinate system", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y coordinate in parent\8217s coordinate system", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for X coordinate in child\8217s coordinate system", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for Y coordinate in child\8217s coordinate system", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_coords_from_parent" gdk_window_coords_from_parent :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CDouble -> -- parent_x : TBasicType TDouble CDouble -> -- parent_y : TBasicType TDouble Ptr CDouble -> -- x : TBasicType TDouble Ptr CDouble -> -- y : TBasicType TDouble IO () {- | Transforms window coordinates from a parent window to a child window, where the parent window is the normal parent as returned by 'GI.Gdk.Objects.Window.windowGetParent' for normal windows, and the window\'s embedder as returned by 'GI.Gdk.Functions.offscreenWindowGetEmbedder' for offscreen windows. For normal windows, calling this function is equivalent to subtracting the return values of 'GI.Gdk.Objects.Window.windowGetPosition' from the parent coordinates. For offscreen windows however (which can be arbitrarily transformed), this function calls the GdkWindow::from-embedder: signal to translate the coordinates. You should always use this function when writing generic code that walks down a window hierarchy. See also: 'GI.Gdk.Objects.Window.windowCoordsToParent' /Since: 2.22/ -} windowCoordsFromParent :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a child window -} -> Double {- ^ /@parentX@/: X coordinate in parent’s coordinate system -} -> Double {- ^ /@parentY@/: Y coordinate in parent’s coordinate system -} -> m ((Double, Double)) windowCoordsFromParent window parentX parentY = liftIO $ do window' <- unsafeManagedPtrCastPtr window let parentX' = realToFrac parentX let parentY' = realToFrac parentY x <- allocMem :: IO (Ptr CDouble) y <- allocMem :: IO (Ptr CDouble) gdk_window_coords_from_parent window' parentX' parentY' x y x' <- peek x let x'' = realToFrac x' y' <- peek y let y'' = realToFrac y' touchManagedPtr window freeMem x freeMem y return (x'', y'') #if ENABLE_OVERLOADING data WindowCoordsFromParentMethodInfo instance (signature ~ (Double -> Double -> m ((Double, Double))), MonadIO m, IsWindow a) => O.MethodInfo WindowCoordsFromParentMethodInfo a signature where overloadedMethod _ = windowCoordsFromParent #endif -- method Window::coords_to_parent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a child window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X coordinate in child\8217s coordinate system", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y coordinate in child\8217s coordinate system", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for X coordinate\nin parent\8217s coordinate system, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for Y coordinate\nin parent\8217s coordinate system, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_coords_to_parent" gdk_window_coords_to_parent :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CDouble -> -- x : TBasicType TDouble CDouble -> -- y : TBasicType TDouble Ptr CDouble -> -- parent_x : TBasicType TDouble Ptr CDouble -> -- parent_y : TBasicType TDouble IO () {- | Transforms window coordinates from a child window to its parent window, where the parent window is the normal parent as returned by 'GI.Gdk.Objects.Window.windowGetParent' for normal windows, and the window\'s embedder as returned by 'GI.Gdk.Functions.offscreenWindowGetEmbedder' for offscreen windows. For normal windows, calling this function is equivalent to adding the return values of 'GI.Gdk.Objects.Window.windowGetPosition' to the child coordinates. For offscreen windows however (which can be arbitrarily transformed), this function calls the GdkWindow::to-embedder: signal to translate the coordinates. You should always use this function when writing generic code that walks up a window hierarchy. See also: 'GI.Gdk.Objects.Window.windowCoordsFromParent' /Since: 2.22/ -} windowCoordsToParent :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a child window -} -> Double {- ^ /@x@/: X coordinate in child’s coordinate system -} -> Double {- ^ /@y@/: Y coordinate in child’s coordinate system -} -> m ((Double, Double)) windowCoordsToParent window x y = liftIO $ do window' <- unsafeManagedPtrCastPtr window let x' = realToFrac x let y' = realToFrac y parentX <- allocMem :: IO (Ptr CDouble) parentY <- allocMem :: IO (Ptr CDouble) gdk_window_coords_to_parent window' x' y' parentX parentY parentX' <- peek parentX let parentX'' = realToFrac parentX' parentY' <- peek parentY let parentY'' = realToFrac parentY' touchManagedPtr window freeMem parentX freeMem parentY return (parentX'', parentY'') #if ENABLE_OVERLOADING data WindowCoordsToParentMethodInfo instance (signature ~ (Double -> Double -> m ((Double, Double))), MonadIO m, IsWindow a) => O.MethodInfo WindowCoordsToParentMethodInfo a signature where overloadedMethod _ = windowCoordsToParent #endif -- method Window::create_gl_context -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "GLContext"})) -- throws : True -- Skip return : False foreign import ccall "gdk_window_create_gl_context" gdk_window_create_gl_context :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr (Ptr GError) -> -- error IO (Ptr Gdk.GLContext.GLContext) {- | Creates a new 'GI.Gdk.Objects.GLContext.GLContext' matching the framebuffer format to the visual of the 'GI.Gdk.Objects.Window.Window'. The context is disconnected from any particular window or surface. If the creation of the 'GI.Gdk.Objects.GLContext.GLContext' failed, /@error@/ will be set. Before using the returned 'GI.Gdk.Objects.GLContext.GLContext', you will need to call 'GI.Gdk.Objects.GLContext.gLContextMakeCurrent' or 'GI.Gdk.Objects.GLContext.gLContextRealize'. /Since: 3.16/ -} windowCreateGlContext :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Gdk.GLContext.GLContext {- ^ __Returns:__ the newly created 'GI.Gdk.Objects.GLContext.GLContext', or 'Nothing' on error /(Can throw 'Data.GI.Base.GError.GError')/ -} windowCreateGlContext window = liftIO $ do window' <- unsafeManagedPtrCastPtr window onException (do result <- propagateGError $ gdk_window_create_gl_context window' checkUnexpectedReturnNULL "windowCreateGlContext" result result' <- (wrapObject Gdk.GLContext.GLContext) result touchManagedPtr window return result' ) (do return () ) #if ENABLE_OVERLOADING data WindowCreateGlContextMethodInfo instance (signature ~ (m Gdk.GLContext.GLContext), MonadIO m, IsWindow a) => O.MethodInfo WindowCreateGlContextMethodInfo a signature where overloadedMethod _ = windowCreateGlContext #endif -- method Window::create_similar_image_surface -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "window to make new surface similar to, or\n %NULL if none", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the format for the new surface", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the new surface", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "height of the new surface", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the scale of the new surface, or 0 to use same as @window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "cairo", name = "Surface"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_create_similar_image_surface" gdk_window_create_similar_image_surface :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- format : TBasicType TInt Int32 -> -- width : TBasicType TInt Int32 -> -- height : TBasicType TInt Int32 -> -- scale : TBasicType TInt IO (Ptr Cairo.Surface.Surface) {- | Create a new image surface that is efficient to draw on the given /@window@/. Initially the surface contents are all 0 (transparent if contents have transparency, black otherwise.) The /@width@/ and /@height@/ of the new surface are not affected by the scaling factor of the /@window@/, or by the /@scale@/ argument; they are the size of the surface in device pixels. If you wish to create an image surface capable of holding the contents of /@window@/ you can use: === /C code/ > > int scale = gdk_window_get_scale_factor (window); > int width = gdk_window_get_width (window) * scale; > int height = gdk_window_get_height (window) * scale; > > // format is set elsewhere > cairo_surface_t *surface = > gdk_window_create_similar_image_surface (window, > format, > width, height, > scale); Note that unlike @/cairo_surface_create_similar_image()/@, the new surface\'s device scale is set to /@scale@/, or to the scale factor of /@window@/ if /@scale@/ is 0. /Since: 3.10/ -} windowCreateSimilarImageSurface :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: window to make new surface similar to, or 'Nothing' if none -} -> Int32 {- ^ /@format@/: the format for the new surface -} -> Int32 {- ^ /@width@/: width of the new surface -} -> Int32 {- ^ /@height@/: height of the new surface -} -> Int32 {- ^ /@scale@/: the scale of the new surface, or 0 to use same as /@window@/ -} -> m Cairo.Surface.Surface {- ^ __Returns:__ a pointer to the newly allocated surface. The caller owns the surface and should call @/cairo_surface_destroy()/@ when done with it. This function always returns a valid pointer, but it will return a pointer to a “nil” surface if /@other@/ is already in an error state or any other error occurs. -} windowCreateSimilarImageSurface window format width height scale = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_create_similar_image_surface window' format width height scale checkUnexpectedReturnNULL "windowCreateSimilarImageSurface" result result' <- (wrapBoxed Cairo.Surface.Surface) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowCreateSimilarImageSurfaceMethodInfo instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Cairo.Surface.Surface), MonadIO m, IsWindow a) => O.MethodInfo WindowCreateSimilarImageSurfaceMethodInfo a signature where overloadedMethod _ = windowCreateSimilarImageSurface #endif -- method Window::create_similar_surface -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "window to make new surface similar to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TInterface (Name {namespace = "cairo", name = "Content"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the content for the new surface", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "width of the new surface", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "height of the new surface", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "cairo", name = "Surface"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_create_similar_surface" gdk_window_create_similar_surface :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- content : TInterface (Name {namespace = "cairo", name = "Content"}) Int32 -> -- width : TBasicType TInt Int32 -> -- height : TBasicType TInt IO (Ptr Cairo.Surface.Surface) {- | Create a new surface that is as compatible as possible with the given /@window@/. For example the new surface will have the same fallback resolution and font options as /@window@/. Generally, the new surface will also use the same backend as /@window@/, unless that is not possible for some reason. The type of the returned surface may be examined with @/cairo_surface_get_type()/@. Initially the surface contents are all 0 (transparent if contents have transparency, black otherwise.) /Since: 2.22/ -} windowCreateSimilarSurface :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: window to make new surface similar to -} -> Cairo.Enums.Content {- ^ /@content@/: the content for the new surface -} -> Int32 {- ^ /@width@/: width of the new surface -} -> Int32 {- ^ /@height@/: height of the new surface -} -> m Cairo.Surface.Surface {- ^ __Returns:__ a pointer to the newly allocated surface. The caller owns the surface and should call @/cairo_surface_destroy()/@ when done with it. This function always returns a valid pointer, but it will return a pointer to a “nil” surface if /@other@/ is already in an error state or any other error occurs. -} windowCreateSimilarSurface window content width height = liftIO $ do window' <- unsafeManagedPtrCastPtr window let content' = (fromIntegral . fromEnum) content result <- gdk_window_create_similar_surface window' content' width height checkUnexpectedReturnNULL "windowCreateSimilarSurface" result result' <- (wrapBoxed Cairo.Surface.Surface) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowCreateSimilarSurfaceMethodInfo instance (signature ~ (Cairo.Enums.Content -> Int32 -> Int32 -> m Cairo.Surface.Surface), MonadIO m, IsWindow a) => O.MethodInfo WindowCreateSimilarSurfaceMethodInfo a signature where overloadedMethod _ = windowCreateSimilarSurface #endif -- method Window::deiconify -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_deiconify" gdk_window_deiconify :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Attempt to deiconify (unminimize) /@window@/. On X11 the window manager may choose to ignore the request to deiconify. When using GTK+, use @/gtk_window_deiconify()/@ instead of the 'GI.Gdk.Objects.Window.Window' variant. Or better yet, you probably want to use @/gtk_window_present_with_time()/@, which raises the window, focuses it, unminimizes it, and puts it on the current desktop. -} windowDeiconify :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowDeiconify window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_deiconify window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowDeiconifyMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowDeiconifyMethodInfo a signature where overloadedMethod _ = windowDeiconify #endif -- method Window::destroy -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_destroy" gdk_window_destroy :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Destroys the window system resources associated with /@window@/ and decrements /@window@/\'s reference count. The window system resources for all children of /@window@/ are also destroyed, but the children’s reference counts are not decremented. Note that a window will not be destroyed automatically when its reference count reaches zero. You must call this function yourself before that happens. -} windowDestroy :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowDestroy window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_destroy window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowDestroyMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowDestroyMethodInfo a signature where overloadedMethod _ = windowDestroy #endif -- method Window::destroy_notify -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_destroy_notify" gdk_window_destroy_notify :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | /No description available in the introspection data./ -} windowDestroyNotify :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a -> m () windowDestroyNotify window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_destroy_notify window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowDestroyNotifyMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowDestroyNotifyMethodInfo a signature where overloadedMethod _ = windowDestroyNotify #endif -- method Window::enable_synchronized_configure -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_enable_synchronized_configure" gdk_window_enable_synchronized_configure :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {-# DEPRECATED windowEnableSynchronizedConfigure ["(Since version 3.8)","this function is no longer needed"] #-} {- | Does nothing, present only for compatiblity. /Since: 2.6/ -} windowEnableSynchronizedConfigure :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowEnableSynchronizedConfigure window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_enable_synchronized_configure window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowEnableSynchronizedConfigureMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowEnableSynchronizedConfigureMethodInfo a signature where overloadedMethod _ = windowEnableSynchronizedConfigure #endif -- method Window::end_draw_frame -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface (Name {namespace = "Gdk", name = "DrawingContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GdkDrawingContext created by gdk_window_begin_draw_frame()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_end_draw_frame" gdk_window_end_draw_frame :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.DrawingContext.DrawingContext -> -- context : TInterface (Name {namespace = "Gdk", name = "DrawingContext"}) IO () {- | Indicates that the drawing of the contents of /@window@/ started with @/gdk_window_begin_frame()/@ has been completed. This function will take care of destroying the 'GI.Gdk.Objects.DrawingContext.DrawingContext'. It is an error to call this function without a matching @/gdk_window_begin_frame()/@ first. /Since: 3.22/ -} windowEndDrawFrame :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.DrawingContext.IsDrawingContext b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> b {- ^ /@context@/: the 'GI.Gdk.Objects.DrawingContext.DrawingContext' created by 'GI.Gdk.Objects.Window.windowBeginDrawFrame' -} -> m () windowEndDrawFrame window context = liftIO $ do window' <- unsafeManagedPtrCastPtr window context' <- unsafeManagedPtrCastPtr context gdk_window_end_draw_frame window' context' touchManagedPtr window touchManagedPtr context return () #if ENABLE_OVERLOADING data WindowEndDrawFrameMethodInfo instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, Gdk.DrawingContext.IsDrawingContext b) => O.MethodInfo WindowEndDrawFrameMethodInfo a signature where overloadedMethod _ = windowEndDrawFrame #endif -- method Window::end_paint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_end_paint" gdk_window_end_paint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Indicates that the backing store created by the most recent call to 'GI.Gdk.Objects.Window.windowBeginPaintRegion' should be copied onscreen and deleted, leaving the next-most-recent backing store or no backing store at all as the active paint region. See 'GI.Gdk.Objects.Window.windowBeginPaintRegion' for full details. It is an error to call this function without a matching 'GI.Gdk.Objects.Window.windowBeginPaintRegion' first. -} windowEndPaint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowEndPaint window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_end_paint window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowEndPaintMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowEndPaintMethodInfo a signature where overloadedMethod _ = windowEndPaint #endif -- method Window::ensure_native -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_ensure_native" gdk_window_ensure_native :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Tries to ensure that there is a window-system native window for this GdkWindow. This may fail in some situations, returning 'False'. Offscreen window and children of them can never have native windows. Some backends may not support native child windows. /Since: 2.18/ -} windowEnsureNative :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if the window has a native window, 'False' otherwise -} windowEnsureNative window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_ensure_native window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowEnsureNativeMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowEnsureNativeMethodInfo a signature where overloadedMethod _ = windowEnsureNative #endif -- method Window::flush -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_flush" gdk_window_flush :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {-# DEPRECATED windowFlush ["(Since version 3.14)"] #-} {- | This function does nothing. /Since: 2.18/ -} windowFlush :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowFlush window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_flush window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowFlushMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowFlushMethodInfo a signature where overloadedMethod _ = windowFlush #endif -- method Window::focus -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "timestamp of the event triggering the window focus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_focus" gdk_window_focus :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Word32 -> -- timestamp : TBasicType TUInt32 IO () {- | Sets keyboard focus to /@window@/. In most cases, @/gtk_window_present_with_time()/@ should be used on a @/GtkWindow/@, rather than calling this function. -} windowFocus :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Word32 {- ^ /@timestamp@/: timestamp of the event triggering the window focus -} -> m () windowFocus window timestamp = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_focus window' timestamp touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowFocusMethodInfo instance (signature ~ (Word32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowFocusMethodInfo a signature where overloadedMethod _ = windowFocus #endif -- method Window::freeze_toplevel_updates_libgtk_only -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_freeze_toplevel_updates_libgtk_only" gdk_window_freeze_toplevel_updates_libgtk_only :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {-# DEPRECATED windowFreezeToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"] #-} {- | Temporarily freezes a window and all its descendants such that it won\'t receive expose events. The window will begin receiving expose events again when 'GI.Gdk.Objects.Window.windowThawToplevelUpdatesLibgtkOnly' is called. If 'GI.Gdk.Objects.Window.windowFreezeToplevelUpdatesLibgtkOnly' has been called more than once, 'GI.Gdk.Objects.Window.windowThawToplevelUpdatesLibgtkOnly' must be called an equal number of times to begin processing exposes. This function is not part of the GDK public API and is only for use by GTK+. -} windowFreezeToplevelUpdatesLibgtkOnly :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowFreezeToplevelUpdatesLibgtkOnly window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_freeze_toplevel_updates_libgtk_only window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo a signature where overloadedMethod _ = windowFreezeToplevelUpdatesLibgtkOnly #endif -- method Window::freeze_updates -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_freeze_updates" gdk_window_freeze_updates :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Temporarily freezes a window such that it won’t receive expose events. The window will begin receiving expose events again when 'GI.Gdk.Objects.Window.windowThawUpdates' is called. If 'GI.Gdk.Objects.Window.windowFreezeUpdates' has been called more than once, 'GI.Gdk.Objects.Window.windowThawUpdates' must be called an equal number of times to begin processing exposes. -} windowFreezeUpdates :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowFreezeUpdates window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_freeze_updates window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowFreezeUpdatesMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowFreezeUpdatesMethodInfo a signature where overloadedMethod _ = windowFreezeUpdates #endif -- method Window::fullscreen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_fullscreen" gdk_window_fullscreen :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Moves the window into fullscreen mode. This means the window covers the entire screen and is above any panels or task bars. If the window was already fullscreen, then this function does nothing. On X11, asks the window manager to put /@window@/ in a fullscreen state, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don’t have a concept of “fullscreen”; so you can’t rely on the fullscreenification actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. /Since: 2.2/ -} windowFullscreen :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowFullscreen window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_fullscreen window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowFullscreenMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowFullscreenMethodInfo a signature where overloadedMethod _ = windowFullscreen #endif -- method Window::fullscreen_on_monitor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Which monitor to display fullscreen on.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_fullscreen_on_monitor" gdk_window_fullscreen_on_monitor :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- monitor : TBasicType TInt IO () {- | Moves the window into fullscreen mode on the given monitor. This means the window covers the entire screen and is above any panels or task bars. If the window was already fullscreen, then this function does nothing. -} windowFullscreenOnMonitor :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@monitor@/: Which monitor to display fullscreen on. -} -> m () windowFullscreenOnMonitor window monitor = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_fullscreen_on_monitor window' monitor touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowFullscreenOnMonitorMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowFullscreenOnMonitorMethodInfo a signature where overloadedMethod _ = windowFullscreenOnMonitor #endif -- method Window::geometry_changed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an embedded offscreen #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_geometry_changed" gdk_window_geometry_changed :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | This function informs GDK that the geometry of an embedded offscreen window has changed. This is necessary for GDK to keep track of which offscreen window the pointer is in. /Since: 2.18/ -} windowGeometryChanged :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: an embedded offscreen 'GI.Gdk.Objects.Window.Window' -} -> m () windowGeometryChanged window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_geometry_changed window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowGeometryChangedMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowGeometryChangedMethodInfo a signature where overloadedMethod _ = windowGeometryChanged #endif -- method Window::get_accept_focus -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow.", 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_window_get_accept_focus" gdk_window_get_accept_focus :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Determines whether or not the desktop environment shuld be hinted that the window does not want to receive input focus. /Since: 2.22/ -} windowGetAcceptFocus :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window'. -} -> m Bool {- ^ __Returns:__ whether or not the window should receive input focus. -} windowGetAcceptFocus window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_accept_focus window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetAcceptFocusMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetAcceptFocusMethodInfo a signature where overloadedMethod _ = windowGetAcceptFocus #endif -- method Window::get_background_pattern -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "cairo", name = "Pattern"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_background_pattern" gdk_window_get_background_pattern :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Cairo.Pattern.Pattern) {-# DEPRECATED windowGetBackgroundPattern ["(Since version 3.22)","Don\\'t use this function"] #-} {- | Gets the pattern used to clear the background on /@window@/. /Since: 2.22/ -} windowGetBackgroundPattern :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a window -} -> m (Maybe Cairo.Pattern.Pattern) {- ^ __Returns:__ The pattern to use for the background or 'Nothing' if there is no background. -} windowGetBackgroundPattern window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_background_pattern window' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newBoxed Cairo.Pattern.Pattern) result' return result'' touchManagedPtr window return maybeResult #if ENABLE_OVERLOADING data WindowGetBackgroundPatternMethodInfo instance (signature ~ (m (Maybe Cairo.Pattern.Pattern)), MonadIO m, IsWindow a) => O.MethodInfo WindowGetBackgroundPatternMethodInfo a signature where overloadedMethod _ = windowGetBackgroundPattern #endif -- method Window::get_children -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TGList (TInterface (Name {namespace = "Gdk", name = "Window"}))) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_children" gdk_window_get_children :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr (GList (Ptr Window))) {- | Gets the list of children of /@window@/ known to GDK. This function only returns children created via GDK, so for example it’s useless when used with the root window; it only returns windows an application created itself. The returned list must be freed, but the elements in the list need not be. -} windowGetChildren :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m [Window] {- ^ __Returns:__ list of child windows inside /@window@/ -} windowGetChildren window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_children window' result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result touchManagedPtr window return result'' #if ENABLE_OVERLOADING data WindowGetChildrenMethodInfo instance (signature ~ (m [Window]), MonadIO m, IsWindow a) => O.MethodInfo WindowGetChildrenMethodInfo a signature where overloadedMethod _ = windowGetChildren #endif -- method Window::get_children_with_user_data -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to look for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TGList (TInterface (Name {namespace = "Gdk", name = "Window"}))) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_children_with_user_data" gdk_window_get_children_with_user_data :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr () -> -- user_data : TBasicType TPtr IO (Ptr (GList (Ptr Window))) {- | Gets the list of children of /@window@/ known to GDK with a particular /@userData@/ set on it. The returned list must be freed, but the elements in the list need not be. The list is returned in (relative) stacking order, i.e. the lowest window is first. /Since: 3.10/ -} windowGetChildrenWithUserData :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Ptr () {- ^ /@userData@/: user data to look for -} -> m [Window] {- ^ __Returns:__ list of child windows inside /@window@/ -} windowGetChildrenWithUserData window userData = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_children_with_user_data window' userData result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result touchManagedPtr window return result'' #if ENABLE_OVERLOADING data WindowGetChildrenWithUserDataMethodInfo instance (signature ~ (Ptr () -> m [Window]), MonadIO m, IsWindow a) => O.MethodInfo WindowGetChildrenWithUserDataMethodInfo a signature where overloadedMethod _ = windowGetChildrenWithUserData #endif -- method Window::get_clip_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "cairo", name = "Region"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_clip_region" gdk_window_get_clip_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Cairo.Region.Region) {- | Computes the region of a window that potentially can be written to by drawing primitives. This region may not take into account other factors such as if the window is obscured by other windows, but no area outside of this region will be affected by drawing primitives. -} windowGetClipRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Cairo.Region.Region {- ^ __Returns:__ a 'GI.Cairo.Structs.Region.Region'. This must be freed with @/cairo_region_destroy()/@ when you are done. -} windowGetClipRegion window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_clip_region window' checkUnexpectedReturnNULL "windowGetClipRegion" result result' <- (wrapBoxed Cairo.Region.Region) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetClipRegionMethodInfo instance (signature ~ (m Cairo.Region.Region), MonadIO m, IsWindow a) => O.MethodInfo WindowGetClipRegionMethodInfo a signature where overloadedMethod _ = windowGetClipRegion #endif -- method Window::get_composited -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_get_composited" gdk_window_get_composited :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {-# DEPRECATED windowGetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."] #-} {- | Determines whether /@window@/ is composited. See 'GI.Gdk.Objects.Window.windowSetComposited'. /Since: 2.22/ -} windowGetComposited :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if the window is composited. -} windowGetComposited window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_composited window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetCompositedMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetCompositedMethodInfo a signature where overloadedMethod _ = windowGetComposited #endif -- method Window::get_cursor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Cursor"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_cursor" gdk_window_get_cursor :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Gdk.Cursor.Cursor) {- | Retrieves a 'GI.Gdk.Objects.Cursor.Cursor' pointer for the cursor currently set on the specified 'GI.Gdk.Objects.Window.Window', or 'Nothing'. If the return value is 'Nothing' then there is no custom cursor set on the specified window, and it is using the cursor for its parent window. /Since: 2.18/ -} windowGetCursor :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m (Maybe Gdk.Cursor.Cursor) {- ^ __Returns:__ a 'GI.Gdk.Objects.Cursor.Cursor', or 'Nothing'. The returned object is owned by the 'GI.Gdk.Objects.Window.Window' and should not be unreferenced directly. Use 'GI.Gdk.Objects.Window.windowSetCursor' to unset the cursor of the window -} windowGetCursor window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_cursor window' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Gdk.Cursor.Cursor) result' return result'' touchManagedPtr window return maybeResult #if ENABLE_OVERLOADING data WindowGetCursorMethodInfo instance (signature ~ (m (Maybe Gdk.Cursor.Cursor)), MonadIO m, IsWindow a) => O.MethodInfo WindowGetCursorMethodInfo a signature where overloadedMethod _ = windowGetCursor #endif -- method Window::get_decorations -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The toplevel #GdkWindow to get the decorations from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface (Name {namespace = "Gdk", name = "WMDecoration"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The window decorations will be written here", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_decorations" gdk_window_get_decorations :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr CUInt -> -- decorations : TInterface (Name {namespace = "Gdk", name = "WMDecoration"}) IO CInt {- | Returns the decorations set on the GdkWindow with 'GI.Gdk.Objects.Window.windowSetDecorations'. -} windowGetDecorations :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: The toplevel 'GI.Gdk.Objects.Window.Window' to get the decorations from -} -> m ((Bool, [Gdk.Flags.WMDecoration])) {- ^ __Returns:__ 'True' if the window has decorations set, 'False' otherwise. -} windowGetDecorations window = liftIO $ do window' <- unsafeManagedPtrCastPtr window decorations <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_decorations window' decorations let result' = (/= 0) result decorations' <- peek decorations let decorations'' = wordToGFlags decorations' touchManagedPtr window freeMem decorations return (result', decorations'') #if ENABLE_OVERLOADING data WindowGetDecorationsMethodInfo instance (signature ~ (m ((Bool, [Gdk.Flags.WMDecoration]))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetDecorationsMethodInfo a signature where overloadedMethod _ = windowGetDecorations #endif -- method Window::get_device_cursor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a master, pointer #GdkDevice.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Cursor"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_cursor" gdk_window_get_device_cursor :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) IO (Ptr Gdk.Cursor.Cursor) {- | Retrieves a 'GI.Gdk.Objects.Cursor.Cursor' pointer for the /@device@/ currently set on the specified 'GI.Gdk.Objects.Window.Window', or 'Nothing'. If the return value is 'Nothing' then there is no custom cursor set on the specified window, and it is using the cursor for its parent window. /Since: 3.0/ -} windowGetDeviceCursor :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window'. -} -> b {- ^ /@device@/: a master, pointer 'GI.Gdk.Objects.Device.Device'. -} -> m (Maybe Gdk.Cursor.Cursor) {- ^ __Returns:__ a 'GI.Gdk.Objects.Cursor.Cursor', or 'Nothing'. The returned object is owned by the 'GI.Gdk.Objects.Window.Window' and should not be unreferenced directly. Use 'GI.Gdk.Objects.Window.windowSetCursor' to unset the cursor of the window -} windowGetDeviceCursor window device = liftIO $ do window' <- unsafeManagedPtrCastPtr window device' <- unsafeManagedPtrCastPtr device result <- gdk_window_get_device_cursor window' device' maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Gdk.Cursor.Cursor) result' return result'' touchManagedPtr window touchManagedPtr device return maybeResult #if ENABLE_OVERLOADING data WindowGetDeviceCursorMethodInfo instance (signature ~ (b -> m (Maybe Gdk.Cursor.Cursor)), MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => O.MethodInfo WindowGetDeviceCursorMethodInfo a signature where overloadedMethod _ = windowGetDeviceCursor #endif -- method Window::get_device_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkDevice.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "EventMask"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_events" gdk_window_get_device_events :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) IO CUInt {- | Returns the event mask for /@window@/ corresponding to an specific device. /Since: 3.0/ -} windowGetDeviceEvents :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window'. -} -> b {- ^ /@device@/: a 'GI.Gdk.Objects.Device.Device'. -} -> m [Gdk.Flags.EventMask] {- ^ __Returns:__ device event mask for /@window@/ -} windowGetDeviceEvents window device = liftIO $ do window' <- unsafeManagedPtrCastPtr window device' <- unsafeManagedPtrCastPtr device result <- gdk_window_get_device_events window' device' let result' = wordToGFlags result touchManagedPtr window touchManagedPtr device return result' #if ENABLE_OVERLOADING data WindowGetDeviceEventsMethodInfo instance (signature ~ (b -> m [Gdk.Flags.EventMask]), MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => O.MethodInfo WindowGetDeviceEventsMethodInfo a signature where overloadedMethod _ = windowGetDeviceEvents #endif -- method Window::get_device_position -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer #GdkDevice to query to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the X coordinate of @device, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the Y coordinate of @device, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the modifier mask, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_position" gdk_window_get_device_position :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) Ptr Int32 -> -- x : TBasicType TInt Ptr Int32 -> -- y : TBasicType TInt Ptr CUInt -> -- mask : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) IO (Ptr Window) {- | Obtains the current device position and modifier state. The position is given in coordinates relative to the upper left corner of /@window@/. Use 'GI.Gdk.Objects.Window.windowGetDevicePositionDouble' if you need subpixel precision. /Since: 3.0/ -} windowGetDevicePosition :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window'. -} -> b {- ^ /@device@/: pointer 'GI.Gdk.Objects.Device.Device' to query to. -} -> m ((Maybe Window, Int32, Int32, [Gdk.Flags.ModifierType])) {- ^ __Returns:__ The window underneath /@device@/ (as with 'GI.Gdk.Objects.Device.deviceGetWindowAtPosition'), or 'Nothing' if the window is not known to GDK. -} windowGetDevicePosition window device = liftIO $ do window' <- unsafeManagedPtrCastPtr window device' <- unsafeManagedPtrCastPtr device x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_device_position window' device' x y mask maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Window) result' return result'' x' <- peek x y' <- peek y mask' <- peek mask let mask'' = wordToGFlags mask' touchManagedPtr window touchManagedPtr device freeMem x freeMem y freeMem mask return (maybeResult, x', y', mask'') #if ENABLE_OVERLOADING data WindowGetDevicePositionMethodInfo instance (signature ~ (b -> m ((Maybe Window, Int32, Int32, [Gdk.Flags.ModifierType]))), MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => O.MethodInfo WindowGetDevicePositionMethodInfo a signature where overloadedMethod _ = windowGetDevicePosition #endif -- method Window::get_device_position_double -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer #GdkDevice to query to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the X coordinate of @device, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the Y coordinate of @device, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the modifier mask, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_device_position_double" gdk_window_get_device_position_double :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) Ptr CDouble -> -- x : TBasicType TDouble Ptr CDouble -> -- y : TBasicType TDouble Ptr CUInt -> -- mask : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) IO (Ptr Window) {- | Obtains the current device position in doubles and modifier state. The position is given in coordinates relative to the upper left corner of /@window@/. /Since: 3.10/ -} windowGetDevicePositionDouble :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window'. -} -> b {- ^ /@device@/: pointer 'GI.Gdk.Objects.Device.Device' to query to. -} -> m ((Maybe Window, Double, Double, [Gdk.Flags.ModifierType])) {- ^ __Returns:__ The window underneath /@device@/ (as with 'GI.Gdk.Objects.Device.deviceGetWindowAtPosition'), or 'Nothing' if the window is not known to GDK. -} windowGetDevicePositionDouble window device = liftIO $ do window' <- unsafeManagedPtrCastPtr window device' <- unsafeManagedPtrCastPtr device x <- allocMem :: IO (Ptr CDouble) y <- allocMem :: IO (Ptr CDouble) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_device_position_double window' device' x y mask maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Window) result' return result'' x' <- peek x let x'' = realToFrac x' y' <- peek y let y'' = realToFrac y' mask' <- peek mask let mask'' = wordToGFlags mask' touchManagedPtr window touchManagedPtr device freeMem x freeMem y freeMem mask return (maybeResult, x'', y'', mask'') #if ENABLE_OVERLOADING data WindowGetDevicePositionDoubleMethodInfo instance (signature ~ (b -> m ((Maybe Window, Double, Double, [Gdk.Flags.ModifierType]))), MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => O.MethodInfo WindowGetDevicePositionDoubleMethodInfo a signature where overloadedMethod _ = windowGetDevicePositionDouble #endif -- method Window::get_display -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Display"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_display" gdk_window_get_display :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Gdk.Display.Display) {- | Gets the 'GI.Gdk.Objects.Display.Display' associated with a 'GI.Gdk.Objects.Window.Window'. /Since: 2.24/ -} windowGetDisplay :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Gdk.Display.Display {- ^ __Returns:__ the 'GI.Gdk.Objects.Display.Display' associated with /@window@/ -} windowGetDisplay window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_display window' checkUnexpectedReturnNULL "windowGetDisplay" result result' <- (newObject Gdk.Display.Display) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetDisplayMethodInfo instance (signature ~ (m Gdk.Display.Display), MonadIO m, IsWindow a) => O.MethodInfo WindowGetDisplayMethodInfo a signature where overloadedMethod _ = windowGetDisplay #endif -- method Window::get_drag_protocol -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the destination window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location of the window\n where the drop should happen. This may be @window or a proxy window,\n or %NULL if @window does not support Drag and Drop.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "DragProtocol"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_drag_protocol" gdk_window_get_drag_protocol :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr (Ptr Window) -> -- target : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CUInt {- | Finds out the DND protocol supported by a window. /Since: 3.0/ -} windowGetDragProtocol :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: the destination window -} -> m ((Gdk.Enums.DragProtocol, Window)) {- ^ __Returns:__ the supported DND protocol. -} windowGetDragProtocol window = liftIO $ do window' <- unsafeManagedPtrCastPtr window target <- allocMem :: IO (Ptr (Ptr Window)) result <- gdk_window_get_drag_protocol window' target let result' = (toEnum . fromIntegral) result target' <- peek target target'' <- (wrapObject Window) target' touchManagedPtr window freeMem target return (result', target'') #if ENABLE_OVERLOADING data WindowGetDragProtocolMethodInfo instance (signature ~ (m ((Gdk.Enums.DragProtocol, Window))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetDragProtocolMethodInfo a signature where overloadedMethod _ = windowGetDragProtocol #endif -- method Window::get_effective_parent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_effective_parent" gdk_window_get_effective_parent :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Window) {- | Obtains the parent of /@window@/, as known to GDK. Works like 'GI.Gdk.Objects.Window.windowGetParent' for normal windows, but returns the window’s embedder for offscreen windows. See also: 'GI.Gdk.Functions.offscreenWindowGetEmbedder' /Since: 2.22/ -} windowGetEffectiveParent :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Window {- ^ __Returns:__ effective parent of /@window@/ -} windowGetEffectiveParent window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_effective_parent window' checkUnexpectedReturnNULL "windowGetEffectiveParent" result result' <- (newObject Window) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetEffectiveParentMethodInfo instance (signature ~ (m Window), MonadIO m, IsWindow a) => O.MethodInfo WindowGetEffectiveParentMethodInfo a signature where overloadedMethod _ = windowGetEffectiveParent #endif -- method Window::get_effective_toplevel -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_effective_toplevel" gdk_window_get_effective_toplevel :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Window) {- | Gets the toplevel window that’s an ancestor of /@window@/. Works like 'GI.Gdk.Objects.Window.windowGetToplevel', but treats an offscreen window\'s embedder as its parent, using 'GI.Gdk.Objects.Window.windowGetEffectiveParent'. See also: 'GI.Gdk.Functions.offscreenWindowGetEmbedder' /Since: 2.22/ -} windowGetEffectiveToplevel :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Window {- ^ __Returns:__ the effective toplevel window containing /@window@/ -} windowGetEffectiveToplevel window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_effective_toplevel window' checkUnexpectedReturnNULL "windowGetEffectiveToplevel" result result' <- (newObject Window) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetEffectiveToplevelMethodInfo instance (signature ~ (m Window), MonadIO m, IsWindow a) => O.MethodInfo WindowGetEffectiveToplevelMethodInfo a signature where overloadedMethod _ = windowGetEffectiveToplevel #endif -- method Window::get_event_compression -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_get_event_compression" gdk_window_get_event_compression :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Get the current event compression setting for this window. /Since: 3.12/ -} windowGetEventCompression :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if motion events will be compressed -} windowGetEventCompression window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_event_compression window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetEventCompressionMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetEventCompressionMethodInfo a signature where overloadedMethod _ = windowGetEventCompression #endif -- method Window::get_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "EventMask"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_events" gdk_window_get_events :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CUInt {- | Gets the event mask for /@window@/ for all master input devices. See 'GI.Gdk.Objects.Window.windowSetEvents'. -} windowGetEvents :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m [Gdk.Flags.EventMask] {- ^ __Returns:__ event mask for /@window@/ -} windowGetEvents window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_events window' let result' = wordToGFlags result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetEventsMethodInfo instance (signature ~ (m [Gdk.Flags.EventMask]), MonadIO m, IsWindow a) => O.MethodInfo WindowGetEventsMethodInfo a signature where overloadedMethod _ = windowGetEvents #endif -- method Window::get_focus_on_map -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow.", 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_window_get_focus_on_map" gdk_window_get_focus_on_map :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Determines whether or not the desktop environment should be hinted that the window does not want to receive input focus when it is mapped. /Since: 2.22/ -} windowGetFocusOnMap :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window'. -} -> m Bool {- ^ __Returns:__ whether or not the window wants to receive input focus when it is mapped. -} windowGetFocusOnMap window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_focus_on_map window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetFocusOnMapMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetFocusOnMapMethodInfo a signature where overloadedMethod _ = windowGetFocusOnMap #endif -- method Window::get_frame_clock -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "window to get frame clock for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "FrameClock"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_frame_clock" gdk_window_get_frame_clock :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Gdk.FrameClock.FrameClock) {- | Gets the frame clock for the window. The frame clock for a window never changes unless the window is reparented to a new toplevel window. /Since: 3.8/ -} windowGetFrameClock :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: window to get frame clock for -} -> m Gdk.FrameClock.FrameClock {- ^ __Returns:__ the frame clock -} windowGetFrameClock window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_frame_clock window' checkUnexpectedReturnNULL "windowGetFrameClock" result result' <- (newObject Gdk.FrameClock.FrameClock) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetFrameClockMethodInfo instance (signature ~ (m Gdk.FrameClock.FrameClock), MonadIO m, IsWindow a) => O.MethodInfo WindowGetFrameClockMethodInfo a signature where overloadedMethod _ = windowGetFrameClock #endif -- method Window::get_frame_extents -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "rectangle to fill with bounding box of the window frame", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_frame_extents" gdk_window_get_frame_extents :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Rectangle.Rectangle -> -- rect : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) IO () {- | Obtains the bounding box of the window, including window manager titlebar\/borders if any. The frame position is given in root window coordinates. To get the position of the window itself (rather than the frame) in root window coordinates, use 'GI.Gdk.Objects.Window.windowGetOrigin'. -} windowGetFrameExtents :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m (Gdk.Rectangle.Rectangle) windowGetFrameExtents window = liftIO $ do window' <- unsafeManagedPtrCastPtr window rect <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle) gdk_window_get_frame_extents window' rect rect' <- (wrapBoxed Gdk.Rectangle.Rectangle) rect touchManagedPtr window return rect' #if ENABLE_OVERLOADING data WindowGetFrameExtentsMethodInfo instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsWindow a) => O.MethodInfo WindowGetFrameExtentsMethodInfo a signature where overloadedMethod _ = windowGetFrameExtents #endif -- method Window::get_fullscreen_mode -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "FullscreenMode"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_fullscreen_mode" gdk_window_get_fullscreen_mode :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CUInt {- | Obtains the 'GI.Gdk.Enums.FullscreenMode' of the /@window@/. /Since: 3.8/ -} windowGetFullscreenMode :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m Gdk.Enums.FullscreenMode {- ^ __Returns:__ The 'GI.Gdk.Enums.FullscreenMode' applied to the window when fullscreen. -} windowGetFullscreenMode window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_fullscreen_mode window' let result' = (toEnum . fromIntegral) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetFullscreenModeMethodInfo instance (signature ~ (m Gdk.Enums.FullscreenMode), MonadIO m, IsWindow a) => O.MethodInfo WindowGetFullscreenModeMethodInfo a signature where overloadedMethod _ = windowGetFullscreenMode #endif -- method Window::get_geometry -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for X coordinate of window (relative to its parent)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for Y coordinate of window (relative to its parent)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for width of window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for height of window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_geometry" gdk_window_get_geometry :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Int32 -> -- x : TBasicType TInt Ptr Int32 -> -- y : TBasicType TInt Ptr Int32 -> -- width : TBasicType TInt Ptr Int32 -> -- height : TBasicType TInt IO () {- | Any of the return location arguments to this function may be 'Nothing', if you aren’t interested in getting the value of that field. The X and Y coordinates returned are relative to the parent window of /@window@/, which for toplevels usually means relative to the window decorations (titlebar, etc.) rather than relative to the root window (screen-size background window). On the X11 platform, the geometry is obtained from the X server, so reflects the latest position of /@window@/; this may be out-of-sync with the position of /@window@/ delivered in the most-recently-processed 'GI.Gdk.Structs.EventConfigure.EventConfigure'. 'GI.Gdk.Objects.Window.windowGetPosition' in contrast gets the position from the most recent configure event. Note: If /@window@/ is not a toplevel, it is much better to call 'GI.Gdk.Objects.Window.windowGetPosition', 'GI.Gdk.Objects.Window.windowGetWidth' and 'GI.Gdk.Objects.Window.windowGetHeight' instead, because it avoids the roundtrip to the X server and because these functions support the full 32-bit coordinate space, whereas 'GI.Gdk.Objects.Window.windowGetGeometry' is restricted to the 16-bit coordinates of X11. -} windowGetGeometry :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m ((Int32, Int32, Int32, Int32)) windowGetGeometry window = liftIO $ do window' <- unsafeManagedPtrCastPtr window x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) width <- allocMem :: IO (Ptr Int32) height <- allocMem :: IO (Ptr Int32) gdk_window_get_geometry window' x y width height x' <- peek x y' <- peek y width' <- peek width height' <- peek height touchManagedPtr window freeMem x freeMem y freeMem width freeMem height return (x', y', width', height') #if ENABLE_OVERLOADING data WindowGetGeometryMethodInfo instance (signature ~ (m ((Int32, Int32, Int32, Int32))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetGeometryMethodInfo a signature where overloadedMethod _ = windowGetGeometry #endif -- method Window::get_group -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_group" gdk_window_get_group :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Window) {- | Returns the group leader window for /@window@/. See 'GI.Gdk.Objects.Window.windowSetGroup'. /Since: 2.4/ -} windowGetGroup :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m Window {- ^ __Returns:__ the group leader window for /@window@/ -} windowGetGroup window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_group window' checkUnexpectedReturnNULL "windowGetGroup" result result' <- (newObject Window) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetGroupMethodInfo instance (signature ~ (m Window), MonadIO m, IsWindow a) => O.MethodInfo WindowGetGroupMethodInfo a signature where overloadedMethod _ = windowGetGroup #endif -- method Window::get_height -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_get_height" gdk_window_get_height :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO Int32 {- | Returns the height of the given /@window@/. On the X11 platform the returned size is the size reported in the most-recently-processed configure event, rather than the current size on the X server. /Since: 2.24/ -} windowGetHeight :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Int32 {- ^ __Returns:__ The height of /@window@/ -} windowGetHeight window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_height window' touchManagedPtr window return result #if ENABLE_OVERLOADING data WindowGetHeightMethodInfo instance (signature ~ (m Int32), MonadIO m, IsWindow a) => O.MethodInfo WindowGetHeightMethodInfo a signature where overloadedMethod _ = windowGetHeight #endif -- method Window::get_modal_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A toplevel #GdkWindow.", 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_window_get_modal_hint" gdk_window_get_modal_hint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Determines whether or not the window manager is hinted that /@window@/ has modal behaviour. /Since: 2.22/ -} windowGetModalHint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: A toplevel 'GI.Gdk.Objects.Window.Window'. -} -> m Bool {- ^ __Returns:__ whether or not the window has the modal hint set. -} windowGetModalHint window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_modal_hint window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetModalHintMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetModalHintMethodInfo a signature where overloadedMethod _ = windowGetModalHint #endif -- method Window::get_origin -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for X coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for Y coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_origin" gdk_window_get_origin :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Int32 -> -- x : TBasicType TInt Ptr Int32 -> -- y : TBasicType TInt IO Int32 {- | Obtains the position of a window in root window coordinates. (Compare with 'GI.Gdk.Objects.Window.windowGetPosition' and 'GI.Gdk.Objects.Window.windowGetGeometry' which return the position of a window relative to its parent window.) -} windowGetOrigin :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m ((Int32, Int32, Int32)) {- ^ __Returns:__ not meaningful, ignore -} windowGetOrigin window = liftIO $ do window' <- unsafeManagedPtrCastPtr window x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) result <- gdk_window_get_origin window' x y x' <- peek x y' <- peek y touchManagedPtr window freeMem x freeMem y return (result, x', y') #if ENABLE_OVERLOADING data WindowGetOriginMethodInfo instance (signature ~ (m ((Int32, Int32, Int32))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetOriginMethodInfo a signature where overloadedMethod _ = windowGetOrigin #endif -- method Window::get_parent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_parent" gdk_window_get_parent :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Window) {- | Obtains the parent of /@window@/, as known to GDK. Does not query the X server; thus this returns the parent as passed to 'GI.Gdk.Objects.Window.windowNew', not the actual parent. This should never matter unless you’re using Xlib calls mixed with GDK calls on the X11 platform. It may also matter for toplevel windows, because the window manager may choose to reparent them. Note that you should use 'GI.Gdk.Objects.Window.windowGetEffectiveParent' when writing generic code that walks up a window hierarchy, because 'GI.Gdk.Objects.Window.windowGetParent' will most likely not do what you expect if there are offscreen windows in the hierarchy. -} windowGetParent :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Window {- ^ __Returns:__ parent of /@window@/ -} windowGetParent window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_parent window' checkUnexpectedReturnNULL "windowGetParent" result result' <- (newObject Window) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetParentMethodInfo instance (signature ~ (m Window), MonadIO m, IsWindow a) => O.MethodInfo WindowGetParentMethodInfo a signature where overloadedMethod _ = windowGetParent #endif -- method Window::get_pass_through -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_get_pass_through" gdk_window_get_pass_through :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Returns whether input to the window is passed through to the window below. See 'GI.Gdk.Objects.Window.windowSetPassThrough' for details /Since: 3.18/ -} windowGetPassThrough :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool windowGetPassThrough window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_pass_through window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetPassThroughMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetPassThroughMethodInfo a signature where overloadedMethod _ = windowGetPassThrough #endif -- method Window::get_pointer -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for X coordinate of pointer or %NULL to not\n return the X coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for Y coordinate of pointer or %NULL to not\n return the Y coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface (Name {namespace = "Gdk", name = "ModifierType"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for modifier mask or %NULL to not return the\n modifier mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_pointer" gdk_window_get_pointer :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Int32 -> -- x : TBasicType TInt Ptr Int32 -> -- y : TBasicType TInt Ptr CUInt -> -- mask : TInterface (Name {namespace = "Gdk", name = "ModifierType"}) IO (Ptr Window) {-# DEPRECATED windowGetPointer ["(Since version 3.0)","Use 'GI.Gdk.Objects.Window.windowGetDevicePosition' instead."] #-} {- | Obtains the current pointer position and modifier state. The position is given in coordinates relative to the upper left corner of /@window@/. -} windowGetPointer :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m ((Maybe Window, Int32, Int32, [Gdk.Flags.ModifierType])) {- ^ __Returns:__ the window containing the pointer (as with 'GI.Gdk.Objects.Window.windowAtPointer'), or 'Nothing' if the window containing the pointer isn’t known to GDK -} windowGetPointer window = liftIO $ do window' <- unsafeManagedPtrCastPtr window x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_pointer window' x y mask maybeResult <- convertIfNonNull result $ \result' -> do result'' <- (newObject Window) result' return result'' x' <- peek x y' <- peek y mask' <- peek mask let mask'' = wordToGFlags mask' touchManagedPtr window freeMem x freeMem y freeMem mask return (maybeResult, x', y', mask'') #if ENABLE_OVERLOADING data WindowGetPointerMethodInfo instance (signature ~ (m ((Maybe Window, Int32, Int32, [Gdk.Flags.ModifierType]))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetPointerMethodInfo a signature where overloadedMethod _ = windowGetPointer #endif -- method Window::get_position -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X coordinate of window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y coordinate of window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_position" gdk_window_get_position :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Int32 -> -- x : TBasicType TInt Ptr Int32 -> -- y : TBasicType TInt IO () {- | Obtains the position of the window as reported in the most-recently-processed 'GI.Gdk.Structs.EventConfigure.EventConfigure'. Contrast with 'GI.Gdk.Objects.Window.windowGetGeometry' which queries the X server for the current window position, regardless of which events have been received or processed. The position coordinates are relative to the window’s parent window. -} windowGetPosition :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m ((Int32, Int32)) windowGetPosition window = liftIO $ do window' <- unsafeManagedPtrCastPtr window x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) gdk_window_get_position window' x y x' <- peek x y' <- peek y touchManagedPtr window freeMem x freeMem y return (x', y') #if ENABLE_OVERLOADING data WindowGetPositionMethodInfo instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetPositionMethodInfo a signature where overloadedMethod _ = windowGetPosition #endif -- method Window::get_root_coords -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X coordinate in window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y coordinate in window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for X coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for Y coordinate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_root_coords" gdk_window_get_root_coords :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- x : TBasicType TInt Int32 -> -- y : TBasicType TInt Ptr Int32 -> -- root_x : TBasicType TInt Ptr Int32 -> -- root_y : TBasicType TInt IO () {- | Obtains the position of a window position in root window coordinates. This is similar to 'GI.Gdk.Objects.Window.windowGetOrigin' but allows you to pass in any position in the window, not just the origin. /Since: 2.18/ -} windowGetRootCoords :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@x@/: X coordinate in window -} -> Int32 {- ^ /@y@/: Y coordinate in window -} -> m ((Int32, Int32)) windowGetRootCoords window x y = liftIO $ do window' <- unsafeManagedPtrCastPtr window rootX <- allocMem :: IO (Ptr Int32) rootY <- allocMem :: IO (Ptr Int32) gdk_window_get_root_coords window' x y rootX rootY rootX' <- peek rootX rootY' <- peek rootY touchManagedPtr window freeMem rootX freeMem rootY return (rootX', rootY') #if ENABLE_OVERLOADING data WindowGetRootCoordsMethodInfo instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetRootCoordsMethodInfo a signature where overloadedMethod _ = windowGetRootCoords #endif -- method Window::get_root_origin -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for X position of window frame", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for Y position of window frame", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_root_origin" gdk_window_get_root_origin :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Int32 -> -- x : TBasicType TInt Ptr Int32 -> -- y : TBasicType TInt IO () {- | Obtains the top-left corner of the window manager frame in root window coordinates. -} windowGetRootOrigin :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m ((Int32, Int32)) windowGetRootOrigin window = liftIO $ do window' <- unsafeManagedPtrCastPtr window x <- allocMem :: IO (Ptr Int32) y <- allocMem :: IO (Ptr Int32) gdk_window_get_root_origin window' x y x' <- peek x y' <- peek y touchManagedPtr window freeMem x freeMem y return (x', y') #if ENABLE_OVERLOADING data WindowGetRootOriginMethodInfo instance (signature ~ (m ((Int32, Int32))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetRootOriginMethodInfo a signature where overloadedMethod _ = windowGetRootOrigin #endif -- method Window::get_scale_factor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "window to get scale factor for", 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_window_get_scale_factor" gdk_window_get_scale_factor :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO Int32 {- | Returns the internal scale factor that maps from window coordiantes to the actual device pixels. On traditional systems this is 1, but on very high density outputs this can be a higher value (often 2). A higher value means that drawing is automatically scaled up to a higher resolution, so any code doing drawing will automatically look nicer. However, if you are supplying pixel-based data the scale value can be used to determine whether to use a pixel resource with higher resolution data. The scale of a window may change during runtime, if this happens a configure event will be sent to the toplevel window. /Since: 3.10/ -} windowGetScaleFactor :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: window to get scale factor for -} -> m Int32 {- ^ __Returns:__ the scale factor -} windowGetScaleFactor window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_scale_factor window' touchManagedPtr window return result #if ENABLE_OVERLOADING data WindowGetScaleFactorMethodInfo instance (signature ~ (m Int32), MonadIO m, IsWindow a) => O.MethodInfo WindowGetScaleFactorMethodInfo a signature where overloadedMethod _ = windowGetScaleFactor #endif -- method Window::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Screen"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_screen" gdk_window_get_screen :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Gdk.Screen.Screen) {- | Gets the 'GI.Gdk.Objects.Screen.Screen' associated with a 'GI.Gdk.Objects.Window.Window'. /Since: 2.24/ -} windowGetScreen :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Gdk.Screen.Screen {- ^ __Returns:__ the 'GI.Gdk.Objects.Screen.Screen' associated with /@window@/ -} windowGetScreen window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_screen window' checkUnexpectedReturnNULL "windowGetScreen" result result' <- (newObject Gdk.Screen.Screen) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetScreenMethodInfo instance (signature ~ (m Gdk.Screen.Screen), MonadIO m, IsWindow a) => O.MethodInfo WindowGetScreenMethodInfo a signature where overloadedMethod _ = windowGetScreen #endif -- method Window::get_source_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "Gdk", name = "InputSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkInputSource to define the source class.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "EventMask"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_source_events" gdk_window_get_source_events :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- source : TInterface (Name {namespace = "Gdk", name = "InputSource"}) IO CUInt {- | Returns the event mask for /@window@/ corresponding to the device class specified by /@source@/. -} windowGetSourceEvents :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Enums.InputSource {- ^ /@source@/: a 'GI.Gdk.Enums.InputSource' to define the source class. -} -> m [Gdk.Flags.EventMask] {- ^ __Returns:__ source event mask for /@window@/ -} windowGetSourceEvents window source = liftIO $ do window' <- unsafeManagedPtrCastPtr window let source' = (fromIntegral . fromEnum) source result <- gdk_window_get_source_events window' source' let result' = wordToGFlags result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetSourceEventsMethodInfo instance (signature ~ (Gdk.Enums.InputSource -> m [Gdk.Flags.EventMask]), MonadIO m, IsWindow a) => O.MethodInfo WindowGetSourceEventsMethodInfo a signature where overloadedMethod _ = windowGetSourceEvents #endif -- method Window::get_state -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "WindowState"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_state" gdk_window_get_state :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CUInt {- | Gets the bitwise OR of the currently active window state flags, from the 'GI.Gdk.Flags.WindowState' enumeration. -} windowGetState :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m [Gdk.Flags.WindowState] {- ^ __Returns:__ window state bitfield -} windowGetState window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_state window' let result' = wordToGFlags result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetStateMethodInfo instance (signature ~ (m [Gdk.Flags.WindowState]), MonadIO m, IsWindow a) => O.MethodInfo WindowGetStateMethodInfo a signature where overloadedMethod _ = windowGetState #endif -- method Window::get_support_multidevice -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow.", 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_window_get_support_multidevice" gdk_window_get_support_multidevice :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Returns 'True' if the window is aware of the existence of multiple devices. /Since: 3.0/ -} windowGetSupportMultidevice :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window'. -} -> m Bool {- ^ __Returns:__ 'True' if the window handles multidevice features. -} windowGetSupportMultidevice window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_support_multidevice window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetSupportMultideviceMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowGetSupportMultideviceMethodInfo a signature where overloadedMethod _ = windowGetSupportMultidevice #endif -- method Window::get_toplevel -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_toplevel" gdk_window_get_toplevel :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Window) {- | Gets the toplevel window that’s an ancestor of /@window@/. Any window type but 'GI.Gdk.Enums.WindowTypeChild' is considered a toplevel window, as is a 'GI.Gdk.Enums.WindowTypeChild' window that has a root window as parent. Note that you should use 'GI.Gdk.Objects.Window.windowGetEffectiveToplevel' when you want to get to a window’s toplevel as seen on screen, because 'GI.Gdk.Objects.Window.windowGetToplevel' will most likely not do what you expect if there are offscreen windows in the hierarchy. -} windowGetToplevel :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Window {- ^ __Returns:__ the toplevel window containing /@window@/ -} windowGetToplevel window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_toplevel window' checkUnexpectedReturnNULL "windowGetToplevel" result result' <- (newObject Window) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetToplevelMethodInfo instance (signature ~ (m Window), MonadIO m, IsWindow a) => O.MethodInfo WindowGetToplevelMethodInfo a signature where overloadedMethod _ = windowGetToplevel #endif -- method Window::get_type_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "WindowTypeHint"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_type_hint" gdk_window_get_type_hint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CUInt {- | This function returns the type hint set for a window. /Since: 2.10/ -} windowGetTypeHint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: A toplevel 'GI.Gdk.Objects.Window.Window' -} -> m Gdk.Enums.WindowTypeHint {- ^ __Returns:__ The type hint set for /@window@/ -} windowGetTypeHint window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_type_hint window' let result' = (toEnum . fromIntegral) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetTypeHintMethodInfo instance (signature ~ (m Gdk.Enums.WindowTypeHint), MonadIO m, IsWindow a) => O.MethodInfo WindowGetTypeHintMethodInfo a signature where overloadedMethod _ = windowGetTypeHint #endif -- method Window::get_update_area -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "cairo", name = "Region"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_update_area" gdk_window_get_update_area :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Cairo.Region.Region) {- | Transfers ownership of the update area from /@window@/ to the caller of the function. That is, after calling this function, /@window@/ will no longer have an invalid\/dirty region; the update area is removed from /@window@/ and handed to you. If a window has no update area, 'GI.Gdk.Objects.Window.windowGetUpdateArea' returns 'Nothing'. You are responsible for calling @/cairo_region_destroy()/@ on the returned region if it’s non-'Nothing'. -} windowGetUpdateArea :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Cairo.Region.Region {- ^ __Returns:__ the update area for /@window@/ -} windowGetUpdateArea window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_update_area window' checkUnexpectedReturnNULL "windowGetUpdateArea" result result' <- (wrapBoxed Cairo.Region.Region) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetUpdateAreaMethodInfo instance (signature ~ (m Cairo.Region.Region), MonadIO m, IsWindow a) => O.MethodInfo WindowGetUpdateAreaMethodInfo a signature where overloadedMethod _ = windowGetUpdateArea #endif -- method Window::get_user_data -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = True, argDoc = Documentation {rawDocText = Just "return location for user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_user_data" gdk_window_get_user_data :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr (Ptr ()) -> -- data : TBasicType TPtr IO () {- | Retrieves the user data for /@window@/, which is normally the widget that /@window@/ belongs to. See 'GI.Gdk.Objects.Window.windowSetUserData'. -} windowGetUserData :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m ((Ptr ())) windowGetUserData window = liftIO $ do window' <- unsafeManagedPtrCastPtr window data_ <- allocMem :: IO (Ptr (Ptr ())) gdk_window_get_user_data window' data_ data_' <- peek data_ touchManagedPtr window freeMem data_ return data_' #if ENABLE_OVERLOADING data WindowGetUserDataMethodInfo instance (signature ~ (m ((Ptr ()))), MonadIO m, IsWindow a) => O.MethodInfo WindowGetUserDataMethodInfo a signature where overloadedMethod _ = windowGetUserData #endif -- method Window::get_visible_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "cairo", name = "Region"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_visible_region" gdk_window_get_visible_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Cairo.Region.Region) {- | Computes the region of the /@window@/ that is potentially visible. This does not necessarily take into account if the window is obscured by other windows, but no area outside of this region is visible. -} windowGetVisibleRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Cairo.Region.Region {- ^ __Returns:__ a 'GI.Cairo.Structs.Region.Region'. This must be freed with @/cairo_region_destroy()/@ when you are done. -} windowGetVisibleRegion window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_visible_region window' checkUnexpectedReturnNULL "windowGetVisibleRegion" result result' <- (wrapBoxed Cairo.Region.Region) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetVisibleRegionMethodInfo instance (signature ~ (m Cairo.Region.Region), MonadIO m, IsWindow a) => O.MethodInfo WindowGetVisibleRegionMethodInfo a signature where overloadedMethod _ = windowGetVisibleRegion #endif -- method Window::get_visual -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Visual"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_visual" gdk_window_get_visual :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr Gdk.Visual.Visual) {- | Gets the 'GI.Gdk.Objects.Visual.Visual' describing the pixel format of /@window@/. /Since: 2.24/ -} windowGetVisual :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Gdk.Visual.Visual {- ^ __Returns:__ a 'GI.Gdk.Objects.Visual.Visual' -} windowGetVisual window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_visual window' checkUnexpectedReturnNULL "windowGetVisual" result result' <- (newObject Gdk.Visual.Visual) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetVisualMethodInfo instance (signature ~ (m Gdk.Visual.Visual), MonadIO m, IsWindow a) => O.MethodInfo WindowGetVisualMethodInfo a signature where overloadedMethod _ = windowGetVisual #endif -- method Window::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_get_width" gdk_window_get_width :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO Int32 {- | Returns the width of the given /@window@/. On the X11 platform the returned size is the size reported in the most-recently-processed configure event, rather than the current size on the X server. /Since: 2.24/ -} windowGetWidth :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Int32 {- ^ __Returns:__ The width of /@window@/ -} windowGetWidth window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_width window' touchManagedPtr window return result #if ENABLE_OVERLOADING data WindowGetWidthMethodInfo instance (signature ~ (m Int32), MonadIO m, IsWindow a) => O.MethodInfo WindowGetWidthMethodInfo a signature where overloadedMethod _ = windowGetWidth #endif -- method Window::get_window_type -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "WindowType"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_get_window_type" gdk_window_get_window_type :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CUInt {- | Gets the type of the window. See 'GI.Gdk.Enums.WindowType'. -} windowGetWindowType :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Gdk.Enums.WindowType {- ^ __Returns:__ type of window -} windowGetWindowType window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_get_window_type window' let result' = (toEnum . fromIntegral) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowGetWindowTypeMethodInfo instance (signature ~ (m Gdk.Enums.WindowType), MonadIO m, IsWindow a) => O.MethodInfo WindowGetWindowTypeMethodInfo a signature where overloadedMethod _ = windowGetWindowType #endif -- method Window::has_native -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_has_native" gdk_window_has_native :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Checks whether the window has a native window or not. Note that you can use 'GI.Gdk.Objects.Window.windowEnsureNative' if a native window is needed. /Since: 2.22/ -} windowHasNative :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if the /@window@/ has a native window, 'False' otherwise. -} windowHasNative window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_has_native window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowHasNativeMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowHasNativeMethodInfo a signature where overloadedMethod _ = windowHasNative #endif -- method Window::hide -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_hide" gdk_window_hide :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | For toplevel windows, withdraws them, so they will no longer be known to the window manager; for all windows, unmaps them, so they won’t be displayed. Normally done automatically as part of @/gtk_widget_hide()/@. -} windowHide :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowHide window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_hide window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowHideMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowHideMethodInfo a signature where overloadedMethod _ = windowHide #endif -- method Window::iconify -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_iconify" gdk_window_iconify :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Asks to iconify (minimize) /@window@/. The window manager may choose to ignore the request, but normally will honor it. Using @/gtk_window_iconify()/@ is preferred, if you have a @/GtkWindow/@ widget. This function only makes sense when /@window@/ is a toplevel window. -} windowIconify :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowIconify window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_iconify window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowIconifyMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowIconifyMethodInfo a signature where overloadedMethod _ = windowIconify #endif -- method Window::input_shape_combine_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "region of window to be non-transparent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X position of @shape_region in @window coordinates", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y position of @shape_region in @window coordinates", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_input_shape_combine_region" gdk_window_input_shape_combine_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- shape_region : TInterface (Name {namespace = "cairo", name = "Region"}) Int32 -> -- offset_x : TBasicType TInt Int32 -> -- offset_y : TBasicType TInt IO () {- | Like 'GI.Gdk.Objects.Window.windowShapeCombineRegion', but the shape applies only to event handling. Mouse events which happen while the pointer position corresponds to an unset bit in the mask will be passed on the window below /@window@/. An input shape is typically used with RGBA windows. The alpha channel of the window defines which pixels are invisible and allows for nicely antialiased borders, and the input shape controls where the window is “clickable”. On the X11 platform, this requires version 1.1 of the shape extension. On the Win32 platform, this functionality is not present and the function does nothing. /Since: 2.10/ -} windowInputShapeCombineRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Cairo.Region.Region {- ^ /@shapeRegion@/: region of window to be non-transparent -} -> Int32 {- ^ /@offsetX@/: X position of /@shapeRegion@/ in /@window@/ coordinates -} -> Int32 {- ^ /@offsetY@/: Y position of /@shapeRegion@/ in /@window@/ coordinates -} -> m () windowInputShapeCombineRegion window shapeRegion offsetX offsetY = liftIO $ do window' <- unsafeManagedPtrCastPtr window shapeRegion' <- unsafeManagedPtrGetPtr shapeRegion gdk_window_input_shape_combine_region window' shapeRegion' offsetX offsetY touchManagedPtr window touchManagedPtr shapeRegion return () #if ENABLE_OVERLOADING data WindowInputShapeCombineRegionMethodInfo instance (signature ~ (Cairo.Region.Region -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowInputShapeCombineRegionMethodInfo a signature where overloadedMethod _ = windowInputShapeCombineRegion #endif -- method Window::invalidate_maybe_recurse -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_region_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_func", argType = TInterface (Name {namespace = "Gdk", name = "WindowChildFunc"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "function to use to decide if to\n recurse to a child, %NULL means never recurse.", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data passed to @child_func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_invalidate_maybe_recurse" gdk_window_invalidate_maybe_recurse :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- region : TInterface (Name {namespace = "cairo", name = "Region"}) FunPtr Gdk.Callbacks.C_WindowChildFunc -> -- child_func : TInterface (Name {namespace = "Gdk", name = "WindowChildFunc"}) Ptr () -> -- user_data : TBasicType TPtr IO () {- | Adds /@region@/ to the update area for /@window@/. The update area is the region that needs to be redrawn, or “dirty region.” The call 'GI.Gdk.Objects.Window.windowProcessUpdates' sends one or more expose events to the window, which together cover the entire update area. An application would normally redraw the contents of /@window@/ in response to those expose events. GDK will call 'GI.Gdk.Objects.Window.windowProcessAllUpdates' on your behalf whenever your program returns to the main loop and becomes idle, so normally there’s no need to do that manually, you just need to invalidate regions that you know should be redrawn. The /@childFunc@/ parameter controls whether the region of each child window that intersects /@region@/ will also be invalidated. Only children for which /@childFunc@/ returns @/TRUE/@ will have the area invalidated. -} windowInvalidateMaybeRecurse :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Cairo.Region.Region {- ^ /@region@/: a 'GI.Cairo.Structs.Region.Region' -} -> Maybe (Gdk.Callbacks.WindowChildFunc) {- ^ /@childFunc@/: function to use to decide if to recurse to a child, 'Nothing' means never recurse. -} -> m () windowInvalidateMaybeRecurse window region childFunc = liftIO $ do window' <- unsafeManagedPtrCastPtr window region' <- unsafeManagedPtrGetPtr region maybeChildFunc <- case childFunc of Nothing -> return (castPtrToFunPtr nullPtr) Just jChildFunc -> do jChildFunc' <- Gdk.Callbacks.mk_WindowChildFunc (Gdk.Callbacks.wrap_WindowChildFunc Nothing (Gdk.Callbacks.drop_closures_WindowChildFunc jChildFunc)) return jChildFunc' let userData = nullPtr gdk_window_invalidate_maybe_recurse window' region' maybeChildFunc userData safeFreeFunPtr $ castFunPtrToPtr maybeChildFunc touchManagedPtr window touchManagedPtr region return () #if ENABLE_OVERLOADING data WindowInvalidateMaybeRecurseMethodInfo instance (signature ~ (Cairo.Region.Region -> Maybe (Gdk.Callbacks.WindowChildFunc) -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowInvalidateMaybeRecurseMethodInfo a signature where overloadedMethod _ = windowInvalidateMaybeRecurse #endif -- method Window::invalidate_rect -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "rectangle to invalidate or %NULL to invalidate the whole\n window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to also invalidate child windows", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_invalidate_rect" gdk_window_invalidate_rect :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Rectangle.Rectangle -> -- rect : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) CInt -> -- invalidate_children : TBasicType TBoolean IO () {- | A convenience wrapper around 'GI.Gdk.Objects.Window.windowInvalidateRegion' which invalidates a rectangular region. See 'GI.Gdk.Objects.Window.windowInvalidateRegion' for details. -} windowInvalidateRect :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Maybe (Gdk.Rectangle.Rectangle) {- ^ /@rect@/: rectangle to invalidate or 'Nothing' to invalidate the whole window -} -> Bool {- ^ /@invalidateChildren@/: whether to also invalidate child windows -} -> m () windowInvalidateRect window rect invalidateChildren = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeRect <- case rect of Nothing -> return nullPtr Just jRect -> do jRect' <- unsafeManagedPtrGetPtr jRect return jRect' let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren gdk_window_invalidate_rect window' maybeRect invalidateChildren' touchManagedPtr window whenJust rect touchManagedPtr return () #if ENABLE_OVERLOADING data WindowInvalidateRectMethodInfo instance (signature ~ (Maybe (Gdk.Rectangle.Rectangle) -> Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowInvalidateRectMethodInfo a signature where overloadedMethod _ = windowInvalidateRect #endif -- method Window::invalidate_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_region_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to also invalidate child windows", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_invalidate_region" gdk_window_invalidate_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- region : TInterface (Name {namespace = "cairo", name = "Region"}) CInt -> -- invalidate_children : TBasicType TBoolean IO () {- | Adds /@region@/ to the update area for /@window@/. The update area is the region that needs to be redrawn, or “dirty region.” The call 'GI.Gdk.Objects.Window.windowProcessUpdates' sends one or more expose events to the window, which together cover the entire update area. An application would normally redraw the contents of /@window@/ in response to those expose events. GDK will call 'GI.Gdk.Objects.Window.windowProcessAllUpdates' on your behalf whenever your program returns to the main loop and becomes idle, so normally there’s no need to do that manually, you just need to invalidate regions that you know should be redrawn. The /@invalidateChildren@/ parameter controls whether the region of each child window that intersects /@region@/ will also be invalidated. If 'False', then the update area for child windows will remain unaffected. See gdk_window_invalidate_maybe_recurse if you need fine grained control over which children are invalidated. -} windowInvalidateRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Cairo.Region.Region {- ^ /@region@/: a 'GI.Cairo.Structs.Region.Region' -} -> Bool {- ^ /@invalidateChildren@/: 'True' to also invalidate child windows -} -> m () windowInvalidateRegion window region invalidateChildren = liftIO $ do window' <- unsafeManagedPtrCastPtr window region' <- unsafeManagedPtrGetPtr region let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren gdk_window_invalidate_region window' region' invalidateChildren' touchManagedPtr window touchManagedPtr region return () #if ENABLE_OVERLOADING data WindowInvalidateRegionMethodInfo instance (signature ~ (Cairo.Region.Region -> Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowInvalidateRegionMethodInfo a signature where overloadedMethod _ = windowInvalidateRegion #endif -- method Window::is_destroyed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_is_destroyed" gdk_window_is_destroyed :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Check to see if a window is destroyed.. /Since: 2.18/ -} windowIsDestroyed :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if the window is destroyed -} windowIsDestroyed window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_is_destroyed window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowIsDestroyedMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsDestroyedMethodInfo a signature where overloadedMethod _ = windowIsDestroyed #endif -- method Window::is_input_only -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", 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_window_is_input_only" gdk_window_is_input_only :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Determines whether or not the window is an input only window. /Since: 2.22/ -} windowIsInputOnly :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if /@window@/ is input only -} windowIsInputOnly window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_is_input_only window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowIsInputOnlyMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsInputOnlyMethodInfo a signature where overloadedMethod _ = windowIsInputOnly #endif -- method Window::is_shaped -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", 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_window_is_shaped" gdk_window_is_shaped :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Determines whether or not the window is shaped. /Since: 2.22/ -} windowIsShaped :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if /@window@/ is shaped -} windowIsShaped window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_is_shaped window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowIsShapedMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsShapedMethodInfo a signature where overloadedMethod _ = windowIsShaped #endif -- method Window::is_viewable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_is_viewable" gdk_window_is_viewable :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Check if the window and all ancestors of the window are mapped. (This is not necessarily \"viewable\" in the X sense, since we only check as far as we have GDK window parents, not to the root window.) -} windowIsViewable :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if the window is viewable -} windowIsViewable window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_is_viewable window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowIsViewableMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsViewableMethodInfo a signature where overloadedMethod _ = windowIsViewable #endif -- method Window::is_visible -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", 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_window_is_visible" gdk_window_is_visible :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO CInt {- | Checks whether the window has been mapped (with 'GI.Gdk.Objects.Window.windowShow' or 'GI.Gdk.Objects.Window.windowShowUnraised'). -} windowIsVisible :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m Bool {- ^ __Returns:__ 'True' if the window is mapped -} windowIsVisible window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_is_visible window' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowIsVisibleMethodInfo instance (signature ~ (m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowIsVisibleMethodInfo a signature where overloadedMethod _ = windowIsVisible #endif -- method Window::lower -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_lower" gdk_window_lower :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Lowers /@window@/ to the bottom of the Z-order (stacking order), so that other windows with the same parent window appear above /@window@/. This is true whether or not the other windows are visible. If /@window@/ is a toplevel, the window manager may choose to deny the request to move the window in the Z-order, 'GI.Gdk.Objects.Window.windowLower' only requests the restack, does not guarantee it. Note that 'GI.Gdk.Objects.Window.windowShow' raises the window again, so don’t call this function before 'GI.Gdk.Objects.Window.windowShow'. (Try 'GI.Gdk.Objects.Window.windowShowUnraised'.) -} windowLower :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowLower window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_lower window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowLowerMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowLowerMethodInfo a signature where overloadedMethod _ = windowLower #endif -- method Window::mark_paint_from_clip -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface (Name {namespace = "cairo", name = "Context"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #cairo_t", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_mark_paint_from_clip" gdk_window_mark_paint_from_clip :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Context.Context -> -- cr : TInterface (Name {namespace = "cairo", name = "Context"}) IO () {- | If you call this during a paint (e.g. between 'GI.Gdk.Objects.Window.windowBeginPaintRegion' and 'GI.Gdk.Objects.Window.windowEndPaint' then GDK will mark the current clip region of the window as being drawn. This is required when mixing GL rendering via 'GI.Gdk.Functions.cairoDrawFromGl' and cairo rendering, as otherwise GDK has no way of knowing when something paints over the GL-drawn regions. This is typically called automatically by GTK+ and you don\'t need to care about this. /Since: 3.16/ -} windowMarkPaintFromClip :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Cairo.Context.Context {- ^ /@cr@/: a 'GI.Cairo.Structs.Context.Context' -} -> m () windowMarkPaintFromClip window cr = liftIO $ do window' <- unsafeManagedPtrCastPtr window cr' <- unsafeManagedPtrGetPtr cr gdk_window_mark_paint_from_clip window' cr' touchManagedPtr window touchManagedPtr cr return () #if ENABLE_OVERLOADING data WindowMarkPaintFromClipMethodInfo instance (signature ~ (Cairo.Context.Context -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMarkPaintFromClipMethodInfo a signature where overloadedMethod _ = windowMarkPaintFromClip #endif -- method Window::maximize -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_maximize" gdk_window_maximize :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Maximizes the window. If the window was already maximized, then this function does nothing. On X11, asks the window manager to maximize /@window@/, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don’t have a concept of “maximized”; so you can’t rely on the maximization actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. On Windows, reliably maximizes the window. -} windowMaximize :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowMaximize window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_maximize window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowMaximizeMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMaximizeMethodInfo a signature where overloadedMethod _ = windowMaximize #endif -- method Window::merge_child_input_shapes -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_merge_child_input_shapes" gdk_window_merge_child_input_shapes :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Merges the input shape masks for any child windows into the input shape mask for /@window@/. i.e. the union of all input masks for /@window@/ and its children will become the new input mask for /@window@/. See 'GI.Gdk.Objects.Window.windowInputShapeCombineRegion'. This function is distinct from 'GI.Gdk.Objects.Window.windowSetChildInputShapes' because it includes /@window@/’s input shape mask in the set of shapes to be merged. /Since: 2.10/ -} windowMergeChildInputShapes :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowMergeChildInputShapes window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_merge_child_input_shapes window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowMergeChildInputShapesMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMergeChildInputShapesMethodInfo a signature where overloadedMethod _ = windowMergeChildInputShapes #endif -- method Window::merge_child_shapes -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_merge_child_shapes" gdk_window_merge_child_shapes :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Merges the shape masks for any child windows into the shape mask for /@window@/. i.e. the union of all masks for /@window@/ and its children will become the new mask for /@window@/. See 'GI.Gdk.Objects.Window.windowShapeCombineRegion'. This function is distinct from 'GI.Gdk.Objects.Window.windowSetChildShapes' because it includes /@window@/’s shape mask in the set of shapes to be merged. -} windowMergeChildShapes :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowMergeChildShapes window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_merge_child_shapes window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowMergeChildShapesMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMergeChildShapesMethodInfo a signature where overloadedMethod _ = windowMergeChildShapes #endif -- method Window::move -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X coordinate relative to window\8217s parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y coordinate relative to window\8217s parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_move" gdk_window_move :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- x : TBasicType TInt Int32 -> -- y : TBasicType TInt IO () {- | Repositions a window relative to its parent window. For toplevel windows, window managers may ignore or modify the move; you should probably use @/gtk_window_move()/@ on a @/GtkWindow/@ widget anyway, instead of using GDK functions. For child windows, the move will reliably succeed. If you’re also planning to resize the window, use 'GI.Gdk.Objects.Window.windowMoveResize' to both move and resize simultaneously, for a nicer visual effect. -} windowMove :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@x@/: X coordinate relative to window’s parent -} -> Int32 {- ^ /@y@/: Y coordinate relative to window’s parent -} -> m () windowMove window x y = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_move window' x y touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowMoveMethodInfo instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMoveMethodInfo a signature where overloadedMethod _ = windowMove #endif -- method Window::move_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #cairo_region_t to move", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Amount to move in the X direction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Amount to move in the Y direction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_move_region" gdk_window_move_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- region : TInterface (Name {namespace = "cairo", name = "Region"}) Int32 -> -- dx : TBasicType TInt Int32 -> -- dy : TBasicType TInt IO () {- | Move the part of /@window@/ indicated by /@region@/ by /@dy@/ pixels in the Y direction and /@dx@/ pixels in the X direction. The portions of /@region@/ that not covered by the new position of /@region@/ are invalidated. Child windows are not moved. /Since: 2.8/ -} windowMoveRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Cairo.Region.Region {- ^ /@region@/: The 'GI.Cairo.Structs.Region.Region' to move -} -> Int32 {- ^ /@dx@/: Amount to move in the X direction -} -> Int32 {- ^ /@dy@/: Amount to move in the Y direction -} -> m () windowMoveRegion window region dx dy = liftIO $ do window' <- unsafeManagedPtrCastPtr window region' <- unsafeManagedPtrGetPtr region gdk_window_move_region window' region' dx dy touchManagedPtr window touchManagedPtr region return () #if ENABLE_OVERLOADING data WindowMoveRegionMethodInfo instance (signature ~ (Cairo.Region.Region -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMoveRegionMethodInfo a signature where overloadedMethod _ = windowMoveRegion #endif -- method Window::move_resize -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new X position relative to window\8217s parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new Y position relative to window\8217s parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_move_resize" gdk_window_move_resize :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- x : TBasicType TInt Int32 -> -- y : TBasicType TInt Int32 -> -- width : TBasicType TInt Int32 -> -- height : TBasicType TInt IO () {- | Equivalent to calling 'GI.Gdk.Objects.Window.windowMove' and 'GI.Gdk.Objects.Window.windowResize', except that both operations are performed at once, avoiding strange visual effects. (i.e. the user may be able to see the window first move, then resize, if you don’t use 'GI.Gdk.Objects.Window.windowMoveResize'.) -} windowMoveResize :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@x@/: new X position relative to window’s parent -} -> Int32 {- ^ /@y@/: new Y position relative to window’s parent -} -> Int32 {- ^ /@width@/: new width -} -> Int32 {- ^ /@height@/: new height -} -> m () windowMoveResize window x y width height = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_move_resize window' x y width height touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowMoveResizeMethodInfo instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMoveResizeMethodInfo a signature where overloadedMethod _ = windowMoveResize #endif -- method Window::move_to_rect -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GdkWindow to move", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the destination #GdkRectangle to align @window with", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect_anchor", argType = TInterface (Name {namespace = "Gdk", name = "Gravity"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the point on @rect to align with @window's anchor point", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window_anchor", argType = TInterface (Name {namespace = "Gdk", name = "Gravity"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the point on @window to align with @rect's anchor point", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anchor_hints", argType = TInterface (Name {namespace = "Gdk", name = "AnchorHints"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "positioning hints to use when limited on space", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect_anchor_dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "horizontal offset to shift @window, i.e. @rect's anchor\n point", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect_anchor_dy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "vertical offset to shift @window, i.e. @rect's anchor point", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_move_to_rect" gdk_window_move_to_rect :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Rectangle.Rectangle -> -- rect : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) CUInt -> -- rect_anchor : TInterface (Name {namespace = "Gdk", name = "Gravity"}) CUInt -> -- window_anchor : TInterface (Name {namespace = "Gdk", name = "Gravity"}) CUInt -> -- anchor_hints : TInterface (Name {namespace = "Gdk", name = "AnchorHints"}) Int32 -> -- rect_anchor_dx : TBasicType TInt Int32 -> -- rect_anchor_dy : TBasicType TInt IO () {- | Moves /@window@/ to /@rect@/, aligning their anchor points. /@rect@/ is relative to the top-left corner of the window that /@window@/ is transient for. /@rectAnchor@/ and /@windowAnchor@/ determine anchor points on /@rect@/ and /@window@/ to pin together. /@rect@/\'s anchor point can optionally be offset by /@rectAnchorDx@/ and /@rectAnchorDy@/, which is equivalent to offsetting the position of /@window@/. /@anchorHints@/ determines how /@window@/ will be moved if the anchor points cause it to move off-screen. For example, 'GI.Gdk.Flags.AnchorHintsFlipX' will replace 'GI.Gdk.Enums.GravityNorthWest' with 'GI.Gdk.Enums.GravityNorthEast' and vice versa if /@window@/ extends beyond the left or right edges of the monitor. Connect to the 'GI.Gdk.Objects.Window.Window'::@/moved-to-rect/@ signal to find out how it was actually positioned. /Since: 3.24/ -} windowMoveToRect :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: the 'GI.Gdk.Objects.Window.Window' to move -} -> Gdk.Rectangle.Rectangle {- ^ /@rect@/: the destination 'GI.Gdk.Structs.Rectangle.Rectangle' to align /@window@/ with -} -> Gdk.Enums.Gravity {- ^ /@rectAnchor@/: the point on /@rect@/ to align with /@window@/\'s anchor point -} -> Gdk.Enums.Gravity {- ^ /@windowAnchor@/: the point on /@window@/ to align with /@rect@/\'s anchor point -} -> [Gdk.Flags.AnchorHints] {- ^ /@anchorHints@/: positioning hints to use when limited on space -} -> Int32 {- ^ /@rectAnchorDx@/: horizontal offset to shift /@window@/, i.e. /@rect@/\'s anchor point -} -> Int32 {- ^ /@rectAnchorDy@/: vertical offset to shift /@window@/, i.e. /@rect@/\'s anchor point -} -> m () windowMoveToRect window rect rectAnchor windowAnchor anchorHints rectAnchorDx rectAnchorDy = liftIO $ do window' <- unsafeManagedPtrCastPtr window rect' <- unsafeManagedPtrGetPtr rect let rectAnchor' = (fromIntegral . fromEnum) rectAnchor let windowAnchor' = (fromIntegral . fromEnum) windowAnchor let anchorHints' = gflagsToWord anchorHints gdk_window_move_to_rect window' rect' rectAnchor' windowAnchor' anchorHints' rectAnchorDx rectAnchorDy touchManagedPtr window touchManagedPtr rect return () #if ENABLE_OVERLOADING data WindowMoveToRectMethodInfo instance (signature ~ (Gdk.Rectangle.Rectangle -> Gdk.Enums.Gravity -> Gdk.Enums.Gravity -> [Gdk.Flags.AnchorHints] -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowMoveToRectMethodInfo a signature where overloadedMethod _ = windowMoveToRect #endif -- method Window::peek_children -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TGList (TInterface (Name {namespace = "Gdk", name = "Window"}))) -- throws : False -- Skip return : False foreign import ccall "gdk_window_peek_children" gdk_window_peek_children :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO (Ptr (GList (Ptr Window))) {- | Like 'GI.Gdk.Objects.Window.windowGetChildren', but does not copy the list of children, so the list does not need to be freed. -} windowPeekChildren :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m [Window] {- ^ __Returns:__ a reference to the list of child windows in /@window@/ -} windowPeekChildren window = liftIO $ do window' <- unsafeManagedPtrCastPtr window result <- gdk_window_peek_children window' result' <- unpackGList result result'' <- mapM (newObject Window) result' touchManagedPtr window return result'' #if ENABLE_OVERLOADING data WindowPeekChildrenMethodInfo instance (signature ~ (m [Window]), MonadIO m, IsWindow a) => O.MethodInfo WindowPeekChildrenMethodInfo a signature where overloadedMethod _ = windowPeekChildren #endif -- method Window::process_updates -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to also process updates for child windows", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_process_updates" gdk_window_process_updates :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- update_children : TBasicType TBoolean IO () {-# DEPRECATED windowProcessUpdates ["(Since version 3.22)"] #-} {- | Sends one or more expose events to /@window@/. The areas in each expose event will cover the entire update area for the window (see 'GI.Gdk.Objects.Window.windowInvalidateRegion' for details). Normally GDK calls 'GI.Gdk.Objects.Window.windowProcessAllUpdates' on your behalf, so there’s no need to call this function unless you want to force expose events to be delivered immediately and synchronously (vs. the usual case, where GDK delivers them in an idle handler). Occasionally this is useful to produce nicer scrolling behavior, for example. -} windowProcessUpdates :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@updateChildren@/: whether to also process updates for child windows -} -> m () windowProcessUpdates window updateChildren = liftIO $ do window' <- unsafeManagedPtrCastPtr window let updateChildren' = (fromIntegral . fromEnum) updateChildren gdk_window_process_updates window' updateChildren' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowProcessUpdatesMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowProcessUpdatesMethodInfo a signature where overloadedMethod _ = windowProcessUpdates #endif -- method Window::raise -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_raise" gdk_window_raise :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Raises /@window@/ to the top of the Z-order (stacking order), so that other windows with the same parent window appear below /@window@/. This is true whether or not the windows are visible. If /@window@/ is a toplevel, the window manager may choose to deny the request to move the window in the Z-order, 'GI.Gdk.Objects.Window.windowRaise' only requests the restack, does not guarantee it. -} windowRaise :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowRaise window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_raise window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowRaiseMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowRaiseMethodInfo a signature where overloadedMethod _ = windowRaise #endif -- method Window::register_dnd -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_register_dnd" gdk_window_register_dnd :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Registers a window as a potential drop destination. -} windowRegisterDnd :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window'. -} -> m () windowRegisterDnd window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_register_dnd window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowRegisterDndMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowRegisterDndMethodInfo a signature where overloadedMethod _ = windowRegisterDnd #endif -- method Window::reparent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new parent to move @window into", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X location inside the new parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y location inside the new parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_reparent" gdk_window_reparent :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Window -> -- new_parent : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- x : TBasicType TInt Int32 -> -- y : TBasicType TInt IO () {- | Reparents /@window@/ into the given /@newParent@/. The window being reparented will be unmapped as a side effect. -} windowReparent :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, IsWindow b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> b {- ^ /@newParent@/: new parent to move /@window@/ into -} -> Int32 {- ^ /@x@/: X location inside the new parent -} -> Int32 {- ^ /@y@/: Y location inside the new parent -} -> m () windowReparent window newParent x y = liftIO $ do window' <- unsafeManagedPtrCastPtr window newParent' <- unsafeManagedPtrCastPtr newParent gdk_window_reparent window' newParent' x y touchManagedPtr window touchManagedPtr newParent return () #if ENABLE_OVERLOADING data WindowReparentMethodInfo instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a, IsWindow b) => O.MethodInfo WindowReparentMethodInfo a signature where overloadedMethod _ = windowReparent #endif -- method Window::resize -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new width of the window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "new height of the window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_resize" gdk_window_resize :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- width : TBasicType TInt Int32 -> -- height : TBasicType TInt IO () {- | Resizes /@window@/; for toplevel windows, asks the window manager to resize the window. The window manager may not allow the resize. When using GTK+, use @/gtk_window_resize()/@ instead of this low-level GDK function. Windows may not be resized below 1x1. If you’re also planning to move the window, use 'GI.Gdk.Objects.Window.windowMoveResize' to both move and resize simultaneously, for a nicer visual effect. -} windowResize :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@width@/: new width of the window -} -> Int32 {- ^ /@height@/: new height of the window -} -> m () windowResize window width height = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_resize window' width height touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowResizeMethodInfo instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowResizeMethodInfo a signature where overloadedMethod _ = windowResize #endif -- method Window::restack -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkWindow that is a sibling of @window, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a boolean", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_restack" gdk_window_restack :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Window -> -- sibling : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- above : TBasicType TBoolean IO () {- | Changes the position of /@window@/ in the Z-order (stacking order), so that it is above /@sibling@/ (if /@above@/ is 'True') or below /@sibling@/ (if /@above@/ is 'False'). If /@sibling@/ is 'Nothing', then this either raises (if /@above@/ is 'True') or lowers the window. If /@window@/ is a toplevel, the window manager may choose to deny the request to move the window in the Z-order, 'GI.Gdk.Objects.Window.windowRestack' only requests the restack, does not guarantee it. /Since: 2.18/ -} windowRestack :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, IsWindow b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Maybe (b) {- ^ /@sibling@/: a 'GI.Gdk.Objects.Window.Window' that is a sibling of /@window@/, or 'Nothing' -} -> Bool {- ^ /@above@/: a boolean -} -> m () windowRestack window sibling above = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeSibling <- case sibling of Nothing -> return nullPtr Just jSibling -> do jSibling' <- unsafeManagedPtrCastPtr jSibling return jSibling' let above' = (fromIntegral . fromEnum) above gdk_window_restack window' maybeSibling above' touchManagedPtr window whenJust sibling touchManagedPtr return () #if ENABLE_OVERLOADING data WindowRestackMethodInfo instance (signature ~ (Maybe (b) -> Bool -> m ()), MonadIO m, IsWindow a, IsWindow b) => O.MethodInfo WindowRestackMethodInfo a signature where overloadedMethod _ = windowRestack #endif -- method Window::scroll -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Amount to scroll in the X direction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Amount to scroll in the Y direction", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_scroll" gdk_window_scroll :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- dx : TBasicType TInt Int32 -> -- dy : TBasicType TInt IO () {- | Scroll the contents of /@window@/, both pixels and children, by the given amount. /@window@/ itself does not move. Portions of the window that the scroll operation brings in from offscreen areas are invalidated. The invalidated region may be bigger than what would strictly be necessary. For X11, a minimum area will be invalidated if the window has no subwindows, or if the edges of the window’s parent do not extend beyond the edges of the window. In other cases, a multi-step process is used to scroll the window which may produce temporary visual artifacts and unnecessary invalidations. -} windowScroll :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@dx@/: Amount to scroll in the X direction -} -> Int32 {- ^ /@dy@/: Amount to scroll in the Y direction -} -> m () windowScroll window dx dy = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_scroll window' dx dy touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowScrollMethodInfo instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowScrollMethodInfo a signature where overloadedMethod _ = windowScroll #endif -- method Window::set_accept_focus -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the window should receive input focus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_accept_focus" gdk_window_set_accept_focus :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- accept_focus : TBasicType TBoolean IO () {- | Setting /@acceptFocus@/ to 'False' hints the desktop environment that the window doesn’t want to receive input focus. On X, it is the responsibility of the window manager to interpret this hint. ICCCM-compliant window manager usually respect it. /Since: 2.4/ -} windowSetAcceptFocus :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@acceptFocus@/: 'True' if the window should receive input focus -} -> m () windowSetAcceptFocus window acceptFocus = liftIO $ do window' <- unsafeManagedPtrCastPtr window let acceptFocus' = (fromIntegral . fromEnum) acceptFocus gdk_window_set_accept_focus window' acceptFocus' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetAcceptFocusMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetAcceptFocusMethodInfo a signature where overloadedMethod _ = windowSetAcceptFocus #endif -- method Window::set_background -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface (Name {namespace = "Gdk", name = "Color"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkColor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_background" gdk_window_set_background :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Color.Color -> -- color : TInterface (Name {namespace = "Gdk", name = "Color"}) IO () {-# DEPRECATED windowSetBackground ["(Since version 3.4)","Don\\'t use this function"] #-} {- | Sets the background color of /@window@/. However, when using GTK+, influence the background of a widget using a style class or CSS — if you’re an application — or with @/gtk_style_context_set_background()/@ — if you\'re implementing a custom widget. -} windowSetBackground :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Color.Color {- ^ /@color@/: a 'GI.Gdk.Structs.Color.Color' -} -> m () windowSetBackground window color = liftIO $ do window' <- unsafeManagedPtrCastPtr window color' <- unsafeManagedPtrGetPtr color gdk_window_set_background window' color' touchManagedPtr window touchManagedPtr color return () #if ENABLE_OVERLOADING data WindowSetBackgroundMethodInfo instance (signature ~ (Gdk.Color.Color -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetBackgroundMethodInfo a signature where overloadedMethod _ = windowSetBackground #endif -- method Window::set_background_pattern -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TInterface (Name {namespace = "cairo", name = "Pattern"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pattern to use, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_background_pattern" gdk_window_set_background_pattern :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Pattern.Pattern -> -- pattern : TInterface (Name {namespace = "cairo", name = "Pattern"}) IO () {-# DEPRECATED windowSetBackgroundPattern ["(Since version 3.22)","Don\\'t use this function"] #-} {- | Sets the background of /@window@/. A background of 'Nothing' means that the window won\'t have any background. On the X11 backend it\'s also possible to inherit the background from the parent window using @/gdk_x11_get_parent_relative_pattern()/@. The windowing system will normally fill a window with its background when the window is obscured then exposed. -} windowSetBackgroundPattern :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Maybe (Cairo.Pattern.Pattern) {- ^ /@pattern@/: a pattern to use, or 'Nothing' -} -> m () windowSetBackgroundPattern window pattern = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybePattern <- case pattern of Nothing -> return nullPtr Just jPattern -> do jPattern' <- unsafeManagedPtrGetPtr jPattern return jPattern' gdk_window_set_background_pattern window' maybePattern touchManagedPtr window whenJust pattern touchManagedPtr return () #if ENABLE_OVERLOADING data WindowSetBackgroundPatternMethodInfo instance (signature ~ (Maybe (Cairo.Pattern.Pattern) -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetBackgroundPatternMethodInfo a signature where overloadedMethod _ = windowSetBackgroundPattern #endif -- method Window::set_background_rgba -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface (Name {namespace = "Gdk", name = "RGBA"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkRGBA color", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_background_rgba" gdk_window_set_background_rgba :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.RGBA.RGBA -> -- rgba : TInterface (Name {namespace = "Gdk", name = "RGBA"}) IO () {-# DEPRECATED windowSetBackgroundRgba ["(Since version 3.22)","Don\\'t use this function"] #-} {- | Sets the background color of /@window@/. See also 'GI.Gdk.Objects.Window.windowSetBackgroundPattern'. -} windowSetBackgroundRgba :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Gdk.RGBA.RGBA {- ^ /@rgba@/: a 'GI.Gdk.Structs.RGBA.RGBA' color -} -> m () windowSetBackgroundRgba window rgba = liftIO $ do window' <- unsafeManagedPtrCastPtr window rgba' <- unsafeManagedPtrGetPtr rgba gdk_window_set_background_rgba window' rgba' touchManagedPtr window touchManagedPtr rgba return () #if ENABLE_OVERLOADING data WindowSetBackgroundRgbaMethodInfo instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetBackgroundRgbaMethodInfo a signature where overloadedMethod _ = windowSetBackgroundRgba #endif -- method Window::set_child_input_shapes -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_child_input_shapes" gdk_window_set_child_input_shapes :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Sets the input shape mask of /@window@/ to the union of input shape masks for all children of /@window@/, ignoring the input shape mask of /@window@/ itself. Contrast with 'GI.Gdk.Objects.Window.windowMergeChildInputShapes' which includes the input shape mask of /@window@/ in the masks to be merged. /Since: 2.10/ -} windowSetChildInputShapes :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowSetChildInputShapes window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_set_child_input_shapes window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetChildInputShapesMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetChildInputShapesMethodInfo a signature where overloadedMethod _ = windowSetChildInputShapes #endif -- method Window::set_child_shapes -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_child_shapes" gdk_window_set_child_shapes :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Sets the shape mask of /@window@/ to the union of shape masks for all children of /@window@/, ignoring the shape mask of /@window@/ itself. Contrast with 'GI.Gdk.Objects.Window.windowMergeChildShapes' which includes the shape mask of /@window@/ in the masks to be merged. -} windowSetChildShapes :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowSetChildShapes window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_set_child_shapes window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetChildShapesMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetChildShapesMethodInfo a signature where overloadedMethod _ = windowSetChildShapes #endif -- method Window::set_composited -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to set the window as composited", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_composited" gdk_window_set_composited :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- composited : TBasicType TBoolean IO () {-# DEPRECATED windowSetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."] #-} {- | Sets a 'GI.Gdk.Objects.Window.Window' as composited, or unsets it. Composited windows do not automatically have their contents drawn to the screen. Drawing is redirected to an offscreen buffer and an expose event is emitted on the parent of the composited window. It is the responsibility of the parent’s expose handler to manually merge the off-screen content onto the screen in whatever way it sees fit. It only makes sense for child windows to be composited; see 'GI.Gdk.Objects.Window.windowSetOpacity' if you need translucent toplevel windows. An additional effect of this call is that the area of this window is no longer clipped from regions marked for invalidation on its parent. Draws done on the parent window are also no longer clipped by the child. This call is only supported on some systems (currently, only X11 with new enough Xcomposite and Xdamage extensions). You must call 'GI.Gdk.Objects.Display.displaySupportsComposite' to check if setting a window as composited is supported before attempting to do so. /Since: 2.12/ -} windowSetComposited :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@composited@/: 'True' to set the window as composited -} -> m () windowSetComposited window composited = liftIO $ do window' <- unsafeManagedPtrCastPtr window let composited' = (fromIntegral . fromEnum) composited gdk_window_set_composited window' composited' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetCompositedMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetCompositedMethodInfo a signature where overloadedMethod _ = windowSetComposited #endif -- method Window::set_cursor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface (Name {namespace = "Gdk", name = "Cursor"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a cursor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_cursor" gdk_window_set_cursor :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Cursor.Cursor -> -- cursor : TInterface (Name {namespace = "Gdk", name = "Cursor"}) IO () {- | Sets the default mouse pointer for a 'GI.Gdk.Objects.Window.Window'. Note that /@cursor@/ must be for the same display as /@window@/. Use 'GI.Gdk.Objects.Cursor.cursorNewForDisplay' or 'GI.Gdk.Objects.Cursor.cursorNewFromPixbuf' to create the cursor. To make the cursor invisible, use 'GI.Gdk.Enums.CursorTypeBlankCursor'. Passing 'Nothing' for the /@cursor@/ argument to 'GI.Gdk.Objects.Window.windowSetCursor' means that /@window@/ will use the cursor of its parent window. Most windows should use this default. -} windowSetCursor :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Cursor.IsCursor b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Maybe (b) {- ^ /@cursor@/: a cursor -} -> m () windowSetCursor window cursor = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeCursor <- case cursor of Nothing -> return nullPtr Just jCursor -> do jCursor' <- unsafeManagedPtrCastPtr jCursor return jCursor' gdk_window_set_cursor window' maybeCursor touchManagedPtr window whenJust cursor touchManagedPtr return () #if ENABLE_OVERLOADING data WindowSetCursorMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, Gdk.Cursor.IsCursor b) => O.MethodInfo WindowSetCursorMethodInfo a signature where overloadedMethod _ = windowSetCursor #endif -- method Window::set_decorations -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface (Name {namespace = "Gdk", name = "WMDecoration"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "decoration hint mask", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_decorations" gdk_window_set_decorations :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- decorations : TInterface (Name {namespace = "Gdk", name = "WMDecoration"}) IO () {- | “Decorations” are the features the window manager adds to a toplevel 'GI.Gdk.Objects.Window.Window'. This function sets the traditional Motif window manager hints that tell the window manager which decorations you would like your window to have. Usually you should use @/gtk_window_set_decorated()/@ on a @/GtkWindow/@ instead of using the GDK function directly. The /@decorations@/ argument is the logical OR of the fields in the 'GI.Gdk.Flags.WMDecoration' enumeration. If @/GDK_DECOR_ALL/@ is included in the mask, the other bits indicate which decorations should be turned off. If @/GDK_DECOR_ALL/@ is not included, then the other bits indicate which decorations should be turned on. Most window managers honor a decorations hint of 0 to disable all decorations, but very few honor all possible combinations of bits. -} windowSetDecorations :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> [Gdk.Flags.WMDecoration] {- ^ /@decorations@/: decoration hint mask -} -> m () windowSetDecorations window decorations = liftIO $ do window' <- unsafeManagedPtrCastPtr window let decorations' = gflagsToWord decorations gdk_window_set_decorations window' decorations' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetDecorationsMethodInfo instance (signature ~ ([Gdk.Flags.WMDecoration] -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetDecorationsMethodInfo a signature where overloadedMethod _ = windowSetDecorations #endif -- method Window::set_device_cursor -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a master, pointer #GdkDevice", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface (Name {namespace = "Gdk", name = "Cursor"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkCursor", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_device_cursor" gdk_window_set_device_cursor :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) Ptr Gdk.Cursor.Cursor -> -- cursor : TInterface (Name {namespace = "Gdk", name = "Cursor"}) IO () {- | Sets a specific 'GI.Gdk.Objects.Cursor.Cursor' for a given device when it gets inside /@window@/. Use 'GI.Gdk.Objects.Cursor.cursorNewForDisplay' or 'GI.Gdk.Objects.Cursor.cursorNewFromPixbuf' to create the cursor. To make the cursor invisible, use 'GI.Gdk.Enums.CursorTypeBlankCursor'. Passing 'Nothing' for the /@cursor@/ argument to 'GI.Gdk.Objects.Window.windowSetCursor' means that /@window@/ will use the cursor of its parent window. Most windows should use this default. /Since: 3.0/ -} windowSetDeviceCursor :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b, Gdk.Cursor.IsCursor c) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> b {- ^ /@device@/: a master, pointer 'GI.Gdk.Objects.Device.Device' -} -> c {- ^ /@cursor@/: a 'GI.Gdk.Objects.Cursor.Cursor' -} -> m () windowSetDeviceCursor window device cursor = liftIO $ do window' <- unsafeManagedPtrCastPtr window device' <- unsafeManagedPtrCastPtr device cursor' <- unsafeManagedPtrCastPtr cursor gdk_window_set_device_cursor window' device' cursor' touchManagedPtr window touchManagedPtr device touchManagedPtr cursor return () #if ENABLE_OVERLOADING data WindowSetDeviceCursorMethodInfo instance (signature ~ (b -> c -> m ()), MonadIO m, IsWindow a, Gdk.Device.IsDevice b, Gdk.Cursor.IsCursor c) => O.MethodInfo WindowSetDeviceCursorMethodInfo a signature where overloadedMethod _ = windowSetDeviceCursor #endif -- method Window::set_device_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface (Name {namespace = "Gdk", name = "Device"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#GdkDevice to enable events for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface (Name {namespace = "Gdk", name = "EventMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "event mask for @window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_device_events" gdk_window_set_device_events :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Device.Device -> -- device : TInterface (Name {namespace = "Gdk", name = "Device"}) CUInt -> -- event_mask : TInterface (Name {namespace = "Gdk", name = "EventMask"}) IO () {- | Sets the event mask for a given device (Normally a floating device, not attached to any visible pointer) to /@window@/. For example, an event mask including @/GDK_BUTTON_PRESS_MASK/@ means the window should report button press events. The event mask is the bitwise OR of values from the 'GI.Gdk.Flags.EventMask' enumeration. See the [input handling overview][event-masks] for details. /Since: 3.0/ -} windowSetDeviceEvents :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> b {- ^ /@device@/: 'GI.Gdk.Objects.Device.Device' to enable events for. -} -> [Gdk.Flags.EventMask] {- ^ /@eventMask@/: event mask for /@window@/ -} -> m () windowSetDeviceEvents window device eventMask = liftIO $ do window' <- unsafeManagedPtrCastPtr window device' <- unsafeManagedPtrCastPtr device let eventMask' = gflagsToWord eventMask gdk_window_set_device_events window' device' eventMask' touchManagedPtr window touchManagedPtr device return () #if ENABLE_OVERLOADING data WindowSetDeviceEventsMethodInfo instance (signature ~ (b -> [Gdk.Flags.EventMask] -> m ()), MonadIO m, IsWindow a, Gdk.Device.IsDevice b) => O.MethodInfo WindowSetDeviceEventsMethodInfo a signature where overloadedMethod _ = windowSetDeviceEvents #endif -- method Window::set_event_compression -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if motion events should be compressed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_event_compression" gdk_window_set_event_compression :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- event_compression : TBasicType TBoolean IO () {- | Determines whether or not extra unprocessed motion events in the event queue can be discarded. If 'True' only the most recent event will be delivered. Some types of applications, e.g. paint programs, need to see all motion events and will benefit from turning off event compression. By default, event compression is enabled. /Since: 3.12/ -} windowSetEventCompression :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@eventCompression@/: 'True' if motion events should be compressed -} -> m () windowSetEventCompression window eventCompression = liftIO $ do window' <- unsafeManagedPtrCastPtr window let eventCompression' = (fromIntegral . fromEnum) eventCompression gdk_window_set_event_compression window' eventCompression' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetEventCompressionMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetEventCompressionMethodInfo a signature where overloadedMethod _ = windowSetEventCompression #endif -- method Window::set_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface (Name {namespace = "Gdk", name = "EventMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "event mask for @window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_events" gdk_window_set_events :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- event_mask : TInterface (Name {namespace = "Gdk", name = "EventMask"}) IO () {- | The event mask for a window determines which events will be reported for that window from all master input devices. For example, an event mask including @/GDK_BUTTON_PRESS_MASK/@ means the window should report button press events. The event mask is the bitwise OR of values from the 'GI.Gdk.Flags.EventMask' enumeration. See the [input handling overview][event-masks] for details. -} windowSetEvents :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> [Gdk.Flags.EventMask] {- ^ /@eventMask@/: event mask for /@window@/ -} -> m () windowSetEvents window eventMask = liftIO $ do window' <- unsafeManagedPtrCastPtr window let eventMask' = gflagsToWord eventMask gdk_window_set_events window' eventMask' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetEventsMethodInfo instance (signature ~ ([Gdk.Flags.EventMask] -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetEventsMethodInfo a signature where overloadedMethod _ = windowSetEvents #endif -- method Window::set_focus_on_map -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the window should receive input focus when mapped", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_focus_on_map" gdk_window_set_focus_on_map :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- focus_on_map : TBasicType TBoolean IO () {- | Setting /@focusOnMap@/ to 'False' hints the desktop environment that the window doesn’t want to receive input focus when it is mapped. focus_on_map should be turned off for windows that aren’t triggered interactively (such as popups from network activity). On X, it is the responsibility of the window manager to interpret this hint. Window managers following the freedesktop.org window manager extension specification should respect it. /Since: 2.6/ -} windowSetFocusOnMap :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@focusOnMap@/: 'True' if the window should receive input focus when mapped -} -> m () windowSetFocusOnMap window focusOnMap = liftIO $ do window' <- unsafeManagedPtrCastPtr window let focusOnMap' = (fromIntegral . fromEnum) focusOnMap gdk_window_set_focus_on_map window' focusOnMap' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetFocusOnMapMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetFocusOnMapMethodInfo a signature where overloadedMethod _ = windowSetFocusOnMap #endif -- method Window::set_fullscreen_mode -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface (Name {namespace = "Gdk", name = "FullscreenMode"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "fullscreen mode", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_fullscreen_mode" gdk_window_set_fullscreen_mode :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- mode : TInterface (Name {namespace = "Gdk", name = "FullscreenMode"}) IO () {- | Specifies whether the /@window@/ should span over all monitors (in a multi-head setup) or only the current monitor when in fullscreen mode. The /@mode@/ argument is from the 'GI.Gdk.Enums.FullscreenMode' enumeration. If @/GDK_FULLSCREEN_ON_ALL_MONITORS/@ is specified, the fullscreen /@window@/ will span over all monitors from the 'GI.Gdk.Objects.Screen.Screen'. On X11, searches through the list of monitors from the 'GI.Gdk.Objects.Screen.Screen' the ones which delimit the 4 edges of the entire 'GI.Gdk.Objects.Screen.Screen' and will ask the window manager to span the /@window@/ over these monitors. If the XINERAMA extension is not available or not usable, this function has no effect. Not all window managers support this, so you can’t rely on the fullscreen window to span over the multiple monitors when @/GDK_FULLSCREEN_ON_ALL_MONITORS/@ is specified. /Since: 3.8/ -} windowSetFullscreenMode :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Enums.FullscreenMode {- ^ /@mode@/: fullscreen mode -} -> m () windowSetFullscreenMode window mode = liftIO $ do window' <- unsafeManagedPtrCastPtr window let mode' = (fromIntegral . fromEnum) mode gdk_window_set_fullscreen_mode window' mode' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetFullscreenModeMethodInfo instance (signature ~ (Gdk.Enums.FullscreenMode -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetFullscreenModeMethodInfo a signature where overloadedMethod _ = windowSetFullscreenMode #endif -- method Window::set_functions -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "functions", argType = TInterface (Name {namespace = "Gdk", name = "WMFunction"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "bitmask of operations to allow on @window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_functions" gdk_window_set_functions :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- functions : TInterface (Name {namespace = "Gdk", name = "WMFunction"}) IO () {- | Sets hints about the window management functions to make available via buttons on the window frame. On the X backend, this function sets the traditional Motif window manager hint for this purpose. However, few window managers do anything reliable or interesting with this hint. Many ignore it entirely. The /@functions@/ argument is the logical OR of values from the 'GI.Gdk.Flags.WMFunction' enumeration. If the bitmask includes @/GDK_FUNC_ALL/@, then the other bits indicate which functions to disable; if it doesn’t include @/GDK_FUNC_ALL/@, it indicates which functions to enable. -} windowSetFunctions :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> [Gdk.Flags.WMFunction] {- ^ /@functions@/: bitmask of operations to allow on /@window@/ -} -> m () windowSetFunctions window functions = liftIO $ do window' <- unsafeManagedPtrCastPtr window let functions' = gflagsToWord functions gdk_window_set_functions window' functions' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetFunctionsMethodInfo instance (signature ~ ([Gdk.Flags.WMFunction] -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetFunctionsMethodInfo a signature where overloadedMethod _ = windowSetFunctions #endif -- method Window::set_geometry_hints -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface (Name {namespace = "Gdk", name = "Geometry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "geometry hints", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geom_mask", argType = TInterface (Name {namespace = "Gdk", name = "WindowHints"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "bitmask indicating fields of @geometry to pay attention to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_geometry_hints" gdk_window_set_geometry_hints :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Geometry.Geometry -> -- geometry : TInterface (Name {namespace = "Gdk", name = "Geometry"}) CUInt -> -- geom_mask : TInterface (Name {namespace = "Gdk", name = "WindowHints"}) IO () {- | Sets the geometry hints for /@window@/. Hints flagged in /@geomMask@/ are set, hints not flagged in /@geomMask@/ are unset. To unset all hints, use a /@geomMask@/ of 0 and a /@geometry@/ of 'Nothing'. This function provides hints to the windowing system about acceptable sizes for a toplevel window. The purpose of this is to constrain user resizing, but the windowing system will typically (but is not required to) also constrain the current size of the window to the provided values and constrain programatic resizing via 'GI.Gdk.Objects.Window.windowResize' or 'GI.Gdk.Objects.Window.windowMoveResize'. Note that on X11, this effect has no effect on windows of type 'GI.Gdk.Enums.WindowTypeTemp' or windows where override redirect has been turned on via 'GI.Gdk.Objects.Window.windowSetOverrideRedirect' since these windows are not resizable by the user. Since you can’t count on the windowing system doing the constraints for programmatic resizes, you should generally call 'GI.Gdk.Objects.Window.windowConstrainSize' yourself to determine appropriate sizes. -} windowSetGeometryHints :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Geometry.Geometry {- ^ /@geometry@/: geometry hints -} -> [Gdk.Flags.WindowHints] {- ^ /@geomMask@/: bitmask indicating fields of /@geometry@/ to pay attention to -} -> m () windowSetGeometryHints window geometry geomMask = liftIO $ do window' <- unsafeManagedPtrCastPtr window geometry' <- unsafeManagedPtrGetPtr geometry let geomMask' = gflagsToWord geomMask gdk_window_set_geometry_hints window' geometry' geomMask' touchManagedPtr window touchManagedPtr geometry return () #if ENABLE_OVERLOADING data WindowSetGeometryHintsMethodInfo instance (signature ~ (Gdk.Geometry.Geometry -> [Gdk.Flags.WindowHints] -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetGeometryHintsMethodInfo a signature where overloadedMethod _ = windowSetGeometryHints #endif -- method Window::set_group -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "leader", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "group leader window, or %NULL to restore the default group leader window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_group" gdk_window_set_group :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Window -> -- leader : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Sets the group leader window for /@window@/. By default, GDK sets the group leader for all toplevel windows to a global window implicitly created by GDK. With this function you can override this default. The group leader window allows the window manager to distinguish all windows that belong to a single application. It may for example allow users to minimize\/unminimize all windows belonging to an application at once. You should only set a non-default group window if your application pretends to be multiple applications. -} windowSetGroup :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, IsWindow b) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Maybe (b) {- ^ /@leader@/: group leader window, or 'Nothing' to restore the default group leader window -} -> m () windowSetGroup window leader = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeLeader <- case leader of Nothing -> return nullPtr Just jLeader -> do jLeader' <- unsafeManagedPtrCastPtr jLeader return jLeader' gdk_window_set_group window' maybeLeader touchManagedPtr window whenJust leader touchManagedPtr return () #if ENABLE_OVERLOADING data WindowSetGroupMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, IsWindow b) => O.MethodInfo WindowSetGroupMethodInfo a signature where overloadedMethod _ = windowSetGroup #endif -- method Window::set_icon_list -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The #GdkWindow toplevel window to set the icon of.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbufs", argType = TGList (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "\n A list of pixbufs, of different sizes.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_icon_list" gdk_window_set_icon_list :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr (GList (Ptr GdkPixbuf.Pixbuf.Pixbuf)) -> -- pixbufs : TGList (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})) IO () {- | Sets a list of icons for the window. One of these will be used to represent the window when it has been iconified. The icon is usually shown in an icon box or some sort of task bar. Which icon size is shown depends on the window manager. The window manager can scale the icon but setting several size icons can give better image quality since the window manager may only need to scale the icon by a small amount or not at all. Note that some platforms don\'t support window icons. -} windowSetIconList :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, GdkPixbuf.Pixbuf.IsPixbuf b) => a {- ^ /@window@/: The 'GI.Gdk.Objects.Window.Window' toplevel window to set the icon of. -} -> [b] {- ^ /@pixbufs@/: A list of pixbufs, of different sizes. -} -> m () windowSetIconList window pixbufs = liftIO $ do window' <- unsafeManagedPtrCastPtr window pixbufs' <- mapM unsafeManagedPtrCastPtr pixbufs pixbufs'' <- packGList pixbufs' gdk_window_set_icon_list window' pixbufs'' touchManagedPtr window mapM_ touchManagedPtr pixbufs g_list_free pixbufs'' return () #if ENABLE_OVERLOADING data WindowSetIconListMethodInfo instance (signature ~ ([b] -> m ()), MonadIO m, IsWindow a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo WindowSetIconListMethodInfo a signature where overloadedMethod _ = windowSetIconList #endif -- method Window::set_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "name of window while iconified (minimized)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_icon_name" gdk_window_set_icon_name :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CString -> -- name : TBasicType TUTF8 IO () {- | Windows may have a name used while minimized, distinct from the name they display in their titlebar. Most of the time this is a bad idea from a user interface standpoint. But you can set such a name with this function, if you like. After calling this with a non-'Nothing' /@name@/, calls to 'GI.Gdk.Objects.Window.windowSetTitle' will not update the icon title. Using 'Nothing' for /@name@/ unsets the icon title; further calls to 'GI.Gdk.Objects.Window.windowSetTitle' will again update the icon title as well. Note that some platforms don\'t support window icons. -} windowSetIconName :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Maybe (T.Text) {- ^ /@name@/: name of window while iconified (minimized) -} -> m () windowSetIconName window name = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeName <- case name of Nothing -> return nullPtr Just jName -> do jName' <- textToCString jName return jName' gdk_window_set_icon_name window' maybeName touchManagedPtr window freeMem maybeName return () #if ENABLE_OVERLOADING data WindowSetIconNameMethodInfo instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetIconNameMethodInfo a signature where overloadedMethod _ = windowSetIconName #endif -- method Window::set_keep_above -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to keep @window above other windows", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_keep_above" gdk_window_set_keep_above :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- setting : TBasicType TBoolean IO () {- | Set if /@window@/ must be kept above other windows. If the window was already above, then this function does nothing. On X11, asks the window manager to keep /@window@/ above, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don’t have a concept of “keep above”; so you can’t rely on the window being kept above. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. /Since: 2.4/ -} windowSetKeepAbove :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@setting@/: whether to keep /@window@/ above other windows -} -> m () windowSetKeepAbove window setting = liftIO $ do window' <- unsafeManagedPtrCastPtr window let setting' = (fromIntegral . fromEnum) setting gdk_window_set_keep_above window' setting' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetKeepAboveMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetKeepAboveMethodInfo a signature where overloadedMethod _ = windowSetKeepAbove #endif -- method Window::set_keep_below -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether to keep @window below other windows", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_keep_below" gdk_window_set_keep_below :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- setting : TBasicType TBoolean IO () {- | Set if /@window@/ must be kept below other windows. If the window was already below, then this function does nothing. On X11, asks the window manager to keep /@window@/ below, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don’t have a concept of “keep below”; so you can’t rely on the window being kept below. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. /Since: 2.4/ -} windowSetKeepBelow :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@setting@/: whether to keep /@window@/ below other windows -} -> m () windowSetKeepBelow window setting = liftIO $ do window' <- unsafeManagedPtrCastPtr window let setting' = (fromIntegral . fromEnum) setting gdk_window_set_keep_below window' setting' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetKeepBelowMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetKeepBelowMethodInfo a signature where overloadedMethod _ = windowSetKeepBelow #endif -- method Window::set_modal_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the window is modal, %FALSE otherwise.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_modal_hint" gdk_window_set_modal_hint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- modal : TBasicType TBoolean IO () {- | The application can use this hint to tell the window manager that a certain window has modal behaviour. The window manager can use this information to handle modal windows in a special way. You should only use this on windows for which you have previously called 'GI.Gdk.Objects.Window.windowSetTransientFor' -} windowSetModalHint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: A toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@modal@/: 'True' if the window is modal, 'False' otherwise. -} -> m () windowSetModalHint window modal = liftIO $ do window' <- unsafeManagedPtrCastPtr window let modal' = (fromIntegral . fromEnum) modal gdk_window_set_modal_hint window' modal' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetModalHintMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetModalHintMethodInfo a signature where overloadedMethod _ = windowSetModalHint #endif -- method Window::set_opacity -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a top-level or non-native #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "opacity", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_opacity" gdk_window_set_opacity :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CDouble -> -- opacity : TBasicType TDouble IO () {- | Set /@window@/ to render as partially transparent, with opacity 0 being fully transparent and 1 fully opaque. (Values of the opacity parameter are clamped to the [0,1] range.) For toplevel windows this depends on support from the windowing system that may not always be there. For instance, On X11, this works only on X screens with a compositing manager running. On Wayland, there is no per-window opacity value that the compositor would apply. Instead, use @gdk_window_set_opaque_region (window, NULL)@ to tell the compositor that the entire window is (potentially) non-opaque, and draw your content with alpha, or use @/gtk_widget_set_opacity()/@ to set an overall opacity for your widgets. For child windows this function only works for non-native windows. For setting up per-pixel alpha topelevels, see 'GI.Gdk.Objects.Screen.screenGetRgbaVisual', and for non-toplevels, see 'GI.Gdk.Objects.Window.windowSetComposited'. Support for non-toplevel windows was added in 3.8. /Since: 2.12/ -} windowSetOpacity :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a top-level or non-native 'GI.Gdk.Objects.Window.Window' -} -> Double {- ^ /@opacity@/: opacity -} -> m () windowSetOpacity window opacity = liftIO $ do window' <- unsafeManagedPtrCastPtr window let opacity' = realToFrac opacity gdk_window_set_opacity window' opacity' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetOpacityMethodInfo instance (signature ~ (Double -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetOpacityMethodInfo a signature where overloadedMethod _ = windowSetOpacity #endif -- method Window::set_opaque_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a top-level or non-native #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a region, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_opaque_region" gdk_window_set_opaque_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- region : TInterface (Name {namespace = "cairo", name = "Region"}) IO () {- | For optimisation purposes, compositing window managers may like to not draw obscured regions of windows, or turn off blending during for these regions. With RGB windows with no transparency, this is just the shape of the window, but with ARGB32 windows, the compositor does not know what regions of the window are transparent or not. This function only works for toplevel windows. GTK+ will update this property automatically if the /@window@/ background is opaque, as we know where the opaque regions are. If your window background is not opaque, please update this property in your @/GtkWidget::style-updated/@ handler. /Since: 3.10/ -} windowSetOpaqueRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a top-level or non-native 'GI.Gdk.Objects.Window.Window' -} -> Maybe (Cairo.Region.Region) {- ^ /@region@/: a region, or 'Nothing' -} -> m () windowSetOpaqueRegion window region = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeRegion <- case region of Nothing -> return nullPtr Just jRegion -> do jRegion' <- unsafeManagedPtrGetPtr jRegion return jRegion' gdk_window_set_opaque_region window' maybeRegion touchManagedPtr window whenJust region touchManagedPtr return () #if ENABLE_OVERLOADING data WindowSetOpaqueRegionMethodInfo instance (signature ~ (Maybe (Cairo.Region.Region) -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetOpaqueRegionMethodInfo a signature where overloadedMethod _ = windowSetOpaqueRegion #endif -- method Window::set_override_redirect -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if window should be override redirect", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_override_redirect" gdk_window_set_override_redirect :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- override_redirect : TBasicType TBoolean IO () {- | An override redirect window is not under the control of the window manager. This means it won’t have a titlebar, won’t be minimizable, etc. - it will be entirely under the control of the application. The window manager can’t see the override redirect window at all. Override redirect should only be used for short-lived temporary windows, such as popup menus. @/GtkMenu/@ uses an override redirect window in its implementation, for example. -} windowSetOverrideRedirect :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@overrideRedirect@/: 'True' if window should be override redirect -} -> m () windowSetOverrideRedirect window overrideRedirect = liftIO $ do window' <- unsafeManagedPtrCastPtr window let overrideRedirect' = (fromIntegral . fromEnum) overrideRedirect gdk_window_set_override_redirect window' overrideRedirect' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetOverrideRedirectMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetOverrideRedirectMethodInfo a signature where overloadedMethod _ = windowSetOverrideRedirect #endif -- method Window::set_pass_through -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a boolean", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_pass_through" gdk_window_set_pass_through :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- pass_through : TBasicType TBoolean IO () {- | Sets whether input to the window is passed through to the window below. The default value of this is 'False', which means that pointer events that happen inside the window are send first to the window, but if the event is not selected by the event mask then the event is sent to the parent window, and so on up the hierarchy. If /@passThrough@/ is 'True' then such pointer events happen as if the window wasn\'t there at all, and thus will be sent first to any windows below /@window@/. This is useful if the window is used in a transparent fashion. In the terminology of the web this would be called \"pointer-events: none\". Note that a window with /@passThrough@/ 'True' can still have a subwindow without pass through, so you can get events on a subset of a window. And in that cases you would get the in-between related events such as the pointer enter\/leave events on its way to the destination window. /Since: 3.18/ -} windowSetPassThrough :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@passThrough@/: a boolean -} -> m () windowSetPassThrough window passThrough = liftIO $ do window' <- unsafeManagedPtrCastPtr window let passThrough' = (fromIntegral . fromEnum) passThrough gdk_window_set_pass_through window' passThrough' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetPassThroughMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetPassThroughMethodInfo a signature where overloadedMethod _ = windowSetPassThrough #endif -- method Window::set_role -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string indicating its role", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_role" gdk_window_set_role :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CString -> -- role : TBasicType TUTF8 IO () {- | When using GTK+, typically you should use @/gtk_window_set_role()/@ instead of this low-level function. The window manager and session manager use a window’s role to distinguish it from other kinds of window in the same application. When an application is restarted after being saved in a previous session, all windows with the same title and role are treated as interchangeable. So if you have two windows with the same title that should be distinguished for session management purposes, you should set the role on those windows. It doesn’t matter what string you use for the role, as long as you have a different role for each non-interchangeable kind of window. -} windowSetRole :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> T.Text {- ^ /@role@/: a string indicating its role -} -> m () windowSetRole window role = liftIO $ do window' <- unsafeManagedPtrCastPtr window role' <- textToCString role gdk_window_set_role window' role' touchManagedPtr window freeMem role' return () #if ENABLE_OVERLOADING data WindowSetRoleMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetRoleMethodInfo a signature where overloadedMethod _ = windowSetRole #endif -- method Window::set_shadow_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The left extent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The right extent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The top extent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "The bottom extent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_shadow_width" gdk_window_set_shadow_width :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Int32 -> -- left : TBasicType TInt Int32 -> -- right : TBasicType TInt Int32 -> -- top : TBasicType TInt Int32 -> -- bottom : TBasicType TInt IO () {- | Newer GTK+ windows using client-side decorations use extra geometry around their frames for effects like shadows and invisible borders. Window managers that want to maximize windows or snap to edges need to know where the extents of the actual frame lie, so that users don’t feel like windows are snapping against random invisible edges. Note that this property is automatically updated by GTK+, so this function should only be used by applications which do not use GTK+ to create toplevel windows. /Since: 3.12/ -} windowSetShadowWidth :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Int32 {- ^ /@left@/: The left extent -} -> Int32 {- ^ /@right@/: The right extent -} -> Int32 {- ^ /@top@/: The top extent -} -> Int32 {- ^ /@bottom@/: The bottom extent -} -> m () windowSetShadowWidth window left right top bottom = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_set_shadow_width window' left right top bottom touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetShadowWidthMethodInfo instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetShadowWidthMethodInfo a signature where overloadedMethod _ = windowSetShadowWidth #endif -- method Window::set_skip_pager_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to skip the pager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_skip_pager_hint" gdk_window_set_skip_pager_hint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- skips_pager : TBasicType TBoolean IO () {- | Toggles whether a window should appear in a pager (workspace switcher, or other desktop utility program that displays a small thumbnail representation of the windows on the desktop). If a window’s semantic type as specified with 'GI.Gdk.Objects.Window.windowSetTypeHint' already fully describes the window, this function should not be called in addition, instead you should allow the window to be treated according to standard policy for its semantic type. /Since: 2.2/ -} windowSetSkipPagerHint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@skipsPager@/: 'True' to skip the pager -} -> m () windowSetSkipPagerHint window skipsPager = liftIO $ do window' <- unsafeManagedPtrCastPtr window let skipsPager' = (fromIntegral . fromEnum) skipsPager gdk_window_set_skip_pager_hint window' skipsPager' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetSkipPagerHintMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetSkipPagerHintMethodInfo a signature where overloadedMethod _ = windowSetSkipPagerHint #endif -- method Window::set_skip_taskbar_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to skip the taskbar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_skip_taskbar_hint" gdk_window_set_skip_taskbar_hint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- skips_taskbar : TBasicType TBoolean IO () {- | Toggles whether a window should appear in a task list or window list. If a window’s semantic type as specified with 'GI.Gdk.Objects.Window.windowSetTypeHint' already fully describes the window, this function should not be called in addition, instead you should allow the window to be treated according to standard policy for its semantic type. /Since: 2.2/ -} windowSetSkipTaskbarHint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@skipsTaskbar@/: 'True' to skip the taskbar -} -> m () windowSetSkipTaskbarHint window skipsTaskbar = liftIO $ do window' <- unsafeManagedPtrCastPtr window let skipsTaskbar' = (fromIntegral . fromEnum) skipsTaskbar gdk_window_set_skip_taskbar_hint window' skipsTaskbar' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetSkipTaskbarHintMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetSkipTaskbarHintMethodInfo a signature where overloadedMethod _ = windowSetSkipTaskbarHint #endif -- method Window::set_source_events -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface (Name {namespace = "Gdk", name = "InputSource"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkInputSource to define the source class.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface (Name {namespace = "Gdk", name = "EventMask"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "event mask for @window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_source_events" gdk_window_set_source_events :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- source : TInterface (Name {namespace = "Gdk", name = "InputSource"}) CUInt -> -- event_mask : TInterface (Name {namespace = "Gdk", name = "EventMask"}) IO () {- | Sets the event mask for any floating device (i.e. not attached to any visible pointer) that has the source defined as /@source@/. This event mask will be applied both to currently existing, newly added devices after this call, and devices being attached\/detached. /Since: 3.0/ -} windowSetSourceEvents :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Enums.InputSource {- ^ /@source@/: a 'GI.Gdk.Enums.InputSource' to define the source class. -} -> [Gdk.Flags.EventMask] {- ^ /@eventMask@/: event mask for /@window@/ -} -> m () windowSetSourceEvents window source eventMask = liftIO $ do window' <- unsafeManagedPtrCastPtr window let source' = (fromIntegral . fromEnum) source let eventMask' = gflagsToWord eventMask gdk_window_set_source_events window' source' eventMask' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetSourceEventsMethodInfo instance (signature ~ (Gdk.Enums.InputSource -> [Gdk.Flags.EventMask] -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetSourceEventsMethodInfo a signature where overloadedMethod _ = windowSetSourceEvents #endif -- method Window::set_startup_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string with startup-notification identifier", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_startup_id" gdk_window_set_startup_id :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CString -> -- startup_id : TBasicType TUTF8 IO () {- | When using GTK+, typically you should use @/gtk_window_set_startup_id()/@ instead of this low-level function. /Since: 2.12/ -} windowSetStartupId :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> T.Text {- ^ /@startupId@/: a string with startup-notification identifier -} -> m () windowSetStartupId window startupId = liftIO $ do window' <- unsafeManagedPtrCastPtr window startupId' <- textToCString startupId gdk_window_set_startup_id window' startupId' touchManagedPtr window freeMem startupId' return () #if ENABLE_OVERLOADING data WindowSetStartupIdMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetStartupIdMethodInfo a signature where overloadedMethod _ = windowSetStartupId #endif -- method Window::set_static_gravities -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to turn on static gravity", 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_window_set_static_gravities" gdk_window_set_static_gravities :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- use_static : TBasicType TBoolean IO CInt {-# DEPRECATED windowSetStaticGravities ["(Since version 3.16)","static gravities haven\\'t worked on anything but X11"," for a long time."] #-} {- | Used to set the bit gravity of the given window to static, and flag it so all children get static subwindow gravity. This is used if you are implementing scary features that involve deep knowledge of the windowing system. Don’t worry about it. -} windowSetStaticGravities :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@useStatic@/: 'True' to turn on static gravity -} -> m Bool {- ^ __Returns:__ 'False' -} windowSetStaticGravities window useStatic = liftIO $ do window' <- unsafeManagedPtrCastPtr window let useStatic' = (fromIntegral . fromEnum) useStatic result <- gdk_window_set_static_gravities window' useStatic' let result' = (/= 0) result touchManagedPtr window return result' #if ENABLE_OVERLOADING data WindowSetStaticGravitiesMethodInfo instance (signature ~ (Bool -> m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowSetStaticGravitiesMethodInfo a signature where overloadedMethod _ = windowSetStaticGravities #endif -- method Window::set_support_multidevice -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to enable multidevice support in @window.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_support_multidevice" gdk_window_set_support_multidevice :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- support_multidevice : TBasicType TBoolean IO () {- | This function will enable multidevice features in /@window@/. Multidevice aware windows will need to handle properly multiple, per device enter\/leave events, device grabs and grab ownerships. /Since: 3.0/ -} windowSetSupportMultidevice :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window'. -} -> Bool {- ^ /@supportMultidevice@/: 'True' to enable multidevice support in /@window@/. -} -> m () windowSetSupportMultidevice window supportMultidevice = liftIO $ do window' <- unsafeManagedPtrCastPtr window let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice gdk_window_set_support_multidevice window' supportMultidevice' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetSupportMultideviceMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetSupportMultideviceMethodInfo a signature where overloadedMethod _ = windowSetSupportMultidevice #endif -- method Window::set_title -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "title of @window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_title" gdk_window_set_title :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CString -> -- title : TBasicType TUTF8 IO () {- | Sets the title of a toplevel window, to be displayed in the titlebar. If you haven’t explicitly set the icon name for the window (using 'GI.Gdk.Objects.Window.windowSetIconName'), the icon name will be set to /@title@/ as well. /@title@/ must be in UTF-8 encoding (as with all user-readable strings in GDK\/GTK+). /@title@/ may not be 'Nothing'. -} windowSetTitle :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> T.Text {- ^ /@title@/: title of /@window@/ -} -> m () windowSetTitle window title = liftIO $ do window' <- unsafeManagedPtrCastPtr window title' <- textToCString title gdk_window_set_title window' title' touchManagedPtr window freeMem title' return () #if ENABLE_OVERLOADING data WindowSetTitleMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetTitleMethodInfo a signature where overloadedMethod _ = windowSetTitle #endif -- method Window::set_transient_for -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "another toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_transient_for" gdk_window_set_transient_for :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Window -> -- parent : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Indicates to the window manager that /@window@/ is a transient dialog associated with the application window /@parent@/. This allows the window manager to do things like center /@window@/ on /@parent@/ and keep /@window@/ above /@parent@/. See @/gtk_window_set_transient_for()/@ if you’re using @/GtkWindow/@ or @/GtkDialog/@. -} windowSetTransientFor :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, IsWindow b) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> b {- ^ /@parent@/: another toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowSetTransientFor window parent = liftIO $ do window' <- unsafeManagedPtrCastPtr window parent' <- unsafeManagedPtrCastPtr parent gdk_window_set_transient_for window' parent' touchManagedPtr window touchManagedPtr parent return () #if ENABLE_OVERLOADING data WindowSetTransientForMethodInfo instance (signature ~ (b -> m ()), MonadIO m, IsWindow a, IsWindow b) => O.MethodInfo WindowSetTransientForMethodInfo a signature where overloadedMethod _ = windowSetTransientFor #endif -- method Window::set_type_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface (Name {namespace = "Gdk", name = "WindowTypeHint"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A hint of the function this window will have", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_type_hint" gdk_window_set_type_hint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CUInt -> -- hint : TInterface (Name {namespace = "Gdk", name = "WindowTypeHint"}) IO () {- | The application can use this call to provide a hint to the window manager about the functionality of a window. The window manager can use this information when determining the decoration and behaviour of the window. The hint must be set before the window is mapped. -} windowSetTypeHint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: A toplevel 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Enums.WindowTypeHint {- ^ /@hint@/: A hint of the function this window will have -} -> m () windowSetTypeHint window hint = liftIO $ do window' <- unsafeManagedPtrCastPtr window let hint' = (fromIntegral . fromEnum) hint gdk_window_set_type_hint window' hint' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetTypeHintMethodInfo instance (signature ~ (Gdk.Enums.WindowTypeHint -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetTypeHintMethodInfo a signature where overloadedMethod _ = windowSetTypeHint #endif -- method Window::set_urgency_hint -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if the window is urgent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_urgency_hint" gdk_window_set_urgency_hint :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) CInt -> -- urgent : TBasicType TBoolean IO () {- | Toggles whether a window needs the user\'s urgent attention. /Since: 2.8/ -} windowSetUrgencyHint :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> Bool {- ^ /@urgent@/: 'True' if the window is urgent -} -> m () windowSetUrgencyHint window urgent = liftIO $ do window' <- unsafeManagedPtrCastPtr window let urgent' = (fromIntegral . fromEnum) urgent gdk_window_set_urgency_hint window' urgent' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowSetUrgencyHintMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowSetUrgencyHintMethodInfo a signature where overloadedMethod _ = windowSetUrgencyHint #endif -- method Window::set_user_data -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TInterface (Name {namespace = "GObject", name = "Object"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_user_data" gdk_window_set_user_data :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr GObject.Object.Object -> -- user_data : TInterface (Name {namespace = "GObject", name = "Object"}) IO () {- | For most purposes this function is deprecated in favor of 'GI.GObject.Objects.Object.objectSetData'. However, for historical reasons GTK+ stores the @/GtkWidget/@ that owns a 'GI.Gdk.Objects.Window.Window' as user data on the 'GI.Gdk.Objects.Window.Window'. So, custom widget implementations should use this function for that. If GTK+ receives an event for a 'GI.Gdk.Objects.Window.Window', and the user data for the window is non-'Nothing', GTK+ will assume the user data is a @/GtkWidget/@, and forward the event to that widget. -} windowSetUserData :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a, GObject.Object.IsObject b) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Maybe (b) {- ^ /@userData@/: user data -} -> m () windowSetUserData window userData = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeUserData <- case userData of Nothing -> return nullPtr Just jUserData -> do jUserData' <- unsafeManagedPtrCastPtr jUserData return jUserData' gdk_window_set_user_data window' maybeUserData touchManagedPtr window whenJust userData touchManagedPtr return () #if ENABLE_OVERLOADING data WindowSetUserDataMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindow a, GObject.Object.IsObject b) => O.MethodInfo WindowSetUserDataMethodInfo a signature where overloadedMethod _ = windowSetUserData #endif -- method Window::shape_combine_region -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface (Name {namespace = "cairo", name = "Region"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "region of window to be non-transparent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "X position of @shape_region in @window coordinates", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "Y position of @shape_region in @window coordinates", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_shape_combine_region" gdk_window_shape_combine_region :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Cairo.Region.Region -> -- shape_region : TInterface (Name {namespace = "cairo", name = "Region"}) Int32 -> -- offset_x : TBasicType TInt Int32 -> -- offset_y : TBasicType TInt IO () {- | Makes pixels in /@window@/ outside /@shapeRegion@/ be transparent, so that the window may be nonrectangular. If /@shapeRegion@/ is 'Nothing', the shape will be unset, so the whole window will be opaque again. /@offsetX@/ and /@offsetY@/ are ignored if /@shapeRegion@/ is 'Nothing'. On the X11 platform, this uses an X server extension which is widely available on most common platforms, but not available on very old X servers, and occasionally the implementation will be buggy. On servers without the shape extension, this function will do nothing. This function works on both toplevel and child windows. -} windowShapeCombineRegion :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Maybe (Cairo.Region.Region) {- ^ /@shapeRegion@/: region of window to be non-transparent -} -> Int32 {- ^ /@offsetX@/: X position of /@shapeRegion@/ in /@window@/ coordinates -} -> Int32 {- ^ /@offsetY@/: Y position of /@shapeRegion@/ in /@window@/ coordinates -} -> m () windowShapeCombineRegion window shapeRegion offsetX offsetY = liftIO $ do window' <- unsafeManagedPtrCastPtr window maybeShapeRegion <- case shapeRegion of Nothing -> return nullPtr Just jShapeRegion -> do jShapeRegion' <- unsafeManagedPtrGetPtr jShapeRegion return jShapeRegion' gdk_window_shape_combine_region window' maybeShapeRegion offsetX offsetY touchManagedPtr window whenJust shapeRegion touchManagedPtr return () #if ENABLE_OVERLOADING data WindowShapeCombineRegionMethodInfo instance (signature ~ (Maybe (Cairo.Region.Region) -> Int32 -> Int32 -> m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowShapeCombineRegionMethodInfo a signature where overloadedMethod _ = windowShapeCombineRegion #endif -- method Window::show -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_show" gdk_window_show :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Like 'GI.Gdk.Objects.Window.windowShowUnraised', but also raises the window to the top of the window stack (moves the window to the front of the Z-order). This function maps a window so it’s visible onscreen. Its opposite is 'GI.Gdk.Objects.Window.windowHide'. When implementing a @/GtkWidget/@, you should call this function on the widget\'s 'GI.Gdk.Objects.Window.Window' as part of the “map” method. -} windowShow :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowShow window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_show window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowShowMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowShowMethodInfo a signature where overloadedMethod _ = windowShow #endif -- method Window::show_unraised -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_show_unraised" gdk_window_show_unraised :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Shows a 'GI.Gdk.Objects.Window.Window' onscreen, but does not modify its stacking order. In contrast, 'GI.Gdk.Objects.Window.windowShow' will raise the window to the top of the window stack. On the X11 platform, in Xlib terms, this function calls @/XMapWindow()/@ (it also updates some internal GDK state, which means that you can’t really use @/XMapWindow()/@ directly on a GDK window). -} windowShowUnraised :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowShowUnraised window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_show_unraised window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowShowUnraisedMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowShowUnraisedMethodInfo a signature where overloadedMethod _ = windowShowUnraised #endif -- method Window::show_window_menu -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gdk", name = "Event"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkEvent to show the menu for", 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_window_show_window_menu" gdk_window_show_window_menu :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) Ptr Gdk.Event.Event -> -- event : TInterface (Name {namespace = "Gdk", name = "Event"}) IO CInt {- | Asks the windowing system to show the window menu. The window menu is the menu shown when right-clicking the titlebar on traditional windows managed by the window manager. This is useful for windows using client-side decorations, activating it with a right-click on the window decorations. /Since: 3.14/ -} windowShowWindowMenu :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> Gdk.Event.Event {- ^ /@event@/: a 'GI.Gdk.Unions.Event.Event' to show the menu for -} -> m Bool {- ^ __Returns:__ 'True' if the window menu was shown and 'False' otherwise. -} windowShowWindowMenu window event = liftIO $ do window' <- unsafeManagedPtrCastPtr window event' <- unsafeManagedPtrGetPtr event result <- gdk_window_show_window_menu window' event' let result' = (/= 0) result touchManagedPtr window touchManagedPtr event return result' #if ENABLE_OVERLOADING data WindowShowWindowMenuMethodInfo instance (signature ~ (Gdk.Event.Event -> m Bool), MonadIO m, IsWindow a) => O.MethodInfo WindowShowWindowMenuMethodInfo a signature where overloadedMethod _ = windowShowWindowMenu #endif -- method Window::stick -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_stick" gdk_window_stick :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | “Pins” a window such that it’s on all workspaces and does not scroll with viewports, for window managers that have scrollable viewports. (When using @/GtkWindow/@, @/gtk_window_stick()/@ may be more useful.) On the X11 platform, this function depends on window manager support, so may have no effect with many window managers. However, GDK will do the best it can to convince the window manager to stick the window. For window managers that don’t support this operation, there’s nothing you can do to force it to happen. -} windowStick :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowStick window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_stick window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowStickMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowStickMethodInfo a signature where overloadedMethod _ = windowStick #endif -- method Window::thaw_toplevel_updates_libgtk_only -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_thaw_toplevel_updates_libgtk_only" gdk_window_thaw_toplevel_updates_libgtk_only :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {-# DEPRECATED windowThawToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"] #-} {- | Thaws a window frozen with 'GI.Gdk.Objects.Window.windowFreezeToplevelUpdatesLibgtkOnly'. This function is not part of the GDK public API and is only for use by GTK+. -} windowThawToplevelUpdatesLibgtkOnly :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowThawToplevelUpdatesLibgtkOnly window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_thaw_toplevel_updates_libgtk_only window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowThawToplevelUpdatesLibgtkOnlyMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowThawToplevelUpdatesLibgtkOnlyMethodInfo a signature where overloadedMethod _ = windowThawToplevelUpdatesLibgtkOnly #endif -- method Window::thaw_updates -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_thaw_updates" gdk_window_thaw_updates :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Thaws a window frozen with 'GI.Gdk.Objects.Window.windowFreezeUpdates'. -} windowThawUpdates :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a 'GI.Gdk.Objects.Window.Window' -} -> m () windowThawUpdates window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_thaw_updates window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowThawUpdatesMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowThawUpdatesMethodInfo a signature where overloadedMethod _ = windowThawUpdates #endif -- method Window::unfullscreen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_unfullscreen" gdk_window_unfullscreen :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Moves the window out of fullscreen mode. If the window was not fullscreen, does nothing. On X11, asks the window manager to move /@window@/ out of the fullscreen state, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don’t have a concept of “fullscreen”; so you can’t rely on the unfullscreenification actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. /Since: 2.2/ -} windowUnfullscreen :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowUnfullscreen window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_unfullscreen window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowUnfullscreenMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnfullscreenMethodInfo a signature where overloadedMethod _ = windowUnfullscreen #endif -- method Window::unmaximize -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_unmaximize" gdk_window_unmaximize :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Unmaximizes the window. If the window wasn’t maximized, then this function does nothing. On X11, asks the window manager to unmaximize /@window@/, if the window manager supports this operation. Not all window managers support this, and some deliberately ignore it or don’t have a concept of “maximized”; so you can’t rely on the unmaximization actually happening. But it will happen with most standard window managers, and GDK makes a best effort to get it to happen. On Windows, reliably unmaximizes the window. -} windowUnmaximize :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowUnmaximize window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_unmaximize window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowUnmaximizeMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnmaximizeMethodInfo a signature where overloadedMethod _ = windowUnmaximize #endif -- method Window::unstick -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_unstick" gdk_window_unstick :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Reverse operation for 'GI.Gdk.Objects.Window.windowStick'; see 'GI.Gdk.Objects.Window.windowStick', and @/gtk_window_unstick()/@. -} windowUnstick :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowUnstick window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_unstick window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowUnstickMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowUnstickMethodInfo a signature where overloadedMethod _ = windowUnstick #endif -- method Window::withdraw -- method type : OrdinaryMethod -- Args : [Arg {argCName = "window", argType = TInterface (Name {namespace = "Gdk", name = "Window"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a toplevel #GdkWindow", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_withdraw" gdk_window_withdraw :: Ptr Window -> -- window : TInterface (Name {namespace = "Gdk", name = "Window"}) IO () {- | Withdraws a window (unmaps it and asks the window manager to forget about it). This function is not really useful as 'GI.Gdk.Objects.Window.windowHide' automatically withdraws toplevel windows before hiding them. -} windowWithdraw :: (B.CallStack.HasCallStack, MonadIO m, IsWindow a) => a {- ^ /@window@/: a toplevel 'GI.Gdk.Objects.Window.Window' -} -> m () windowWithdraw window = liftIO $ do window' <- unsafeManagedPtrCastPtr window gdk_window_withdraw window' touchManagedPtr window return () #if ENABLE_OVERLOADING data WindowWithdrawMethodInfo instance (signature ~ (m ()), MonadIO m, IsWindow a) => O.MethodInfo WindowWithdrawMethodInfo a signature where overloadedMethod _ = windowWithdraw #endif -- method Window::at_pointer -- method type : MemberFunction -- Args : [Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for origin of the window under the pointer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for origin of the window under the pointer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Window"})) -- throws : False -- Skip return : False foreign import ccall "gdk_window_at_pointer" gdk_window_at_pointer :: Ptr Int32 -> -- win_x : TBasicType TInt Ptr Int32 -> -- win_y : TBasicType TInt IO (Ptr Window) {-# DEPRECATED windowAtPointer ["(Since version 3.0)","Use 'GI.Gdk.Objects.Device.deviceGetWindowAtPosition' instead."] #-} {- | Obtains the window underneath the mouse pointer, returning the location of that window in /@winX@/, /@winY@/. Returns 'Nothing' if the window under the mouse pointer is not known to GDK (if the window belongs to another application and a 'GI.Gdk.Objects.Window.Window' hasn’t been created for it with @/gdk_window_foreign_new()/@) NOTE: For multihead-aware widgets or applications use 'GI.Gdk.Objects.Display.displayGetWindowAtPointer' instead. -} windowAtPointer :: (B.CallStack.HasCallStack, MonadIO m) => m ((Window, Int32, Int32)) {- ^ __Returns:__ window under the mouse pointer -} windowAtPointer = liftIO $ do winX <- allocMem :: IO (Ptr Int32) winY <- allocMem :: IO (Ptr Int32) result <- gdk_window_at_pointer winX winY checkUnexpectedReturnNULL "windowAtPointer" result result' <- (newObject Window) result winX' <- peek winX winY' <- peek winY freeMem winX freeMem winY return (result', winX', winY') #if ENABLE_OVERLOADING #endif -- method Window::constrain_size -- method type : MemberFunction -- Args : [Arg {argCName = "geometry", argType = TInterface (Name {namespace = "Gdk", name = "Geometry"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkGeometry structure", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Gdk", name = "WindowHints"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a mask indicating what portions of @geometry are set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "desired width of window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "desired height of the window", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store resulting width", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "new_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "location to store resulting height", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_constrain_size" gdk_window_constrain_size :: Ptr Gdk.Geometry.Geometry -> -- geometry : TInterface (Name {namespace = "Gdk", name = "Geometry"}) CUInt -> -- flags : TInterface (Name {namespace = "Gdk", name = "WindowHints"}) Int32 -> -- width : TBasicType TInt Int32 -> -- height : TBasicType TInt Ptr Int32 -> -- new_width : TBasicType TInt Ptr Int32 -> -- new_height : TBasicType TInt IO () {- | Constrains a desired width and height according to a set of geometry hints (such as minimum and maximum size). -} windowConstrainSize :: (B.CallStack.HasCallStack, MonadIO m) => Gdk.Geometry.Geometry {- ^ /@geometry@/: a 'GI.Gdk.Structs.Geometry.Geometry' structure -} -> [Gdk.Flags.WindowHints] {- ^ /@flags@/: a mask indicating what portions of /@geometry@/ are set -} -> Int32 {- ^ /@width@/: desired width of window -} -> Int32 {- ^ /@height@/: desired height of the window -} -> m ((Int32, Int32)) windowConstrainSize geometry flags width height = liftIO $ do geometry' <- unsafeManagedPtrGetPtr geometry let flags' = gflagsToWord flags newWidth <- allocMem :: IO (Ptr Int32) newHeight <- allocMem :: IO (Ptr Int32) gdk_window_constrain_size geometry' flags' width height newWidth newHeight newWidth' <- peek newWidth newHeight' <- peek newHeight touchManagedPtr geometry freeMem newWidth freeMem newHeight return (newWidth', newHeight') #if ENABLE_OVERLOADING #endif -- method Window::process_all_updates -- method type : MemberFunction -- Args : [] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_process_all_updates" gdk_window_process_all_updates :: IO () {-# DEPRECATED windowProcessAllUpdates ["(Since version 3.22)"] #-} {- | Calls 'GI.Gdk.Objects.Window.windowProcessUpdates' for all windows (see 'GI.Gdk.Objects.Window.Window') in the application. -} windowProcessAllUpdates :: (B.CallStack.HasCallStack, MonadIO m) => m () windowProcessAllUpdates = liftIO $ do gdk_window_process_all_updates return () #if ENABLE_OVERLOADING #endif -- method Window::set_debug_updates -- method type : MemberFunction -- Args : [Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to turn on update debugging", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gdk_window_set_debug_updates" gdk_window_set_debug_updates :: CInt -> -- setting : TBasicType TBoolean IO () {-# DEPRECATED windowSetDebugUpdates ["(Since version 3.22)"] #-} {- | With update debugging enabled, calls to 'GI.Gdk.Objects.Window.windowInvalidateRegion' clear the invalidated region of the screen to a noticeable color, and GDK pauses for a short time before sending exposes to windows during 'GI.Gdk.Objects.Window.windowProcessUpdates'. The net effect is that you can see the invalid region for each window and watch redraws as they occur. This allows you to diagnose inefficiencies in your application. In essence, because the GDK rendering model prevents all flicker, if you are redrawing the same region 400 times you may never notice, aside from noticing a speed problem. Enabling update debugging causes GTK to flicker slowly and noticeably, so you can see exactly what’s being redrawn when, in what order. The --gtk-debug=updates command line option passed to GTK+ programs enables this debug option at application startup time. That\'s usually more useful than calling 'GI.Gdk.Objects.Window.windowSetDebugUpdates' yourself, though you might want to use this function to enable updates sometime after application startup time. -} windowSetDebugUpdates :: (B.CallStack.HasCallStack, MonadIO m) => Bool {- ^ /@setting@/: 'True' to turn on update debugging -} -> m () windowSetDebugUpdates setting = liftIO $ do let setting' = (fromIntegral . fromEnum) setting gdk_window_set_debug_updates setting' return () #if ENABLE_OVERLOADING #endif