{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Overlay
(
Overlay(..) ,
IsOverlay ,
toOverlay ,
#if defined(ENABLE_OVERLOADING)
ResolveOverlayMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
OverlayAddOverlayMethodInfo ,
#endif
overlayAddOverlay ,
#if defined(ENABLE_OVERLOADING)
OverlayGetChildMethodInfo ,
#endif
overlayGetChild ,
#if defined(ENABLE_OVERLOADING)
OverlayGetClipOverlayMethodInfo ,
#endif
overlayGetClipOverlay ,
#if defined(ENABLE_OVERLOADING)
OverlayGetMeasureOverlayMethodInfo ,
#endif
overlayGetMeasureOverlay ,
overlayNew ,
#if defined(ENABLE_OVERLOADING)
OverlayRemoveOverlayMethodInfo ,
#endif
overlayRemoveOverlay ,
#if defined(ENABLE_OVERLOADING)
OverlaySetChildMethodInfo ,
#endif
overlaySetChild ,
#if defined(ENABLE_OVERLOADING)
OverlaySetClipOverlayMethodInfo ,
#endif
overlaySetClipOverlay ,
#if defined(ENABLE_OVERLOADING)
OverlaySetMeasureOverlayMethodInfo ,
#endif
overlaySetMeasureOverlay ,
#if defined(ENABLE_OVERLOADING)
OverlayChildPropertyInfo ,
#endif
clearOverlayChild ,
constructOverlayChild ,
getOverlayChild ,
#if defined(ENABLE_OVERLOADING)
overlayChild ,
#endif
setOverlayChild ,
#if defined(ENABLE_OVERLOADING)
OverlayGetChildPositionSignalInfo ,
#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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
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
newtype Overlay = Overlay (SP.ManagedPtr Overlay)
deriving (Overlay -> Overlay -> Bool
(Overlay -> Overlay -> Bool)
-> (Overlay -> Overlay -> Bool) -> Eq Overlay
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Overlay -> Overlay -> Bool
$c/= :: Overlay -> Overlay -> Bool
== :: Overlay -> Overlay -> Bool
$c== :: Overlay -> Overlay -> Bool
Eq)
instance SP.ManagedPtrNewtype Overlay where
toManagedPtr :: Overlay -> ManagedPtr Overlay
toManagedPtr (Overlay ManagedPtr Overlay
p) = ManagedPtr Overlay
p
foreign import ccall "gtk_overlay_get_type"
c_gtk_overlay_get_type :: IO B.Types.GType
instance B.Types.TypedObject Overlay where
glibType :: IO GType
glibType = IO GType
c_gtk_overlay_get_type
instance B.Types.GObject Overlay
instance B.GValue.IsGValue Overlay where
toGValue :: Overlay -> IO GValue
toGValue Overlay
o = do
GType
gtype <- IO GType
c_gtk_overlay_get_type
Overlay -> (Ptr Overlay -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Overlay
o (GType
-> (GValue -> Ptr Overlay -> IO ()) -> Ptr Overlay -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Overlay -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Overlay
fromGValue GValue
gv = do
Ptr Overlay
ptr <- GValue -> IO (Ptr Overlay)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Overlay)
(ManagedPtr Overlay -> Overlay) -> Ptr Overlay -> IO Overlay
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Overlay -> Overlay
Overlay Ptr Overlay
ptr
class (SP.GObject o, O.IsDescendantOf Overlay o) => IsOverlay o
instance (SP.GObject o, O.IsDescendantOf Overlay o) => IsOverlay o
instance O.HasParentTypes Overlay
type instance O.ParentTypes Overlay = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toOverlay :: (MonadIO m, IsOverlay o) => o -> m Overlay
toOverlay :: o -> m Overlay
toOverlay = IO Overlay -> m Overlay
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Overlay -> m Overlay) -> (o -> IO Overlay) -> o -> m Overlay
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Overlay -> Overlay) -> o -> IO Overlay
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Overlay -> Overlay
Overlay
#if defined(ENABLE_OVERLOADING)
type family ResolveOverlayMethod (t :: Symbol) (o :: *) :: * where
ResolveOverlayMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveOverlayMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveOverlayMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveOverlayMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveOverlayMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveOverlayMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveOverlayMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveOverlayMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveOverlayMethod "addOverlay" o = OverlayAddOverlayMethodInfo
ResolveOverlayMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveOverlayMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveOverlayMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveOverlayMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveOverlayMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveOverlayMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveOverlayMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveOverlayMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveOverlayMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveOverlayMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveOverlayMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveOverlayMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveOverlayMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveOverlayMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveOverlayMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveOverlayMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveOverlayMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveOverlayMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveOverlayMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveOverlayMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveOverlayMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveOverlayMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveOverlayMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveOverlayMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveOverlayMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveOverlayMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveOverlayMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveOverlayMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveOverlayMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveOverlayMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveOverlayMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveOverlayMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveOverlayMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveOverlayMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveOverlayMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveOverlayMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveOverlayMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveOverlayMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveOverlayMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveOverlayMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveOverlayMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveOverlayMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveOverlayMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveOverlayMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveOverlayMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveOverlayMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveOverlayMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveOverlayMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveOverlayMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveOverlayMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveOverlayMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveOverlayMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveOverlayMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveOverlayMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveOverlayMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveOverlayMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveOverlayMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveOverlayMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveOverlayMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveOverlayMethod "removeOverlay" o = OverlayRemoveOverlayMethodInfo
ResolveOverlayMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveOverlayMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveOverlayMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveOverlayMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveOverlayMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveOverlayMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveOverlayMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveOverlayMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveOverlayMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveOverlayMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveOverlayMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveOverlayMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveOverlayMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveOverlayMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveOverlayMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveOverlayMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveOverlayMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveOverlayMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveOverlayMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveOverlayMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveOverlayMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveOverlayMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveOverlayMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveOverlayMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveOverlayMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveOverlayMethod "getChild" o = OverlayGetChildMethodInfo
ResolveOverlayMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveOverlayMethod "getClipOverlay" o = OverlayGetClipOverlayMethodInfo
ResolveOverlayMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveOverlayMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveOverlayMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveOverlayMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveOverlayMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveOverlayMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveOverlayMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveOverlayMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveOverlayMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveOverlayMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveOverlayMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveOverlayMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveOverlayMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveOverlayMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveOverlayMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveOverlayMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveOverlayMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveOverlayMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveOverlayMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveOverlayMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveOverlayMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveOverlayMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveOverlayMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveOverlayMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveOverlayMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveOverlayMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveOverlayMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveOverlayMethod "getMeasureOverlay" o = OverlayGetMeasureOverlayMethodInfo
ResolveOverlayMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveOverlayMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveOverlayMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveOverlayMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveOverlayMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveOverlayMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveOverlayMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveOverlayMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveOverlayMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveOverlayMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveOverlayMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveOverlayMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveOverlayMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveOverlayMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveOverlayMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveOverlayMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveOverlayMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveOverlayMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveOverlayMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveOverlayMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveOverlayMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveOverlayMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveOverlayMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveOverlayMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveOverlayMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveOverlayMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveOverlayMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveOverlayMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveOverlayMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveOverlayMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveOverlayMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveOverlayMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveOverlayMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveOverlayMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveOverlayMethod "setChild" o = OverlaySetChildMethodInfo
ResolveOverlayMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveOverlayMethod "setClipOverlay" o = OverlaySetClipOverlayMethodInfo
ResolveOverlayMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveOverlayMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveOverlayMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveOverlayMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveOverlayMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveOverlayMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveOverlayMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveOverlayMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveOverlayMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveOverlayMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveOverlayMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveOverlayMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveOverlayMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveOverlayMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveOverlayMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveOverlayMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveOverlayMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveOverlayMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveOverlayMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveOverlayMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveOverlayMethod "setMeasureOverlay" o = OverlaySetMeasureOverlayMethodInfo
ResolveOverlayMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveOverlayMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveOverlayMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveOverlayMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveOverlayMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveOverlayMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveOverlayMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveOverlayMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveOverlayMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveOverlayMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveOverlayMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveOverlayMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveOverlayMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveOverlayMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveOverlayMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveOverlayMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveOverlayMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveOverlayMethod t Overlay, O.MethodInfo info Overlay p) => OL.IsLabel t (Overlay -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
data OverlayGetChildPositionSignalInfo
instance SignalInfo OverlayGetChildPositionSignalInfo where
type HaskellCallbackType OverlayGetChildPositionSignalInfo = B.Signals.SignalCodeGenError "Overlay::get-child-position"
connectSignal = undefined
#endif
getOverlayChild :: (MonadIO m, IsOverlay o) => o -> m (Maybe Gtk.Widget.Widget)
getOverlayChild :: o -> m (Maybe Widget)
getOverlayChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
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
$ 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
setOverlayChild :: (MonadIO m, IsOverlay o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setOverlayChild :: o -> a -> m ()
setOverlayChild o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ 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)
constructOverlayChild :: (IsOverlay o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructOverlayChild :: a -> m (GValueConstruct o)
constructOverlayChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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)
clearOverlayChild :: (MonadIO m, IsOverlay o) => o -> m ()
clearOverlayChild :: o -> m ()
clearOverlayChild o
obj = IO () -> m ()
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 OverlayChildPropertyInfo
instance AttrInfo OverlayChildPropertyInfo where
type AttrAllowedOps OverlayChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint OverlayChildPropertyInfo = IsOverlay
type AttrSetTypeConstraint OverlayChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint OverlayChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType OverlayChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType OverlayChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel OverlayChildPropertyInfo = "child"
type AttrOrigin OverlayChildPropertyInfo = Overlay
attrGet = getOverlayChild
attrSet = setOverlayChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructOverlayChild
attrClear = clearOverlayChild
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Overlay
type instance O.AttributeList Overlay = OverlayAttributeList
type OverlayAttributeList = ('[ '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", OverlayChildPropertyInfo), '("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, *)])
#endif
#if defined(ENABLE_OVERLOADING)
overlayChild :: AttrLabelProxy "child"
overlayChild = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Overlay = OverlaySignalList
type OverlaySignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("getChildPosition", OverlayGetChildPositionSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("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, *)])
#endif
foreign import ccall "gtk_overlay_new" gtk_overlay_new ::
IO (Ptr Overlay)
overlayNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Overlay
overlayNew :: m Overlay
overlayNew = IO Overlay -> m Overlay
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Overlay -> m Overlay) -> IO Overlay -> m Overlay
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
result <- IO (Ptr Overlay)
gtk_overlay_new
Text -> Ptr Overlay -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"overlayNew" Ptr Overlay
result
Overlay
result' <- ((ManagedPtr Overlay -> Overlay) -> Ptr Overlay -> IO Overlay
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Overlay -> Overlay
Overlay) Ptr Overlay
result
Overlay -> IO Overlay
forall (m :: * -> *) a. Monad m => a -> m a
return Overlay
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_overlay_add_overlay" gtk_overlay_add_overlay ::
Ptr Overlay ->
Ptr Gtk.Widget.Widget ->
IO ()
overlayAddOverlay ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
overlayAddOverlay :: a -> b -> m ()
overlayAddOverlay a
overlay b
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Overlay -> Ptr Widget -> IO ()
gtk_overlay_add_overlay Ptr Overlay
overlay' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data OverlayAddOverlayMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) => O.MethodInfo OverlayAddOverlayMethodInfo a signature where
overloadedMethod = overlayAddOverlay
#endif
foreign import ccall "gtk_overlay_get_child" gtk_overlay_get_child ::
Ptr Overlay ->
IO (Ptr Gtk.Widget.Widget)
overlayGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a) =>
a
-> m (Maybe Gtk.Widget.Widget)
overlayGetChild :: a -> m (Maybe Widget)
overlayGetChild a
overlay = IO (Maybe Widget) -> m (Maybe Widget)
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 Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
result <- Ptr Overlay -> IO (Ptr Widget)
gtk_overlay_get_child Ptr Overlay
overlay'
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 (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data OverlayGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsOverlay a) => O.MethodInfo OverlayGetChildMethodInfo a signature where
overloadedMethod = overlayGetChild
#endif
foreign import ccall "gtk_overlay_get_clip_overlay" gtk_overlay_get_clip_overlay ::
Ptr Overlay ->
Ptr Gtk.Widget.Widget ->
IO CInt
overlayGetClipOverlay ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Bool
overlayGetClipOverlay :: a -> b -> m Bool
overlayGetClipOverlay a
overlay b
widget = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
CInt
result <- Ptr Overlay -> Ptr Widget -> IO CInt
gtk_overlay_get_clip_overlay Ptr Overlay
overlay' Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data OverlayGetClipOverlayMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) => O.MethodInfo OverlayGetClipOverlayMethodInfo a signature where
overloadedMethod = overlayGetClipOverlay
#endif
foreign import ccall "gtk_overlay_get_measure_overlay" gtk_overlay_get_measure_overlay ::
Ptr Overlay ->
Ptr Gtk.Widget.Widget ->
IO CInt
overlayGetMeasureOverlay ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Bool
overlayGetMeasureOverlay :: a -> b -> m Bool
overlayGetMeasureOverlay a
overlay b
widget = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
CInt
result <- Ptr Overlay -> Ptr Widget -> IO CInt
gtk_overlay_get_measure_overlay Ptr Overlay
overlay' Ptr Widget
widget'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data OverlayGetMeasureOverlayMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) => O.MethodInfo OverlayGetMeasureOverlayMethodInfo a signature where
overloadedMethod = overlayGetMeasureOverlay
#endif
foreign import ccall "gtk_overlay_remove_overlay" gtk_overlay_remove_overlay ::
Ptr Overlay ->
Ptr Gtk.Widget.Widget ->
IO ()
overlayRemoveOverlay ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
overlayRemoveOverlay :: a -> b -> m ()
overlayRemoveOverlay a
overlay b
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Overlay -> Ptr Widget -> IO ()
gtk_overlay_remove_overlay Ptr Overlay
overlay' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data OverlayRemoveOverlayMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) => O.MethodInfo OverlayRemoveOverlayMethodInfo a signature where
overloadedMethod = overlayRemoveOverlay
#endif
foreign import ccall "gtk_overlay_set_child" gtk_overlay_set_child ::
Ptr Overlay ->
Ptr Gtk.Widget.Widget ->
IO ()
overlaySetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
overlaySetChild :: a -> Maybe b -> m ()
overlaySetChild a
overlay Maybe b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr Overlay -> Ptr Widget -> IO ()
gtk_overlay_set_child Ptr Overlay
overlay' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data OverlaySetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) => O.MethodInfo OverlaySetChildMethodInfo a signature where
overloadedMethod = overlaySetChild
#endif
foreign import ccall "gtk_overlay_set_clip_overlay" gtk_overlay_set_clip_overlay ::
Ptr Overlay ->
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
overlaySetClipOverlay ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> m ()
overlaySetClipOverlay :: a -> b -> Bool -> m ()
overlaySetClipOverlay a
overlay b
widget Bool
clipOverlay = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let clipOverlay' :: CInt
clipOverlay' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
clipOverlay
Ptr Overlay -> Ptr Widget -> CInt -> IO ()
gtk_overlay_set_clip_overlay Ptr Overlay
overlay' Ptr Widget
widget' CInt
clipOverlay'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data OverlaySetClipOverlayMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) => O.MethodInfo OverlaySetClipOverlayMethodInfo a signature where
overloadedMethod = overlaySetClipOverlay
#endif
foreign import ccall "gtk_overlay_set_measure_overlay" gtk_overlay_set_measure_overlay ::
Ptr Overlay ->
Ptr Gtk.Widget.Widget ->
CInt ->
IO ()
overlaySetMeasureOverlay ::
(B.CallStack.HasCallStack, MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Bool
-> m ()
overlaySetMeasureOverlay :: a -> b -> Bool -> m ()
overlaySetMeasureOverlay a
overlay b
widget Bool
measure = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Overlay
overlay' <- a -> IO (Ptr Overlay)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
overlay
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
let measure' :: CInt
measure' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
measure
Ptr Overlay -> Ptr Widget -> CInt -> IO ()
gtk_overlay_set_measure_overlay Ptr Overlay
overlay' Ptr Widget
widget' CInt
measure'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
overlay
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data OverlaySetMeasureOverlayMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsOverlay a, Gtk.Widget.IsWidget b) => O.MethodInfo OverlaySetMeasureOverlayMethodInfo a signature where
overloadedMethod = overlaySetMeasureOverlay
#endif