{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Popover
(
Popover(..) ,
IsPopover ,
toPopover ,
noPopover ,
#if defined(ENABLE_OVERLOADING)
ResolvePopoverMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PopoverBindModelMethodInfo ,
#endif
popoverBindModel ,
#if defined(ENABLE_OVERLOADING)
PopoverGetConstrainToMethodInfo ,
#endif
popoverGetConstrainTo ,
#if defined(ENABLE_OVERLOADING)
PopoverGetDefaultWidgetMethodInfo ,
#endif
popoverGetDefaultWidget ,
#if defined(ENABLE_OVERLOADING)
PopoverGetModalMethodInfo ,
#endif
popoverGetModal ,
#if defined(ENABLE_OVERLOADING)
PopoverGetPointingToMethodInfo ,
#endif
popoverGetPointingTo ,
#if defined(ENABLE_OVERLOADING)
PopoverGetPositionMethodInfo ,
#endif
popoverGetPosition ,
#if defined(ENABLE_OVERLOADING)
PopoverGetRelativeToMethodInfo ,
#endif
popoverGetRelativeTo ,
#if defined(ENABLE_OVERLOADING)
PopoverGetTransitionsEnabledMethodInfo ,
#endif
popoverGetTransitionsEnabled ,
popoverNew ,
popoverNewFromModel ,
#if defined(ENABLE_OVERLOADING)
PopoverPopdownMethodInfo ,
#endif
popoverPopdown ,
#if defined(ENABLE_OVERLOADING)
PopoverPopupMethodInfo ,
#endif
popoverPopup ,
#if defined(ENABLE_OVERLOADING)
PopoverSetConstrainToMethodInfo ,
#endif
popoverSetConstrainTo ,
#if defined(ENABLE_OVERLOADING)
PopoverSetDefaultWidgetMethodInfo ,
#endif
popoverSetDefaultWidget ,
#if defined(ENABLE_OVERLOADING)
PopoverSetModalMethodInfo ,
#endif
popoverSetModal ,
#if defined(ENABLE_OVERLOADING)
PopoverSetPointingToMethodInfo ,
#endif
popoverSetPointingTo ,
#if defined(ENABLE_OVERLOADING)
PopoverSetPositionMethodInfo ,
#endif
popoverSetPosition ,
#if defined(ENABLE_OVERLOADING)
PopoverSetRelativeToMethodInfo ,
#endif
popoverSetRelativeTo ,
#if defined(ENABLE_OVERLOADING)
PopoverSetTransitionsEnabledMethodInfo ,
#endif
popoverSetTransitionsEnabled ,
#if defined(ENABLE_OVERLOADING)
PopoverConstrainToPropertyInfo ,
#endif
constructPopoverConstrainTo ,
getPopoverConstrainTo ,
#if defined(ENABLE_OVERLOADING)
popoverConstrainTo ,
#endif
setPopoverConstrainTo ,
#if defined(ENABLE_OVERLOADING)
PopoverModalPropertyInfo ,
#endif
constructPopoverModal ,
getPopoverModal ,
#if defined(ENABLE_OVERLOADING)
popoverModal ,
#endif
setPopoverModal ,
#if defined(ENABLE_OVERLOADING)
PopoverPointingToPropertyInfo ,
#endif
constructPopoverPointingTo ,
getPopoverPointingTo ,
#if defined(ENABLE_OVERLOADING)
popoverPointingTo ,
#endif
setPopoverPointingTo ,
#if defined(ENABLE_OVERLOADING)
PopoverPositionPropertyInfo ,
#endif
constructPopoverPosition ,
getPopoverPosition ,
#if defined(ENABLE_OVERLOADING)
popoverPosition ,
#endif
setPopoverPosition ,
#if defined(ENABLE_OVERLOADING)
PopoverRelativeToPropertyInfo ,
#endif
clearPopoverRelativeTo ,
constructPopoverRelativeTo ,
getPopoverRelativeTo ,
#if defined(ENABLE_OVERLOADING)
popoverRelativeTo ,
#endif
setPopoverRelativeTo ,
#if defined(ENABLE_OVERLOADING)
PopoverTransitionsEnabledPropertyInfo ,
#endif
constructPopoverTransitionsEnabled ,
getPopoverTransitionsEnabled ,
#if defined(ENABLE_OVERLOADING)
popoverTransitionsEnabled ,
#endif
setPopoverTransitionsEnabled ,
C_PopoverClosedCallback ,
PopoverClosedCallback ,
#if defined(ENABLE_OVERLOADING)
PopoverClosedSignalInfo ,
#endif
afterPopoverClosed ,
genClosure_PopoverClosed ,
mk_PopoverClosedCallback ,
noPopoverClosedCallback ,
onPopoverClosed ,
wrap_PopoverClosedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
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 qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Popover = Popover (ManagedPtr Popover)
deriving (Popover -> Popover -> Bool
(Popover -> Popover -> Bool)
-> (Popover -> Popover -> Bool) -> Eq Popover
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Popover -> Popover -> Bool
$c/= :: Popover -> Popover -> Bool
== :: Popover -> Popover -> Bool
$c== :: Popover -> Popover -> Bool
Eq)
foreign import ccall "gtk_popover_get_type"
c_gtk_popover_get_type :: IO GType
instance GObject Popover where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_popover_get_type
instance B.GValue.IsGValue Popover where
toGValue :: Popover -> IO GValue
toGValue o :: Popover
o = do
GType
gtype <- IO GType
c_gtk_popover_get_type
Popover -> (Ptr Popover -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Popover
o (GType
-> (GValue -> Ptr Popover -> IO ()) -> Ptr Popover -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Popover -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Popover
fromGValue gv :: GValue
gv = do
Ptr Popover
ptr <- GValue -> IO (Ptr Popover)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Popover)
(ManagedPtr Popover -> Popover) -> Ptr Popover -> IO Popover
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Popover -> Popover
Popover Ptr Popover
ptr
class (GObject o, O.IsDescendantOf Popover o) => IsPopover o
instance (GObject o, O.IsDescendantOf Popover o) => IsPopover o
instance O.HasParentTypes Popover
type instance O.ParentTypes Popover = '[Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toPopover :: (MonadIO m, IsPopover o) => o -> m Popover
toPopover :: o -> m Popover
toPopover = IO Popover -> m Popover
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Popover -> m Popover) -> (o -> IO Popover) -> o -> m Popover
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Popover -> Popover) -> o -> IO Popover
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Popover -> Popover
Popover
noPopover :: Maybe Popover
noPopover :: Maybe Popover
noPopover = Maybe Popover
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePopoverMethod (t :: Symbol) (o :: *) :: * where
ResolvePopoverMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolvePopoverMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolvePopoverMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolvePopoverMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolvePopoverMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolvePopoverMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolvePopoverMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolvePopoverMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolvePopoverMethod "bindModel" o = PopoverBindModelMethodInfo
ResolvePopoverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePopoverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePopoverMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolvePopoverMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolvePopoverMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolvePopoverMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolvePopoverMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolvePopoverMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolvePopoverMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolvePopoverMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolvePopoverMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolvePopoverMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolvePopoverMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolvePopoverMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolvePopoverMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolvePopoverMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolvePopoverMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolvePopoverMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolvePopoverMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolvePopoverMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolvePopoverMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolvePopoverMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolvePopoverMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolvePopoverMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolvePopoverMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolvePopoverMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolvePopoverMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolvePopoverMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolvePopoverMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolvePopoverMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolvePopoverMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolvePopoverMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolvePopoverMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolvePopoverMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolvePopoverMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolvePopoverMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolvePopoverMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolvePopoverMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolvePopoverMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolvePopoverMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolvePopoverMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolvePopoverMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolvePopoverMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolvePopoverMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolvePopoverMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolvePopoverMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolvePopoverMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolvePopoverMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolvePopoverMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolvePopoverMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolvePopoverMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolvePopoverMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolvePopoverMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolvePopoverMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolvePopoverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePopoverMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolvePopoverMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolvePopoverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePopoverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePopoverMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolvePopoverMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolvePopoverMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolvePopoverMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolvePopoverMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolvePopoverMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolvePopoverMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolvePopoverMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolvePopoverMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolvePopoverMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolvePopoverMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolvePopoverMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolvePopoverMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolvePopoverMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolvePopoverMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolvePopoverMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolvePopoverMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolvePopoverMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolvePopoverMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolvePopoverMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolvePopoverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePopoverMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolvePopoverMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolvePopoverMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolvePopoverMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolvePopoverMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolvePopoverMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolvePopoverMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolvePopoverMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolvePopoverMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolvePopoverMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolvePopoverMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolvePopoverMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolvePopoverMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolvePopoverMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolvePopoverMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolvePopoverMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolvePopoverMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolvePopoverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePopoverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePopoverMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolvePopoverMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolvePopoverMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolvePopoverMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolvePopoverMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolvePopoverMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolvePopoverMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolvePopoverMethod "popdown" o = PopoverPopdownMethodInfo
ResolvePopoverMethod "popup" o = PopoverPopupMethodInfo
ResolvePopoverMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolvePopoverMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolvePopoverMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolvePopoverMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolvePopoverMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolvePopoverMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolvePopoverMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolvePopoverMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolvePopoverMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolvePopoverMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePopoverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePopoverMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolvePopoverMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolvePopoverMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolvePopoverMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolvePopoverMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolvePopoverMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolvePopoverMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolvePopoverMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolvePopoverMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolvePopoverMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolvePopoverMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolvePopoverMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolvePopoverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePopoverMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolvePopoverMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolvePopoverMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolvePopoverMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolvePopoverMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolvePopoverMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolvePopoverMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolvePopoverMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolvePopoverMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolvePopoverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePopoverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePopoverMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolvePopoverMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolvePopoverMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolvePopoverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePopoverMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolvePopoverMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolvePopoverMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolvePopoverMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolvePopoverMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolvePopoverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePopoverMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolvePopoverMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolvePopoverMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolvePopoverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePopoverMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolvePopoverMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolvePopoverMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolvePopoverMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolvePopoverMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolvePopoverMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolvePopoverMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolvePopoverMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolvePopoverMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolvePopoverMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolvePopoverMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolvePopoverMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolvePopoverMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolvePopoverMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolvePopoverMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolvePopoverMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolvePopoverMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolvePopoverMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolvePopoverMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolvePopoverMethod "getConstrainTo" o = PopoverGetConstrainToMethodInfo
ResolvePopoverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePopoverMethod "getDefaultWidget" o = PopoverGetDefaultWidgetMethodInfo
ResolvePopoverMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolvePopoverMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolvePopoverMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolvePopoverMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolvePopoverMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolvePopoverMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolvePopoverMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolvePopoverMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolvePopoverMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolvePopoverMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolvePopoverMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolvePopoverMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolvePopoverMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolvePopoverMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolvePopoverMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolvePopoverMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolvePopoverMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolvePopoverMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolvePopoverMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolvePopoverMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolvePopoverMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolvePopoverMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolvePopoverMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolvePopoverMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolvePopoverMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolvePopoverMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolvePopoverMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolvePopoverMethod "getModal" o = PopoverGetModalMethodInfo
ResolvePopoverMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolvePopoverMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolvePopoverMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolvePopoverMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolvePopoverMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolvePopoverMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolvePopoverMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolvePopoverMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolvePopoverMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolvePopoverMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolvePopoverMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolvePopoverMethod "getPointingTo" o = PopoverGetPointingToMethodInfo
ResolvePopoverMethod "getPosition" o = PopoverGetPositionMethodInfo
ResolvePopoverMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolvePopoverMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolvePopoverMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolvePopoverMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolvePopoverMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolvePopoverMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolvePopoverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePopoverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePopoverMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolvePopoverMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolvePopoverMethod "getRelativeTo" o = PopoverGetRelativeToMethodInfo
ResolvePopoverMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolvePopoverMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolvePopoverMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolvePopoverMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolvePopoverMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolvePopoverMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolvePopoverMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolvePopoverMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolvePopoverMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolvePopoverMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolvePopoverMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolvePopoverMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolvePopoverMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolvePopoverMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolvePopoverMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolvePopoverMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolvePopoverMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolvePopoverMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolvePopoverMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolvePopoverMethod "getTransitionsEnabled" o = PopoverGetTransitionsEnabledMethodInfo
ResolvePopoverMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolvePopoverMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolvePopoverMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolvePopoverMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolvePopoverMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolvePopoverMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolvePopoverMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolvePopoverMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolvePopoverMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolvePopoverMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolvePopoverMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolvePopoverMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolvePopoverMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolvePopoverMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolvePopoverMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolvePopoverMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolvePopoverMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolvePopoverMethod "setConstrainTo" o = PopoverSetConstrainToMethodInfo
ResolvePopoverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePopoverMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePopoverMethod "setDefaultWidget" o = PopoverSetDefaultWidgetMethodInfo
ResolvePopoverMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolvePopoverMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolvePopoverMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolvePopoverMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolvePopoverMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolvePopoverMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolvePopoverMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolvePopoverMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolvePopoverMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolvePopoverMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolvePopoverMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolvePopoverMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolvePopoverMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolvePopoverMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolvePopoverMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolvePopoverMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolvePopoverMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolvePopoverMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolvePopoverMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolvePopoverMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolvePopoverMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolvePopoverMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolvePopoverMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolvePopoverMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolvePopoverMethod "setModal" o = PopoverSetModalMethodInfo
ResolvePopoverMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolvePopoverMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolvePopoverMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolvePopoverMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolvePopoverMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolvePopoverMethod "setPointingTo" o = PopoverSetPointingToMethodInfo
ResolvePopoverMethod "setPosition" o = PopoverSetPositionMethodInfo
ResolvePopoverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePopoverMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolvePopoverMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolvePopoverMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolvePopoverMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolvePopoverMethod "setRelativeTo" o = PopoverSetRelativeToMethodInfo
ResolvePopoverMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolvePopoverMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolvePopoverMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolvePopoverMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolvePopoverMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolvePopoverMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolvePopoverMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolvePopoverMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolvePopoverMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolvePopoverMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolvePopoverMethod "setTransitionsEnabled" o = PopoverSetTransitionsEnabledMethodInfo
ResolvePopoverMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolvePopoverMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolvePopoverMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolvePopoverMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolvePopoverMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolvePopoverMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolvePopoverMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePopoverMethod t Popover, O.MethodInfo info Popover p) => OL.IsLabel t (Popover -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type PopoverClosedCallback =
IO ()
noPopoverClosedCallback :: Maybe PopoverClosedCallback
noPopoverClosedCallback :: Maybe (IO ())
noPopoverClosedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_PopoverClosedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_PopoverClosedCallback :: C_PopoverClosedCallback -> IO (FunPtr C_PopoverClosedCallback)
genClosure_PopoverClosed :: MonadIO m => PopoverClosedCallback -> m (GClosure C_PopoverClosedCallback)
genClosure_PopoverClosed :: IO () -> m (GClosure C_PopoverClosedCallback)
genClosure_PopoverClosed cb :: IO ()
cb = IO (GClosure C_PopoverClosedCallback)
-> m (GClosure C_PopoverClosedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PopoverClosedCallback)
-> m (GClosure C_PopoverClosedCallback))
-> IO (GClosure C_PopoverClosedCallback)
-> m (GClosure C_PopoverClosedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PopoverClosedCallback
cb' = IO () -> C_PopoverClosedCallback
wrap_PopoverClosedCallback IO ()
cb
C_PopoverClosedCallback -> IO (FunPtr C_PopoverClosedCallback)
mk_PopoverClosedCallback C_PopoverClosedCallback
cb' IO (FunPtr C_PopoverClosedCallback)
-> (FunPtr C_PopoverClosedCallback
-> IO (GClosure C_PopoverClosedCallback))
-> IO (GClosure C_PopoverClosedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PopoverClosedCallback
-> IO (GClosure C_PopoverClosedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PopoverClosedCallback ::
PopoverClosedCallback ->
C_PopoverClosedCallback
wrap_PopoverClosedCallback :: IO () -> C_PopoverClosedCallback
wrap_PopoverClosedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onPopoverClosed :: (IsPopover a, MonadIO m) => a -> PopoverClosedCallback -> m SignalHandlerId
onPopoverClosed :: a -> IO () -> m SignalHandlerId
onPopoverClosed obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PopoverClosedCallback
cb' = IO () -> C_PopoverClosedCallback
wrap_PopoverClosedCallback IO ()
cb
FunPtr C_PopoverClosedCallback
cb'' <- C_PopoverClosedCallback -> IO (FunPtr C_PopoverClosedCallback)
mk_PopoverClosedCallback C_PopoverClosedCallback
cb'
a
-> Text
-> FunPtr C_PopoverClosedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "closed" FunPtr C_PopoverClosedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterPopoverClosed :: (IsPopover a, MonadIO m) => a -> PopoverClosedCallback -> m SignalHandlerId
afterPopoverClosed :: a -> IO () -> m SignalHandlerId
afterPopoverClosed obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PopoverClosedCallback
cb' = IO () -> C_PopoverClosedCallback
wrap_PopoverClosedCallback IO ()
cb
FunPtr C_PopoverClosedCallback
cb'' <- C_PopoverClosedCallback -> IO (FunPtr C_PopoverClosedCallback)
mk_PopoverClosedCallback C_PopoverClosedCallback
cb'
a
-> Text
-> FunPtr C_PopoverClosedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "closed" FunPtr C_PopoverClosedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data PopoverClosedSignalInfo
instance SignalInfo PopoverClosedSignalInfo where
type HaskellCallbackType PopoverClosedSignalInfo = PopoverClosedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_PopoverClosedCallback cb
cb'' <- mk_PopoverClosedCallback cb'
connectSignalFunPtr obj "closed" cb'' connectMode detail
#endif
getPopoverConstrainTo :: (MonadIO m, IsPopover o) => o -> m Gtk.Enums.PopoverConstraint
getPopoverConstrainTo :: o -> m PopoverConstraint
getPopoverConstrainTo obj :: o
obj = IO PopoverConstraint -> m PopoverConstraint
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PopoverConstraint -> m PopoverConstraint)
-> IO PopoverConstraint -> m PopoverConstraint
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PopoverConstraint
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "constrain-to"
setPopoverConstrainTo :: (MonadIO m, IsPopover o) => o -> Gtk.Enums.PopoverConstraint -> m ()
setPopoverConstrainTo :: o -> PopoverConstraint -> m ()
setPopoverConstrainTo obj :: o
obj val :: PopoverConstraint
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 -> PopoverConstraint -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "constrain-to" PopoverConstraint
val
constructPopoverConstrainTo :: (IsPopover o) => Gtk.Enums.PopoverConstraint -> IO (GValueConstruct o)
constructPopoverConstrainTo :: PopoverConstraint -> IO (GValueConstruct o)
constructPopoverConstrainTo val :: PopoverConstraint
val = String -> PopoverConstraint -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "constrain-to" PopoverConstraint
val
#if defined(ENABLE_OVERLOADING)
data PopoverConstrainToPropertyInfo
instance AttrInfo PopoverConstrainToPropertyInfo where
type AttrAllowedOps PopoverConstrainToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PopoverConstrainToPropertyInfo = IsPopover
type AttrSetTypeConstraint PopoverConstrainToPropertyInfo = (~) Gtk.Enums.PopoverConstraint
type AttrTransferTypeConstraint PopoverConstrainToPropertyInfo = (~) Gtk.Enums.PopoverConstraint
type AttrTransferType PopoverConstrainToPropertyInfo = Gtk.Enums.PopoverConstraint
type AttrGetType PopoverConstrainToPropertyInfo = Gtk.Enums.PopoverConstraint
type AttrLabel PopoverConstrainToPropertyInfo = "constrain-to"
type AttrOrigin PopoverConstrainToPropertyInfo = Popover
attrGet = getPopoverConstrainTo
attrSet = setPopoverConstrainTo
attrTransfer _ v = do
return v
attrConstruct = constructPopoverConstrainTo
attrClear = undefined
#endif
getPopoverModal :: (MonadIO m, IsPopover o) => o -> m Bool
getPopoverModal :: o -> m Bool
getPopoverModal obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "modal"
setPopoverModal :: (MonadIO m, IsPopover o) => o -> Bool -> m ()
setPopoverModal :: o -> Bool -> m ()
setPopoverModal obj :: o
obj val :: Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "modal" Bool
val
constructPopoverModal :: (IsPopover o) => Bool -> IO (GValueConstruct o)
constructPopoverModal :: Bool -> IO (GValueConstruct o)
constructPopoverModal val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "modal" Bool
val
#if defined(ENABLE_OVERLOADING)
data PopoverModalPropertyInfo
instance AttrInfo PopoverModalPropertyInfo where
type AttrAllowedOps PopoverModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PopoverModalPropertyInfo = IsPopover
type AttrSetTypeConstraint PopoverModalPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PopoverModalPropertyInfo = (~) Bool
type AttrTransferType PopoverModalPropertyInfo = Bool
type AttrGetType PopoverModalPropertyInfo = Bool
type AttrLabel PopoverModalPropertyInfo = "modal"
type AttrOrigin PopoverModalPropertyInfo = Popover
attrGet = getPopoverModal
attrSet = setPopoverModal
attrTransfer _ v = do
return v
attrConstruct = constructPopoverModal
attrClear = undefined
#endif
getPopoverPointingTo :: (MonadIO m, IsPopover o) => o -> m (Maybe Gdk.Rectangle.Rectangle)
getPopoverPointingTo :: o -> m (Maybe Rectangle)
getPopoverPointingTo obj :: o
obj = IO (Maybe Rectangle) -> m (Maybe Rectangle)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Rectangle) -> m (Maybe Rectangle))
-> IO (Maybe Rectangle) -> m (Maybe Rectangle)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Rectangle -> Rectangle)
-> IO (Maybe Rectangle)
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj "pointing-to" ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle
setPopoverPointingTo :: (MonadIO m, IsPopover o) => o -> Gdk.Rectangle.Rectangle -> m ()
setPopoverPointingTo :: o -> Rectangle -> m ()
setPopoverPointingTo obj :: o
obj val :: Rectangle
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 Rectangle -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "pointing-to" (Rectangle -> Maybe Rectangle
forall a. a -> Maybe a
Just Rectangle
val)
constructPopoverPointingTo :: (IsPopover o) => Gdk.Rectangle.Rectangle -> IO (GValueConstruct o)
constructPopoverPointingTo :: Rectangle -> IO (GValueConstruct o)
constructPopoverPointingTo val :: Rectangle
val = String -> Maybe Rectangle -> IO (GValueConstruct o)
forall a o.
BoxedObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed "pointing-to" (Rectangle -> Maybe Rectangle
forall a. a -> Maybe a
Just Rectangle
val)
#if defined(ENABLE_OVERLOADING)
data PopoverPointingToPropertyInfo
instance AttrInfo PopoverPointingToPropertyInfo where
type AttrAllowedOps PopoverPointingToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PopoverPointingToPropertyInfo = IsPopover
type AttrSetTypeConstraint PopoverPointingToPropertyInfo = (~) Gdk.Rectangle.Rectangle
type AttrTransferTypeConstraint PopoverPointingToPropertyInfo = (~) Gdk.Rectangle.Rectangle
type AttrTransferType PopoverPointingToPropertyInfo = Gdk.Rectangle.Rectangle
type AttrGetType PopoverPointingToPropertyInfo = (Maybe Gdk.Rectangle.Rectangle)
type AttrLabel PopoverPointingToPropertyInfo = "pointing-to"
type AttrOrigin PopoverPointingToPropertyInfo = Popover
attrGet = getPopoverPointingTo
attrSet = setPopoverPointingTo
attrTransfer _ v = do
return v
attrConstruct = constructPopoverPointingTo
attrClear = undefined
#endif
getPopoverPosition :: (MonadIO m, IsPopover o) => o -> m Gtk.Enums.PositionType
getPopoverPosition :: o -> m PositionType
getPopoverPosition obj :: o
obj = IO PositionType -> m PositionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PositionType -> m PositionType)
-> IO PositionType -> m PositionType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PositionType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "position"
setPopoverPosition :: (MonadIO m, IsPopover o) => o -> Gtk.Enums.PositionType -> m ()
setPopoverPosition :: o -> PositionType -> m ()
setPopoverPosition obj :: o
obj val :: PositionType
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 -> PositionType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "position" PositionType
val
constructPopoverPosition :: (IsPopover o) => Gtk.Enums.PositionType -> IO (GValueConstruct o)
constructPopoverPosition :: PositionType -> IO (GValueConstruct o)
constructPopoverPosition val :: PositionType
val = String -> PositionType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "position" PositionType
val
#if defined(ENABLE_OVERLOADING)
data PopoverPositionPropertyInfo
instance AttrInfo PopoverPositionPropertyInfo where
type AttrAllowedOps PopoverPositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PopoverPositionPropertyInfo = IsPopover
type AttrSetTypeConstraint PopoverPositionPropertyInfo = (~) Gtk.Enums.PositionType
type AttrTransferTypeConstraint PopoverPositionPropertyInfo = (~) Gtk.Enums.PositionType
type AttrTransferType PopoverPositionPropertyInfo = Gtk.Enums.PositionType
type AttrGetType PopoverPositionPropertyInfo = Gtk.Enums.PositionType
type AttrLabel PopoverPositionPropertyInfo = "position"
type AttrOrigin PopoverPositionPropertyInfo = Popover
attrGet = getPopoverPosition
attrSet = setPopoverPosition
attrTransfer _ v = do
return v
attrConstruct = constructPopoverPosition
attrClear = undefined
#endif
getPopoverRelativeTo :: (MonadIO m, IsPopover o) => o -> m Gtk.Widget.Widget
getPopoverRelativeTo :: o -> m Widget
getPopoverRelativeTo obj :: o
obj = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Widget) -> IO Widget
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getPopoverRelativeTo" (IO (Maybe Widget) -> IO Widget) -> IO (Maybe Widget) -> IO 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 "relative-to" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setPopoverRelativeTo :: (MonadIO m, IsPopover o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setPopoverRelativeTo :: o -> a -> m ()
setPopoverRelativeTo obj :: o
obj val :: 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 "relative-to" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructPopoverRelativeTo :: (IsPopover o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructPopoverRelativeTo :: a -> IO (GValueConstruct o)
constructPopoverRelativeTo val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "relative-to" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearPopoverRelativeTo :: (MonadIO m, IsPopover o) => o -> m ()
clearPopoverRelativeTo :: o -> m ()
clearPopoverRelativeTo obj :: 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 "relative-to" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data PopoverRelativeToPropertyInfo
instance AttrInfo PopoverRelativeToPropertyInfo where
type AttrAllowedOps PopoverRelativeToPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint PopoverRelativeToPropertyInfo = IsPopover
type AttrSetTypeConstraint PopoverRelativeToPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint PopoverRelativeToPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType PopoverRelativeToPropertyInfo = Gtk.Widget.Widget
type AttrGetType PopoverRelativeToPropertyInfo = Gtk.Widget.Widget
type AttrLabel PopoverRelativeToPropertyInfo = "relative-to"
type AttrOrigin PopoverRelativeToPropertyInfo = Popover
attrGet = getPopoverRelativeTo
attrSet = setPopoverRelativeTo
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructPopoverRelativeTo
attrClear = clearPopoverRelativeTo
#endif
getPopoverTransitionsEnabled :: (MonadIO m, IsPopover o) => o -> m Bool
getPopoverTransitionsEnabled :: o -> m Bool
getPopoverTransitionsEnabled obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "transitions-enabled"
setPopoverTransitionsEnabled :: (MonadIO m, IsPopover o) => o -> Bool -> m ()
setPopoverTransitionsEnabled :: o -> Bool -> m ()
setPopoverTransitionsEnabled obj :: o
obj val :: Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "transitions-enabled" Bool
val
constructPopoverTransitionsEnabled :: (IsPopover o) => Bool -> IO (GValueConstruct o)
constructPopoverTransitionsEnabled :: Bool -> IO (GValueConstruct o)
constructPopoverTransitionsEnabled val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "transitions-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data PopoverTransitionsEnabledPropertyInfo
instance AttrInfo PopoverTransitionsEnabledPropertyInfo where
type AttrAllowedOps PopoverTransitionsEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint PopoverTransitionsEnabledPropertyInfo = IsPopover
type AttrSetTypeConstraint PopoverTransitionsEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint PopoverTransitionsEnabledPropertyInfo = (~) Bool
type AttrTransferType PopoverTransitionsEnabledPropertyInfo = Bool
type AttrGetType PopoverTransitionsEnabledPropertyInfo = Bool
type AttrLabel PopoverTransitionsEnabledPropertyInfo = "transitions-enabled"
type AttrOrigin PopoverTransitionsEnabledPropertyInfo = Popover
attrGet = getPopoverTransitionsEnabled
attrSet = setPopoverTransitionsEnabled
attrTransfer _ v = do
return v
attrConstruct = constructPopoverTransitionsEnabled
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Popover
type instance O.AttributeList Popover = PopoverAttributeList
type PopoverAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("constrainTo", PopoverConstrainToPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("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), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("modal", PopoverModalPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("pointingTo", PopoverPointingToPropertyInfo), '("position", PopoverPositionPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("relativeTo", PopoverRelativeToPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("transitionsEnabled", PopoverTransitionsEnabledPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
popoverConstrainTo :: AttrLabelProxy "constrainTo"
popoverConstrainTo = AttrLabelProxy
popoverModal :: AttrLabelProxy "modal"
popoverModal = AttrLabelProxy
popoverPointingTo :: AttrLabelProxy "pointingTo"
popoverPointingTo = AttrLabelProxy
popoverPosition :: AttrLabelProxy "position"
popoverPosition = AttrLabelProxy
popoverRelativeTo :: AttrLabelProxy "relativeTo"
popoverRelativeTo = AttrLabelProxy
popoverTransitionsEnabled :: AttrLabelProxy "transitionsEnabled"
popoverTransitionsEnabled = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Popover = PopoverSignalList
type PopoverSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("closed", PopoverClosedSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_popover_new" gtk_popover_new ::
Ptr Gtk.Widget.Widget ->
IO (Ptr Popover)
popoverNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a) =>
Maybe (a)
-> m Popover
popoverNew :: Maybe a -> m Popover
popoverNew relativeTo :: Maybe a
relativeTo = IO Popover -> m Popover
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Popover -> m Popover) -> IO Popover -> m Popover
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
maybeRelativeTo <- case Maybe a
relativeTo of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jRelativeTo :: a
jRelativeTo -> do
Ptr Widget
jRelativeTo' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jRelativeTo
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jRelativeTo'
Ptr Popover
result <- Ptr Widget -> IO (Ptr Popover)
gtk_popover_new Ptr Widget
maybeRelativeTo
Text -> Ptr Popover -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "popoverNew" Ptr Popover
result
Popover
result' <- ((ManagedPtr Popover -> Popover) -> Ptr Popover -> IO Popover
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Popover -> Popover
Popover) Ptr Popover
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
relativeTo a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Popover -> IO Popover
forall (m :: * -> *) a. Monad m => a -> m a
return Popover
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_popover_new_from_model" gtk_popover_new_from_model ::
Ptr Gtk.Widget.Widget ->
Ptr Gio.MenuModel.MenuModel ->
IO (Ptr Popover)
popoverNewFromModel ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Widget.IsWidget a, Gio.MenuModel.IsMenuModel b) =>
Maybe (a)
-> b
-> m Popover
popoverNewFromModel :: Maybe a -> b -> m Popover
popoverNewFromModel relativeTo :: Maybe a
relativeTo model :: b
model = IO Popover -> m Popover
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Popover -> m Popover) -> IO Popover -> m Popover
forall a b. (a -> b) -> a -> b
$ do
Ptr Widget
maybeRelativeTo <- case Maybe a
relativeTo of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jRelativeTo :: a
jRelativeTo -> do
Ptr Widget
jRelativeTo' <- a -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
jRelativeTo
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jRelativeTo'
Ptr MenuModel
model' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
model
Ptr Popover
result <- Ptr Widget -> Ptr MenuModel -> IO (Ptr Popover)
gtk_popover_new_from_model Ptr Widget
maybeRelativeTo Ptr MenuModel
model'
Text -> Ptr Popover -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "popoverNewFromModel" Ptr Popover
result
Popover
result' <- ((ManagedPtr Popover -> Popover) -> Ptr Popover -> IO Popover
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Popover -> Popover
Popover) Ptr Popover
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
relativeTo a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
model
Popover -> IO Popover
forall (m :: * -> *) a. Monad m => a -> m a
return Popover
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_popover_bind_model" gtk_popover_bind_model ::
Ptr Popover ->
Ptr Gio.MenuModel.MenuModel ->
CString ->
IO ()
popoverBindModel ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> Maybe (T.Text)
-> m ()
popoverBindModel :: a -> Maybe b -> Maybe Text -> m ()
popoverBindModel popover :: a
popover model :: Maybe b
model actionNamespace :: Maybe Text
actionNamespace = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr MenuModel
maybeModel <- case Maybe b
model of
Nothing -> Ptr MenuModel -> IO (Ptr MenuModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
forall a. Ptr a
nullPtr
Just jModel :: b
jModel -> do
Ptr MenuModel
jModel' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr MenuModel -> IO (Ptr MenuModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jModel'
Ptr CChar
maybeActionNamespace <- case Maybe Text
actionNamespace of
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just jActionNamespace :: Text
jActionNamespace -> do
Ptr CChar
jActionNamespace' <- Text -> IO (Ptr CChar)
textToCString Text
jActionNamespace
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jActionNamespace'
Ptr Popover -> Ptr MenuModel -> Ptr CChar -> IO ()
gtk_popover_bind_model Ptr Popover
popover' Ptr MenuModel
maybeModel Ptr CChar
maybeActionNamespace
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeActionNamespace
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverBindModelMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (T.Text) -> m ()), MonadIO m, IsPopover a, Gio.MenuModel.IsMenuModel b) => O.MethodInfo PopoverBindModelMethodInfo a signature where
overloadedMethod = popoverBindModel
#endif
foreign import ccall "gtk_popover_get_constrain_to" gtk_popover_get_constrain_to ::
Ptr Popover ->
IO CUInt
popoverGetConstrainTo ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m Gtk.Enums.PopoverConstraint
popoverGetConstrainTo :: a -> m PopoverConstraint
popoverGetConstrainTo popover :: a
popover = IO PopoverConstraint -> m PopoverConstraint
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PopoverConstraint -> m PopoverConstraint)
-> IO PopoverConstraint -> m PopoverConstraint
forall a b. (a -> b) -> a -> b
$ do
Ptr Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
CUInt
result <- Ptr Popover -> IO CUInt
gtk_popover_get_constrain_to Ptr Popover
popover'
let result' :: PopoverConstraint
result' = (Int -> PopoverConstraint
forall a. Enum a => Int -> a
toEnum (Int -> PopoverConstraint)
-> (CUInt -> Int) -> CUInt -> PopoverConstraint
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
PopoverConstraint -> IO PopoverConstraint
forall (m :: * -> *) a. Monad m => a -> m a
return PopoverConstraint
result'
#if defined(ENABLE_OVERLOADING)
data PopoverGetConstrainToMethodInfo
instance (signature ~ (m Gtk.Enums.PopoverConstraint), MonadIO m, IsPopover a) => O.MethodInfo PopoverGetConstrainToMethodInfo a signature where
overloadedMethod = popoverGetConstrainTo
#endif
foreign import ccall "gtk_popover_get_default_widget" gtk_popover_get_default_widget ::
Ptr Popover ->
IO (Ptr Gtk.Widget.Widget)
popoverGetDefaultWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m (Maybe Gtk.Widget.Widget)
popoverGetDefaultWidget :: a -> m (Maybe Widget)
popoverGetDefaultWidget popover :: a
popover = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Widget
result <- Ptr Popover -> IO (Ptr Widget)
gtk_popover_get_default_widget Ptr Popover
popover'
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
$ \result' :: 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
popover
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data PopoverGetDefaultWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsPopover a) => O.MethodInfo PopoverGetDefaultWidgetMethodInfo a signature where
overloadedMethod = popoverGetDefaultWidget
#endif
foreign import ccall "gtk_popover_get_modal" gtk_popover_get_modal ::
Ptr Popover ->
IO CInt
popoverGetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m Bool
popoverGetModal :: a -> m Bool
popoverGetModal popover :: a
popover = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
CInt
result <- Ptr Popover -> IO CInt
gtk_popover_get_modal Ptr Popover
popover'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PopoverGetModalMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPopover a) => O.MethodInfo PopoverGetModalMethodInfo a signature where
overloadedMethod = popoverGetModal
#endif
foreign import ccall "gtk_popover_get_pointing_to" gtk_popover_get_pointing_to ::
Ptr Popover ->
Ptr Gdk.Rectangle.Rectangle ->
IO CInt
popoverGetPointingTo ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m ((Bool, Gdk.Rectangle.Rectangle))
popoverGetPointingTo :: a -> m (Bool, Rectangle)
popoverGetPointingTo popover :: a
popover = IO (Bool, Rectangle) -> m (Bool, Rectangle)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Rectangle) -> m (Bool, Rectangle))
-> IO (Bool, Rectangle) -> m (Bool, Rectangle)
forall a b. (a -> b) -> a -> b
$ do
Ptr Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Rectangle
rect <- Int -> IO (Ptr Rectangle)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
CInt
result <- Ptr Popover -> Ptr Rectangle -> IO CInt
gtk_popover_get_pointing_to Ptr Popover
popover' Ptr Rectangle
rect
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
(Bool, Rectangle) -> IO (Bool, Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Rectangle
rect')
#if defined(ENABLE_OVERLOADING)
data PopoverGetPointingToMethodInfo
instance (signature ~ (m ((Bool, Gdk.Rectangle.Rectangle))), MonadIO m, IsPopover a) => O.MethodInfo PopoverGetPointingToMethodInfo a signature where
overloadedMethod = popoverGetPointingTo
#endif
foreign import ccall "gtk_popover_get_position" gtk_popover_get_position ::
Ptr Popover ->
IO CUInt
popoverGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m Gtk.Enums.PositionType
popoverGetPosition :: a -> m PositionType
popoverGetPosition popover :: a
popover = IO PositionType -> m PositionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PositionType -> m PositionType)
-> IO PositionType -> m PositionType
forall a b. (a -> b) -> a -> b
$ do
Ptr Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
CUInt
result <- Ptr Popover -> IO CUInt
gtk_popover_get_position Ptr Popover
popover'
let result' :: PositionType
result' = (Int -> PositionType
forall a. Enum a => Int -> a
toEnum (Int -> PositionType) -> (CUInt -> Int) -> CUInt -> PositionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
PositionType -> IO PositionType
forall (m :: * -> *) a. Monad m => a -> m a
return PositionType
result'
#if defined(ENABLE_OVERLOADING)
data PopoverGetPositionMethodInfo
instance (signature ~ (m Gtk.Enums.PositionType), MonadIO m, IsPopover a) => O.MethodInfo PopoverGetPositionMethodInfo a signature where
overloadedMethod = popoverGetPosition
#endif
foreign import ccall "gtk_popover_get_relative_to" gtk_popover_get_relative_to ::
Ptr Popover ->
IO (Ptr Gtk.Widget.Widget)
popoverGetRelativeTo ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m Gtk.Widget.Widget
popoverGetRelativeTo :: a -> m Widget
popoverGetRelativeTo popover :: a
popover = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Widget
result <- Ptr Popover -> IO (Ptr Widget)
gtk_popover_get_relative_to Ptr Popover
popover'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "popoverGetRelativeTo" Ptr Widget
result
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data PopoverGetRelativeToMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsPopover a) => O.MethodInfo PopoverGetRelativeToMethodInfo a signature where
overloadedMethod = popoverGetRelativeTo
#endif
foreign import ccall "gtk_popover_get_transitions_enabled" gtk_popover_get_transitions_enabled ::
Ptr Popover ->
IO CInt
{-# DEPRECATED popoverGetTransitionsEnabled ["(Since version 3.22)","You can show or hide the popover without transitions"," using 'GI.Gtk.Objects.Widget.widgetShow' and 'GI.Gtk.Objects.Widget.widgetHide' while 'GI.Gtk.Objects.Popover.popoverPopup'"," and 'GI.Gtk.Objects.Popover.popoverPopdown' will use transitions."] #-}
popoverGetTransitionsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m Bool
popoverGetTransitionsEnabled :: a -> m Bool
popoverGetTransitionsEnabled popover :: a
popover = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
CInt
result <- Ptr Popover -> IO CInt
gtk_popover_get_transitions_enabled Ptr Popover
popover'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PopoverGetTransitionsEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsPopover a) => O.MethodInfo PopoverGetTransitionsEnabledMethodInfo a signature where
overloadedMethod = popoverGetTransitionsEnabled
#endif
foreign import ccall "gtk_popover_popdown" gtk_popover_popdown ::
Ptr Popover ->
IO ()
popoverPopdown ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m ()
popoverPopdown :: a -> m ()
popoverPopdown popover :: a
popover = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Popover -> IO ()
gtk_popover_popdown Ptr Popover
popover'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverPopdownMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPopover a) => O.MethodInfo PopoverPopdownMethodInfo a signature where
overloadedMethod = popoverPopdown
#endif
foreign import ccall "gtk_popover_popup" ::
Ptr Popover ->
IO ()
popoverPopup ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> m ()
popover :: a
popover = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Popover -> IO ()
gtk_popover_popup Ptr Popover
popover'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverPopupMethodInfo
instance (signature ~ (m ()), MonadIO m, IsPopover a) => O.MethodInfo PopoverPopupMethodInfo a signature where
overloadedMethod = popoverPopup
#endif
foreign import ccall "gtk_popover_set_constrain_to" gtk_popover_set_constrain_to ::
Ptr Popover ->
CUInt ->
IO ()
popoverSetConstrainTo ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> Gtk.Enums.PopoverConstraint
-> m ()
popoverSetConstrainTo :: a -> PopoverConstraint -> m ()
popoverSetConstrainTo popover :: a
popover constraint :: PopoverConstraint
constraint = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
let constraint' :: CUInt
constraint' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (PopoverConstraint -> Int) -> PopoverConstraint -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PopoverConstraint -> Int
forall a. Enum a => a -> Int
fromEnum) PopoverConstraint
constraint
Ptr Popover -> CUInt -> IO ()
gtk_popover_set_constrain_to Ptr Popover
popover' CUInt
constraint'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverSetConstrainToMethodInfo
instance (signature ~ (Gtk.Enums.PopoverConstraint -> m ()), MonadIO m, IsPopover a) => O.MethodInfo PopoverSetConstrainToMethodInfo a signature where
overloadedMethod = popoverSetConstrainTo
#endif
foreign import ccall "gtk_popover_set_default_widget" gtk_popover_set_default_widget ::
Ptr Popover ->
Ptr Gtk.Widget.Widget ->
IO ()
popoverSetDefaultWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
popoverSetDefaultWidget :: a -> Maybe b -> m ()
popoverSetDefaultWidget popover :: a
popover widget :: Maybe 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Widget
maybeWidget <- case Maybe b
widget of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jWidget :: b
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
Ptr Popover -> Ptr Widget -> IO ()
gtk_popover_set_default_widget Ptr Popover
popover' Ptr Widget
maybeWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
widget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverSetDefaultWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPopover a, Gtk.Widget.IsWidget b) => O.MethodInfo PopoverSetDefaultWidgetMethodInfo a signature where
overloadedMethod = popoverSetDefaultWidget
#endif
foreign import ccall "gtk_popover_set_modal" gtk_popover_set_modal ::
Ptr Popover ->
CInt ->
IO ()
popoverSetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> Bool
-> m ()
popoverSetModal :: a -> Bool -> m ()
popoverSetModal popover :: a
popover modal :: Bool
modal = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
let modal' :: CInt
modal' = (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
modal
Ptr Popover -> CInt -> IO ()
gtk_popover_set_modal Ptr Popover
popover' CInt
modal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverSetModalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPopover a) => O.MethodInfo PopoverSetModalMethodInfo a signature where
overloadedMethod = popoverSetModal
#endif
foreign import ccall "gtk_popover_set_pointing_to" gtk_popover_set_pointing_to ::
Ptr Popover ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
popoverSetPointingTo ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> Gdk.Rectangle.Rectangle
-> m ()
popoverSetPointingTo :: a -> Rectangle -> m ()
popoverSetPointingTo popover :: a
popover rect :: Rectangle
rect = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
Ptr Popover -> Ptr Rectangle -> IO ()
gtk_popover_set_pointing_to Ptr Popover
popover' Ptr Rectangle
rect'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverSetPointingToMethodInfo
instance (signature ~ (Gdk.Rectangle.Rectangle -> m ()), MonadIO m, IsPopover a) => O.MethodInfo PopoverSetPointingToMethodInfo a signature where
overloadedMethod = popoverSetPointingTo
#endif
foreign import ccall "gtk_popover_set_position" gtk_popover_set_position ::
Ptr Popover ->
CUInt ->
IO ()
popoverSetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> Gtk.Enums.PositionType
-> m ()
popoverSetPosition :: a -> PositionType -> m ()
popoverSetPosition popover :: a
popover position :: PositionType
position = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
let position' :: CUInt
position' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PositionType -> Int) -> PositionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PositionType -> Int
forall a. Enum a => a -> Int
fromEnum) PositionType
position
Ptr Popover -> CUInt -> IO ()
gtk_popover_set_position Ptr Popover
popover' CUInt
position'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverSetPositionMethodInfo
instance (signature ~ (Gtk.Enums.PositionType -> m ()), MonadIO m, IsPopover a) => O.MethodInfo PopoverSetPositionMethodInfo a signature where
overloadedMethod = popoverSetPosition
#endif
foreign import ccall "gtk_popover_set_relative_to" gtk_popover_set_relative_to ::
Ptr Popover ->
Ptr Gtk.Widget.Widget ->
IO ()
popoverSetRelativeTo ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
popoverSetRelativeTo :: a -> Maybe b -> m ()
popoverSetRelativeTo popover :: a
popover relativeTo :: Maybe b
relativeTo = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
Ptr Widget
maybeRelativeTo <- case Maybe b
relativeTo of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jRelativeTo :: b
jRelativeTo -> do
Ptr Widget
jRelativeTo' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jRelativeTo
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jRelativeTo'
Ptr Popover -> Ptr Widget -> IO ()
gtk_popover_set_relative_to Ptr Popover
popover' Ptr Widget
maybeRelativeTo
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
relativeTo b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverSetRelativeToMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsPopover a, Gtk.Widget.IsWidget b) => O.MethodInfo PopoverSetRelativeToMethodInfo a signature where
overloadedMethod = popoverSetRelativeTo
#endif
foreign import ccall "gtk_popover_set_transitions_enabled" gtk_popover_set_transitions_enabled ::
Ptr Popover ->
CInt ->
IO ()
{-# DEPRECATED popoverSetTransitionsEnabled ["(Since version 3.22)","You can show or hide the popover without transitions"," using 'GI.Gtk.Objects.Widget.widgetShow' and 'GI.Gtk.Objects.Widget.widgetHide' while 'GI.Gtk.Objects.Popover.popoverPopup'"," and 'GI.Gtk.Objects.Popover.popoverPopdown' will use transitions."] #-}
popoverSetTransitionsEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsPopover a) =>
a
-> Bool
-> m ()
popoverSetTransitionsEnabled :: a -> Bool -> m ()
popoverSetTransitionsEnabled popover :: a
popover transitionsEnabled :: Bool
transitionsEnabled = 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 Popover
popover' <- a -> IO (Ptr Popover)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popover
let transitionsEnabled' :: CInt
transitionsEnabled' = (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
transitionsEnabled
Ptr Popover -> CInt -> IO ()
gtk_popover_set_transitions_enabled Ptr Popover
popover' CInt
transitionsEnabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popover
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PopoverSetTransitionsEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsPopover a) => O.MethodInfo PopoverSetTransitionsEnabledMethodInfo a signature where
overloadedMethod = popoverSetTransitionsEnabled
#endif