gi-gdk-0.3.18.13: GI/Gdk/Objects/Window.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gdk.Objects.Window
(
-- * Exported types
Window(..) ,
WindowK ,
toWindow ,
noWindow ,
-- * Methods
-- ** windowAtPointer
windowAtPointer ,
-- ** windowBeep
WindowBeepMethodInfo ,
windowBeep ,
-- ** windowBeginMoveDrag
WindowBeginMoveDragMethodInfo ,
windowBeginMoveDrag ,
-- ** windowBeginMoveDragForDevice
WindowBeginMoveDragForDeviceMethodInfo ,
windowBeginMoveDragForDevice ,
-- ** windowBeginPaintRect
WindowBeginPaintRectMethodInfo ,
windowBeginPaintRect ,
-- ** windowBeginPaintRegion
WindowBeginPaintRegionMethodInfo ,
windowBeginPaintRegion ,
-- ** windowBeginResizeDrag
WindowBeginResizeDragMethodInfo ,
windowBeginResizeDrag ,
-- ** windowBeginResizeDragForDevice
WindowBeginResizeDragForDeviceMethodInfo,
windowBeginResizeDragForDevice ,
-- ** windowConfigureFinished
WindowConfigureFinishedMethodInfo ,
windowConfigureFinished ,
-- ** windowConstrainSize
windowConstrainSize ,
-- ** windowCoordsFromParent
WindowCoordsFromParentMethodInfo ,
windowCoordsFromParent ,
-- ** windowCoordsToParent
WindowCoordsToParentMethodInfo ,
windowCoordsToParent ,
-- ** windowCreateGlContext
WindowCreateGlContextMethodInfo ,
windowCreateGlContext ,
-- ** windowCreateSimilarImageSurface
WindowCreateSimilarImageSurfaceMethodInfo,
windowCreateSimilarImageSurface ,
-- ** windowCreateSimilarSurface
WindowCreateSimilarSurfaceMethodInfo ,
windowCreateSimilarSurface ,
-- ** windowDeiconify
WindowDeiconifyMethodInfo ,
windowDeiconify ,
-- ** windowDestroy
WindowDestroyMethodInfo ,
windowDestroy ,
-- ** windowDestroyNotify
WindowDestroyNotifyMethodInfo ,
windowDestroyNotify ,
-- ** windowEnableSynchronizedConfigure
WindowEnableSynchronizedConfigureMethodInfo,
windowEnableSynchronizedConfigure ,
-- ** windowEndPaint
WindowEndPaintMethodInfo ,
windowEndPaint ,
-- ** windowEnsureNative
WindowEnsureNativeMethodInfo ,
windowEnsureNative ,
-- ** windowFlush
WindowFlushMethodInfo ,
windowFlush ,
-- ** windowFocus
WindowFocusMethodInfo ,
windowFocus ,
-- ** windowFreezeToplevelUpdatesLibgtkOnly
WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo,
windowFreezeToplevelUpdatesLibgtkOnly ,
-- ** windowFreezeUpdates
WindowFreezeUpdatesMethodInfo ,
windowFreezeUpdates ,
-- ** windowFullscreen
WindowFullscreenMethodInfo ,
windowFullscreen ,
-- ** windowFullscreenOnMonitor
WindowFullscreenOnMonitorMethodInfo ,
windowFullscreenOnMonitor ,
-- ** windowGeometryChanged
WindowGeometryChangedMethodInfo ,
windowGeometryChanged ,
-- ** windowGetAcceptFocus
WindowGetAcceptFocusMethodInfo ,
windowGetAcceptFocus ,
-- ** windowGetBackgroundPattern
WindowGetBackgroundPatternMethodInfo ,
windowGetBackgroundPattern ,
-- ** windowGetChildren
WindowGetChildrenMethodInfo ,
windowGetChildren ,
-- ** windowGetChildrenWithUserData
WindowGetChildrenWithUserDataMethodInfo ,
windowGetChildrenWithUserData ,
-- ** windowGetClipRegion
WindowGetClipRegionMethodInfo ,
windowGetClipRegion ,
-- ** windowGetComposited
WindowGetCompositedMethodInfo ,
windowGetComposited ,
-- ** windowGetCursor
WindowGetCursorMethodInfo ,
windowGetCursor ,
-- ** windowGetDecorations
WindowGetDecorationsMethodInfo ,
windowGetDecorations ,
-- ** windowGetDeviceCursor
WindowGetDeviceCursorMethodInfo ,
windowGetDeviceCursor ,
-- ** windowGetDeviceEvents
WindowGetDeviceEventsMethodInfo ,
windowGetDeviceEvents ,
-- ** windowGetDevicePosition
WindowGetDevicePositionMethodInfo ,
windowGetDevicePosition ,
-- ** windowGetDevicePositionDouble
WindowGetDevicePositionDoubleMethodInfo ,
windowGetDevicePositionDouble ,
-- ** windowGetDisplay
WindowGetDisplayMethodInfo ,
windowGetDisplay ,
-- ** windowGetDragProtocol
WindowGetDragProtocolMethodInfo ,
windowGetDragProtocol ,
-- ** windowGetEffectiveParent
WindowGetEffectiveParentMethodInfo ,
windowGetEffectiveParent ,
-- ** windowGetEffectiveToplevel
WindowGetEffectiveToplevelMethodInfo ,
windowGetEffectiveToplevel ,
-- ** windowGetEventCompression
WindowGetEventCompressionMethodInfo ,
windowGetEventCompression ,
-- ** windowGetEvents
WindowGetEventsMethodInfo ,
windowGetEvents ,
-- ** windowGetFocusOnMap
WindowGetFocusOnMapMethodInfo ,
windowGetFocusOnMap ,
-- ** windowGetFrameClock
WindowGetFrameClockMethodInfo ,
windowGetFrameClock ,
-- ** windowGetFrameExtents
WindowGetFrameExtentsMethodInfo ,
windowGetFrameExtents ,
-- ** windowGetFullscreenMode
WindowGetFullscreenModeMethodInfo ,
windowGetFullscreenMode ,
-- ** windowGetGeometry
WindowGetGeometryMethodInfo ,
windowGetGeometry ,
-- ** windowGetGroup
WindowGetGroupMethodInfo ,
windowGetGroup ,
-- ** windowGetHeight
WindowGetHeightMethodInfo ,
windowGetHeight ,
-- ** windowGetModalHint
WindowGetModalHintMethodInfo ,
windowGetModalHint ,
-- ** windowGetOrigin
WindowGetOriginMethodInfo ,
windowGetOrigin ,
-- ** windowGetParent
WindowGetParentMethodInfo ,
windowGetParent ,
-- ** windowGetPassThrough
WindowGetPassThroughMethodInfo ,
windowGetPassThrough ,
-- ** windowGetPointer
WindowGetPointerMethodInfo ,
windowGetPointer ,
-- ** windowGetPosition
WindowGetPositionMethodInfo ,
windowGetPosition ,
-- ** windowGetRootCoords
WindowGetRootCoordsMethodInfo ,
windowGetRootCoords ,
-- ** windowGetRootOrigin
WindowGetRootOriginMethodInfo ,
windowGetRootOrigin ,
-- ** windowGetScaleFactor
WindowGetScaleFactorMethodInfo ,
windowGetScaleFactor ,
-- ** windowGetScreen
WindowGetScreenMethodInfo ,
windowGetScreen ,
-- ** windowGetSourceEvents
WindowGetSourceEventsMethodInfo ,
windowGetSourceEvents ,
-- ** windowGetState
WindowGetStateMethodInfo ,
windowGetState ,
-- ** windowGetSupportMultidevice
WindowGetSupportMultideviceMethodInfo ,
windowGetSupportMultidevice ,
-- ** windowGetToplevel
WindowGetToplevelMethodInfo ,
windowGetToplevel ,
-- ** windowGetTypeHint
WindowGetTypeHintMethodInfo ,
windowGetTypeHint ,
-- ** windowGetUpdateArea
WindowGetUpdateAreaMethodInfo ,
windowGetUpdateArea ,
-- ** windowGetUserData
WindowGetUserDataMethodInfo ,
windowGetUserData ,
-- ** windowGetVisibleRegion
WindowGetVisibleRegionMethodInfo ,
windowGetVisibleRegion ,
-- ** windowGetVisual
WindowGetVisualMethodInfo ,
windowGetVisual ,
-- ** windowGetWidth
WindowGetWidthMethodInfo ,
windowGetWidth ,
-- ** windowGetWindowType
WindowGetWindowTypeMethodInfo ,
windowGetWindowType ,
-- ** windowHasNative
WindowHasNativeMethodInfo ,
windowHasNative ,
-- ** windowHide
WindowHideMethodInfo ,
windowHide ,
-- ** windowIconify
WindowIconifyMethodInfo ,
windowIconify ,
-- ** windowInputShapeCombineRegion
WindowInputShapeCombineRegionMethodInfo ,
windowInputShapeCombineRegion ,
-- ** windowInvalidateMaybeRecurse
WindowInvalidateMaybeRecurseMethodInfo ,
windowInvalidateMaybeRecurse ,
-- ** windowInvalidateRect
WindowInvalidateRectMethodInfo ,
windowInvalidateRect ,
-- ** windowInvalidateRegion
WindowInvalidateRegionMethodInfo ,
windowInvalidateRegion ,
-- ** windowIsDestroyed
WindowIsDestroyedMethodInfo ,
windowIsDestroyed ,
-- ** windowIsInputOnly
WindowIsInputOnlyMethodInfo ,
windowIsInputOnly ,
-- ** windowIsShaped
WindowIsShapedMethodInfo ,
windowIsShaped ,
-- ** windowIsViewable
WindowIsViewableMethodInfo ,
windowIsViewable ,
-- ** windowIsVisible
WindowIsVisibleMethodInfo ,
windowIsVisible ,
-- ** windowLower
WindowLowerMethodInfo ,
windowLower ,
-- ** windowMarkPaintFromClip
WindowMarkPaintFromClipMethodInfo ,
windowMarkPaintFromClip ,
-- ** windowMaximize
WindowMaximizeMethodInfo ,
windowMaximize ,
-- ** windowMergeChildInputShapes
WindowMergeChildInputShapesMethodInfo ,
windowMergeChildInputShapes ,
-- ** windowMergeChildShapes
WindowMergeChildShapesMethodInfo ,
windowMergeChildShapes ,
-- ** windowMove
WindowMoveMethodInfo ,
windowMove ,
-- ** windowMoveRegion
WindowMoveRegionMethodInfo ,
windowMoveRegion ,
-- ** windowMoveResize
WindowMoveResizeMethodInfo ,
windowMoveResize ,
-- ** windowNew
windowNew ,
-- ** windowPeekChildren
WindowPeekChildrenMethodInfo ,
windowPeekChildren ,
-- ** windowProcessAllUpdates
windowProcessAllUpdates ,
-- ** windowProcessUpdates
WindowProcessUpdatesMethodInfo ,
windowProcessUpdates ,
-- ** windowRaise
WindowRaiseMethodInfo ,
windowRaise ,
-- ** windowRegisterDnd
WindowRegisterDndMethodInfo ,
windowRegisterDnd ,
-- ** windowReparent
WindowReparentMethodInfo ,
windowReparent ,
-- ** windowResize
WindowResizeMethodInfo ,
windowResize ,
-- ** windowRestack
WindowRestackMethodInfo ,
windowRestack ,
-- ** windowScroll
WindowScrollMethodInfo ,
windowScroll ,
-- ** windowSetAcceptFocus
WindowSetAcceptFocusMethodInfo ,
windowSetAcceptFocus ,
-- ** windowSetBackground
WindowSetBackgroundMethodInfo ,
windowSetBackground ,
-- ** windowSetBackgroundPattern
WindowSetBackgroundPatternMethodInfo ,
windowSetBackgroundPattern ,
-- ** windowSetBackgroundRgba
WindowSetBackgroundRgbaMethodInfo ,
windowSetBackgroundRgba ,
-- ** windowSetChildInputShapes
WindowSetChildInputShapesMethodInfo ,
windowSetChildInputShapes ,
-- ** windowSetChildShapes
WindowSetChildShapesMethodInfo ,
windowSetChildShapes ,
-- ** windowSetComposited
WindowSetCompositedMethodInfo ,
windowSetComposited ,
-- ** windowSetCursor
WindowSetCursorMethodInfo ,
windowSetCursor ,
-- ** windowSetDebugUpdates
windowSetDebugUpdates ,
-- ** windowSetDecorations
WindowSetDecorationsMethodInfo ,
windowSetDecorations ,
-- ** windowSetDeviceCursor
WindowSetDeviceCursorMethodInfo ,
windowSetDeviceCursor ,
-- ** windowSetDeviceEvents
WindowSetDeviceEventsMethodInfo ,
windowSetDeviceEvents ,
-- ** windowSetEventCompression
WindowSetEventCompressionMethodInfo ,
windowSetEventCompression ,
-- ** windowSetEvents
WindowSetEventsMethodInfo ,
windowSetEvents ,
-- ** windowSetFocusOnMap
WindowSetFocusOnMapMethodInfo ,
windowSetFocusOnMap ,
-- ** windowSetFullscreenMode
WindowSetFullscreenModeMethodInfo ,
windowSetFullscreenMode ,
-- ** windowSetFunctions
WindowSetFunctionsMethodInfo ,
windowSetFunctions ,
-- ** windowSetGeometryHints
WindowSetGeometryHintsMethodInfo ,
windowSetGeometryHints ,
-- ** windowSetGroup
WindowSetGroupMethodInfo ,
windowSetGroup ,
-- ** windowSetIconList
WindowSetIconListMethodInfo ,
windowSetIconList ,
-- ** windowSetIconName
WindowSetIconNameMethodInfo ,
windowSetIconName ,
-- ** windowSetKeepAbove
WindowSetKeepAboveMethodInfo ,
windowSetKeepAbove ,
-- ** windowSetKeepBelow
WindowSetKeepBelowMethodInfo ,
windowSetKeepBelow ,
-- ** windowSetModalHint
WindowSetModalHintMethodInfo ,
windowSetModalHint ,
-- ** windowSetOpacity
WindowSetOpacityMethodInfo ,
windowSetOpacity ,
-- ** windowSetOpaqueRegion
WindowSetOpaqueRegionMethodInfo ,
windowSetOpaqueRegion ,
-- ** windowSetOverrideRedirect
WindowSetOverrideRedirectMethodInfo ,
windowSetOverrideRedirect ,
-- ** windowSetPassThrough
WindowSetPassThroughMethodInfo ,
windowSetPassThrough ,
-- ** windowSetRole
WindowSetRoleMethodInfo ,
windowSetRole ,
-- ** windowSetShadowWidth
WindowSetShadowWidthMethodInfo ,
windowSetShadowWidth ,
-- ** windowSetSkipPagerHint
WindowSetSkipPagerHintMethodInfo ,
windowSetSkipPagerHint ,
-- ** windowSetSkipTaskbarHint
WindowSetSkipTaskbarHintMethodInfo ,
windowSetSkipTaskbarHint ,
-- ** windowSetSourceEvents
WindowSetSourceEventsMethodInfo ,
windowSetSourceEvents ,
-- ** windowSetStartupId
WindowSetStartupIdMethodInfo ,
windowSetStartupId ,
-- ** windowSetStaticGravities
WindowSetStaticGravitiesMethodInfo ,
windowSetStaticGravities ,
-- ** windowSetSupportMultidevice
WindowSetSupportMultideviceMethodInfo ,
windowSetSupportMultidevice ,
-- ** windowSetTitle
WindowSetTitleMethodInfo ,
windowSetTitle ,
-- ** windowSetTransientFor
WindowSetTransientForMethodInfo ,
windowSetTransientFor ,
-- ** windowSetTypeHint
WindowSetTypeHintMethodInfo ,
windowSetTypeHint ,
-- ** windowSetUrgencyHint
WindowSetUrgencyHintMethodInfo ,
windowSetUrgencyHint ,
-- ** windowSetUserData
WindowSetUserDataMethodInfo ,
windowSetUserData ,
-- ** windowShapeCombineRegion
WindowShapeCombineRegionMethodInfo ,
windowShapeCombineRegion ,
-- ** windowShow
WindowShowMethodInfo ,
windowShow ,
-- ** windowShowUnraised
WindowShowUnraisedMethodInfo ,
windowShowUnraised ,
-- ** windowShowWindowMenu
WindowShowWindowMenuMethodInfo ,
windowShowWindowMenu ,
-- ** windowStick
WindowStickMethodInfo ,
windowStick ,
-- ** windowThawToplevelUpdatesLibgtkOnly
WindowThawToplevelUpdatesLibgtkOnlyMethodInfo,
windowThawToplevelUpdatesLibgtkOnly ,
-- ** windowThawUpdates
WindowThawUpdatesMethodInfo ,
windowThawUpdates ,
-- ** windowUnfullscreen
WindowUnfullscreenMethodInfo ,
windowUnfullscreen ,
-- ** windowUnmaximize
WindowUnmaximizeMethodInfo ,
windowUnmaximize ,
-- ** windowUnstick
WindowUnstickMethodInfo ,
windowUnstick ,
-- ** windowWithdraw
WindowWithdrawMethodInfo ,
windowWithdraw ,
-- * Properties
-- ** Cursor
WindowCursorPropertyInfo ,
constructWindowCursor ,
getWindowCursor ,
setWindowCursor ,
-- * Signals
-- ** CreateSurface
WindowCreateSurfaceCallback ,
WindowCreateSurfaceCallbackC ,
WindowCreateSurfaceSignalInfo ,
afterWindowCreateSurface ,
mkWindowCreateSurfaceCallback ,
noWindowCreateSurfaceCallback ,
onWindowCreateSurface ,
windowCreateSurfaceCallbackWrapper ,
windowCreateSurfaceClosure ,
-- ** FromEmbedder
WindowFromEmbedderCallback ,
WindowFromEmbedderCallbackC ,
WindowFromEmbedderSignalInfo ,
afterWindowFromEmbedder ,
mkWindowFromEmbedderCallback ,
noWindowFromEmbedderCallback ,
onWindowFromEmbedder ,
windowFromEmbedderCallbackWrapper ,
windowFromEmbedderClosure ,
-- ** PickEmbeddedChild
WindowPickEmbeddedChildCallback ,
WindowPickEmbeddedChildCallbackC ,
WindowPickEmbeddedChildSignalInfo ,
afterWindowPickEmbeddedChild ,
mkWindowPickEmbeddedChildCallback ,
noWindowPickEmbeddedChildCallback ,
onWindowPickEmbeddedChild ,
windowPickEmbeddedChildCallbackWrapper ,
windowPickEmbeddedChildClosure ,
-- ** ToEmbedder
WindowToEmbedderCallback ,
WindowToEmbedderCallbackC ,
WindowToEmbedderSignalInfo ,
afterWindowToEmbedder ,
mkWindowToEmbedderCallback ,
noWindowToEmbedderCallback ,
onWindowToEmbedder ,
windowToEmbedderCallbackWrapper ,
windowToEmbedderClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gdk.Types
import GI.Gdk.Callbacks
import qualified GI.GObject as GObject
import qualified GI.GdkPixbuf as GdkPixbuf
import qualified GI.Cairo as Cairo
newtype Window = Window (ForeignPtr Window)
foreign import ccall "gdk_window_get_type"
c_gdk_window_get_type :: IO GType
type instance ParentTypes Window = WindowParentTypes
type WindowParentTypes = '[GObject.Object]
instance GObject Window where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gdk_window_get_type
class GObject o => WindowK o
instance (GObject o, IsDescendantOf Window o) => WindowK o
toWindow :: WindowK o => o -> IO Window
toWindow = unsafeCastTo Window
noWindow :: Maybe Window
noWindow = Nothing
type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where
ResolveWindowMethod "beep" o = WindowBeepMethodInfo
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.ObjectBindPropertyMethodInfo
ResolveWindowMethod "bindPropertyFull" o = GObject.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 "endPaint" o = WindowEndPaintMethodInfo
ResolveWindowMethod "ensureNative" o = WindowEnsureNativeMethodInfo
ResolveWindowMethod "flush" o = WindowFlushMethodInfo
ResolveWindowMethod "focus" o = WindowFocusMethodInfo
ResolveWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveWindowMethod "freezeToplevelUpdatesLibgtkOnly" o = WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo
ResolveWindowMethod "freezeUpdates" o = WindowFreezeUpdatesMethodInfo
ResolveWindowMethod "fullscreen" o = WindowFullscreenMethodInfo
ResolveWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo
ResolveWindowMethod "geometryChanged" o = WindowGeometryChangedMethodInfo
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.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 "notify" o = GObject.ObjectNotifyMethodInfo
ResolveWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveWindowMethod "peekChildren" o = WindowPeekChildrenMethodInfo
ResolveWindowMethod "processUpdates" o = WindowProcessUpdatesMethodInfo
ResolveWindowMethod "raise" o = WindowRaiseMethodInfo
ResolveWindowMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveWindowMethod "registerDnd" o = WindowRegisterDndMethodInfo
ResolveWindowMethod "reparent" o = WindowReparentMethodInfo
ResolveWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveWindowMethod "resize" o = WindowResizeMethodInfo
ResolveWindowMethod "restack" o = WindowRestackMethodInfo
ResolveWindowMethod "runDispose" o = GObject.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.ObjectStealDataMethodInfo
ResolveWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveWindowMethod "stick" o = WindowStickMethodInfo
ResolveWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveWindowMethod "thawToplevelUpdatesLibgtkOnly" o = WindowThawToplevelUpdatesLibgtkOnlyMethodInfo
ResolveWindowMethod "thawUpdates" o = WindowThawUpdatesMethodInfo
ResolveWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo
ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo
ResolveWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo
ResolveWindowMethod "watchClosure" o = GObject.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.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.ObjectGetPropertyMethodInfo
ResolveWindowMethod "getQdata" o = GObject.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.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.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 = MethodResolutionFailed l o
instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabelProxy t (Window -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabel t (Window -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
-- signal Window::create-surface
type WindowCreateSurfaceCallback =
Int32 ->
Int32 ->
IO Cairo.Surface
noWindowCreateSurfaceCallback :: Maybe WindowCreateSurfaceCallback
noWindowCreateSurfaceCallback = Nothing
type WindowCreateSurfaceCallbackC =
Ptr () -> -- object
Int32 ->
Int32 ->
Ptr () -> -- user_data
IO (Ptr Cairo.Surface)
foreign import ccall "wrapper"
mkWindowCreateSurfaceCallback :: WindowCreateSurfaceCallbackC -> IO (FunPtr WindowCreateSurfaceCallbackC)
windowCreateSurfaceClosure :: WindowCreateSurfaceCallback -> IO Closure
windowCreateSurfaceClosure cb = newCClosure =<< mkWindowCreateSurfaceCallback wrapped
where wrapped = windowCreateSurfaceCallbackWrapper cb
windowCreateSurfaceCallbackWrapper ::
WindowCreateSurfaceCallback ->
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO (Ptr Cairo.Surface)
windowCreateSurfaceCallbackWrapper _cb _ width height _ = do
result <- _cb width height
result' <- copyBoxed result
return result'
onWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId
onWindowCreateSurface obj cb = liftIO $ connectWindowCreateSurface obj cb SignalConnectBefore
afterWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId
afterWindowCreateSurface obj cb = connectWindowCreateSurface obj cb SignalConnectAfter
connectWindowCreateSurface :: (GObject a, MonadIO m) =>
a -> WindowCreateSurfaceCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowCreateSurface obj cb after = liftIO $ do
cb' <- mkWindowCreateSurfaceCallback (windowCreateSurfaceCallbackWrapper cb)
connectSignalFunPtr obj "create-surface" cb' after
-- signal Window::from-embedder
type WindowFromEmbedderCallback =
Double ->
Double ->
IO (Double,Double)
noWindowFromEmbedderCallback :: Maybe WindowFromEmbedderCallback
noWindowFromEmbedderCallback = Nothing
type WindowFromEmbedderCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr CDouble ->
Ptr CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWindowFromEmbedderCallback :: WindowFromEmbedderCallbackC -> IO (FunPtr WindowFromEmbedderCallbackC)
windowFromEmbedderClosure :: WindowFromEmbedderCallback -> IO Closure
windowFromEmbedderClosure cb = newCClosure =<< mkWindowFromEmbedderCallback wrapped
where wrapped = windowFromEmbedderCallbackWrapper cb
windowFromEmbedderCallbackWrapper ::
WindowFromEmbedderCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr CDouble ->
Ptr CDouble ->
Ptr () ->
IO ()
windowFromEmbedderCallbackWrapper _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'
onWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId
onWindowFromEmbedder obj cb = liftIO $ connectWindowFromEmbedder obj cb SignalConnectBefore
afterWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId
afterWindowFromEmbedder obj cb = connectWindowFromEmbedder obj cb SignalConnectAfter
connectWindowFromEmbedder :: (GObject a, MonadIO m) =>
a -> WindowFromEmbedderCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowFromEmbedder obj cb after = liftIO $ do
cb' <- mkWindowFromEmbedderCallback (windowFromEmbedderCallbackWrapper cb)
connectSignalFunPtr obj "from-embedder" cb' after
-- signal Window::pick-embedded-child
type WindowPickEmbeddedChildCallback =
Double ->
Double ->
IO Window
noWindowPickEmbeddedChildCallback :: Maybe WindowPickEmbeddedChildCallback
noWindowPickEmbeddedChildCallback = Nothing
type WindowPickEmbeddedChildCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr () -> -- user_data
IO (Ptr Window)
foreign import ccall "wrapper"
mkWindowPickEmbeddedChildCallback :: WindowPickEmbeddedChildCallbackC -> IO (FunPtr WindowPickEmbeddedChildCallbackC)
windowPickEmbeddedChildClosure :: WindowPickEmbeddedChildCallback -> IO Closure
windowPickEmbeddedChildClosure cb = newCClosure =<< mkWindowPickEmbeddedChildCallback wrapped
where wrapped = windowPickEmbeddedChildCallbackWrapper cb
windowPickEmbeddedChildCallbackWrapper ::
WindowPickEmbeddedChildCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr () ->
IO (Ptr Window)
windowPickEmbeddedChildCallbackWrapper _cb _ x y _ = do
let x' = realToFrac x
let y' = realToFrac y
result <- _cb x' y'
let result' = unsafeManagedPtrCastPtr result
return result'
onWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId
onWindowPickEmbeddedChild obj cb = liftIO $ connectWindowPickEmbeddedChild obj cb SignalConnectBefore
afterWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId
afterWindowPickEmbeddedChild obj cb = connectWindowPickEmbeddedChild obj cb SignalConnectAfter
connectWindowPickEmbeddedChild :: (GObject a, MonadIO m) =>
a -> WindowPickEmbeddedChildCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowPickEmbeddedChild obj cb after = liftIO $ do
cb' <- mkWindowPickEmbeddedChildCallback (windowPickEmbeddedChildCallbackWrapper cb)
connectSignalFunPtr obj "pick-embedded-child" cb' after
-- signal Window::to-embedder
type WindowToEmbedderCallback =
Double ->
Double ->
IO (Double,Double)
noWindowToEmbedderCallback :: Maybe WindowToEmbedderCallback
noWindowToEmbedderCallback = Nothing
type WindowToEmbedderCallbackC =
Ptr () -> -- object
CDouble ->
CDouble ->
Ptr CDouble ->
Ptr CDouble ->
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkWindowToEmbedderCallback :: WindowToEmbedderCallbackC -> IO (FunPtr WindowToEmbedderCallbackC)
windowToEmbedderClosure :: WindowToEmbedderCallback -> IO Closure
windowToEmbedderClosure cb = newCClosure =<< mkWindowToEmbedderCallback wrapped
where wrapped = windowToEmbedderCallbackWrapper cb
windowToEmbedderCallbackWrapper ::
WindowToEmbedderCallback ->
Ptr () ->
CDouble ->
CDouble ->
Ptr CDouble ->
Ptr CDouble ->
Ptr () ->
IO ()
windowToEmbedderCallbackWrapper _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'
onWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId
onWindowToEmbedder obj cb = liftIO $ connectWindowToEmbedder obj cb SignalConnectBefore
afterWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId
afterWindowToEmbedder obj cb = connectWindowToEmbedder obj cb SignalConnectAfter
connectWindowToEmbedder :: (GObject a, MonadIO m) =>
a -> WindowToEmbedderCallback -> SignalConnectMode -> m SignalHandlerId
connectWindowToEmbedder obj cb after = liftIO $ do
cb' <- mkWindowToEmbedderCallback (windowToEmbedderCallbackWrapper cb)
connectSignalFunPtr obj "to-embedder" cb' after
-- VVV Prop "cursor"
-- Type: TInterface "Gdk" "Cursor"
-- Flags: [PropertyReadable,PropertyWritable]
getWindowCursor :: (MonadIO m, WindowK o) => o -> m Cursor
getWindowCursor obj = liftIO $ getObjectPropertyObject obj "cursor" Cursor
setWindowCursor :: (MonadIO m, WindowK o, CursorK a) => o -> a -> m ()
setWindowCursor obj val = liftIO $ setObjectPropertyObject obj "cursor" val
constructWindowCursor :: (CursorK a) => a -> IO ([Char], GValue)
constructWindowCursor val = constructObjectPropertyObject "cursor" val
data WindowCursorPropertyInfo
instance AttrInfo WindowCursorPropertyInfo where
type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WindowCursorPropertyInfo = CursorK
type AttrBaseTypeConstraint WindowCursorPropertyInfo = WindowK
type AttrGetType WindowCursorPropertyInfo = Cursor
type AttrLabel WindowCursorPropertyInfo = "cursor"
attrGet _ = getWindowCursor
attrSet _ = setWindowCursor
attrConstruct _ = constructWindowCursor
type instance AttributeList Window = WindowAttributeList
type WindowAttributeList = ('[ '("cursor", WindowCursorPropertyInfo)] :: [(Symbol, *)])
data WindowCreateSurfaceSignalInfo
instance SignalInfo WindowCreateSurfaceSignalInfo where
type HaskellCallbackType WindowCreateSurfaceSignalInfo = WindowCreateSurfaceCallback
connectSignal _ = connectWindowCreateSurface
data WindowFromEmbedderSignalInfo
instance SignalInfo WindowFromEmbedderSignalInfo where
type HaskellCallbackType WindowFromEmbedderSignalInfo = WindowFromEmbedderCallback
connectSignal _ = connectWindowFromEmbedder
data WindowPickEmbeddedChildSignalInfo
instance SignalInfo WindowPickEmbeddedChildSignalInfo where
type HaskellCallbackType WindowPickEmbeddedChildSignalInfo = WindowPickEmbeddedChildCallback
connectSignal _ = connectWindowPickEmbeddedChild
data WindowToEmbedderSignalInfo
instance SignalInfo WindowToEmbedderSignalInfo where
type HaskellCallbackType WindowToEmbedderSignalInfo = WindowToEmbedderCallback
connectSignal _ = connectWindowToEmbedder
type instance SignalList Window = WindowSignalList
type WindowSignalList = ('[ '("createSurface", WindowCreateSurfaceSignalInfo), '("fromEmbedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pickEmbeddedChild", WindowPickEmbeddedChildSignalInfo), '("toEmbedder", WindowToEmbedderSignalInfo)] :: [(Symbol, *)])
-- method Window::new
-- method type : Constructor
-- Args : [Arg {argCName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_new" gdk_window_new ::
Ptr Window -> -- parent : TInterface "Gdk" "Window"
Ptr WindowAttr -> -- attributes : TInterface "Gdk" "WindowAttr"
CUInt -> -- attributes_mask : TInterface "Gdk" "WindowAttributesType"
IO (Ptr Window)
windowNew ::
(MonadIO m, WindowK a) =>
Maybe (a) -- parent
-> WindowAttr -- attributes
-> [WindowAttributesType] -- attributesMask
-> m Window -- result
windowNew parent attributes attributesMask = liftIO $ do
maybeParent <- case parent of
Nothing -> return nullPtr
Just jParent -> do
let jParent' = unsafeManagedPtrCastPtr jParent
return jParent'
let attributes' = unsafeManagedPtrGetPtr attributes
let attributesMask' = gflagsToWord attributesMask
result <- gdk_window_new maybeParent attributes' attributesMask'
checkUnexpectedReturnNULL "gdk_window_new" result
result' <- (wrapObject Window) result
whenJust parent touchManagedPtr
touchManagedPtr attributes
return result'
-- method Window::beep
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_beep" gdk_window_beep ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowBeep ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowBeep _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_beep _obj'
touchManagedPtr _obj
return ()
data WindowBeepMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowBeepMethodInfo a signature where
overloadedMethod _ = windowBeep
-- method Window::begin_move_drag
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_begin_move_drag" gdk_window_begin_move_drag ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- button : TBasicType TInt32
Int32 -> -- root_x : TBasicType TInt32
Int32 -> -- root_y : TBasicType TInt32
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowBeginMoveDrag ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- button
-> Int32 -- rootX
-> Int32 -- rootY
-> Word32 -- timestamp
-> m () -- result
windowBeginMoveDrag _obj button rootX rootY timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_begin_move_drag _obj' button rootX rootY timestamp
touchManagedPtr _obj
return ()
data WindowBeginMoveDragMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginMoveDragMethodInfo a signature where
overloadedMethod _ = windowBeginMoveDrag
-- method Window::begin_move_drag_for_device
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_begin_move_drag_for_device" gdk_window_begin_move_drag_for_device ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Device -> -- device : TInterface "Gdk" "Device"
Int32 -> -- button : TBasicType TInt32
Int32 -> -- root_x : TBasicType TInt32
Int32 -> -- root_y : TBasicType TInt32
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowBeginMoveDragForDevice ::
(MonadIO m, WindowK a, DeviceK b) =>
a -- _obj
-> b -- device
-> Int32 -- button
-> Int32 -- rootX
-> Int32 -- rootY
-> Word32 -- timestamp
-> m () -- result
windowBeginMoveDragForDevice _obj device button rootX rootY timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
gdk_window_begin_move_drag_for_device _obj' device' button rootX rootY timestamp
touchManagedPtr _obj
touchManagedPtr device
return ()
data WindowBeginMoveDragForDeviceMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowBeginMoveDragForDeviceMethodInfo a signature where
overloadedMethod _ = windowBeginMoveDragForDevice
-- method Window::begin_paint_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_begin_paint_rect" gdk_window_begin_paint_rect ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle"
IO ()
windowBeginPaintRect ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Rectangle -- rectangle
-> m () -- result
windowBeginPaintRect _obj rectangle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rectangle' = unsafeManagedPtrGetPtr rectangle
gdk_window_begin_paint_rect _obj' rectangle'
touchManagedPtr _obj
touchManagedPtr rectangle
return ()
data WindowBeginPaintRectMethodInfo
instance (signature ~ (Rectangle -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginPaintRectMethodInfo a signature where
overloadedMethod _ = windowBeginPaintRect
-- method Window::begin_paint_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_begin_paint_region" gdk_window_begin_paint_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
IO ()
windowBeginPaintRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Cairo.Region -- region
-> m () -- result
windowBeginPaintRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
gdk_window_begin_paint_region _obj' region'
touchManagedPtr _obj
touchManagedPtr region
return ()
data WindowBeginPaintRegionMethodInfo
instance (signature ~ (Cairo.Region -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginPaintRegionMethodInfo a signature where
overloadedMethod _ = windowBeginPaintRegion
-- method Window::begin_resize_drag
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_begin_resize_drag" gdk_window_begin_resize_drag ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- edge : TInterface "Gdk" "WindowEdge"
Int32 -> -- button : TBasicType TInt32
Int32 -> -- root_x : TBasicType TInt32
Int32 -> -- root_y : TBasicType TInt32
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowBeginResizeDrag ::
(MonadIO m, WindowK a) =>
a -- _obj
-> WindowEdge -- edge
-> Int32 -- button
-> Int32 -- rootX
-> Int32 -- rootY
-> Word32 -- timestamp
-> m () -- result
windowBeginResizeDrag _obj edge button rootX rootY timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let edge' = (fromIntegral . fromEnum) edge
gdk_window_begin_resize_drag _obj' edge' button rootX rootY timestamp
touchManagedPtr _obj
return ()
data WindowBeginResizeDragMethodInfo
instance (signature ~ (WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginResizeDragMethodInfo a signature where
overloadedMethod _ = windowBeginResizeDrag
-- method Window::begin_resize_drag_for_device
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_begin_resize_drag_for_device" gdk_window_begin_resize_drag_for_device ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- edge : TInterface "Gdk" "WindowEdge"
Ptr Device -> -- device : TInterface "Gdk" "Device"
Int32 -> -- button : TBasicType TInt32
Int32 -> -- root_x : TBasicType TInt32
Int32 -> -- root_y : TBasicType TInt32
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowBeginResizeDragForDevice ::
(MonadIO m, WindowK a, DeviceK b) =>
a -- _obj
-> WindowEdge -- edge
-> b -- device
-> Int32 -- button
-> Int32 -- rootX
-> Int32 -- rootY
-> Word32 -- timestamp
-> m () -- result
windowBeginResizeDragForDevice _obj edge device button rootX rootY timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let edge' = (fromIntegral . fromEnum) edge
let device' = unsafeManagedPtrCastPtr device
gdk_window_begin_resize_drag_for_device _obj' edge' device' button rootX rootY timestamp
touchManagedPtr _obj
touchManagedPtr device
return ()
data WindowBeginResizeDragForDeviceMethodInfo
instance (signature ~ (WindowEdge -> b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowBeginResizeDragForDeviceMethodInfo a signature where
overloadedMethod _ = windowBeginResizeDragForDevice
-- method Window::configure_finished
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_configure_finished" gdk_window_configure_finished ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
{-# DEPRECATED windowConfigureFinished ["(Since version 3.8)","this function is no longer needed"]#-}
windowConfigureFinished ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowConfigureFinished _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_configure_finished _obj'
touchManagedPtr _obj
return ()
data WindowConfigureFinishedMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowConfigureFinishedMethodInfo a signature where
overloadedMethod _ = windowConfigureFinished
-- method Window::coords_from_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_coords_from_parent" gdk_window_coords_from_parent ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CDouble -> -- parent_x : TBasicType TDouble
CDouble -> -- parent_y : TBasicType TDouble
Ptr CDouble -> -- x : TBasicType TDouble
Ptr CDouble -> -- y : TBasicType TDouble
IO ()
windowCoordsFromParent ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Double -- parentX
-> Double -- parentY
-> m (Double,Double) -- result
windowCoordsFromParent _obj parentX parentY = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parentX' = realToFrac parentX
let parentY' = realToFrac parentY
x <- allocMem :: IO (Ptr CDouble)
y <- allocMem :: IO (Ptr CDouble)
gdk_window_coords_from_parent _obj' parentX' parentY' x y
x' <- peek x
let x'' = realToFrac x'
y' <- peek y
let y'' = realToFrac y'
touchManagedPtr _obj
freeMem x
freeMem y
return (x'', y'')
data WindowCoordsFromParentMethodInfo
instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m, WindowK a) => MethodInfo WindowCoordsFromParentMethodInfo a signature where
overloadedMethod _ = windowCoordsFromParent
-- method Window::coords_to_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_coords_to_parent" gdk_window_coords_to_parent ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CDouble -> -- x : TBasicType TDouble
CDouble -> -- y : TBasicType TDouble
Ptr CDouble -> -- parent_x : TBasicType TDouble
Ptr CDouble -> -- parent_y : TBasicType TDouble
IO ()
windowCoordsToParent ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Double -- x
-> Double -- y
-> m (Double,Double) -- result
windowCoordsToParent _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let x' = realToFrac x
let y' = realToFrac y
parentX <- allocMem :: IO (Ptr CDouble)
parentY <- allocMem :: IO (Ptr CDouble)
gdk_window_coords_to_parent _obj' x' y' parentX parentY
parentX' <- peek parentX
let parentX'' = realToFrac parentX'
parentY' <- peek parentY
let parentY'' = realToFrac parentY'
touchManagedPtr _obj
freeMem parentX
freeMem parentY
return (parentX'', parentY'')
data WindowCoordsToParentMethodInfo
instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m, WindowK a) => MethodInfo WindowCoordsToParentMethodInfo a signature where
overloadedMethod _ = windowCoordsToParent
-- method Window::create_gl_context
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "GLContext"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_window_create_gl_context" gdk_window_create_gl_context ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr (Ptr GError) -> -- error
IO (Ptr GLContext)
windowCreateGlContext ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m GLContext -- result
windowCreateGlContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ gdk_window_create_gl_context _obj'
checkUnexpectedReturnNULL "gdk_window_create_gl_context" result
result' <- (wrapObject GLContext) result
touchManagedPtr _obj
return result'
) (do
return ()
)
data WindowCreateGlContextMethodInfo
instance (signature ~ (m GLContext), MonadIO m, WindowK a) => MethodInfo WindowCreateGlContextMethodInfo a signature where
overloadedMethod _ = windowCreateGlContext
-- method Window::create_similar_image_surface
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_create_similar_image_surface" gdk_window_create_similar_image_surface ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- format : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
Int32 -> -- scale : TBasicType TInt32
IO (Ptr Cairo.Surface)
windowCreateSimilarImageSurface ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- format
-> Int32 -- width
-> Int32 -- height
-> Int32 -- scale
-> m Cairo.Surface -- result
windowCreateSimilarImageSurface _obj format width height scale = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_create_similar_image_surface _obj' format width height scale
checkUnexpectedReturnNULL "gdk_window_create_similar_image_surface" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
return result'
data WindowCreateSimilarImageSurfaceMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Cairo.Surface), MonadIO m, WindowK a) => MethodInfo WindowCreateSimilarImageSurfaceMethodInfo a signature where
overloadedMethod _ = windowCreateSimilarImageSurface
-- method Window::create_similar_surface
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "cairo" "Surface"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_create_similar_surface" gdk_window_create_similar_surface ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- content : TInterface "cairo" "Content"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO (Ptr Cairo.Surface)
windowCreateSimilarSurface ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Cairo.Content -- content
-> Int32 -- width
-> Int32 -- height
-> m Cairo.Surface -- result
windowCreateSimilarSurface _obj content width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let content' = (fromIntegral . fromEnum) content
result <- gdk_window_create_similar_surface _obj' content' width height
checkUnexpectedReturnNULL "gdk_window_create_similar_surface" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
return result'
data WindowCreateSimilarSurfaceMethodInfo
instance (signature ~ (Cairo.Content -> Int32 -> Int32 -> m Cairo.Surface), MonadIO m, WindowK a) => MethodInfo WindowCreateSimilarSurfaceMethodInfo a signature where
overloadedMethod _ = windowCreateSimilarSurface
-- method Window::deiconify
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_deiconify" gdk_window_deiconify ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowDeiconify ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowDeiconify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_deiconify _obj'
touchManagedPtr _obj
return ()
data WindowDeiconifyMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDeiconifyMethodInfo a signature where
overloadedMethod _ = windowDeiconify
-- method Window::destroy
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_destroy" gdk_window_destroy ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowDestroy ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowDestroy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_destroy _obj'
touchManagedPtr _obj
return ()
data WindowDestroyMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDestroyMethodInfo a signature where
overloadedMethod _ = windowDestroy
-- method Window::destroy_notify
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_destroy_notify" gdk_window_destroy_notify ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowDestroyNotify ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowDestroyNotify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_destroy_notify _obj'
touchManagedPtr _obj
return ()
data WindowDestroyNotifyMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDestroyNotifyMethodInfo a signature where
overloadedMethod _ = windowDestroyNotify
-- method Window::enable_synchronized_configure
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_enable_synchronized_configure" gdk_window_enable_synchronized_configure ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
{-# DEPRECATED windowEnableSynchronizedConfigure ["(Since version 3.8)","this function is no longer needed"]#-}
windowEnableSynchronizedConfigure ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowEnableSynchronizedConfigure _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_enable_synchronized_configure _obj'
touchManagedPtr _obj
return ()
data WindowEnableSynchronizedConfigureMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowEnableSynchronizedConfigureMethodInfo a signature where
overloadedMethod _ = windowEnableSynchronizedConfigure
-- method Window::end_paint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_end_paint" gdk_window_end_paint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowEndPaint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowEndPaint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_end_paint _obj'
touchManagedPtr _obj
return ()
data WindowEndPaintMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowEndPaintMethodInfo a signature where
overloadedMethod _ = windowEndPaint
-- method Window::ensure_native
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_ensure_native" gdk_window_ensure_native ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowEnsureNative ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowEnsureNative _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_ensure_native _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowEnsureNativeMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowEnsureNativeMethodInfo a signature where
overloadedMethod _ = windowEnsureNative
-- method Window::flush
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_flush" gdk_window_flush ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
{-# DEPRECATED windowFlush ["(Since version 3.14)"]#-}
windowFlush ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowFlush _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_flush _obj'
touchManagedPtr _obj
return ()
data WindowFlushMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFlushMethodInfo a signature where
overloadedMethod _ = windowFlush
-- method Window::focus
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_focus" gdk_window_focus ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Word32 -> -- timestamp : TBasicType TUInt32
IO ()
windowFocus ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Word32 -- timestamp
-> m () -- result
windowFocus _obj timestamp = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_focus _obj' timestamp
touchManagedPtr _obj
return ()
data WindowFocusMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowFocusMethodInfo a signature where
overloadedMethod _ = windowFocus
-- method Window::freeze_toplevel_updates_libgtk_only
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_freeze_toplevel_updates_libgtk_only" gdk_window_freeze_toplevel_updates_libgtk_only ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
{-# DEPRECATED windowFreezeToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-}
windowFreezeToplevelUpdatesLibgtkOnly ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowFreezeToplevelUpdatesLibgtkOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_freeze_toplevel_updates_libgtk_only _obj'
touchManagedPtr _obj
return ()
data WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo a signature where
overloadedMethod _ = windowFreezeToplevelUpdatesLibgtkOnly
-- method Window::freeze_updates
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_freeze_updates" gdk_window_freeze_updates ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowFreezeUpdates ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowFreezeUpdates _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_freeze_updates _obj'
touchManagedPtr _obj
return ()
data WindowFreezeUpdatesMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFreezeUpdatesMethodInfo a signature where
overloadedMethod _ = windowFreezeUpdates
-- method Window::fullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_fullscreen" gdk_window_fullscreen ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowFullscreen ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowFullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_fullscreen _obj'
touchManagedPtr _obj
return ()
data WindowFullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenMethodInfo a signature where
overloadedMethod _ = windowFullscreen
-- method Window::fullscreen_on_monitor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_fullscreen_on_monitor" gdk_window_fullscreen_on_monitor ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- monitor : TBasicType TInt32
IO ()
windowFullscreenOnMonitor ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- monitor
-> m () -- result
windowFullscreenOnMonitor _obj monitor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_fullscreen_on_monitor _obj' monitor
touchManagedPtr _obj
return ()
data WindowFullscreenOnMonitorMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenOnMonitorMethodInfo a signature where
overloadedMethod _ = windowFullscreenOnMonitor
-- method Window::geometry_changed
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_geometry_changed" gdk_window_geometry_changed ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowGeometryChanged ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowGeometryChanged _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_geometry_changed _obj'
touchManagedPtr _obj
return ()
data WindowGeometryChangedMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowGeometryChangedMethodInfo a signature where
overloadedMethod _ = windowGeometryChanged
-- method Window::get_accept_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_accept_focus" gdk_window_get_accept_focus ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowGetAcceptFocus ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowGetAcceptFocus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_accept_focus _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowGetAcceptFocusMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetAcceptFocusMethodInfo a signature where
overloadedMethod _ = windowGetAcceptFocus
-- method Window::get_background_pattern
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "cairo" "Pattern"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_background_pattern" gdk_window_get_background_pattern ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Cairo.Pattern)
windowGetBackgroundPattern ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Cairo.Pattern -- result
windowGetBackgroundPattern _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_background_pattern _obj'
checkUnexpectedReturnNULL "gdk_window_get_background_pattern" result
result' <- (newBoxed Cairo.Pattern) result
touchManagedPtr _obj
return result'
data WindowGetBackgroundPatternMethodInfo
instance (signature ~ (m Cairo.Pattern), MonadIO m, WindowK a) => MethodInfo WindowGetBackgroundPatternMethodInfo a signature where
overloadedMethod _ = windowGetBackgroundPattern
-- method Window::get_children
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TGList (TInterface "Gdk" "Window")
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_children" gdk_window_get_children ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr (GList (Ptr Window)))
windowGetChildren ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m [Window] -- result
windowGetChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_children _obj'
checkUnexpectedReturnNULL "gdk_window_get_children" result
result' <- unpackGList result
result'' <- mapM (newObject Window) result'
g_list_free result
touchManagedPtr _obj
return result''
data WindowGetChildrenMethodInfo
instance (signature ~ (m [Window]), MonadIO m, WindowK a) => MethodInfo WindowGetChildrenMethodInfo a signature where
overloadedMethod _ = windowGetChildren
-- method Window::get_children_with_user_data
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TGList (TInterface "Gdk" "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 -> -- _obj : TInterface "Gdk" "Window"
Ptr () -> -- user_data : TBasicType TVoid
IO (Ptr (GList (Ptr Window)))
windowGetChildrenWithUserData ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Ptr () -- userData
-> m [Window] -- result
windowGetChildrenWithUserData _obj userData = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_children_with_user_data _obj' userData
checkUnexpectedReturnNULL "gdk_window_get_children_with_user_data" result
result' <- unpackGList result
result'' <- mapM (newObject Window) result'
g_list_free result
touchManagedPtr _obj
return result''
data WindowGetChildrenWithUserDataMethodInfo
instance (signature ~ (Ptr () -> m [Window]), MonadIO m, WindowK a) => MethodInfo WindowGetChildrenWithUserDataMethodInfo a signature where
overloadedMethod _ = windowGetChildrenWithUserData
-- method Window::get_clip_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "cairo" "Region"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_clip_region" gdk_window_get_clip_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Cairo.Region)
windowGetClipRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Cairo.Region -- result
windowGetClipRegion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_clip_region _obj'
checkUnexpectedReturnNULL "gdk_window_get_clip_region" result
result' <- (wrapBoxed Cairo.Region) result
touchManagedPtr _obj
return result'
data WindowGetClipRegionMethodInfo
instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetClipRegionMethodInfo a signature where
overloadedMethod _ = windowGetClipRegion
-- method Window::get_composited
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_composited" gdk_window_get_composited ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
{-# DEPRECATED windowGetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-}
windowGetComposited ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowGetComposited _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_composited _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowGetCompositedMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetCompositedMethodInfo a signature where
overloadedMethod _ = windowGetComposited
-- method Window::get_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Cursor"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_cursor" gdk_window_get_cursor ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Cursor)
windowGetCursor ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Cursor -- result
windowGetCursor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_cursor _obj'
checkUnexpectedReturnNULL "gdk_window_get_cursor" result
result' <- (newObject Cursor) result
touchManagedPtr _obj
return result'
data WindowGetCursorMethodInfo
instance (signature ~ (m Cursor), MonadIO m, WindowK a) => MethodInfo WindowGetCursorMethodInfo a signature where
overloadedMethod _ = windowGetCursor
-- method Window::get_decorations
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_decorations" gdk_window_get_decorations ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr CUInt -> -- decorations : TInterface "Gdk" "WMDecoration"
IO CInt
windowGetDecorations ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (Bool,[WMDecoration]) -- result
windowGetDecorations _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
decorations <- allocMem :: IO (Ptr CUInt)
result <- gdk_window_get_decorations _obj' decorations
let result' = (/= 0) result
decorations' <- peek decorations
let decorations'' = wordToGFlags decorations'
touchManagedPtr _obj
freeMem decorations
return (result', decorations'')
data WindowGetDecorationsMethodInfo
instance (signature ~ (m (Bool,[WMDecoration])), MonadIO m, WindowK a) => MethodInfo WindowGetDecorationsMethodInfo a signature where
overloadedMethod _ = windowGetDecorations
-- method Window::get_device_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Cursor"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_device_cursor" gdk_window_get_device_cursor ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Device -> -- device : TInterface "Gdk" "Device"
IO (Ptr Cursor)
windowGetDeviceCursor ::
(MonadIO m, WindowK a, DeviceK b) =>
a -- _obj
-> b -- device
-> m Cursor -- result
windowGetDeviceCursor _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gdk_window_get_device_cursor _obj' device'
checkUnexpectedReturnNULL "gdk_window_get_device_cursor" result
result' <- (newObject Cursor) result
touchManagedPtr _obj
touchManagedPtr device
return result'
data WindowGetDeviceCursorMethodInfo
instance (signature ~ (b -> m Cursor), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDeviceCursorMethodInfo a signature where
overloadedMethod _ = windowGetDeviceCursor
-- method Window::get_device_events
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "EventMask"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_device_events" gdk_window_get_device_events ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Device -> -- device : TInterface "Gdk" "Device"
IO CUInt
windowGetDeviceEvents ::
(MonadIO m, WindowK a, DeviceK b) =>
a -- _obj
-> b -- device
-> m [EventMask] -- result
windowGetDeviceEvents _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
result <- gdk_window_get_device_events _obj' device'
let result' = wordToGFlags result
touchManagedPtr _obj
touchManagedPtr device
return result'
data WindowGetDeviceEventsMethodInfo
instance (signature ~ (b -> m [EventMask]), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDeviceEventsMethodInfo a signature where
overloadedMethod _ = windowGetDeviceEvents
-- method Window::get_device_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_device_position" gdk_window_get_device_position ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Device -> -- device : TInterface "Gdk" "Device"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType"
IO (Ptr Window)
windowGetDevicePosition ::
(MonadIO m, WindowK a, DeviceK b) =>
a -- _obj
-> b -- device
-> m (Window,Int32,Int32,[ModifierType])-- result
windowGetDevicePosition _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
mask <- allocMem :: IO (Ptr CUInt)
result <- gdk_window_get_device_position _obj' device' x y mask
checkUnexpectedReturnNULL "gdk_window_get_device_position" result
result' <- (newObject Window) result
x' <- peek x
y' <- peek y
mask' <- peek mask
let mask'' = wordToGFlags mask'
touchManagedPtr _obj
touchManagedPtr device
freeMem x
freeMem y
freeMem mask
return (result', x', y', mask'')
data WindowGetDevicePositionMethodInfo
instance (signature ~ (b -> m (Window,Int32,Int32,[ModifierType])), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDevicePositionMethodInfo a signature where
overloadedMethod _ = windowGetDevicePosition
-- method Window::get_device_position_double
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_device_position_double" gdk_window_get_device_position_double ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Device -> -- device : TInterface "Gdk" "Device"
Ptr CDouble -> -- x : TBasicType TDouble
Ptr CDouble -> -- y : TBasicType TDouble
Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType"
IO (Ptr Window)
windowGetDevicePositionDouble ::
(MonadIO m, WindowK a, DeviceK b) =>
a -- _obj
-> b -- device
-> m (Window,Double,Double,[ModifierType])-- result
windowGetDevicePositionDouble _obj device = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let 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 _obj' device' x y mask
checkUnexpectedReturnNULL "gdk_window_get_device_position_double" result
result' <- (newObject Window) result
x' <- peek x
let x'' = realToFrac x'
y' <- peek y
let y'' = realToFrac y'
mask' <- peek mask
let mask'' = wordToGFlags mask'
touchManagedPtr _obj
touchManagedPtr device
freeMem x
freeMem y
freeMem mask
return (result', x'', y'', mask'')
data WindowGetDevicePositionDoubleMethodInfo
instance (signature ~ (b -> m (Window,Double,Double,[ModifierType])), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDevicePositionDoubleMethodInfo a signature where
overloadedMethod _ = windowGetDevicePositionDouble
-- method Window::get_display
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Display"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_display" gdk_window_get_display ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Display)
windowGetDisplay ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Display -- result
windowGetDisplay _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_display _obj'
checkUnexpectedReturnNULL "gdk_window_get_display" result
result' <- (newObject Display) result
touchManagedPtr _obj
return result'
data WindowGetDisplayMethodInfo
instance (signature ~ (m Display), MonadIO m, WindowK a) => MethodInfo WindowGetDisplayMethodInfo a signature where
overloadedMethod _ = windowGetDisplay
-- method Window::get_drag_protocol
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TInterface "Gdk" "DragProtocol"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_drag_protocol" gdk_window_get_drag_protocol ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr (Ptr Window) -> -- target : TInterface "Gdk" "Window"
IO CUInt
windowGetDragProtocol ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (DragProtocol,Window) -- result
windowGetDragProtocol _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
target <- allocMem :: IO (Ptr (Ptr Window))
result <- gdk_window_get_drag_protocol _obj' target
let result' = (toEnum . fromIntegral) result
target' <- peek target
target'' <- (wrapObject Window) target'
touchManagedPtr _obj
freeMem target
return (result', target'')
data WindowGetDragProtocolMethodInfo
instance (signature ~ (m (DragProtocol,Window)), MonadIO m, WindowK a) => MethodInfo WindowGetDragProtocolMethodInfo a signature where
overloadedMethod _ = windowGetDragProtocol
-- method Window::get_effective_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_effective_parent" gdk_window_get_effective_parent ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Window)
windowGetEffectiveParent ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Window -- result
windowGetEffectiveParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_effective_parent _obj'
checkUnexpectedReturnNULL "gdk_window_get_effective_parent" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
data WindowGetEffectiveParentMethodInfo
instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetEffectiveParentMethodInfo a signature where
overloadedMethod _ = windowGetEffectiveParent
-- method Window::get_effective_toplevel
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_effective_toplevel" gdk_window_get_effective_toplevel ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Window)
windowGetEffectiveToplevel ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Window -- result
windowGetEffectiveToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_effective_toplevel _obj'
checkUnexpectedReturnNULL "gdk_window_get_effective_toplevel" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
data WindowGetEffectiveToplevelMethodInfo
instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetEffectiveToplevelMethodInfo a signature where
overloadedMethod _ = windowGetEffectiveToplevel
-- method Window::get_event_compression
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_event_compression" gdk_window_get_event_compression ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowGetEventCompression ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowGetEventCompression _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_event_compression _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowGetEventCompressionMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetEventCompressionMethodInfo a signature where
overloadedMethod _ = windowGetEventCompression
-- method Window::get_events
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "EventMask"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_events" gdk_window_get_events ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CUInt
windowGetEvents ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m [EventMask] -- result
windowGetEvents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_events _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
data WindowGetEventsMethodInfo
instance (signature ~ (m [EventMask]), MonadIO m, WindowK a) => MethodInfo WindowGetEventsMethodInfo a signature where
overloadedMethod _ = windowGetEvents
-- method Window::get_focus_on_map
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_focus_on_map" gdk_window_get_focus_on_map ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowGetFocusOnMap ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowGetFocusOnMap _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_focus_on_map _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowGetFocusOnMapMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetFocusOnMapMethodInfo a signature where
overloadedMethod _ = windowGetFocusOnMap
-- method Window::get_frame_clock
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "FrameClock"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_frame_clock" gdk_window_get_frame_clock ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr FrameClock)
windowGetFrameClock ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m FrameClock -- result
windowGetFrameClock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_frame_clock _obj'
checkUnexpectedReturnNULL "gdk_window_get_frame_clock" result
result' <- (newObject FrameClock) result
touchManagedPtr _obj
return result'
data WindowGetFrameClockMethodInfo
instance (signature ~ (m FrameClock), MonadIO m, WindowK a) => MethodInfo WindowGetFrameClockMethodInfo a signature where
overloadedMethod _ = windowGetFrameClock
-- method Window::get_frame_extents
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_frame_extents" gdk_window_get_frame_extents ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
IO ()
windowGetFrameExtents ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (Rectangle) -- result
windowGetFrameExtents _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle)
gdk_window_get_frame_extents _obj' rect
rect' <- (wrapBoxed Rectangle) rect
touchManagedPtr _obj
return rect'
data WindowGetFrameExtentsMethodInfo
instance (signature ~ (m (Rectangle)), MonadIO m, WindowK a) => MethodInfo WindowGetFrameExtentsMethodInfo a signature where
overloadedMethod _ = windowGetFrameExtents
-- method Window::get_fullscreen_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "FullscreenMode"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_fullscreen_mode" gdk_window_get_fullscreen_mode ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CUInt
windowGetFullscreenMode ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m FullscreenMode -- result
windowGetFullscreenMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_fullscreen_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data WindowGetFullscreenModeMethodInfo
instance (signature ~ (m FullscreenMode), MonadIO m, WindowK a) => MethodInfo WindowGetFullscreenModeMethodInfo a signature where
overloadedMethod _ = windowGetFullscreenMode
-- method Window::get_geometry
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_geometry" gdk_window_get_geometry ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
windowGetGeometry ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (Int32,Int32,Int32,Int32) -- result
windowGetGeometry _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gdk_window_get_geometry _obj' x y width height
x' <- peek x
y' <- peek y
width' <- peek width
height' <- peek height
touchManagedPtr _obj
freeMem x
freeMem y
freeMem width
freeMem height
return (x', y', width', height')
data WindowGetGeometryMethodInfo
instance (signature ~ (m (Int32,Int32,Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetGeometryMethodInfo a signature where
overloadedMethod _ = windowGetGeometry
-- method Window::get_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_group" gdk_window_get_group ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Window)
windowGetGroup ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Window -- result
windowGetGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_group _obj'
checkUnexpectedReturnNULL "gdk_window_get_group" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
data WindowGetGroupMethodInfo
instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetGroupMethodInfo a signature where
overloadedMethod _ = windowGetGroup
-- method Window::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_height" gdk_window_get_height ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO Int32
windowGetHeight ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Int32 -- result
windowGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_height _obj'
touchManagedPtr _obj
return result
data WindowGetHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetHeightMethodInfo a signature where
overloadedMethod _ = windowGetHeight
-- method Window::get_modal_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_modal_hint" gdk_window_get_modal_hint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowGetModalHint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowGetModalHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_modal_hint _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowGetModalHintMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetModalHintMethodInfo a signature where
overloadedMethod _ = windowGetModalHint
-- method Window::get_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_origin" gdk_window_get_origin ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
IO Int32
windowGetOrigin ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (Int32,Int32,Int32) -- result
windowGetOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
result <- gdk_window_get_origin _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (result, x', y')
data WindowGetOriginMethodInfo
instance (signature ~ (m (Int32,Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetOriginMethodInfo a signature where
overloadedMethod _ = windowGetOrigin
-- method Window::get_parent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_parent" gdk_window_get_parent ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Window)
windowGetParent ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Window -- result
windowGetParent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_parent _obj'
checkUnexpectedReturnNULL "gdk_window_get_parent" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
data WindowGetParentMethodInfo
instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetParentMethodInfo a signature where
overloadedMethod _ = windowGetParent
-- method Window::get_pass_through
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_pass_through" gdk_window_get_pass_through ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowGetPassThrough ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowGetPassThrough _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_pass_through _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowGetPassThroughMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetPassThroughMethodInfo a signature where
overloadedMethod _ = windowGetPassThrough
-- method Window::get_pointer
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_pointer" gdk_window_get_pointer ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType"
IO (Ptr Window)
{-# DEPRECATED windowGetPointer ["(Since version 3.0)","Use gdk_window_get_device_position() instead."]#-}
windowGetPointer ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (Window,Int32,Int32,[ModifierType])-- result
windowGetPointer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
mask <- allocMem :: IO (Ptr CUInt)
result <- gdk_window_get_pointer _obj' x y mask
checkUnexpectedReturnNULL "gdk_window_get_pointer" result
result' <- (newObject Window) result
x' <- peek x
y' <- peek y
mask' <- peek mask
let mask'' = wordToGFlags mask'
touchManagedPtr _obj
freeMem x
freeMem y
freeMem mask
return (result', x', y', mask'')
data WindowGetPointerMethodInfo
instance (signature ~ (m (Window,Int32,Int32,[ModifierType])), MonadIO m, WindowK a) => MethodInfo WindowGetPointerMethodInfo a signature where
overloadedMethod _ = windowGetPointer
-- method Window::get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_position" gdk_window_get_position ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
IO ()
windowGetPosition ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (Int32,Int32) -- result
windowGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gdk_window_get_position _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
data WindowGetPositionMethodInfo
instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetPositionMethodInfo a signature where
overloadedMethod _ = windowGetPosition
-- method Window::get_root_coords
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_root_coords" gdk_window_get_root_coords ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Ptr Int32 -> -- root_x : TBasicType TInt32
Ptr Int32 -> -- root_y : TBasicType TInt32
IO ()
windowGetRootCoords ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- x
-> Int32 -- y
-> m (Int32,Int32) -- result
windowGetRootCoords _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rootX <- allocMem :: IO (Ptr Int32)
rootY <- allocMem :: IO (Ptr Int32)
gdk_window_get_root_coords _obj' x y rootX rootY
rootX' <- peek rootX
rootY' <- peek rootY
touchManagedPtr _obj
freeMem rootX
freeMem rootY
return (rootX', rootY')
data WindowGetRootCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetRootCoordsMethodInfo a signature where
overloadedMethod _ = windowGetRootCoords
-- method Window::get_root_origin
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_root_origin" gdk_window_get_root_origin ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Int32 -> -- x : TBasicType TInt32
Ptr Int32 -> -- y : TBasicType TInt32
IO ()
windowGetRootOrigin ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m (Int32,Int32) -- result
windowGetRootOrigin _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gdk_window_get_root_origin _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
data WindowGetRootOriginMethodInfo
instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetRootOriginMethodInfo a signature where
overloadedMethod _ = windowGetRootOrigin
-- method Window::get_scale_factor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_scale_factor" gdk_window_get_scale_factor ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO Int32
windowGetScaleFactor ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Int32 -- result
windowGetScaleFactor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_scale_factor _obj'
touchManagedPtr _obj
return result
data WindowGetScaleFactorMethodInfo
instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetScaleFactorMethodInfo a signature where
overloadedMethod _ = windowGetScaleFactor
-- method Window::get_screen
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Screen"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_screen" gdk_window_get_screen ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Screen)
windowGetScreen ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Screen -- result
windowGetScreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_screen _obj'
checkUnexpectedReturnNULL "gdk_window_get_screen" result
result' <- (newObject Screen) result
touchManagedPtr _obj
return result'
data WindowGetScreenMethodInfo
instance (signature ~ (m Screen), MonadIO m, WindowK a) => MethodInfo WindowGetScreenMethodInfo a signature where
overloadedMethod _ = windowGetScreen
-- method Window::get_source_events
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "EventMask"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_source_events" gdk_window_get_source_events ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- source : TInterface "Gdk" "InputSource"
IO CUInt
windowGetSourceEvents ::
(MonadIO m, WindowK a) =>
a -- _obj
-> InputSource -- source
-> m [EventMask] -- result
windowGetSourceEvents _obj source = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let source' = (fromIntegral . fromEnum) source
result <- gdk_window_get_source_events _obj' source'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
data WindowGetSourceEventsMethodInfo
instance (signature ~ (InputSource -> m [EventMask]), MonadIO m, WindowK a) => MethodInfo WindowGetSourceEventsMethodInfo a signature where
overloadedMethod _ = windowGetSourceEvents
-- method Window::get_state
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "WindowState"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_state" gdk_window_get_state ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CUInt
windowGetState ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m [WindowState] -- result
windowGetState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_state _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
data WindowGetStateMethodInfo
instance (signature ~ (m [WindowState]), MonadIO m, WindowK a) => MethodInfo WindowGetStateMethodInfo a signature where
overloadedMethod _ = windowGetState
-- method Window::get_support_multidevice
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_support_multidevice" gdk_window_get_support_multidevice ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowGetSupportMultidevice ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowGetSupportMultidevice _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_support_multidevice _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowGetSupportMultideviceMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetSupportMultideviceMethodInfo a signature where
overloadedMethod _ = windowGetSupportMultidevice
-- method Window::get_toplevel
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_toplevel" gdk_window_get_toplevel ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Window)
windowGetToplevel ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Window -- result
windowGetToplevel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_toplevel _obj'
checkUnexpectedReturnNULL "gdk_window_get_toplevel" result
result' <- (newObject Window) result
touchManagedPtr _obj
return result'
data WindowGetToplevelMethodInfo
instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetToplevelMethodInfo a signature where
overloadedMethod _ = windowGetToplevel
-- method Window::get_type_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "WindowTypeHint"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_type_hint" gdk_window_get_type_hint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CUInt
windowGetTypeHint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m WindowTypeHint -- result
windowGetTypeHint _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_type_hint _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data WindowGetTypeHintMethodInfo
instance (signature ~ (m WindowTypeHint), MonadIO m, WindowK a) => MethodInfo WindowGetTypeHintMethodInfo a signature where
overloadedMethod _ = windowGetTypeHint
-- method Window::get_update_area
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "cairo" "Region"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_update_area" gdk_window_get_update_area ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Cairo.Region)
windowGetUpdateArea ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Cairo.Region -- result
windowGetUpdateArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_update_area _obj'
checkUnexpectedReturnNULL "gdk_window_get_update_area" result
result' <- (wrapBoxed Cairo.Region) result
touchManagedPtr _obj
return result'
data WindowGetUpdateAreaMethodInfo
instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetUpdateAreaMethodInfo a signature where
overloadedMethod _ = windowGetUpdateArea
-- method Window::get_user_data
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_user_data" gdk_window_get_user_data ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr (Ptr ()) -> -- data : TBasicType TVoid
IO ()
windowGetUserData ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m ((Ptr ())) -- result
windowGetUserData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
data_ <- allocMem :: IO (Ptr (Ptr ()))
gdk_window_get_user_data _obj' data_
data_' <- peek data_
touchManagedPtr _obj
freeMem data_
return data_'
data WindowGetUserDataMethodInfo
instance (signature ~ (m ((Ptr ()))), MonadIO m, WindowK a) => MethodInfo WindowGetUserDataMethodInfo a signature where
overloadedMethod _ = windowGetUserData
-- method Window::get_visible_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "cairo" "Region"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_visible_region" gdk_window_get_visible_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Cairo.Region)
windowGetVisibleRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Cairo.Region -- result
windowGetVisibleRegion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_visible_region _obj'
checkUnexpectedReturnNULL "gdk_window_get_visible_region" result
result' <- (wrapBoxed Cairo.Region) result
touchManagedPtr _obj
return result'
data WindowGetVisibleRegionMethodInfo
instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetVisibleRegionMethodInfo a signature where
overloadedMethod _ = windowGetVisibleRegion
-- method Window::get_visual
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Visual"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_visual" gdk_window_get_visual ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr Visual)
windowGetVisual ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Visual -- result
windowGetVisual _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_visual _obj'
checkUnexpectedReturnNULL "gdk_window_get_visual" result
result' <- (newObject Visual) result
touchManagedPtr _obj
return result'
data WindowGetVisualMethodInfo
instance (signature ~ (m Visual), MonadIO m, WindowK a) => MethodInfo WindowGetVisualMethodInfo a signature where
overloadedMethod _ = windowGetVisual
-- method Window::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_width" gdk_window_get_width ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO Int32
windowGetWidth ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Int32 -- result
windowGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_width _obj'
touchManagedPtr _obj
return result
data WindowGetWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetWidthMethodInfo a signature where
overloadedMethod _ = windowGetWidth
-- method Window::get_window_type
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gdk" "WindowType"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_get_window_type" gdk_window_get_window_type ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CUInt
windowGetWindowType ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m WindowType -- result
windowGetWindowType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_get_window_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data WindowGetWindowTypeMethodInfo
instance (signature ~ (m WindowType), MonadIO m, WindowK a) => MethodInfo WindowGetWindowTypeMethodInfo a signature where
overloadedMethod _ = windowGetWindowType
-- method Window::has_native
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_has_native" gdk_window_has_native ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowHasNative ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowHasNative _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_has_native _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowHasNativeMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowHasNativeMethodInfo a signature where
overloadedMethod _ = windowHasNative
-- method Window::hide
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_hide" gdk_window_hide ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowHide ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowHide _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_hide _obj'
touchManagedPtr _obj
return ()
data WindowHideMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowHideMethodInfo a signature where
overloadedMethod _ = windowHide
-- method Window::iconify
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_iconify" gdk_window_iconify ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowIconify ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowIconify _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_iconify _obj'
touchManagedPtr _obj
return ()
data WindowIconifyMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowIconifyMethodInfo a signature where
overloadedMethod _ = windowIconify
-- method Window::input_shape_combine_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_input_shape_combine_region" gdk_window_input_shape_combine_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Region -> -- shape_region : TInterface "cairo" "Region"
Int32 -> -- offset_x : TBasicType TInt32
Int32 -> -- offset_y : TBasicType TInt32
IO ()
windowInputShapeCombineRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Cairo.Region -- shapeRegion
-> Int32 -- offsetX
-> Int32 -- offsetY
-> m () -- result
windowInputShapeCombineRegion _obj shapeRegion offsetX offsetY = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let shapeRegion' = unsafeManagedPtrGetPtr shapeRegion
gdk_window_input_shape_combine_region _obj' shapeRegion' offsetX offsetY
touchManagedPtr _obj
touchManagedPtr shapeRegion
return ()
data WindowInputShapeCombineRegionMethodInfo
instance (signature ~ (Cairo.Region -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInputShapeCombineRegionMethodInfo a signature where
overloadedMethod _ = windowInputShapeCombineRegion
-- method Window::invalidate_maybe_recurse
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_invalidate_maybe_recurse" gdk_window_invalidate_maybe_recurse ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
FunPtr WindowChildFuncC -> -- child_func : TInterface "Gdk" "WindowChildFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
windowInvalidateMaybeRecurse ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Cairo.Region -- region
-> Maybe (WindowChildFunc) -- childFunc
-> m () -- result
windowInvalidateMaybeRecurse _obj region childFunc = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
maybeChildFunc <- case childFunc of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jChildFunc -> do
jChildFunc' <- mkWindowChildFunc (windowChildFuncWrapper Nothing jChildFunc)
return jChildFunc'
let userData = nullPtr
gdk_window_invalidate_maybe_recurse _obj' region' maybeChildFunc userData
safeFreeFunPtr $ castFunPtrToPtr maybeChildFunc
touchManagedPtr _obj
touchManagedPtr region
return ()
data WindowInvalidateMaybeRecurseMethodInfo
instance (signature ~ (Cairo.Region -> Maybe (WindowChildFunc) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateMaybeRecurseMethodInfo a signature where
overloadedMethod _ = windowInvalidateMaybeRecurse
-- method Window::invalidate_rect
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_invalidate_rect" gdk_window_invalidate_rect ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Rectangle -> -- rect : TInterface "Gdk" "Rectangle"
CInt -> -- invalidate_children : TBasicType TBoolean
IO ()
windowInvalidateRect ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Maybe (Rectangle) -- rect
-> Bool -- invalidateChildren
-> m () -- result
windowInvalidateRect _obj rect invalidateChildren = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRect <- case rect of
Nothing -> return nullPtr
Just jRect -> do
let jRect' = unsafeManagedPtrGetPtr jRect
return jRect'
let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren
gdk_window_invalidate_rect _obj' maybeRect invalidateChildren'
touchManagedPtr _obj
whenJust rect touchManagedPtr
return ()
data WindowInvalidateRectMethodInfo
instance (signature ~ (Maybe (Rectangle) -> Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateRectMethodInfo a signature where
overloadedMethod _ = windowInvalidateRect
-- method Window::invalidate_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_invalidate_region" gdk_window_invalidate_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
CInt -> -- invalidate_children : TBasicType TBoolean
IO ()
windowInvalidateRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Cairo.Region -- region
-> Bool -- invalidateChildren
-> m () -- result
windowInvalidateRegion _obj region invalidateChildren = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren
gdk_window_invalidate_region _obj' region' invalidateChildren'
touchManagedPtr _obj
touchManagedPtr region
return ()
data WindowInvalidateRegionMethodInfo
instance (signature ~ (Cairo.Region -> Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateRegionMethodInfo a signature where
overloadedMethod _ = windowInvalidateRegion
-- method Window::is_destroyed
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_is_destroyed" gdk_window_is_destroyed ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowIsDestroyed ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowIsDestroyed _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_is_destroyed _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowIsDestroyedMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsDestroyedMethodInfo a signature where
overloadedMethod _ = windowIsDestroyed
-- method Window::is_input_only
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_is_input_only" gdk_window_is_input_only ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowIsInputOnly ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowIsInputOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_is_input_only _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowIsInputOnlyMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsInputOnlyMethodInfo a signature where
overloadedMethod _ = windowIsInputOnly
-- method Window::is_shaped
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_is_shaped" gdk_window_is_shaped ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowIsShaped ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowIsShaped _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_is_shaped _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowIsShapedMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsShapedMethodInfo a signature where
overloadedMethod _ = windowIsShaped
-- method Window::is_viewable
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_is_viewable" gdk_window_is_viewable ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowIsViewable ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowIsViewable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_is_viewable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowIsViewableMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsViewableMethodInfo a signature where
overloadedMethod _ = windowIsViewable
-- method Window::is_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_is_visible" gdk_window_is_visible ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO CInt
windowIsVisible ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m Bool -- result
windowIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsVisibleMethodInfo a signature where
overloadedMethod _ = windowIsVisible
-- method Window::lower
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_lower" gdk_window_lower ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowLower ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowLower _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_lower _obj'
touchManagedPtr _obj
return ()
data WindowLowerMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowLowerMethodInfo a signature where
overloadedMethod _ = windowLower
-- method Window::mark_paint_from_clip
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_mark_paint_from_clip" gdk_window_mark_paint_from_clip ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"
IO ()
windowMarkPaintFromClip ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Cairo.Context -- cr
-> m () -- result
windowMarkPaintFromClip _obj cr = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cr' = unsafeManagedPtrGetPtr cr
gdk_window_mark_paint_from_clip _obj' cr'
touchManagedPtr _obj
touchManagedPtr cr
return ()
data WindowMarkPaintFromClipMethodInfo
instance (signature ~ (Cairo.Context -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMarkPaintFromClipMethodInfo a signature where
overloadedMethod _ = windowMarkPaintFromClip
-- method Window::maximize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_maximize" gdk_window_maximize ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowMaximize ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowMaximize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_maximize _obj'
touchManagedPtr _obj
return ()
data WindowMaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMaximizeMethodInfo a signature where
overloadedMethod _ = windowMaximize
-- method Window::merge_child_input_shapes
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_merge_child_input_shapes" gdk_window_merge_child_input_shapes ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowMergeChildInputShapes ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowMergeChildInputShapes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_merge_child_input_shapes _obj'
touchManagedPtr _obj
return ()
data WindowMergeChildInputShapesMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMergeChildInputShapesMethodInfo a signature where
overloadedMethod _ = windowMergeChildInputShapes
-- method Window::merge_child_shapes
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_merge_child_shapes" gdk_window_merge_child_shapes ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowMergeChildShapes ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowMergeChildShapes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_merge_child_shapes _obj'
touchManagedPtr _obj
return ()
data WindowMergeChildShapesMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMergeChildShapesMethodInfo a signature where
overloadedMethod _ = windowMergeChildShapes
-- method Window::move
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_move" gdk_window_move ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
windowMove ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- x
-> Int32 -- y
-> m () -- result
windowMove _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_move _obj' x y
touchManagedPtr _obj
return ()
data WindowMoveMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveMethodInfo a signature where
overloadedMethod _ = windowMove
-- method Window::move_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_move_region" gdk_window_move_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
Int32 -> -- dx : TBasicType TInt32
Int32 -> -- dy : TBasicType TInt32
IO ()
windowMoveRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Cairo.Region -- region
-> Int32 -- dx
-> Int32 -- dy
-> m () -- result
windowMoveRegion _obj region dx dy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let region' = unsafeManagedPtrGetPtr region
gdk_window_move_region _obj' region' dx dy
touchManagedPtr _obj
touchManagedPtr region
return ()
data WindowMoveRegionMethodInfo
instance (signature ~ (Cairo.Region -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveRegionMethodInfo a signature where
overloadedMethod _ = windowMoveRegion
-- method Window::move_resize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_move_resize" gdk_window_move_resize ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
windowMoveResize ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- x
-> Int32 -- y
-> Int32 -- width
-> Int32 -- height
-> m () -- result
windowMoveResize _obj x y width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_move_resize _obj' x y width height
touchManagedPtr _obj
return ()
data WindowMoveResizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveResizeMethodInfo a signature where
overloadedMethod _ = windowMoveResize
-- method Window::peek_children
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TGList (TInterface "Gdk" "Window")
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_peek_children" gdk_window_peek_children ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO (Ptr (GList (Ptr Window)))
windowPeekChildren ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m [Window] -- result
windowPeekChildren _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_window_peek_children _obj'
checkUnexpectedReturnNULL "gdk_window_peek_children" result
result' <- unpackGList result
result'' <- mapM (newObject Window) result'
touchManagedPtr _obj
return result''
data WindowPeekChildrenMethodInfo
instance (signature ~ (m [Window]), MonadIO m, WindowK a) => MethodInfo WindowPeekChildrenMethodInfo a signature where
overloadedMethod _ = windowPeekChildren
-- method Window::process_updates
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_process_updates" gdk_window_process_updates ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- update_children : TBasicType TBoolean
IO ()
windowProcessUpdates ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- updateChildren
-> m () -- result
windowProcessUpdates _obj updateChildren = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let updateChildren' = (fromIntegral . fromEnum) updateChildren
gdk_window_process_updates _obj' updateChildren'
touchManagedPtr _obj
return ()
data WindowProcessUpdatesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowProcessUpdatesMethodInfo a signature where
overloadedMethod _ = windowProcessUpdates
-- method Window::raise
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_raise" gdk_window_raise ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowRaise ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowRaise _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_raise _obj'
touchManagedPtr _obj
return ()
data WindowRaiseMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowRaiseMethodInfo a signature where
overloadedMethod _ = windowRaise
-- method Window::register_dnd
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_register_dnd" gdk_window_register_dnd ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowRegisterDnd ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowRegisterDnd _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_register_dnd _obj'
touchManagedPtr _obj
return ()
data WindowRegisterDndMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowRegisterDndMethodInfo a signature where
overloadedMethod _ = windowRegisterDnd
-- method Window::reparent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_reparent" gdk_window_reparent ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Window -> -- new_parent : TInterface "Gdk" "Window"
Int32 -> -- x : TBasicType TInt32
Int32 -> -- y : TBasicType TInt32
IO ()
windowReparent ::
(MonadIO m, WindowK a, WindowK b) =>
a -- _obj
-> b -- newParent
-> Int32 -- x
-> Int32 -- y
-> m () -- result
windowReparent _obj newParent x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let newParent' = unsafeManagedPtrCastPtr newParent
gdk_window_reparent _obj' newParent' x y
touchManagedPtr _obj
touchManagedPtr newParent
return ()
data WindowReparentMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowReparentMethodInfo a signature where
overloadedMethod _ = windowReparent
-- method Window::resize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_resize" gdk_window_resize ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO ()
windowResize ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- width
-> Int32 -- height
-> m () -- result
windowResize _obj width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_resize _obj' width height
touchManagedPtr _obj
return ()
data WindowResizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowResizeMethodInfo a signature where
overloadedMethod _ = windowResize
-- method Window::restack
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_restack" gdk_window_restack ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Window -> -- sibling : TInterface "Gdk" "Window"
CInt -> -- above : TBasicType TBoolean
IO ()
windowRestack ::
(MonadIO m, WindowK a, WindowK b) =>
a -- _obj
-> Maybe (b) -- sibling
-> Bool -- above
-> m () -- result
windowRestack _obj sibling above = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeSibling <- case sibling of
Nothing -> return nullPtr
Just jSibling -> do
let jSibling' = unsafeManagedPtrCastPtr jSibling
return jSibling'
let above' = (fromIntegral . fromEnum) above
gdk_window_restack _obj' maybeSibling above'
touchManagedPtr _obj
whenJust sibling touchManagedPtr
return ()
data WindowRestackMethodInfo
instance (signature ~ (Maybe (b) -> Bool -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowRestackMethodInfo a signature where
overloadedMethod _ = windowRestack
-- method Window::scroll
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_scroll" gdk_window_scroll ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- dx : TBasicType TInt32
Int32 -> -- dy : TBasicType TInt32
IO ()
windowScroll ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- dx
-> Int32 -- dy
-> m () -- result
windowScroll _obj dx dy = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_scroll _obj' dx dy
touchManagedPtr _obj
return ()
data WindowScrollMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowScrollMethodInfo a signature where
overloadedMethod _ = windowScroll
-- method Window::set_accept_focus
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_accept_focus" gdk_window_set_accept_focus ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- accept_focus : TBasicType TBoolean
IO ()
windowSetAcceptFocus ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- acceptFocus
-> m () -- result
windowSetAcceptFocus _obj acceptFocus = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let acceptFocus' = (fromIntegral . fromEnum) acceptFocus
gdk_window_set_accept_focus _obj' acceptFocus'
touchManagedPtr _obj
return ()
data WindowSetAcceptFocusMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetAcceptFocusMethodInfo a signature where
overloadedMethod _ = windowSetAcceptFocus
-- method Window::set_background
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_background" gdk_window_set_background ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Color -> -- color : TInterface "Gdk" "Color"
IO ()
{-# DEPRECATED windowSetBackground ["(Since version 3.4)","Use gdk_window_set_background_rgba() instead."]#-}
windowSetBackground ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Color -- color
-> m () -- result
windowSetBackground _obj color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let color' = unsafeManagedPtrGetPtr color
gdk_window_set_background _obj' color'
touchManagedPtr _obj
touchManagedPtr color
return ()
data WindowSetBackgroundMethodInfo
instance (signature ~ (Color -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundMethodInfo a signature where
overloadedMethod _ = windowSetBackground
-- method Window::set_background_pattern
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_background_pattern" gdk_window_set_background_pattern ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Pattern -> -- pattern : TInterface "cairo" "Pattern"
IO ()
windowSetBackgroundPattern ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Maybe (Cairo.Pattern) -- pattern
-> m () -- result
windowSetBackgroundPattern _obj pattern = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybePattern <- case pattern of
Nothing -> return nullPtr
Just jPattern -> do
let jPattern' = unsafeManagedPtrGetPtr jPattern
return jPattern'
gdk_window_set_background_pattern _obj' maybePattern
touchManagedPtr _obj
whenJust pattern touchManagedPtr
return ()
data WindowSetBackgroundPatternMethodInfo
instance (signature ~ (Maybe (Cairo.Pattern) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundPatternMethodInfo a signature where
overloadedMethod _ = windowSetBackgroundPattern
-- method Window::set_background_rgba
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_background_rgba" gdk_window_set_background_rgba ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr RGBA -> -- rgba : TInterface "Gdk" "RGBA"
IO ()
windowSetBackgroundRgba ::
(MonadIO m, WindowK a) =>
a -- _obj
-> RGBA -- rgba
-> m () -- result
windowSetBackgroundRgba _obj rgba = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let rgba' = unsafeManagedPtrGetPtr rgba
gdk_window_set_background_rgba _obj' rgba'
touchManagedPtr _obj
touchManagedPtr rgba
return ()
data WindowSetBackgroundRgbaMethodInfo
instance (signature ~ (RGBA -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundRgbaMethodInfo a signature where
overloadedMethod _ = windowSetBackgroundRgba
-- method Window::set_child_input_shapes
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_child_input_shapes" gdk_window_set_child_input_shapes ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowSetChildInputShapes ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowSetChildInputShapes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_set_child_input_shapes _obj'
touchManagedPtr _obj
return ()
data WindowSetChildInputShapesMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowSetChildInputShapesMethodInfo a signature where
overloadedMethod _ = windowSetChildInputShapes
-- method Window::set_child_shapes
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_child_shapes" gdk_window_set_child_shapes ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowSetChildShapes ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowSetChildShapes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_set_child_shapes _obj'
touchManagedPtr _obj
return ()
data WindowSetChildShapesMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowSetChildShapesMethodInfo a signature where
overloadedMethod _ = windowSetChildShapes
-- method Window::set_composited
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_composited" gdk_window_set_composited ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- composited : TBasicType TBoolean
IO ()
{-# DEPRECATED windowSetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-}
windowSetComposited ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- composited
-> m () -- result
windowSetComposited _obj composited = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let composited' = (fromIntegral . fromEnum) composited
gdk_window_set_composited _obj' composited'
touchManagedPtr _obj
return ()
data WindowSetCompositedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetCompositedMethodInfo a signature where
overloadedMethod _ = windowSetComposited
-- method Window::set_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_cursor" gdk_window_set_cursor ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor"
IO ()
windowSetCursor ::
(MonadIO m, WindowK a, CursorK b) =>
a -- _obj
-> Maybe (b) -- cursor
-> m () -- result
windowSetCursor _obj cursor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCursor <- case cursor of
Nothing -> return nullPtr
Just jCursor -> do
let jCursor' = unsafeManagedPtrCastPtr jCursor
return jCursor'
gdk_window_set_cursor _obj' maybeCursor
touchManagedPtr _obj
whenJust cursor touchManagedPtr
return ()
data WindowSetCursorMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, CursorK b) => MethodInfo WindowSetCursorMethodInfo a signature where
overloadedMethod _ = windowSetCursor
-- method Window::set_decorations
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_decorations" gdk_window_set_decorations ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- decorations : TInterface "Gdk" "WMDecoration"
IO ()
windowSetDecorations ::
(MonadIO m, WindowK a) =>
a -- _obj
-> [WMDecoration] -- decorations
-> m () -- result
windowSetDecorations _obj decorations = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let decorations' = gflagsToWord decorations
gdk_window_set_decorations _obj' decorations'
touchManagedPtr _obj
return ()
data WindowSetDecorationsMethodInfo
instance (signature ~ ([WMDecoration] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDecorationsMethodInfo a signature where
overloadedMethod _ = windowSetDecorations
-- method Window::set_device_cursor
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_device_cursor" gdk_window_set_device_cursor ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Device -> -- device : TInterface "Gdk" "Device"
Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor"
IO ()
windowSetDeviceCursor ::
(MonadIO m, WindowK a, DeviceK b, CursorK c) =>
a -- _obj
-> b -- device
-> c -- cursor
-> m () -- result
windowSetDeviceCursor _obj device cursor = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let cursor' = unsafeManagedPtrCastPtr cursor
gdk_window_set_device_cursor _obj' device' cursor'
touchManagedPtr _obj
touchManagedPtr device
touchManagedPtr cursor
return ()
data WindowSetDeviceCursorMethodInfo
instance (signature ~ (b -> c -> m ()), MonadIO m, WindowK a, DeviceK b, CursorK c) => MethodInfo WindowSetDeviceCursorMethodInfo a signature where
overloadedMethod _ = windowSetDeviceCursor
-- method Window::set_device_events
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_device_events" gdk_window_set_device_events ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Device -> -- device : TInterface "Gdk" "Device"
CUInt -> -- event_mask : TInterface "Gdk" "EventMask"
IO ()
windowSetDeviceEvents ::
(MonadIO m, WindowK a, DeviceK b) =>
a -- _obj
-> b -- device
-> [EventMask] -- eventMask
-> m () -- result
windowSetDeviceEvents _obj device eventMask = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let device' = unsafeManagedPtrCastPtr device
let eventMask' = gflagsToWord eventMask
gdk_window_set_device_events _obj' device' eventMask'
touchManagedPtr _obj
touchManagedPtr device
return ()
data WindowSetDeviceEventsMethodInfo
instance (signature ~ (b -> [EventMask] -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowSetDeviceEventsMethodInfo a signature where
overloadedMethod _ = windowSetDeviceEvents
-- method Window::set_event_compression
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_event_compression" gdk_window_set_event_compression ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- event_compression : TBasicType TBoolean
IO ()
windowSetEventCompression ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- eventCompression
-> m () -- result
windowSetEventCompression _obj eventCompression = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let eventCompression' = (fromIntegral . fromEnum) eventCompression
gdk_window_set_event_compression _obj' eventCompression'
touchManagedPtr _obj
return ()
data WindowSetEventCompressionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetEventCompressionMethodInfo a signature where
overloadedMethod _ = windowSetEventCompression
-- method Window::set_events
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_events" gdk_window_set_events ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- event_mask : TInterface "Gdk" "EventMask"
IO ()
windowSetEvents ::
(MonadIO m, WindowK a) =>
a -- _obj
-> [EventMask] -- eventMask
-> m () -- result
windowSetEvents _obj eventMask = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let eventMask' = gflagsToWord eventMask
gdk_window_set_events _obj' eventMask'
touchManagedPtr _obj
return ()
data WindowSetEventsMethodInfo
instance (signature ~ ([EventMask] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetEventsMethodInfo a signature where
overloadedMethod _ = windowSetEvents
-- method Window::set_focus_on_map
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_focus_on_map" gdk_window_set_focus_on_map ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- focus_on_map : TBasicType TBoolean
IO ()
windowSetFocusOnMap ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- focusOnMap
-> m () -- result
windowSetFocusOnMap _obj focusOnMap = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let focusOnMap' = (fromIntegral . fromEnum) focusOnMap
gdk_window_set_focus_on_map _obj' focusOnMap'
touchManagedPtr _obj
return ()
data WindowSetFocusOnMapMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFocusOnMapMethodInfo a signature where
overloadedMethod _ = windowSetFocusOnMap
-- method Window::set_fullscreen_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_fullscreen_mode" gdk_window_set_fullscreen_mode ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- mode : TInterface "Gdk" "FullscreenMode"
IO ()
windowSetFullscreenMode ::
(MonadIO m, WindowK a) =>
a -- _obj
-> FullscreenMode -- mode
-> m () -- result
windowSetFullscreenMode _obj mode = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mode' = (fromIntegral . fromEnum) mode
gdk_window_set_fullscreen_mode _obj' mode'
touchManagedPtr _obj
return ()
data WindowSetFullscreenModeMethodInfo
instance (signature ~ (FullscreenMode -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFullscreenModeMethodInfo a signature where
overloadedMethod _ = windowSetFullscreenMode
-- method Window::set_functions
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_functions" gdk_window_set_functions ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- functions : TInterface "Gdk" "WMFunction"
IO ()
windowSetFunctions ::
(MonadIO m, WindowK a) =>
a -- _obj
-> [WMFunction] -- functions
-> m () -- result
windowSetFunctions _obj functions = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let functions' = gflagsToWord functions
gdk_window_set_functions _obj' functions'
touchManagedPtr _obj
return ()
data WindowSetFunctionsMethodInfo
instance (signature ~ ([WMFunction] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFunctionsMethodInfo a signature where
overloadedMethod _ = windowSetFunctions
-- method Window::set_geometry_hints
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_geometry_hints" gdk_window_set_geometry_hints ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Geometry -> -- geometry : TInterface "Gdk" "Geometry"
CUInt -> -- geom_mask : TInterface "Gdk" "WindowHints"
IO ()
windowSetGeometryHints ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Geometry -- geometry
-> [WindowHints] -- geomMask
-> m () -- result
windowSetGeometryHints _obj geometry geomMask = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let geometry' = unsafeManagedPtrGetPtr geometry
let geomMask' = gflagsToWord geomMask
gdk_window_set_geometry_hints _obj' geometry' geomMask'
touchManagedPtr _obj
touchManagedPtr geometry
return ()
data WindowSetGeometryHintsMethodInfo
instance (signature ~ (Geometry -> [WindowHints] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetGeometryHintsMethodInfo a signature where
overloadedMethod _ = windowSetGeometryHints
-- method Window::set_group
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_group" gdk_window_set_group ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Window -> -- leader : TInterface "Gdk" "Window"
IO ()
windowSetGroup ::
(MonadIO m, WindowK a, WindowK b) =>
a -- _obj
-> Maybe (b) -- leader
-> m () -- result
windowSetGroup _obj leader = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLeader <- case leader of
Nothing -> return nullPtr
Just jLeader -> do
let jLeader' = unsafeManagedPtrCastPtr jLeader
return jLeader'
gdk_window_set_group _obj' maybeLeader
touchManagedPtr _obj
whenJust leader touchManagedPtr
return ()
data WindowSetGroupMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetGroupMethodInfo a signature where
overloadedMethod _ = windowSetGroup
-- method Window::set_icon_list
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_icon_list" gdk_window_set_icon_list ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- pixbufs : TGList (TInterface "GdkPixbuf" "Pixbuf")
IO ()
windowSetIconList ::
(MonadIO m, WindowK a, GdkPixbuf.PixbufK b) =>
a -- _obj
-> [b] -- pixbufs
-> m () -- result
windowSetIconList _obj pixbufs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let pixbufs' = map unsafeManagedPtrCastPtr pixbufs
pixbufs'' <- packGList pixbufs'
gdk_window_set_icon_list _obj' pixbufs''
touchManagedPtr _obj
mapM_ touchManagedPtr pixbufs
g_list_free pixbufs''
return ()
data WindowSetIconListMethodInfo
instance (signature ~ ([b] -> m ()), MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => MethodInfo WindowSetIconListMethodInfo a signature where
overloadedMethod _ = windowSetIconList
-- method Window::set_icon_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_icon_name" gdk_window_set_icon_name ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CString -> -- name : TBasicType TUTF8
IO ()
windowSetIconName ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Maybe (T.Text) -- name
-> m () -- result
windowSetIconName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeName <- case name of
Nothing -> return nullPtr
Just jName -> do
jName' <- textToCString jName
return jName'
gdk_window_set_icon_name _obj' maybeName
touchManagedPtr _obj
freeMem maybeName
return ()
data WindowSetIconNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetIconNameMethodInfo a signature where
overloadedMethod _ = windowSetIconName
-- method Window::set_keep_above
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_keep_above" gdk_window_set_keep_above ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetKeepAbove ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- setting
-> m () -- result
windowSetKeepAbove _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gdk_window_set_keep_above _obj' setting'
touchManagedPtr _obj
return ()
data WindowSetKeepAboveMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepAboveMethodInfo a signature where
overloadedMethod _ = windowSetKeepAbove
-- method Window::set_keep_below
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_keep_below" gdk_window_set_keep_below ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetKeepBelow ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- setting
-> m () -- result
windowSetKeepBelow _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gdk_window_set_keep_below _obj' setting'
touchManagedPtr _obj
return ()
data WindowSetKeepBelowMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepBelowMethodInfo a signature where
overloadedMethod _ = windowSetKeepBelow
-- method Window::set_modal_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_modal_hint" gdk_window_set_modal_hint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- modal : TBasicType TBoolean
IO ()
windowSetModalHint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- modal
-> m () -- result
windowSetModalHint _obj modal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let modal' = (fromIntegral . fromEnum) modal
gdk_window_set_modal_hint _obj' modal'
touchManagedPtr _obj
return ()
data WindowSetModalHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetModalHintMethodInfo a signature where
overloadedMethod _ = windowSetModalHint
-- method Window::set_opacity
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_opacity" gdk_window_set_opacity ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CDouble -> -- opacity : TBasicType TDouble
IO ()
windowSetOpacity ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Double -- opacity
-> m () -- result
windowSetOpacity _obj opacity = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let opacity' = realToFrac opacity
gdk_window_set_opacity _obj' opacity'
touchManagedPtr _obj
return ()
data WindowSetOpacityMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpacityMethodInfo a signature where
overloadedMethod _ = windowSetOpacity
-- method Window::set_opaque_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_opaque_region" gdk_window_set_opaque_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Region -> -- region : TInterface "cairo" "Region"
IO ()
windowSetOpaqueRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Maybe (Cairo.Region) -- region
-> m () -- result
windowSetOpaqueRegion _obj region = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeRegion <- case region of
Nothing -> return nullPtr
Just jRegion -> do
let jRegion' = unsafeManagedPtrGetPtr jRegion
return jRegion'
gdk_window_set_opaque_region _obj' maybeRegion
touchManagedPtr _obj
whenJust region touchManagedPtr
return ()
data WindowSetOpaqueRegionMethodInfo
instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpaqueRegionMethodInfo a signature where
overloadedMethod _ = windowSetOpaqueRegion
-- method Window::set_override_redirect
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_override_redirect" gdk_window_set_override_redirect ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- override_redirect : TBasicType TBoolean
IO ()
windowSetOverrideRedirect ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- overrideRedirect
-> m () -- result
windowSetOverrideRedirect _obj overrideRedirect = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let overrideRedirect' = (fromIntegral . fromEnum) overrideRedirect
gdk_window_set_override_redirect _obj' overrideRedirect'
touchManagedPtr _obj
return ()
data WindowSetOverrideRedirectMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOverrideRedirectMethodInfo a signature where
overloadedMethod _ = windowSetOverrideRedirect
-- method Window::set_pass_through
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_pass_through" gdk_window_set_pass_through ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- pass_through : TBasicType TBoolean
IO ()
windowSetPassThrough ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- passThrough
-> m () -- result
windowSetPassThrough _obj passThrough = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let passThrough' = (fromIntegral . fromEnum) passThrough
gdk_window_set_pass_through _obj' passThrough'
touchManagedPtr _obj
return ()
data WindowSetPassThroughMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetPassThroughMethodInfo a signature where
overloadedMethod _ = windowSetPassThrough
-- method Window::set_role
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_role" gdk_window_set_role ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CString -> -- role : TBasicType TUTF8
IO ()
windowSetRole ::
(MonadIO m, WindowK a) =>
a -- _obj
-> T.Text -- role
-> m () -- result
windowSetRole _obj role = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
role' <- textToCString role
gdk_window_set_role _obj' role'
touchManagedPtr _obj
freeMem role'
return ()
data WindowSetRoleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetRoleMethodInfo a signature where
overloadedMethod _ = windowSetRole
-- method Window::set_shadow_width
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_shadow_width" gdk_window_set_shadow_width ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Int32 -> -- left : TBasicType TInt32
Int32 -> -- right : TBasicType TInt32
Int32 -> -- top : TBasicType TInt32
Int32 -> -- bottom : TBasicType TInt32
IO ()
windowSetShadowWidth ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Int32 -- left
-> Int32 -- right
-> Int32 -- top
-> Int32 -- bottom
-> m () -- result
windowSetShadowWidth _obj left right top bottom = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_set_shadow_width _obj' left right top bottom
touchManagedPtr _obj
return ()
data WindowSetShadowWidthMethodInfo
instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetShadowWidthMethodInfo a signature where
overloadedMethod _ = windowSetShadowWidth
-- method Window::set_skip_pager_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_skip_pager_hint" gdk_window_set_skip_pager_hint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- skips_pager : TBasicType TBoolean
IO ()
windowSetSkipPagerHint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- skipsPager
-> m () -- result
windowSetSkipPagerHint _obj skipsPager = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let skipsPager' = (fromIntegral . fromEnum) skipsPager
gdk_window_set_skip_pager_hint _obj' skipsPager'
touchManagedPtr _obj
return ()
data WindowSetSkipPagerHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipPagerHintMethodInfo a signature where
overloadedMethod _ = windowSetSkipPagerHint
-- method Window::set_skip_taskbar_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_skip_taskbar_hint" gdk_window_set_skip_taskbar_hint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- skips_taskbar : TBasicType TBoolean
IO ()
windowSetSkipTaskbarHint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- skipsTaskbar
-> m () -- result
windowSetSkipTaskbarHint _obj skipsTaskbar = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let skipsTaskbar' = (fromIntegral . fromEnum) skipsTaskbar
gdk_window_set_skip_taskbar_hint _obj' skipsTaskbar'
touchManagedPtr _obj
return ()
data WindowSetSkipTaskbarHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipTaskbarHintMethodInfo a signature where
overloadedMethod _ = windowSetSkipTaskbarHint
-- method Window::set_source_events
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_source_events" gdk_window_set_source_events ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- source : TInterface "Gdk" "InputSource"
CUInt -> -- event_mask : TInterface "Gdk" "EventMask"
IO ()
windowSetSourceEvents ::
(MonadIO m, WindowK a) =>
a -- _obj
-> InputSource -- source
-> [EventMask] -- eventMask
-> m () -- result
windowSetSourceEvents _obj source eventMask = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let source' = (fromIntegral . fromEnum) source
let eventMask' = gflagsToWord eventMask
gdk_window_set_source_events _obj' source' eventMask'
touchManagedPtr _obj
return ()
data WindowSetSourceEventsMethodInfo
instance (signature ~ (InputSource -> [EventMask] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSourceEventsMethodInfo a signature where
overloadedMethod _ = windowSetSourceEvents
-- method Window::set_startup_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_startup_id" gdk_window_set_startup_id ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CString -> -- startup_id : TBasicType TUTF8
IO ()
windowSetStartupId ::
(MonadIO m, WindowK a) =>
a -- _obj
-> T.Text -- startupId
-> m () -- result
windowSetStartupId _obj startupId = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
startupId' <- textToCString startupId
gdk_window_set_startup_id _obj' startupId'
touchManagedPtr _obj
freeMem startupId'
return ()
data WindowSetStartupIdMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetStartupIdMethodInfo a signature where
overloadedMethod _ = windowSetStartupId
-- method Window::set_static_gravities
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_static_gravities" gdk_window_set_static_gravities ::
Ptr Window -> -- _obj : TInterface "Gdk" "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."]#-}
windowSetStaticGravities ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- useStatic
-> m Bool -- result
windowSetStaticGravities _obj useStatic = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let useStatic' = (fromIntegral . fromEnum) useStatic
result <- gdk_window_set_static_gravities _obj' useStatic'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data WindowSetStaticGravitiesMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowSetStaticGravitiesMethodInfo a signature where
overloadedMethod _ = windowSetStaticGravities
-- method Window::set_support_multidevice
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_support_multidevice" gdk_window_set_support_multidevice ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- support_multidevice : TBasicType TBoolean
IO ()
windowSetSupportMultidevice ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- supportMultidevice
-> m () -- result
windowSetSupportMultidevice _obj supportMultidevice = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice
gdk_window_set_support_multidevice _obj' supportMultidevice'
touchManagedPtr _obj
return ()
data WindowSetSupportMultideviceMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSupportMultideviceMethodInfo a signature where
overloadedMethod _ = windowSetSupportMultidevice
-- method Window::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_title" gdk_window_set_title ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CString -> -- title : TBasicType TUTF8
IO ()
windowSetTitle ::
(MonadIO m, WindowK a) =>
a -- _obj
-> T.Text -- title
-> m () -- result
windowSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gdk_window_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
data WindowSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTitleMethodInfo a signature where
overloadedMethod _ = windowSetTitle
-- method Window::set_transient_for
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_transient_for" gdk_window_set_transient_for ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Window -> -- parent : TInterface "Gdk" "Window"
IO ()
windowSetTransientFor ::
(MonadIO m, WindowK a, WindowK b) =>
a -- _obj
-> b -- parent
-> m () -- result
windowSetTransientFor _obj parent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let parent' = unsafeManagedPtrCastPtr parent
gdk_window_set_transient_for _obj' parent'
touchManagedPtr _obj
touchManagedPtr parent
return ()
data WindowSetTransientForMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetTransientForMethodInfo a signature where
overloadedMethod _ = windowSetTransientFor
-- method Window::set_type_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_type_hint" gdk_window_set_type_hint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CUInt -> -- hint : TInterface "Gdk" "WindowTypeHint"
IO ()
windowSetTypeHint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> WindowTypeHint -- hint
-> m () -- result
windowSetTypeHint _obj hint = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hint' = (fromIntegral . fromEnum) hint
gdk_window_set_type_hint _obj' hint'
touchManagedPtr _obj
return ()
data WindowSetTypeHintMethodInfo
instance (signature ~ (WindowTypeHint -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTypeHintMethodInfo a signature where
overloadedMethod _ = windowSetTypeHint
-- method Window::set_urgency_hint
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_urgency_hint" gdk_window_set_urgency_hint ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
CInt -> -- urgent : TBasicType TBoolean
IO ()
windowSetUrgencyHint ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Bool -- urgent
-> m () -- result
windowSetUrgencyHint _obj urgent = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let urgent' = (fromIntegral . fromEnum) urgent
gdk_window_set_urgency_hint _obj' urgent'
touchManagedPtr _obj
return ()
data WindowSetUrgencyHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetUrgencyHintMethodInfo a signature where
overloadedMethod _ = windowSetUrgencyHint
-- method Window::set_user_data
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_user_data" gdk_window_set_user_data ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr GObject.Object -> -- user_data : TInterface "GObject" "Object"
IO ()
windowSetUserData ::
(MonadIO m, WindowK a, GObject.ObjectK b) =>
a -- _obj
-> Maybe (b) -- userData
-> m () -- result
windowSetUserData _obj userData = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeUserData <- case userData of
Nothing -> return nullPtr
Just jUserData -> do
let jUserData' = unsafeManagedPtrCastPtr jUserData
return jUserData'
gdk_window_set_user_data _obj' maybeUserData
touchManagedPtr _obj
whenJust userData touchManagedPtr
return ()
data WindowSetUserDataMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, GObject.ObjectK b) => MethodInfo WindowSetUserDataMethodInfo a signature where
overloadedMethod _ = windowSetUserData
-- method Window::shape_combine_region
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_shape_combine_region" gdk_window_shape_combine_region ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Cairo.Region -> -- shape_region : TInterface "cairo" "Region"
Int32 -> -- offset_x : TBasicType TInt32
Int32 -> -- offset_y : TBasicType TInt32
IO ()
windowShapeCombineRegion ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Maybe (Cairo.Region) -- shapeRegion
-> Int32 -- offsetX
-> Int32 -- offsetY
-> m () -- result
windowShapeCombineRegion _obj shapeRegion offsetX offsetY = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeShapeRegion <- case shapeRegion of
Nothing -> return nullPtr
Just jShapeRegion -> do
let jShapeRegion' = unsafeManagedPtrGetPtr jShapeRegion
return jShapeRegion'
gdk_window_shape_combine_region _obj' maybeShapeRegion offsetX offsetY
touchManagedPtr _obj
whenJust shapeRegion touchManagedPtr
return ()
data WindowShapeCombineRegionMethodInfo
instance (signature ~ (Maybe (Cairo.Region) -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowShapeCombineRegionMethodInfo a signature where
overloadedMethod _ = windowShapeCombineRegion
-- method Window::show
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_show" gdk_window_show ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowShow ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowShow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_show _obj'
touchManagedPtr _obj
return ()
data WindowShowMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowShowMethodInfo a signature where
overloadedMethod _ = windowShow
-- method Window::show_unraised
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_show_unraised" gdk_window_show_unraised ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowShowUnraised ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowShowUnraised _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_show_unraised _obj'
touchManagedPtr _obj
return ()
data WindowShowUnraisedMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowShowUnraisedMethodInfo a signature where
overloadedMethod _ = windowShowUnraised
-- method Window::show_window_menu
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_show_window_menu" gdk_window_show_window_menu ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
Ptr Event -> -- event : TInterface "Gdk" "Event"
IO CInt
windowShowWindowMenu ::
(MonadIO m, WindowK a) =>
a -- _obj
-> Event -- event
-> m Bool -- result
windowShowWindowMenu _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gdk_window_show_window_menu _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
data WindowShowWindowMenuMethodInfo
instance (signature ~ (Event -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowShowWindowMenuMethodInfo a signature where
overloadedMethod _ = windowShowWindowMenu
-- method Window::stick
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_stick" gdk_window_stick ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowStick ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowStick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_stick _obj'
touchManagedPtr _obj
return ()
data WindowStickMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowStickMethodInfo a signature where
overloadedMethod _ = windowStick
-- method Window::thaw_toplevel_updates_libgtk_only
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_thaw_toplevel_updates_libgtk_only" gdk_window_thaw_toplevel_updates_libgtk_only ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
{-# DEPRECATED windowThawToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-}
windowThawToplevelUpdatesLibgtkOnly ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowThawToplevelUpdatesLibgtkOnly _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_thaw_toplevel_updates_libgtk_only _obj'
touchManagedPtr _obj
return ()
data WindowThawToplevelUpdatesLibgtkOnlyMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowThawToplevelUpdatesLibgtkOnlyMethodInfo a signature where
overloadedMethod _ = windowThawToplevelUpdatesLibgtkOnly
-- method Window::thaw_updates
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_thaw_updates" gdk_window_thaw_updates ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowThawUpdates ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowThawUpdates _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_thaw_updates _obj'
touchManagedPtr _obj
return ()
data WindowThawUpdatesMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowThawUpdatesMethodInfo a signature where
overloadedMethod _ = windowThawUpdates
-- method Window::unfullscreen
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_unfullscreen" gdk_window_unfullscreen ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowUnfullscreen ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowUnfullscreen _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_unfullscreen _obj'
touchManagedPtr _obj
return ()
data WindowUnfullscreenMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnfullscreenMethodInfo a signature where
overloadedMethod _ = windowUnfullscreen
-- method Window::unmaximize
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_unmaximize" gdk_window_unmaximize ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowUnmaximize ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowUnmaximize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_unmaximize _obj'
touchManagedPtr _obj
return ()
data WindowUnmaximizeMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnmaximizeMethodInfo a signature where
overloadedMethod _ = windowUnmaximize
-- method Window::unstick
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_unstick" gdk_window_unstick ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowUnstick ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowUnstick _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_unstick _obj'
touchManagedPtr _obj
return ()
data WindowUnstickMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnstickMethodInfo a signature where
overloadedMethod _ = windowUnstick
-- method Window::withdraw
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_withdraw" gdk_window_withdraw ::
Ptr Window -> -- _obj : TInterface "Gdk" "Window"
IO ()
windowWithdraw ::
(MonadIO m, WindowK a) =>
a -- _obj
-> m () -- result
windowWithdraw _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_window_withdraw _obj'
touchManagedPtr _obj
return ()
data WindowWithdrawMethodInfo
instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowWithdrawMethodInfo a signature where
overloadedMethod _ = windowWithdraw
-- method Window::at_pointer
-- method type : MemberFunction
-- Args : [Arg {argCName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TInterface "Gdk" "Window"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_at_pointer" gdk_window_at_pointer ::
Ptr Int32 -> -- win_x : TBasicType TInt32
Ptr Int32 -> -- win_y : TBasicType TInt32
IO (Ptr Window)
{-# DEPRECATED windowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-}
windowAtPointer ::
(MonadIO m) =>
m (Window,Int32,Int32) -- result
windowAtPointer = liftIO $ do
winX <- allocMem :: IO (Ptr Int32)
winY <- allocMem :: IO (Ptr Int32)
result <- gdk_window_at_pointer winX winY
checkUnexpectedReturnNULL "gdk_window_at_pointer" result
result' <- (newObject Window) result
winX' <- peek winX
winY' <- peek winY
freeMem winX
freeMem winY
return (result', winX', winY')
-- method Window::constrain_size
-- method type : MemberFunction
-- Args : [Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "new_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_constrain_size" gdk_window_constrain_size ::
Ptr Geometry -> -- geometry : TInterface "Gdk" "Geometry"
CUInt -> -- flags : TInterface "Gdk" "WindowHints"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
Ptr Int32 -> -- new_width : TBasicType TInt32
Ptr Int32 -> -- new_height : TBasicType TInt32
IO ()
windowConstrainSize ::
(MonadIO m) =>
Geometry -- geometry
-> [WindowHints] -- flags
-> Int32 -- width
-> Int32 -- height
-> m (Int32,Int32) -- result
windowConstrainSize geometry flags width height = liftIO $ do
let 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')
-- method Window::process_all_updates
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_process_all_updates" gdk_window_process_all_updates ::
IO ()
windowProcessAllUpdates ::
(MonadIO m) =>
m () -- result
windowProcessAllUpdates = liftIO $ do
gdk_window_process_all_updates
return ()
-- method Window::set_debug_updates
-- method type : MemberFunction
-- Args : [Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_window_set_debug_updates" gdk_window_set_debug_updates ::
CInt -> -- setting : TBasicType TBoolean
IO ()
windowSetDebugUpdates ::
(MonadIO m) =>
Bool -- setting
-> m () -- result
windowSetDebugUpdates setting = liftIO $ do
let setting' = (fromIntegral . fromEnum) setting
gdk_window_set_debug_updates setting'
return ()