{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.WindowHandle
(
WindowHandle(..) ,
IsWindowHandle ,
toWindowHandle ,
#if defined(ENABLE_OVERLOADING)
ResolveWindowHandleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
WindowHandleGetChildMethodInfo ,
#endif
windowHandleGetChild ,
windowHandleNew ,
#if defined(ENABLE_OVERLOADING)
WindowHandleSetChildMethodInfo ,
#endif
windowHandleSetChild ,
#if defined(ENABLE_OVERLOADING)
WindowHandleChildPropertyInfo ,
#endif
clearWindowHandleChild ,
constructWindowHandleChild ,
getWindowHandleChild ,
setWindowHandleChild ,
#if defined(ENABLE_OVERLOADING)
windowHandleChild ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype WindowHandle = WindowHandle (SP.ManagedPtr WindowHandle)
deriving (WindowHandle -> WindowHandle -> Bool
(WindowHandle -> WindowHandle -> Bool)
-> (WindowHandle -> WindowHandle -> Bool) -> Eq WindowHandle
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WindowHandle -> WindowHandle -> Bool
== :: WindowHandle -> WindowHandle -> Bool
$c/= :: WindowHandle -> WindowHandle -> Bool
/= :: WindowHandle -> WindowHandle -> Bool
Eq)
instance SP.ManagedPtrNewtype WindowHandle where
toManagedPtr :: WindowHandle -> ManagedPtr WindowHandle
toManagedPtr (WindowHandle ManagedPtr WindowHandle
p) = ManagedPtr WindowHandle
p
foreign import ccall "gtk_window_handle_get_type"
c_gtk_window_handle_get_type :: IO B.Types.GType
instance B.Types.TypedObject WindowHandle where
glibType :: IO GType
glibType = IO GType
c_gtk_window_handle_get_type
instance B.Types.GObject WindowHandle
class (SP.GObject o, O.IsDescendantOf WindowHandle o) => IsWindowHandle o
instance (SP.GObject o, O.IsDescendantOf WindowHandle o) => IsWindowHandle o
instance O.HasParentTypes WindowHandle
type instance O.ParentTypes WindowHandle = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toWindowHandle :: (MIO.MonadIO m, IsWindowHandle o) => o -> m WindowHandle
toWindowHandle :: forall (m :: * -> *) o.
(MonadIO m, IsWindowHandle o) =>
o -> m WindowHandle
toWindowHandle = IO WindowHandle -> m WindowHandle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO WindowHandle -> m WindowHandle)
-> (o -> IO WindowHandle) -> o -> m WindowHandle
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr WindowHandle -> WindowHandle) -> o -> IO WindowHandle
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr WindowHandle -> WindowHandle
WindowHandle
instance B.GValue.IsGValue (Maybe WindowHandle) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_window_handle_get_type
gvalueSet_ :: Ptr GValue -> Maybe WindowHandle -> IO ()
gvalueSet_ Ptr GValue
gv Maybe WindowHandle
P.Nothing = Ptr GValue -> Ptr WindowHandle -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr WindowHandle
forall a. Ptr a
FP.nullPtr :: FP.Ptr WindowHandle)
gvalueSet_ Ptr GValue
gv (P.Just WindowHandle
obj) = WindowHandle -> (Ptr WindowHandle -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr WindowHandle
obj (Ptr GValue -> Ptr WindowHandle -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe WindowHandle)
gvalueGet_ Ptr GValue
gv = do
Ptr WindowHandle
ptr <- Ptr GValue -> IO (Ptr WindowHandle)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr WindowHandle)
if Ptr WindowHandle
ptr Ptr WindowHandle -> Ptr WindowHandle -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr WindowHandle
forall a. Ptr a
FP.nullPtr
then WindowHandle -> Maybe WindowHandle
forall a. a -> Maybe a
P.Just (WindowHandle -> Maybe WindowHandle)
-> IO WindowHandle -> IO (Maybe WindowHandle)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr WindowHandle -> WindowHandle)
-> Ptr WindowHandle -> IO WindowHandle
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr WindowHandle -> WindowHandle
WindowHandle Ptr WindowHandle
ptr
else Maybe WindowHandle -> IO (Maybe WindowHandle)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe WindowHandle
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveWindowHandleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveWindowHandleMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveWindowHandleMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveWindowHandleMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveWindowHandleMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveWindowHandleMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveWindowHandleMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveWindowHandleMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveWindowHandleMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveWindowHandleMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveWindowHandleMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveWindowHandleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveWindowHandleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveWindowHandleMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveWindowHandleMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveWindowHandleMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveWindowHandleMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveWindowHandleMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveWindowHandleMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveWindowHandleMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveWindowHandleMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveWindowHandleMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveWindowHandleMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveWindowHandleMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveWindowHandleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveWindowHandleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveWindowHandleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveWindowHandleMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveWindowHandleMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveWindowHandleMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveWindowHandleMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveWindowHandleMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveWindowHandleMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveWindowHandleMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveWindowHandleMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveWindowHandleMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveWindowHandleMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveWindowHandleMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveWindowHandleMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveWindowHandleMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveWindowHandleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveWindowHandleMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveWindowHandleMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveWindowHandleMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveWindowHandleMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveWindowHandleMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveWindowHandleMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveWindowHandleMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveWindowHandleMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveWindowHandleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveWindowHandleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveWindowHandleMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveWindowHandleMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveWindowHandleMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveWindowHandleMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveWindowHandleMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveWindowHandleMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveWindowHandleMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveWindowHandleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveWindowHandleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveWindowHandleMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveWindowHandleMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveWindowHandleMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveWindowHandleMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveWindowHandleMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveWindowHandleMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveWindowHandleMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveWindowHandleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveWindowHandleMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveWindowHandleMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveWindowHandleMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveWindowHandleMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveWindowHandleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveWindowHandleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveWindowHandleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveWindowHandleMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveWindowHandleMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveWindowHandleMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveWindowHandleMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveWindowHandleMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveWindowHandleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveWindowHandleMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveWindowHandleMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveWindowHandleMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveWindowHandleMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveWindowHandleMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveWindowHandleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveWindowHandleMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveWindowHandleMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveWindowHandleMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveWindowHandleMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveWindowHandleMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveWindowHandleMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveWindowHandleMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveWindowHandleMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveWindowHandleMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveWindowHandleMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveWindowHandleMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveWindowHandleMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveWindowHandleMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveWindowHandleMethod "getChild" o = WindowHandleGetChildMethodInfo
ResolveWindowHandleMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveWindowHandleMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveWindowHandleMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveWindowHandleMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveWindowHandleMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveWindowHandleMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveWindowHandleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveWindowHandleMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveWindowHandleMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveWindowHandleMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveWindowHandleMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveWindowHandleMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveWindowHandleMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveWindowHandleMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveWindowHandleMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveWindowHandleMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveWindowHandleMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveWindowHandleMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveWindowHandleMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveWindowHandleMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveWindowHandleMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveWindowHandleMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveWindowHandleMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveWindowHandleMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveWindowHandleMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveWindowHandleMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveWindowHandleMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveWindowHandleMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveWindowHandleMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveWindowHandleMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveWindowHandleMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveWindowHandleMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveWindowHandleMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveWindowHandleMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveWindowHandleMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveWindowHandleMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveWindowHandleMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveWindowHandleMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveWindowHandleMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveWindowHandleMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveWindowHandleMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveWindowHandleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveWindowHandleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveWindowHandleMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveWindowHandleMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveWindowHandleMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveWindowHandleMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveWindowHandleMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveWindowHandleMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveWindowHandleMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveWindowHandleMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveWindowHandleMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveWindowHandleMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveWindowHandleMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveWindowHandleMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveWindowHandleMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveWindowHandleMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveWindowHandleMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveWindowHandleMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveWindowHandleMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveWindowHandleMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveWindowHandleMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveWindowHandleMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveWindowHandleMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveWindowHandleMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveWindowHandleMethod "setChild" o = WindowHandleSetChildMethodInfo
ResolveWindowHandleMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveWindowHandleMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveWindowHandleMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveWindowHandleMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveWindowHandleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveWindowHandleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveWindowHandleMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveWindowHandleMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveWindowHandleMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveWindowHandleMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveWindowHandleMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveWindowHandleMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveWindowHandleMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveWindowHandleMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveWindowHandleMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveWindowHandleMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveWindowHandleMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveWindowHandleMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveWindowHandleMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveWindowHandleMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveWindowHandleMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveWindowHandleMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveWindowHandleMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveWindowHandleMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveWindowHandleMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveWindowHandleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveWindowHandleMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveWindowHandleMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveWindowHandleMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveWindowHandleMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveWindowHandleMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveWindowHandleMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveWindowHandleMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveWindowHandleMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveWindowHandleMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveWindowHandleMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveWindowHandleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveWindowHandleMethod t WindowHandle, O.OverloadedMethod info WindowHandle p) => OL.IsLabel t (WindowHandle -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveWindowHandleMethod t WindowHandle, O.OverloadedMethod info WindowHandle p, R.HasField t WindowHandle p) => R.HasField t WindowHandle p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveWindowHandleMethod t WindowHandle, O.OverloadedMethodInfo info WindowHandle) => OL.IsLabel t (O.MethodProxy info WindowHandle) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getWindowHandleChild :: (MonadIO m, IsWindowHandle o) => o -> m (Maybe Gtk.Widget.Widget)
getWindowHandleChild :: forall (m :: * -> *) o.
(MonadIO m, IsWindowHandle o) =>
o -> m (Maybe Widget)
getWindowHandleChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setWindowHandleChild :: (MonadIO m, IsWindowHandle o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setWindowHandleChild :: forall (m :: * -> *) o a.
(MonadIO m, IsWindowHandle o, IsWidget a) =>
o -> a -> m ()
setWindowHandleChild o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructWindowHandleChild :: (IsWindowHandle o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructWindowHandleChild :: forall o (m :: * -> *) a.
(IsWindowHandle o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructWindowHandleChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearWindowHandleChild :: (MonadIO m, IsWindowHandle o) => o -> m ()
clearWindowHandleChild :: forall (m :: * -> *) o. (MonadIO m, IsWindowHandle o) => o -> m ()
clearWindowHandleChild o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data WindowHandleChildPropertyInfo
instance AttrInfo WindowHandleChildPropertyInfo where
type AttrAllowedOps WindowHandleChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint WindowHandleChildPropertyInfo = IsWindowHandle
type AttrSetTypeConstraint WindowHandleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint WindowHandleChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType WindowHandleChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType WindowHandleChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel WindowHandleChildPropertyInfo = "child"
type AttrOrigin WindowHandleChildPropertyInfo = WindowHandle
attrGet = getWindowHandleChild
attrSet = setWindowHandleChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructWindowHandleChild
attrClear = clearWindowHandleChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.WindowHandle.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-WindowHandle.html#g:attr:child"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList WindowHandle
type instance O.AttributeList WindowHandle = WindowHandleAttributeList
type WindowHandleAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", WindowHandleChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
windowHandleChild :: AttrLabelProxy "child"
windowHandleChild = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList WindowHandle = WindowHandleSignalList
type WindowHandleSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_window_handle_new" gtk_window_handle_new ::
IO (Ptr WindowHandle)
windowHandleNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m WindowHandle
windowHandleNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m WindowHandle
windowHandleNew = IO WindowHandle -> m WindowHandle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WindowHandle -> m WindowHandle)
-> IO WindowHandle -> m WindowHandle
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowHandle
result <- IO (Ptr WindowHandle)
gtk_window_handle_new
Text -> Ptr WindowHandle -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"windowHandleNew" Ptr WindowHandle
result
WindowHandle
result' <- ((ManagedPtr WindowHandle -> WindowHandle)
-> Ptr WindowHandle -> IO WindowHandle
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr WindowHandle -> WindowHandle
WindowHandle) Ptr WindowHandle
result
WindowHandle -> IO WindowHandle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return WindowHandle
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_window_handle_get_child" gtk_window_handle_get_child ::
Ptr WindowHandle ->
IO (Ptr Gtk.Widget.Widget)
windowHandleGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowHandle a) =>
a
-> m (Maybe Gtk.Widget.Widget)
windowHandleGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsWindowHandle a) =>
a -> m (Maybe Widget)
windowHandleGetChild a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowHandle
self' <- a -> IO (Ptr WindowHandle)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr WindowHandle -> IO (Ptr Widget)
gtk_window_handle_get_child Ptr WindowHandle
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data WindowHandleGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsWindowHandle a) => O.OverloadedMethod WindowHandleGetChildMethodInfo a signature where
overloadedMethod = windowHandleGetChild
instance O.OverloadedMethodInfo WindowHandleGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.WindowHandle.windowHandleGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-WindowHandle.html#v:windowHandleGetChild"
})
#endif
foreign import ccall "gtk_window_handle_set_child" gtk_window_handle_set_child ::
Ptr WindowHandle ->
Ptr Gtk.Widget.Widget ->
IO ()
windowHandleSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsWindowHandle a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
windowHandleSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsWindowHandle a, IsWidget b) =>
a -> Maybe b -> m ()
windowHandleSetChild a
self Maybe b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr WindowHandle
self' <- a -> IO (Ptr WindowHandle)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr WindowHandle -> Ptr Widget -> IO ()
gtk_window_handle_set_child Ptr WindowHandle
self' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data WindowHandleSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsWindowHandle a, Gtk.Widget.IsWidget b) => O.OverloadedMethod WindowHandleSetChildMethodInfo a signature where
overloadedMethod = windowHandleSetChild
instance O.OverloadedMethodInfo WindowHandleSetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.WindowHandle.windowHandleSetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-WindowHandle.html#v:windowHandleSetChild"
})
#endif