{- | 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 windowBeep , -- ** windowBeginMoveDrag windowBeginMoveDrag , -- ** windowBeginMoveDragForDevice windowBeginMoveDragForDevice , -- ** windowBeginPaintRect windowBeginPaintRect , -- ** windowBeginPaintRegion windowBeginPaintRegion , -- ** windowBeginResizeDrag windowBeginResizeDrag , -- ** windowBeginResizeDragForDevice windowBeginResizeDragForDevice , -- ** windowConfigureFinished windowConfigureFinished , -- ** windowConstrainSize windowConstrainSize , -- ** windowCoordsFromParent windowCoordsFromParent , -- ** windowCoordsToParent windowCoordsToParent , -- ** windowCreateGlContext windowCreateGlContext , -- ** windowCreateSimilarImageSurface windowCreateSimilarImageSurface , -- ** windowCreateSimilarSurface windowCreateSimilarSurface , -- ** windowDeiconify windowDeiconify , -- ** windowDestroy windowDestroy , -- ** windowDestroyNotify windowDestroyNotify , -- ** windowEnableSynchronizedConfigure windowEnableSynchronizedConfigure , -- ** windowEndPaint windowEndPaint , -- ** windowEnsureNative windowEnsureNative , -- ** windowFlush windowFlush , -- ** windowFocus windowFocus , -- ** windowFreezeToplevelUpdatesLibgtkOnly windowFreezeToplevelUpdatesLibgtkOnly , -- ** windowFreezeUpdates windowFreezeUpdates , -- ** windowFullscreen windowFullscreen , -- ** windowGeometryChanged windowGeometryChanged , -- ** windowGetAcceptFocus windowGetAcceptFocus , -- ** windowGetBackgroundPattern windowGetBackgroundPattern , -- ** windowGetChildren windowGetChildren , -- ** windowGetChildrenWithUserData windowGetChildrenWithUserData , -- ** windowGetClipRegion windowGetClipRegion , -- ** windowGetComposited windowGetComposited , -- ** windowGetCursor windowGetCursor , -- ** windowGetDecorations windowGetDecorations , -- ** windowGetDeviceCursor windowGetDeviceCursor , -- ** windowGetDeviceEvents windowGetDeviceEvents , -- ** windowGetDevicePosition windowGetDevicePosition , -- ** windowGetDevicePositionDouble windowGetDevicePositionDouble , -- ** windowGetDisplay windowGetDisplay , -- ** windowGetDragProtocol windowGetDragProtocol , -- ** windowGetEffectiveParent windowGetEffectiveParent , -- ** windowGetEffectiveToplevel windowGetEffectiveToplevel , -- ** windowGetEventCompression windowGetEventCompression , -- ** windowGetEvents windowGetEvents , -- ** windowGetFocusOnMap windowGetFocusOnMap , -- ** windowGetFrameClock windowGetFrameClock , -- ** windowGetFrameExtents windowGetFrameExtents , -- ** windowGetFullscreenMode windowGetFullscreenMode , -- ** windowGetGeometry windowGetGeometry , -- ** windowGetGroup windowGetGroup , -- ** windowGetHeight windowGetHeight , -- ** windowGetModalHint windowGetModalHint , -- ** windowGetOrigin windowGetOrigin , -- ** windowGetParent windowGetParent , -- ** windowGetPointer windowGetPointer , -- ** windowGetPosition windowGetPosition , -- ** windowGetRootCoords windowGetRootCoords , -- ** windowGetRootOrigin windowGetRootOrigin , -- ** windowGetScaleFactor windowGetScaleFactor , -- ** windowGetScreen windowGetScreen , -- ** windowGetSourceEvents windowGetSourceEvents , -- ** windowGetState windowGetState , -- ** windowGetSupportMultidevice windowGetSupportMultidevice , -- ** windowGetToplevel windowGetToplevel , -- ** windowGetTypeHint windowGetTypeHint , -- ** windowGetUpdateArea windowGetUpdateArea , -- ** windowGetUserData windowGetUserData , -- ** windowGetVisibleRegion windowGetVisibleRegion , -- ** windowGetVisual windowGetVisual , -- ** windowGetWidth windowGetWidth , -- ** windowGetWindowType windowGetWindowType , -- ** windowHasNative windowHasNative , -- ** windowHide windowHide , -- ** windowIconify windowIconify , -- ** windowInputShapeCombineRegion windowInputShapeCombineRegion , -- ** windowInvalidateMaybeRecurse windowInvalidateMaybeRecurse , -- ** windowInvalidateRect windowInvalidateRect , -- ** windowInvalidateRegion windowInvalidateRegion , -- ** windowIsDestroyed windowIsDestroyed , -- ** windowIsInputOnly windowIsInputOnly , -- ** windowIsShaped windowIsShaped , -- ** windowIsViewable windowIsViewable , -- ** windowIsVisible windowIsVisible , -- ** windowLower windowLower , -- ** windowMarkPaintFromClip windowMarkPaintFromClip , -- ** windowMaximize windowMaximize , -- ** windowMergeChildInputShapes windowMergeChildInputShapes , -- ** windowMergeChildShapes windowMergeChildShapes , -- ** windowMove windowMove , -- ** windowMoveRegion windowMoveRegion , -- ** windowMoveResize windowMoveResize , -- ** windowNew windowNew , -- ** windowPeekChildren windowPeekChildren , -- ** windowProcessAllUpdates windowProcessAllUpdates , -- ** windowProcessUpdates windowProcessUpdates , -- ** windowRaise windowRaise , -- ** windowRegisterDnd windowRegisterDnd , -- ** windowReparent windowReparent , -- ** windowResize windowResize , -- ** windowRestack windowRestack , -- ** windowScroll windowScroll , -- ** windowSetAcceptFocus windowSetAcceptFocus , -- ** windowSetBackground windowSetBackground , -- ** windowSetBackgroundPattern windowSetBackgroundPattern , -- ** windowSetBackgroundRgba windowSetBackgroundRgba , -- ** windowSetChildInputShapes windowSetChildInputShapes , -- ** windowSetChildShapes windowSetChildShapes , -- ** windowSetComposited windowSetComposited , -- ** windowSetCursor windowSetCursor , -- ** windowSetDebugUpdates windowSetDebugUpdates , -- ** windowSetDecorations windowSetDecorations , -- ** windowSetDeviceCursor windowSetDeviceCursor , -- ** windowSetDeviceEvents windowSetDeviceEvents , -- ** windowSetEventCompression windowSetEventCompression , -- ** windowSetEvents windowSetEvents , -- ** windowSetFocusOnMap windowSetFocusOnMap , -- ** windowSetFullscreenMode windowSetFullscreenMode , -- ** windowSetFunctions windowSetFunctions , -- ** windowSetGeometryHints windowSetGeometryHints , -- ** windowSetGroup windowSetGroup , -- ** windowSetIconList windowSetIconList , -- ** windowSetIconName windowSetIconName , -- ** windowSetKeepAbove windowSetKeepAbove , -- ** windowSetKeepBelow windowSetKeepBelow , -- ** windowSetModalHint windowSetModalHint , -- ** windowSetOpacity windowSetOpacity , -- ** windowSetOpaqueRegion windowSetOpaqueRegion , -- ** windowSetOverrideRedirect windowSetOverrideRedirect , -- ** windowSetRole windowSetRole , -- ** windowSetShadowWidth windowSetShadowWidth , -- ** windowSetSkipPagerHint windowSetSkipPagerHint , -- ** windowSetSkipTaskbarHint windowSetSkipTaskbarHint , -- ** windowSetSourceEvents windowSetSourceEvents , -- ** windowSetStartupId windowSetStartupId , -- ** windowSetStaticGravities windowSetStaticGravities , -- ** windowSetSupportMultidevice windowSetSupportMultidevice , -- ** windowSetTitle windowSetTitle , -- ** windowSetTransientFor windowSetTransientFor , -- ** windowSetTypeHint windowSetTypeHint , -- ** windowSetUrgencyHint windowSetUrgencyHint , -- ** windowSetUserData windowSetUserData , -- ** windowShapeCombineRegion windowShapeCombineRegion , -- ** windowShow windowShow , -- ** windowShowUnraised windowShowUnraised , -- ** windowShowWindowMenu windowShowWindowMenu , -- ** windowStick windowStick , -- ** windowThawToplevelUpdatesLibgtkOnly windowThawToplevelUpdatesLibgtkOnly , -- ** windowThawUpdates windowThawUpdates , -- ** windowUnfullscreen windowUnfullscreen , -- ** windowUnmaximize windowUnmaximize , -- ** windowUnstick windowUnstick , -- ** windowWithdraw 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 -- 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 _ embedder_x embedder_y offscreen_x offscreen_y _ = do let embedder_x' = realToFrac embedder_x let embedder_y' = realToFrac embedder_y (outoffscreen_x, outoffscreen_y) <- _cb embedder_x' embedder_y' let outoffscreen_x' = realToFrac outoffscreen_x poke offscreen_x outoffscreen_x' let outoffscreen_y' = realToFrac outoffscreen_y poke offscreen_y outoffscreen_y' 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 _ offscreen_x offscreen_y embedder_x embedder_y _ = do let offscreen_x' = realToFrac offscreen_x let offscreen_y' = realToFrac offscreen_y (outembedder_x, outembedder_y) <- _cb offscreen_x' offscreen_y' let outembedder_x' = realToFrac outembedder_x poke embedder_x outembedder_x' let outembedder_y' = realToFrac outembedder_y poke embedder_y outembedder_y' 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 = "Window::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 = ('[ '("create-surface", WindowCreateSurfaceSignalInfo), '("from-embedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pick-embedded-child", WindowPickEmbeddedChildSignalInfo), '("to-embedder", WindowToEmbedderSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method Window::new -- method type : Constructor -- Args : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] -> -- attributes_mask m Window windowNew parent attributes attributes_mask = liftIO $ do maybeParent <- case parent of Nothing -> return nullPtr Just jParent -> do let jParent' = unsafeManagedPtrCastPtr jParent return jParent' let attributes' = unsafeManagedPtrGetPtr attributes let attributes_mask' = gflagsToWord attributes_mask result <- gdk_window_new maybeParent attributes' attributes_mask' checkUnexpectedReturnNULL "gdk_window_new" result result' <- (wrapObject Window) result whenJust parent touchManagedPtr touchManagedPtr attributes return result' -- method Window::beep -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowBeep _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_beep _obj' touchManagedPtr _obj return () -- method Window::begin_move_drag -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginMoveDrag _obj button root_x root_y timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_begin_move_drag _obj' button root_x root_y timestamp touchManagedPtr _obj return () -- method Window::begin_move_drag_for_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginMoveDragForDevice _obj device button root_x root_y timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device gdk_window_begin_move_drag_for_device _obj' device' button root_x root_y timestamp touchManagedPtr _obj touchManagedPtr device return () -- method Window::begin_paint_rect -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 Cairo.RectangleInt -> -- rectangle : TInterface "cairo" "RectangleInt" IO () windowBeginPaintRect :: (MonadIO m, WindowK a) => a -> -- _obj Cairo.RectangleInt -> -- rectangle m () 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 () -- method Window::begin_paint_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::begin_resize_drag -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginResizeDrag _obj edge button root_x root_y timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let edge' = (fromIntegral . fromEnum) edge gdk_window_begin_resize_drag _obj' edge' button root_x root_y timestamp touchManagedPtr _obj return () -- method Window::begin_resize_drag_for_device -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- root_x Int32 -> -- root_y Word32 -> -- timestamp m () windowBeginResizeDragForDevice _obj edge device button root_x root_y 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 root_x root_y timestamp touchManagedPtr _obj touchManagedPtr device return () -- method Window::configure_finished -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowConfigureFinished _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_configure_finished _obj' touchManagedPtr _obj return () -- method Window::coords_from_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- parent_x Double -> -- parent_y m (Double,Double) windowCoordsFromParent _obj parent_x parent_y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let parent_x' = realToFrac parent_x let parent_y' = realToFrac parent_y x <- allocMem :: IO (Ptr CDouble) y <- allocMem :: IO (Ptr CDouble) gdk_window_coords_from_parent _obj' parent_x' parent_y' 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'') -- method Window::coords_to_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) windowCoordsToParent _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let x' = realToFrac x let y' = realToFrac y parent_x <- allocMem :: IO (Ptr CDouble) parent_y <- allocMem :: IO (Ptr CDouble) gdk_window_coords_to_parent _obj' x' y' parent_x parent_y parent_x' <- peek parent_x let parent_x'' = realToFrac parent_x' parent_y' <- peek parent_y let parent_y'' = realToFrac parent_y' touchManagedPtr _obj freeMem parent_x freeMem parent_y return (parent_x'', parent_y'') -- method Window::create_gl_context -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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 () ) -- method Window::create_similar_image_surface -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::create_similar_surface -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::deiconify -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowDeiconify _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_deiconify _obj' touchManagedPtr _obj return () -- method Window::destroy -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowDestroy _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_destroy _obj' touchManagedPtr _obj return () -- method Window::destroy_notify -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowDestroyNotify _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_destroy_notify _obj' touchManagedPtr _obj return () -- method Window::enable_synchronized_configure -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowEnableSynchronizedConfigure _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_enable_synchronized_configure _obj' touchManagedPtr _obj return () -- method Window::end_paint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowEndPaint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_end_paint _obj' touchManagedPtr _obj return () -- method Window::ensure_native -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowEnsureNative _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_ensure_native _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::flush -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowFlush _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_flush _obj' touchManagedPtr _obj return () -- method Window::focus -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowFocus _obj timestamp = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_focus _obj' timestamp touchManagedPtr _obj return () -- method Window::freeze_toplevel_updates_libgtk_only -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowFreezeToplevelUpdatesLibgtkOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_freeze_toplevel_updates_libgtk_only _obj' touchManagedPtr _obj return () -- method Window::freeze_updates -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowFreezeUpdates _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_freeze_updates _obj' touchManagedPtr _obj return () -- method Window::fullscreen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowFullscreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_fullscreen _obj' touchManagedPtr _obj return () -- method Window::geometry_changed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowGeometryChanged _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_geometry_changed _obj' touchManagedPtr _obj return () -- method Window::get_accept_focus -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetAcceptFocus _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_accept_focus _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_background_pattern -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_children -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] 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'' -- method Window::get_children_with_user_data -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () -> -- user_data m [Window] windowGetChildrenWithUserData _obj user_data = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_children_with_user_data _obj' user_data 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'' -- method Window::get_clip_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_composited -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetComposited _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_composited _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_decorations -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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]) 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'') -- method Window::get_device_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_device_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] 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' -- method Window::get_device_position -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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]) 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'') -- method Window::get_device_position_double -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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]) 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'') -- method Window::get_display -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_drag_protocol -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) 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'') -- method Window::get_effective_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_effective_toplevel -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_event_compression -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetEventCompression _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_event_compression _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] windowGetEvents _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_events _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method Window::get_focus_on_map -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetFocusOnMap _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_focus_on_map _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_frame_clock -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_frame_extents -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" IO () windowGetFrameExtents :: (MonadIO m, WindowK a) => a -> -- _obj m (Cairo.RectangleInt) windowGetFrameExtents _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt) gdk_window_get_frame_extents _obj' rect rect' <- (wrapBoxed Cairo.RectangleInt) rect touchManagedPtr _obj return rect' -- method Window::get_fullscreen_mode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetFullscreenMode _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_fullscreen_mode _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Window::get_geometry -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) 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') -- method Window::get_group -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_height -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_height _obj' touchManagedPtr _obj return result -- method Window::get_modal_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetModalHint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_modal_hint _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_origin -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) 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') -- method Window::get_parent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_pointer -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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]) 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'') -- method Window::get_position -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) 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') -- method Window::get_root_coords -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) windowGetRootCoords _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj root_x <- allocMem :: IO (Ptr Int32) root_y <- allocMem :: IO (Ptr Int32) gdk_window_get_root_coords _obj' x y root_x root_y root_x' <- peek root_x root_y' <- peek root_y touchManagedPtr _obj freeMem root_x freeMem root_y return (root_x', root_y') -- method Window::get_root_origin -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) 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') -- method Window::get_scale_factor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetScaleFactor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_scale_factor _obj' touchManagedPtr _obj return result -- method Window::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_source_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] 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' -- method Window::get_state -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] windowGetState _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_state _obj' let result' = wordToGFlags result touchManagedPtr _obj return result' -- method Window::get_support_multidevice -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetSupportMultidevice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_support_multidevice _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::get_toplevel -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_type_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetTypeHint _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_type_hint _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Window::get_update_area -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_user_data -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 ())) 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_' -- method Window::get_visible_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_visual -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::get_width -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_width _obj' touchManagedPtr _obj return result -- method Window::get_window_type -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowGetWindowType _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_window_type _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' -- method Window::has_native -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowHasNative _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_has_native _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::hide -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowHide _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_hide _obj' touchManagedPtr _obj return () -- method Window::iconify -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowIconify _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_iconify _obj' touchManagedPtr _obj return () -- method Window::input_shape_combine_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- shape_region Int32 -> -- offset_x Int32 -> -- offset_y m () windowInputShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let shape_region' = unsafeManagedPtrGetPtr shape_region gdk_window_input_shape_combine_region _obj' shape_region' offset_x offset_y touchManagedPtr _obj touchManagedPtr shape_region return () -- method Window::invalidate_maybe_recurse -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] -- 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) -> -- child_func m () windowInvalidateMaybeRecurse _obj region child_func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let region' = unsafeManagedPtrGetPtr region maybeChild_func <- case child_func of Nothing -> return (castPtrToFunPtr nullPtr) Just jChild_func -> do jChild_func' <- mkWindowChildFunc (windowChildFuncWrapper Nothing jChild_func) return jChild_func' let user_data = nullPtr gdk_window_invalidate_maybe_recurse _obj' region' maybeChild_func user_data safeFreeFunPtr $ castFunPtrToPtr maybeChild_func touchManagedPtr _obj touchManagedPtr region return () -- method Window::invalidate_rect -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 Cairo.RectangleInt -> -- rect : TInterface "cairo" "RectangleInt" CInt -> -- invalidate_children : TBasicType TBoolean IO () windowInvalidateRect :: (MonadIO m, WindowK a) => a -> -- _obj Maybe (Cairo.RectangleInt) -> -- rect Bool -> -- invalidate_children m () windowInvalidateRect _obj rect invalidate_children = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeRect <- case rect of Nothing -> return nullPtr Just jRect -> do let jRect' = unsafeManagedPtrGetPtr jRect return jRect' let invalidate_children' = (fromIntegral . fromEnum) invalidate_children gdk_window_invalidate_rect _obj' maybeRect invalidate_children' touchManagedPtr _obj whenJust rect touchManagedPtr return () -- method Window::invalidate_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- invalidate_children m () windowInvalidateRegion _obj region invalidate_children = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let region' = unsafeManagedPtrGetPtr region let invalidate_children' = (fromIntegral . fromEnum) invalidate_children gdk_window_invalidate_region _obj' region' invalidate_children' touchManagedPtr _obj touchManagedPtr region return () -- method Window::is_destroyed -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowIsDestroyed _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_destroyed _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_input_only -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowIsInputOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_input_only _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_shaped -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowIsShaped _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_shaped _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_viewable -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowIsViewable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_viewable _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::is_visible -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 windowIsVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_is_visible _obj' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::lower -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowLower _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_lower _obj' touchManagedPtr _obj return () -- method Window::mark_paint_from_clip -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::maximize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowMaximize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_maximize _obj' touchManagedPtr _obj return () -- method Window::merge_child_input_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowMergeChildInputShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_merge_child_input_shapes _obj' touchManagedPtr _obj return () -- method Window::merge_child_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowMergeChildShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_merge_child_shapes _obj' touchManagedPtr _obj return () -- method Window::move -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowMove _obj x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_move _obj' x y touchManagedPtr _obj return () -- method Window::move_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::move_resize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowMoveResize _obj x y width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_move_resize _obj' x y width height touchManagedPtr _obj return () -- method Window::peek_children -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] 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'' -- method Window::process_updates -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- update_children m () windowProcessUpdates _obj update_children = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let update_children' = (fromIntegral . fromEnum) update_children gdk_window_process_updates _obj' update_children' touchManagedPtr _obj return () -- method Window::raise -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowRaise _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_raise _obj' touchManagedPtr _obj return () -- method Window::register_dnd -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowRegisterDnd _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_register_dnd _obj' touchManagedPtr _obj return () -- method Window::reparent -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- new_parent Int32 -> -- x Int32 -> -- y m () windowReparent _obj new_parent x y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let new_parent' = unsafeManagedPtrCastPtr new_parent gdk_window_reparent _obj' new_parent' x y touchManagedPtr _obj touchManagedPtr new_parent return () -- method Window::resize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowResize _obj width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_resize _obj' width height touchManagedPtr _obj return () -- method Window::restack -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::scroll -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowScroll _obj dx dy = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_scroll _obj' dx dy touchManagedPtr _obj return () -- method Window::set_accept_focus -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- accept_focus m () windowSetAcceptFocus _obj accept_focus = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let accept_focus' = (fromIntegral . fromEnum) accept_focus gdk_window_set_accept_focus _obj' accept_focus' touchManagedPtr _obj return () -- method Window::set_background -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetBackground _obj color = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let color' = unsafeManagedPtrGetPtr color gdk_window_set_background _obj' color' touchManagedPtr _obj touchManagedPtr color return () -- method Window::set_background_pattern -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_background_rgba -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_child_input_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetChildInputShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_set_child_input_shapes _obj' touchManagedPtr _obj return () -- method Window::set_child_shapes -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetChildShapes _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_set_child_shapes _obj' touchManagedPtr _obj return () -- method Window::set_composited -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetComposited _obj composited = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let composited' = (fromIntegral . fromEnum) composited gdk_window_set_composited _obj' composited' touchManagedPtr _obj return () -- method Window::set_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_decorations -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetDecorations _obj decorations = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let decorations' = gflagsToWord decorations gdk_window_set_decorations _obj' decorations' touchManagedPtr _obj return () -- method Window::set_device_cursor -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_device_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] -> -- event_mask m () windowSetDeviceEvents _obj device event_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device let event_mask' = gflagsToWord event_mask gdk_window_set_device_events _obj' device' event_mask' touchManagedPtr _obj touchManagedPtr device return () -- method Window::set_event_compression -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- event_compression m () windowSetEventCompression _obj event_compression = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event_compression' = (fromIntegral . fromEnum) event_compression gdk_window_set_event_compression _obj' event_compression' touchManagedPtr _obj return () -- method Window::set_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] -> -- event_mask m () windowSetEvents _obj event_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let event_mask' = gflagsToWord event_mask gdk_window_set_events _obj' event_mask' touchManagedPtr _obj return () -- method Window::set_focus_on_map -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- focus_on_map m () windowSetFocusOnMap _obj focus_on_map = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let focus_on_map' = (fromIntegral . fromEnum) focus_on_map gdk_window_set_focus_on_map _obj' focus_on_map' touchManagedPtr _obj return () -- method Window::set_fullscreen_mode -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetFullscreenMode _obj mode = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let mode' = (fromIntegral . fromEnum) mode gdk_window_set_fullscreen_mode _obj' mode' touchManagedPtr _obj return () -- method Window::set_functions -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetFunctions _obj functions = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let functions' = gflagsToWord functions gdk_window_set_functions _obj' functions' touchManagedPtr _obj return () -- method Window::set_geometry_hints -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] -> -- geom_mask m () windowSetGeometryHints _obj geometry geom_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let geometry' = unsafeManagedPtrGetPtr geometry let geom_mask' = gflagsToWord geom_mask gdk_window_set_geometry_hints _obj' geometry' geom_mask' touchManagedPtr _obj touchManagedPtr geometry return () -- method Window::set_group -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_icon_list -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_keep_above -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetKeepAbove _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gdk_window_set_keep_above _obj' setting' touchManagedPtr _obj return () -- method Window::set_keep_below -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetKeepBelow _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gdk_window_set_keep_below _obj' setting' touchManagedPtr _obj return () -- method Window::set_modal_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetModalHint _obj modal = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let modal' = (fromIntegral . fromEnum) modal gdk_window_set_modal_hint _obj' modal' touchManagedPtr _obj return () -- method Window::set_opacity -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetOpacity _obj opacity = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let opacity' = realToFrac opacity gdk_window_set_opacity _obj' opacity' touchManagedPtr _obj return () -- method Window::set_opaque_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_override_redirect -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- override_redirect m () windowSetOverrideRedirect _obj override_redirect = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let override_redirect' = (fromIntegral . fromEnum) override_redirect gdk_window_set_override_redirect _obj' override_redirect' touchManagedPtr _obj return () -- method Window::set_role -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetRole _obj role = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj role' <- textToCString role gdk_window_set_role _obj' role' touchManagedPtr _obj freeMem role' return () -- method Window::set_shadow_width -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_skip_pager_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- skips_pager m () windowSetSkipPagerHint _obj skips_pager = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let skips_pager' = (fromIntegral . fromEnum) skips_pager gdk_window_set_skip_pager_hint _obj' skips_pager' touchManagedPtr _obj return () -- method Window::set_skip_taskbar_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- skips_taskbar m () windowSetSkipTaskbarHint _obj skips_taskbar = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let skips_taskbar' = (fromIntegral . fromEnum) skips_taskbar gdk_window_set_skip_taskbar_hint _obj' skips_taskbar' touchManagedPtr _obj return () -- method Window::set_source_events -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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] -> -- event_mask m () windowSetSourceEvents _obj source event_mask = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let source' = (fromIntegral . fromEnum) source let event_mask' = gflagsToWord event_mask gdk_window_set_source_events _obj' source' event_mask' touchManagedPtr _obj return () -- method Window::set_startup_id -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- startup_id m () windowSetStartupId _obj startup_id = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj startup_id' <- textToCString startup_id gdk_window_set_startup_id _obj' startup_id' touchManagedPtr _obj freeMem startup_id' return () -- method Window::set_static_gravities -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- use_static m Bool windowSetStaticGravities _obj use_static = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let use_static' = (fromIntegral . fromEnum) use_static result <- gdk_window_set_static_gravities _obj' use_static' let result' = (/= 0) result touchManagedPtr _obj return result' -- method Window::set_support_multidevice -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 -> -- support_multidevice m () windowSetSupportMultidevice _obj support_multidevice = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let support_multidevice' = (fromIntegral . fromEnum) support_multidevice gdk_window_set_support_multidevice _obj' support_multidevice' touchManagedPtr _obj return () -- method Window::set_title -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title gdk_window_set_title _obj' title' touchManagedPtr _obj freeMem title' return () -- method Window::set_transient_for -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () 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 () -- method Window::set_type_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetTypeHint _obj hint = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let hint' = (fromIntegral . fromEnum) hint gdk_window_set_type_hint _obj' hint' touchManagedPtr _obj return () -- method Window::set_urgency_hint -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetUrgencyHint _obj urgent = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let urgent' = (fromIntegral . fromEnum) urgent gdk_window_set_urgency_hint _obj' urgent' touchManagedPtr _obj return () -- method Window::set_user_data -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) -> -- user_data m () windowSetUserData _obj user_data = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeUser_data <- case user_data of Nothing -> return nullPtr Just jUser_data -> do let jUser_data' = unsafeManagedPtrCastPtr jUser_data return jUser_data' gdk_window_set_user_data _obj' maybeUser_data touchManagedPtr _obj whenJust user_data touchManagedPtr return () -- method Window::shape_combine_region -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) -> -- shape_region Int32 -> -- offset_x Int32 -> -- offset_y m () windowShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeShape_region <- case shape_region of Nothing -> return nullPtr Just jShape_region -> do let jShape_region' = unsafeManagedPtrGetPtr jShape_region return jShape_region' gdk_window_shape_combine_region _obj' maybeShape_region offset_x offset_y touchManagedPtr _obj whenJust shape_region touchManagedPtr return () -- method Window::show -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowShow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_show _obj' touchManagedPtr _obj return () -- method Window::show_unraised -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowShowUnraised _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_show_unraised _obj' touchManagedPtr _obj return () -- method Window::show_window_menu -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 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' -- method Window::stick -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowStick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_stick _obj' touchManagedPtr _obj return () -- method Window::thaw_toplevel_updates_libgtk_only -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowThawToplevelUpdatesLibgtkOnly _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_thaw_toplevel_updates_libgtk_only _obj' touchManagedPtr _obj return () -- method Window::thaw_updates -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowThawUpdates _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_thaw_updates _obj' touchManagedPtr _obj return () -- method Window::unfullscreen -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowUnfullscreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_unfullscreen _obj' touchManagedPtr _obj return () -- method Window::unmaximize -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowUnmaximize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_unmaximize _obj' touchManagedPtr _obj return () -- method Window::unstick -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowUnstick _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_unstick _obj' touchManagedPtr _obj return () -- method Window::withdraw -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowWithdraw _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_window_withdraw _obj' touchManagedPtr _obj return () -- method Window::at_pointer -- method type : MemberFunction -- Args : [Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [] -- 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) windowAtPointer = liftIO $ do win_x <- allocMem :: IO (Ptr Int32) win_y <- allocMem :: IO (Ptr Int32) result <- gdk_window_at_pointer win_x win_y checkUnexpectedReturnNULL "gdk_window_at_pointer" result result' <- (newObject Window) result win_x' <- peek win_x win_y' <- peek win_y freeMem win_x freeMem win_y return (result', win_x', win_y') -- method Window::constrain_size -- method type : MemberFunction -- Args : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "new_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] -- Lengths : [] -- hInArgs : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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) windowConstrainSize geometry flags width height = liftIO $ do let geometry' = unsafeManagedPtrGetPtr geometry let flags' = gflagsToWord flags new_width <- allocMem :: IO (Ptr Int32) new_height <- allocMem :: IO (Ptr Int32) gdk_window_constrain_size geometry' flags' width height new_width new_height new_width' <- peek new_width new_height' <- peek new_height touchManagedPtr geometry freeMem new_width freeMem new_height return (new_width', new_height') -- method Window::process_all_updates -- method type : MemberFunction -- Args : [] -- Lengths : [] -- hInArgs : [] -- 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 () windowProcessAllUpdates = liftIO $ do gdk_window_process_all_updates return () -- method Window::set_debug_updates -- method type : MemberFunction -- Args : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- Lengths : [] -- hInArgs : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- 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 () windowSetDebugUpdates setting = liftIO $ do let setting' = (fromIntegral . fromEnum) setting gdk_window_set_debug_updates setting' return ()