{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.Banner
(
Banner(..) ,
IsBanner ,
toBanner ,
#if defined(ENABLE_OVERLOADING)
ResolveBannerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BannerGetButtonLabelMethodInfo ,
#endif
bannerGetButtonLabel ,
#if defined(ENABLE_OVERLOADING)
BannerGetRevealedMethodInfo ,
#endif
bannerGetRevealed ,
#if defined(ENABLE_OVERLOADING)
BannerGetTitleMethodInfo ,
#endif
bannerGetTitle ,
#if defined(ENABLE_OVERLOADING)
BannerGetUseMarkupMethodInfo ,
#endif
bannerGetUseMarkup ,
bannerNew ,
#if defined(ENABLE_OVERLOADING)
BannerSetButtonLabelMethodInfo ,
#endif
bannerSetButtonLabel ,
#if defined(ENABLE_OVERLOADING)
BannerSetRevealedMethodInfo ,
#endif
bannerSetRevealed ,
#if defined(ENABLE_OVERLOADING)
BannerSetTitleMethodInfo ,
#endif
bannerSetTitle ,
#if defined(ENABLE_OVERLOADING)
BannerSetUseMarkupMethodInfo ,
#endif
bannerSetUseMarkup ,
#if defined(ENABLE_OVERLOADING)
BannerButtonLabelPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
bannerButtonLabel ,
#endif
clearBannerButtonLabel ,
constructBannerButtonLabel ,
getBannerButtonLabel ,
setBannerButtonLabel ,
#if defined(ENABLE_OVERLOADING)
BannerRevealedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
bannerRevealed ,
#endif
constructBannerRevealed ,
getBannerRevealed ,
setBannerRevealed ,
#if defined(ENABLE_OVERLOADING)
BannerTitlePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
bannerTitle ,
#endif
constructBannerTitle ,
getBannerTitle ,
setBannerTitle ,
#if defined(ENABLE_OVERLOADING)
BannerUseMarkupPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
bannerUseMarkup ,
#endif
constructBannerUseMarkup ,
getBannerUseMarkup ,
setBannerUseMarkup ,
BannerButtonClickedCallback ,
#if defined(ENABLE_OVERLOADING)
BannerButtonClickedSignalInfo ,
#endif
afterBannerButtonClicked ,
onBannerButtonClicked ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Banner = Banner (SP.ManagedPtr Banner)
deriving (Banner -> Banner -> Bool
(Banner -> Banner -> Bool)
-> (Banner -> Banner -> Bool) -> Eq Banner
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Banner -> Banner -> Bool
== :: Banner -> Banner -> Bool
$c/= :: Banner -> Banner -> Bool
/= :: Banner -> Banner -> Bool
Eq)
instance SP.ManagedPtrNewtype Banner where
toManagedPtr :: Banner -> ManagedPtr Banner
toManagedPtr (Banner ManagedPtr Banner
p) = ManagedPtr Banner
p
foreign import ccall "adw_banner_get_type"
c_adw_banner_get_type :: IO B.Types.GType
instance B.Types.TypedObject Banner where
glibType :: IO GType
glibType = IO GType
c_adw_banner_get_type
instance B.Types.GObject Banner
class (SP.GObject o, O.IsDescendantOf Banner o) => IsBanner o
instance (SP.GObject o, O.IsDescendantOf Banner o) => IsBanner o
instance O.HasParentTypes Banner
type instance O.ParentTypes Banner = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Actionable.Actionable, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toBanner :: (MIO.MonadIO m, IsBanner o) => o -> m Banner
toBanner :: forall (m :: * -> *) o. (MonadIO m, IsBanner o) => o -> m Banner
toBanner = IO Banner -> m Banner
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Banner -> m Banner) -> (o -> IO Banner) -> o -> m Banner
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Banner -> Banner) -> o -> IO Banner
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Banner -> Banner
Banner
instance B.GValue.IsGValue (Maybe Banner) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_banner_get_type
gvalueSet_ :: Ptr GValue -> Maybe Banner -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Banner
P.Nothing = Ptr GValue -> Ptr Banner -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Banner
forall a. Ptr a
FP.nullPtr :: FP.Ptr Banner)
gvalueSet_ Ptr GValue
gv (P.Just Banner
obj) = Banner -> (Ptr Banner -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Banner
obj (Ptr GValue -> Ptr Banner -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Banner)
gvalueGet_ Ptr GValue
gv = do
Ptr Banner
ptr <- Ptr GValue -> IO (Ptr Banner)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Banner)
if Ptr Banner
ptr Ptr Banner -> Ptr Banner -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Banner
forall a. Ptr a
FP.nullPtr
then Banner -> Maybe Banner
forall a. a -> Maybe a
P.Just (Banner -> Maybe Banner) -> IO Banner -> IO (Maybe Banner)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Banner -> Banner) -> Ptr Banner -> IO Banner
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Banner -> Banner
Banner Ptr Banner
ptr
else Maybe Banner -> IO (Maybe Banner)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Banner
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveBannerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveBannerMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveBannerMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveBannerMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveBannerMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveBannerMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveBannerMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveBannerMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveBannerMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveBannerMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveBannerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBannerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBannerMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveBannerMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveBannerMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveBannerMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveBannerMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveBannerMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveBannerMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveBannerMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveBannerMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveBannerMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveBannerMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveBannerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBannerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBannerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBannerMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveBannerMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveBannerMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveBannerMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveBannerMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveBannerMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveBannerMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveBannerMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveBannerMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveBannerMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveBannerMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveBannerMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveBannerMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveBannerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBannerMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveBannerMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveBannerMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveBannerMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveBannerMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveBannerMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveBannerMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveBannerMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveBannerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBannerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBannerMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveBannerMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveBannerMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveBannerMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveBannerMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveBannerMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveBannerMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveBannerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBannerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBannerMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveBannerMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveBannerMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveBannerMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveBannerMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveBannerMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveBannerMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveBannerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBannerMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveBannerMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveBannerMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveBannerMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveBannerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBannerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBannerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBannerMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveBannerMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveBannerMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveBannerMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveBannerMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveBannerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBannerMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveBannerMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveBannerMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveBannerMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveBannerMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveBannerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBannerMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveBannerMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveBannerMethod "getActionName" o = Gtk.Actionable.ActionableGetActionNameMethodInfo
ResolveBannerMethod "getActionTargetValue" o = Gtk.Actionable.ActionableGetActionTargetValueMethodInfo
ResolveBannerMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveBannerMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveBannerMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveBannerMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveBannerMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveBannerMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveBannerMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveBannerMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveBannerMethod "getButtonLabel" o = BannerGetButtonLabelMethodInfo
ResolveBannerMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveBannerMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveBannerMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveBannerMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveBannerMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveBannerMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveBannerMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveBannerMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveBannerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBannerMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveBannerMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveBannerMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveBannerMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveBannerMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveBannerMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveBannerMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveBannerMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveBannerMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveBannerMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveBannerMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveBannerMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveBannerMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveBannerMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveBannerMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveBannerMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveBannerMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveBannerMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveBannerMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveBannerMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveBannerMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveBannerMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveBannerMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveBannerMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveBannerMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveBannerMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveBannerMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveBannerMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveBannerMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveBannerMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveBannerMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveBannerMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveBannerMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveBannerMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveBannerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBannerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBannerMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveBannerMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveBannerMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveBannerMethod "getRevealed" o = BannerGetRevealedMethodInfo
ResolveBannerMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveBannerMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveBannerMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveBannerMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveBannerMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveBannerMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveBannerMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveBannerMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveBannerMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveBannerMethod "getTitle" o = BannerGetTitleMethodInfo
ResolveBannerMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveBannerMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveBannerMethod "getUseMarkup" o = BannerGetUseMarkupMethodInfo
ResolveBannerMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveBannerMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveBannerMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveBannerMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveBannerMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveBannerMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveBannerMethod "setActionName" o = Gtk.Actionable.ActionableSetActionNameMethodInfo
ResolveBannerMethod "setActionTargetValue" o = Gtk.Actionable.ActionableSetActionTargetValueMethodInfo
ResolveBannerMethod "setButtonLabel" o = BannerSetButtonLabelMethodInfo
ResolveBannerMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveBannerMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveBannerMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveBannerMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveBannerMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveBannerMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveBannerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBannerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBannerMethod "setDetailedActionName" o = Gtk.Actionable.ActionableSetDetailedActionNameMethodInfo
ResolveBannerMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveBannerMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveBannerMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveBannerMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveBannerMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveBannerMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveBannerMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveBannerMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveBannerMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveBannerMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveBannerMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveBannerMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveBannerMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveBannerMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveBannerMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveBannerMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveBannerMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveBannerMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveBannerMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveBannerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBannerMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveBannerMethod "setRevealed" o = BannerSetRevealedMethodInfo
ResolveBannerMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveBannerMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveBannerMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveBannerMethod "setTitle" o = BannerSetTitleMethodInfo
ResolveBannerMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveBannerMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveBannerMethod "setUseMarkup" o = BannerSetUseMarkupMethodInfo
ResolveBannerMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveBannerMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveBannerMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveBannerMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveBannerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBannerMethod t Banner, O.OverloadedMethod info Banner p) => OL.IsLabel t (Banner -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveBannerMethod t Banner, O.OverloadedMethod info Banner p, R.HasField t Banner p) => R.HasField t Banner p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBannerMethod t Banner, O.OverloadedMethodInfo info Banner) => OL.IsLabel t (O.MethodProxy info Banner) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type BannerButtonClickedCallback =
IO ()
type C_BannerButtonClickedCallback =
Ptr Banner ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_BannerButtonClickedCallback :: C_BannerButtonClickedCallback -> IO (FunPtr C_BannerButtonClickedCallback)
wrap_BannerButtonClickedCallback ::
GObject a => (a -> BannerButtonClickedCallback) ->
C_BannerButtonClickedCallback
wrap_BannerButtonClickedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_BannerButtonClickedCallback
wrap_BannerButtonClickedCallback a -> IO ()
gi'cb Ptr Banner
gi'selfPtr Ptr ()
_ = do
Ptr Banner -> (Banner -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Banner
gi'selfPtr ((Banner -> IO ()) -> IO ()) -> (Banner -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Banner
gi'self -> a -> IO ()
gi'cb (Banner -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Banner
gi'self)
onBannerButtonClicked :: (IsBanner a, MonadIO m) => a -> ((?self :: a) => BannerButtonClickedCallback) -> m SignalHandlerId
onBannerButtonClicked :: forall a (m :: * -> *).
(IsBanner a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onBannerButtonClicked a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_BannerButtonClickedCallback
wrapped' = (a -> IO ()) -> C_BannerButtonClickedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_BannerButtonClickedCallback
wrap_BannerButtonClickedCallback a -> IO ()
wrapped
FunPtr C_BannerButtonClickedCallback
wrapped'' <- C_BannerButtonClickedCallback
-> IO (FunPtr C_BannerButtonClickedCallback)
mk_BannerButtonClickedCallback C_BannerButtonClickedCallback
wrapped'
a
-> Text
-> FunPtr C_BannerButtonClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-clicked" FunPtr C_BannerButtonClickedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterBannerButtonClicked :: (IsBanner a, MonadIO m) => a -> ((?self :: a) => BannerButtonClickedCallback) -> m SignalHandlerId
afterBannerButtonClicked :: forall a (m :: * -> *).
(IsBanner a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterBannerButtonClicked a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_BannerButtonClickedCallback
wrapped' = (a -> IO ()) -> C_BannerButtonClickedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_BannerButtonClickedCallback
wrap_BannerButtonClickedCallback a -> IO ()
wrapped
FunPtr C_BannerButtonClickedCallback
wrapped'' <- C_BannerButtonClickedCallback
-> IO (FunPtr C_BannerButtonClickedCallback)
mk_BannerButtonClickedCallback C_BannerButtonClickedCallback
wrapped'
a
-> Text
-> FunPtr C_BannerButtonClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-clicked" FunPtr C_BannerButtonClickedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data BannerButtonClickedSignalInfo
instance SignalInfo BannerButtonClickedSignalInfo where
type HaskellCallbackType BannerButtonClickedSignalInfo = BannerButtonClickedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_BannerButtonClickedCallback cb
cb'' <- mk_BannerButtonClickedCallback cb'
connectSignalFunPtr obj "button-clicked" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner::button-clicked"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#g:signal:buttonClicked"})
#endif
getBannerButtonLabel :: (MonadIO m, IsBanner o) => o -> m (Maybe T.Text)
getBannerButtonLabel :: forall (m :: * -> *) o.
(MonadIO m, IsBanner o) =>
o -> m (Maybe Text)
getBannerButtonLabel o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"button-label"
setBannerButtonLabel :: (MonadIO m, IsBanner o) => o -> T.Text -> m ()
setBannerButtonLabel :: forall (m :: * -> *) o.
(MonadIO m, IsBanner o) =>
o -> Text -> m ()
setBannerButtonLabel o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"button-label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructBannerButtonLabel :: (IsBanner o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructBannerButtonLabel :: forall o (m :: * -> *).
(IsBanner o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructBannerButtonLabel Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"button-label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearBannerButtonLabel :: (MonadIO m, IsBanner o) => o -> m ()
clearBannerButtonLabel :: forall (m :: * -> *) o. (MonadIO m, IsBanner o) => o -> m ()
clearBannerButtonLabel o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"button-label" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data BannerButtonLabelPropertyInfo
instance AttrInfo BannerButtonLabelPropertyInfo where
type AttrAllowedOps BannerButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BannerButtonLabelPropertyInfo = IsBanner
type AttrSetTypeConstraint BannerButtonLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint BannerButtonLabelPropertyInfo = (~) T.Text
type AttrTransferType BannerButtonLabelPropertyInfo = T.Text
type AttrGetType BannerButtonLabelPropertyInfo = (Maybe T.Text)
type AttrLabel BannerButtonLabelPropertyInfo = "button-label"
type AttrOrigin BannerButtonLabelPropertyInfo = Banner
attrGet = getBannerButtonLabel
attrSet = setBannerButtonLabel
attrTransfer _ v = do
return v
attrConstruct = constructBannerButtonLabel
attrClear = clearBannerButtonLabel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.buttonLabel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#g:attr:buttonLabel"
})
#endif
getBannerRevealed :: (MonadIO m, IsBanner o) => o -> m Bool
getBannerRevealed :: forall (m :: * -> *) o. (MonadIO m, IsBanner o) => o -> m Bool
getBannerRevealed o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"revealed"
setBannerRevealed :: (MonadIO m, IsBanner o) => o -> Bool -> m ()
setBannerRevealed :: forall (m :: * -> *) o.
(MonadIO m, IsBanner o) =>
o -> Bool -> m ()
setBannerRevealed o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"revealed" Bool
val
constructBannerRevealed :: (IsBanner o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBannerRevealed :: forall o (m :: * -> *).
(IsBanner o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBannerRevealed Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"revealed" Bool
val
#if defined(ENABLE_OVERLOADING)
data BannerRevealedPropertyInfo
instance AttrInfo BannerRevealedPropertyInfo where
type AttrAllowedOps BannerRevealedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BannerRevealedPropertyInfo = IsBanner
type AttrSetTypeConstraint BannerRevealedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BannerRevealedPropertyInfo = (~) Bool
type AttrTransferType BannerRevealedPropertyInfo = Bool
type AttrGetType BannerRevealedPropertyInfo = Bool
type AttrLabel BannerRevealedPropertyInfo = "revealed"
type AttrOrigin BannerRevealedPropertyInfo = Banner
attrGet = getBannerRevealed
attrSet = setBannerRevealed
attrTransfer _ v = do
return v
attrConstruct = constructBannerRevealed
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.revealed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#g:attr:revealed"
})
#endif
getBannerTitle :: (MonadIO m, IsBanner o) => o -> m T.Text
getBannerTitle :: forall (m :: * -> *) o. (MonadIO m, IsBanner o) => o -> m Text
getBannerTitle o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getBannerTitle" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setBannerTitle :: (MonadIO m, IsBanner o) => o -> T.Text -> m ()
setBannerTitle :: forall (m :: * -> *) o.
(MonadIO m, IsBanner o) =>
o -> Text -> m ()
setBannerTitle o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructBannerTitle :: (IsBanner o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructBannerTitle :: forall o (m :: * -> *).
(IsBanner o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructBannerTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data BannerTitlePropertyInfo
instance AttrInfo BannerTitlePropertyInfo where
type AttrAllowedOps BannerTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BannerTitlePropertyInfo = IsBanner
type AttrSetTypeConstraint BannerTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint BannerTitlePropertyInfo = (~) T.Text
type AttrTransferType BannerTitlePropertyInfo = T.Text
type AttrGetType BannerTitlePropertyInfo = T.Text
type AttrLabel BannerTitlePropertyInfo = "title"
type AttrOrigin BannerTitlePropertyInfo = Banner
attrGet = getBannerTitle
attrSet = setBannerTitle
attrTransfer _ v = do
return v
attrConstruct = constructBannerTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#g:attr:title"
})
#endif
getBannerUseMarkup :: (MonadIO m, IsBanner o) => o -> m Bool
getBannerUseMarkup :: forall (m :: * -> *) o. (MonadIO m, IsBanner o) => o -> m Bool
getBannerUseMarkup o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"use-markup"
setBannerUseMarkup :: (MonadIO m, IsBanner o) => o -> Bool -> m ()
setBannerUseMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsBanner o) =>
o -> Bool -> m ()
setBannerUseMarkup o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-markup" Bool
val
constructBannerUseMarkup :: (IsBanner o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBannerUseMarkup :: forall o (m :: * -> *).
(IsBanner o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBannerUseMarkup Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-markup" Bool
val
#if defined(ENABLE_OVERLOADING)
data BannerUseMarkupPropertyInfo
instance AttrInfo BannerUseMarkupPropertyInfo where
type AttrAllowedOps BannerUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BannerUseMarkupPropertyInfo = IsBanner
type AttrSetTypeConstraint BannerUseMarkupPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BannerUseMarkupPropertyInfo = (~) Bool
type AttrTransferType BannerUseMarkupPropertyInfo = Bool
type AttrGetType BannerUseMarkupPropertyInfo = Bool
type AttrLabel BannerUseMarkupPropertyInfo = "use-markup"
type AttrOrigin BannerUseMarkupPropertyInfo = Banner
attrGet = getBannerUseMarkup
attrSet = setBannerUseMarkup
attrTransfer _ v = do
return v
attrConstruct = constructBannerUseMarkup
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.useMarkup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#g:attr:useMarkup"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Banner
type instance O.AttributeList Banner = BannerAttributeList
type BannerAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("actionName", Gtk.Actionable.ActionableActionNamePropertyInfo), '("actionTarget", Gtk.Actionable.ActionableActionTargetPropertyInfo), '("buttonLabel", BannerButtonLabelPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("revealed", BannerRevealedPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("title", BannerTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useMarkup", BannerUseMarkupPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
bannerButtonLabel :: AttrLabelProxy "buttonLabel"
bannerButtonLabel = AttrLabelProxy
bannerRevealed :: AttrLabelProxy "revealed"
bannerRevealed = AttrLabelProxy
bannerTitle :: AttrLabelProxy "title"
bannerTitle = AttrLabelProxy
bannerUseMarkup :: AttrLabelProxy "useMarkup"
bannerUseMarkup = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Banner = BannerSignalList
type BannerSignalList = ('[ '("buttonClicked", BannerButtonClickedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "adw_banner_new" adw_banner_new ::
CString ->
IO (Ptr Banner)
bannerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m Banner
bannerNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Text -> m Banner
bannerNew Text
title = IO Banner -> m Banner
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Banner -> m Banner) -> IO Banner -> m Banner
forall a b. (a -> b) -> a -> b
$ do
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Banner
result <- CString -> IO (Ptr Banner)
adw_banner_new CString
title'
Text -> Ptr Banner -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"bannerNew" Ptr Banner
result
Banner
result' <- ((ManagedPtr Banner -> Banner) -> Ptr Banner -> IO Banner
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Banner -> Banner
Banner) Ptr Banner
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
Banner -> IO Banner
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Banner
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_banner_get_button_label" adw_banner_get_button_label ::
Ptr Banner ->
IO CString
bannerGetButtonLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> m (Maybe T.Text)
bannerGetButtonLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> m (Maybe Text)
bannerGetButtonLabel a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Banner -> IO CString
adw_banner_get_button_label Ptr Banner
self'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data BannerGetButtonLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBanner a) => O.OverloadedMethod BannerGetButtonLabelMethodInfo a signature where
overloadedMethod = bannerGetButtonLabel
instance O.OverloadedMethodInfo BannerGetButtonLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerGetButtonLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerGetButtonLabel"
})
#endif
foreign import ccall "adw_banner_get_revealed" adw_banner_get_revealed ::
Ptr Banner ->
IO CInt
bannerGetRevealed ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> m Bool
bannerGetRevealed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> m Bool
bannerGetRevealed a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Banner -> IO CInt
adw_banner_get_revealed Ptr Banner
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BannerGetRevealedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBanner a) => O.OverloadedMethod BannerGetRevealedMethodInfo a signature where
overloadedMethod = bannerGetRevealed
instance O.OverloadedMethodInfo BannerGetRevealedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerGetRevealed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerGetRevealed"
})
#endif
foreign import ccall "adw_banner_get_title" adw_banner_get_title ::
Ptr Banner ->
IO CString
bannerGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> m T.Text
bannerGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> m Text
bannerGetTitle a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Banner -> IO CString
adw_banner_get_title Ptr Banner
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"bannerGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data BannerGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsBanner a) => O.OverloadedMethod BannerGetTitleMethodInfo a signature where
overloadedMethod = bannerGetTitle
instance O.OverloadedMethodInfo BannerGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerGetTitle"
})
#endif
foreign import ccall "adw_banner_get_use_markup" adw_banner_get_use_markup ::
Ptr Banner ->
IO CInt
bannerGetUseMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> m Bool
bannerGetUseMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> m Bool
bannerGetUseMarkup a
self = IO Bool -> m Bool
forall a. IO a -> m a
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 Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Banner -> IO CInt
adw_banner_get_use_markup Ptr Banner
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BannerGetUseMarkupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBanner a) => O.OverloadedMethod BannerGetUseMarkupMethodInfo a signature where
overloadedMethod = bannerGetUseMarkup
instance O.OverloadedMethodInfo BannerGetUseMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerGetUseMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerGetUseMarkup"
})
#endif
foreign import ccall "adw_banner_set_button_label" adw_banner_set_button_label ::
Ptr Banner ->
CString ->
IO ()
bannerSetButtonLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> Maybe (T.Text)
-> m ()
bannerSetButtonLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> Maybe Text -> m ()
bannerSetButtonLabel a
self Maybe Text
label = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr Banner -> CString -> IO ()
adw_banner_set_button_label Ptr Banner
self' CString
maybeLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BannerSetButtonLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsBanner a) => O.OverloadedMethod BannerSetButtonLabelMethodInfo a signature where
overloadedMethod = bannerSetButtonLabel
instance O.OverloadedMethodInfo BannerSetButtonLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerSetButtonLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerSetButtonLabel"
})
#endif
foreign import ccall "adw_banner_set_revealed" adw_banner_set_revealed ::
Ptr Banner ->
CInt ->
IO ()
bannerSetRevealed ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> Bool
-> m ()
bannerSetRevealed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> Bool -> m ()
bannerSetRevealed a
self Bool
revealed = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let revealed' :: CInt
revealed' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
revealed
Ptr Banner -> CInt -> IO ()
adw_banner_set_revealed Ptr Banner
self' CInt
revealed'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BannerSetRevealedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBanner a) => O.OverloadedMethod BannerSetRevealedMethodInfo a signature where
overloadedMethod = bannerSetRevealed
instance O.OverloadedMethodInfo BannerSetRevealedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerSetRevealed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerSetRevealed"
})
#endif
foreign import ccall "adw_banner_set_title" adw_banner_set_title ::
Ptr Banner ->
CString ->
IO ()
bannerSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> T.Text
-> m ()
bannerSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> Text -> m ()
bannerSetTitle a
self Text
title = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Banner -> CString -> IO ()
adw_banner_set_title Ptr Banner
self' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BannerSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsBanner a) => O.OverloadedMethod BannerSetTitleMethodInfo a signature where
overloadedMethod = bannerSetTitle
instance O.OverloadedMethodInfo BannerSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerSetTitle"
})
#endif
foreign import ccall "adw_banner_set_use_markup" adw_banner_set_use_markup ::
Ptr Banner ->
CInt ->
IO ()
bannerSetUseMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsBanner a) =>
a
-> Bool
-> m ()
bannerSetUseMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBanner a) =>
a -> Bool -> m ()
bannerSetUseMarkup a
self Bool
useMarkup = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Banner
self' <- a -> IO (Ptr Banner)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let useMarkup' :: CInt
useMarkup' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
useMarkup
Ptr Banner -> CInt -> IO ()
adw_banner_set_use_markup Ptr Banner
self' CInt
useMarkup'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BannerSetUseMarkupMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBanner a) => O.OverloadedMethod BannerSetUseMarkupMethodInfo a signature where
overloadedMethod = bannerSetUseMarkup
instance O.OverloadedMethodInfo BannerSetUseMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Banner.bannerSetUseMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Banner.html#v:bannerSetUseMarkup"
})
#endif