{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.StatusPage
(
StatusPage(..) ,
IsStatusPage ,
toStatusPage ,
#if defined(ENABLE_OVERLOADING)
ResolveStatusPageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusPageGetChildMethodInfo ,
#endif
statusPageGetChild ,
#if defined(ENABLE_OVERLOADING)
StatusPageGetDescriptionMethodInfo ,
#endif
statusPageGetDescription ,
#if defined(ENABLE_OVERLOADING)
StatusPageGetIconNameMethodInfo ,
#endif
statusPageGetIconName ,
#if defined(ENABLE_OVERLOADING)
StatusPageGetPaintableMethodInfo ,
#endif
statusPageGetPaintable ,
#if defined(ENABLE_OVERLOADING)
StatusPageGetTitleMethodInfo ,
#endif
statusPageGetTitle ,
statusPageNew ,
#if defined(ENABLE_OVERLOADING)
StatusPageSetChildMethodInfo ,
#endif
statusPageSetChild ,
#if defined(ENABLE_OVERLOADING)
StatusPageSetDescriptionMethodInfo ,
#endif
statusPageSetDescription ,
#if defined(ENABLE_OVERLOADING)
StatusPageSetIconNameMethodInfo ,
#endif
statusPageSetIconName ,
#if defined(ENABLE_OVERLOADING)
StatusPageSetPaintableMethodInfo ,
#endif
statusPageSetPaintable ,
#if defined(ENABLE_OVERLOADING)
StatusPageSetTitleMethodInfo ,
#endif
statusPageSetTitle ,
#if defined(ENABLE_OVERLOADING)
StatusPageChildPropertyInfo ,
#endif
clearStatusPageChild ,
constructStatusPageChild ,
getStatusPageChild ,
setStatusPageChild ,
#if defined(ENABLE_OVERLOADING)
statusPageChild ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusPageDescriptionPropertyInfo ,
#endif
clearStatusPageDescription ,
constructStatusPageDescription ,
getStatusPageDescription ,
setStatusPageDescription ,
#if defined(ENABLE_OVERLOADING)
statusPageDescription ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusPageIconNamePropertyInfo ,
#endif
clearStatusPageIconName ,
constructStatusPageIconName ,
getStatusPageIconName ,
setStatusPageIconName ,
#if defined(ENABLE_OVERLOADING)
statusPageIconName ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusPagePaintablePropertyInfo ,
#endif
clearStatusPagePaintable ,
constructStatusPagePaintable ,
getStatusPagePaintable ,
setStatusPagePaintable ,
#if defined(ENABLE_OVERLOADING)
statusPagePaintable ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusPageTitlePropertyInfo ,
#endif
constructStatusPageTitle ,
getStatusPageTitle ,
setStatusPageTitle ,
#if defined(ENABLE_OVERLOADING)
statusPageTitle ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
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 StatusPage = StatusPage (SP.ManagedPtr StatusPage)
deriving (StatusPage -> StatusPage -> Bool
(StatusPage -> StatusPage -> Bool)
-> (StatusPage -> StatusPage -> Bool) -> Eq StatusPage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StatusPage -> StatusPage -> Bool
== :: StatusPage -> StatusPage -> Bool
$c/= :: StatusPage -> StatusPage -> Bool
/= :: StatusPage -> StatusPage -> Bool
Eq)
instance SP.ManagedPtrNewtype StatusPage where
toManagedPtr :: StatusPage -> ManagedPtr StatusPage
toManagedPtr (StatusPage ManagedPtr StatusPage
p) = ManagedPtr StatusPage
p
foreign import ccall "adw_status_page_get_type"
c_adw_status_page_get_type :: IO B.Types.GType
instance B.Types.TypedObject StatusPage where
glibType :: IO GType
glibType = IO GType
c_adw_status_page_get_type
instance B.Types.GObject StatusPage
class (SP.GObject o, O.IsDescendantOf StatusPage o) => IsStatusPage o
instance (SP.GObject o, O.IsDescendantOf StatusPage o) => IsStatusPage o
instance O.HasParentTypes StatusPage
type instance O.ParentTypes StatusPage = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toStatusPage :: (MIO.MonadIO m, IsStatusPage o) => o -> m StatusPage
toStatusPage :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> m StatusPage
toStatusPage = IO StatusPage -> m StatusPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO StatusPage -> m StatusPage)
-> (o -> IO StatusPage) -> o -> m StatusPage
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr StatusPage -> StatusPage) -> o -> IO StatusPage
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr StatusPage -> StatusPage
StatusPage
instance B.GValue.IsGValue (Maybe StatusPage) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_status_page_get_type
gvalueSet_ :: Ptr GValue -> Maybe StatusPage -> IO ()
gvalueSet_ Ptr GValue
gv Maybe StatusPage
P.Nothing = Ptr GValue -> Ptr StatusPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr StatusPage
forall a. Ptr a
FP.nullPtr :: FP.Ptr StatusPage)
gvalueSet_ Ptr GValue
gv (P.Just StatusPage
obj) = StatusPage -> (Ptr StatusPage -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StatusPage
obj (Ptr GValue -> Ptr StatusPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe StatusPage)
gvalueGet_ Ptr GValue
gv = do
Ptr StatusPage
ptr <- Ptr GValue -> IO (Ptr StatusPage)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr StatusPage)
if Ptr StatusPage
ptr Ptr StatusPage -> Ptr StatusPage -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr StatusPage
forall a. Ptr a
FP.nullPtr
then StatusPage -> Maybe StatusPage
forall a. a -> Maybe a
P.Just (StatusPage -> Maybe StatusPage)
-> IO StatusPage -> IO (Maybe StatusPage)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr StatusPage -> StatusPage)
-> Ptr StatusPage -> IO StatusPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr StatusPage -> StatusPage
StatusPage Ptr StatusPage
ptr
else Maybe StatusPage -> IO (Maybe StatusPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe StatusPage
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStatusPageMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveStatusPageMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveStatusPageMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveStatusPageMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveStatusPageMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveStatusPageMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveStatusPageMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveStatusPageMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveStatusPageMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveStatusPageMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveStatusPageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStatusPageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStatusPageMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveStatusPageMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveStatusPageMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveStatusPageMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveStatusPageMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveStatusPageMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveStatusPageMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveStatusPageMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveStatusPageMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveStatusPageMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveStatusPageMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveStatusPageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStatusPageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStatusPageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStatusPageMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveStatusPageMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveStatusPageMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveStatusPageMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveStatusPageMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveStatusPageMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveStatusPageMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveStatusPageMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveStatusPageMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveStatusPageMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveStatusPageMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveStatusPageMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveStatusPageMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveStatusPageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStatusPageMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveStatusPageMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveStatusPageMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveStatusPageMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveStatusPageMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveStatusPageMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveStatusPageMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveStatusPageMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveStatusPageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStatusPageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStatusPageMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveStatusPageMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveStatusPageMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveStatusPageMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveStatusPageMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveStatusPageMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveStatusPageMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveStatusPageMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStatusPageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStatusPageMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveStatusPageMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveStatusPageMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveStatusPageMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveStatusPageMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveStatusPageMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveStatusPageMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveStatusPageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStatusPageMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveStatusPageMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveStatusPageMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveStatusPageMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveStatusPageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStatusPageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStatusPageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStatusPageMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveStatusPageMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveStatusPageMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveStatusPageMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveStatusPageMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveStatusPageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStatusPageMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveStatusPageMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveStatusPageMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveStatusPageMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveStatusPageMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveStatusPageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStatusPageMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveStatusPageMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveStatusPageMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveStatusPageMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveStatusPageMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveStatusPageMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveStatusPageMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveStatusPageMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveStatusPageMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveStatusPageMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveStatusPageMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveStatusPageMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveStatusPageMethod "getChild" o = StatusPageGetChildMethodInfo
ResolveStatusPageMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveStatusPageMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveStatusPageMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveStatusPageMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveStatusPageMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveStatusPageMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveStatusPageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStatusPageMethod "getDescription" o = StatusPageGetDescriptionMethodInfo
ResolveStatusPageMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveStatusPageMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveStatusPageMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveStatusPageMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveStatusPageMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveStatusPageMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveStatusPageMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveStatusPageMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveStatusPageMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveStatusPageMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveStatusPageMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveStatusPageMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveStatusPageMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveStatusPageMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveStatusPageMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveStatusPageMethod "getIconName" o = StatusPageGetIconNameMethodInfo
ResolveStatusPageMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveStatusPageMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveStatusPageMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveStatusPageMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveStatusPageMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveStatusPageMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveStatusPageMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveStatusPageMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveStatusPageMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveStatusPageMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveStatusPageMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveStatusPageMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveStatusPageMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveStatusPageMethod "getPaintable" o = StatusPageGetPaintableMethodInfo
ResolveStatusPageMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveStatusPageMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveStatusPageMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveStatusPageMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveStatusPageMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveStatusPageMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveStatusPageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStatusPageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStatusPageMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveStatusPageMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveStatusPageMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveStatusPageMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveStatusPageMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveStatusPageMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveStatusPageMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveStatusPageMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveStatusPageMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveStatusPageMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveStatusPageMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveStatusPageMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveStatusPageMethod "getTitle" o = StatusPageGetTitleMethodInfo
ResolveStatusPageMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveStatusPageMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveStatusPageMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveStatusPageMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveStatusPageMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveStatusPageMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveStatusPageMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveStatusPageMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveStatusPageMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveStatusPageMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveStatusPageMethod "setChild" o = StatusPageSetChildMethodInfo
ResolveStatusPageMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveStatusPageMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveStatusPageMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveStatusPageMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveStatusPageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStatusPageMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStatusPageMethod "setDescription" o = StatusPageSetDescriptionMethodInfo
ResolveStatusPageMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveStatusPageMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveStatusPageMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveStatusPageMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveStatusPageMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveStatusPageMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveStatusPageMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveStatusPageMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveStatusPageMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveStatusPageMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveStatusPageMethod "setIconName" o = StatusPageSetIconNameMethodInfo
ResolveStatusPageMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveStatusPageMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveStatusPageMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveStatusPageMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveStatusPageMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveStatusPageMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveStatusPageMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveStatusPageMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveStatusPageMethod "setPaintable" o = StatusPageSetPaintableMethodInfo
ResolveStatusPageMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveStatusPageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStatusPageMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveStatusPageMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveStatusPageMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveStatusPageMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveStatusPageMethod "setTitle" o = StatusPageSetTitleMethodInfo
ResolveStatusPageMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveStatusPageMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveStatusPageMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveStatusPageMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveStatusPageMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveStatusPageMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveStatusPageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStatusPageMethod t StatusPage, O.OverloadedMethod info StatusPage p) => OL.IsLabel t (StatusPage -> 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 ~ ResolveStatusPageMethod t StatusPage, O.OverloadedMethod info StatusPage p, R.HasField t StatusPage p) => R.HasField t StatusPage p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStatusPageMethod t StatusPage, O.OverloadedMethodInfo info StatusPage) => OL.IsLabel t (O.MethodProxy info StatusPage) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getStatusPageChild :: (MonadIO m, IsStatusPage o) => o -> m (Maybe Gtk.Widget.Widget)
getStatusPageChild :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> m (Maybe Widget)
getStatusPageChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setStatusPageChild :: (MonadIO m, IsStatusPage o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setStatusPageChild :: forall (m :: * -> *) o a.
(MonadIO m, IsStatusPage o, IsWidget a) =>
o -> a -> m ()
setStatusPageChild o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructStatusPageChild :: (IsStatusPage o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructStatusPageChild :: forall o (m :: * -> *) a.
(IsStatusPage o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructStatusPageChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearStatusPageChild :: (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPageChild :: forall (m :: * -> *) o. (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPageChild o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data StatusPageChildPropertyInfo
instance AttrInfo StatusPageChildPropertyInfo where
type AttrAllowedOps StatusPageChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusPageChildPropertyInfo = IsStatusPage
type AttrSetTypeConstraint StatusPageChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint StatusPageChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType StatusPageChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType StatusPageChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel StatusPageChildPropertyInfo = "child"
type AttrOrigin StatusPageChildPropertyInfo = StatusPage
attrGet = getStatusPageChild
attrSet = setStatusPageChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructStatusPageChild
attrClear = clearStatusPageChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#g:attr:child"
})
#endif
getStatusPageDescription :: (MonadIO m, IsStatusPage o) => o -> m (Maybe T.Text)
getStatusPageDescription :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> m (Maybe Text)
getStatusPageDescription 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
"description"
setStatusPageDescription :: (MonadIO m, IsStatusPage o) => o -> T.Text -> m ()
setStatusPageDescription :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> Text -> m ()
setStatusPageDescription 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
"description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStatusPageDescription :: (IsStatusPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusPageDescription :: forall o (m :: * -> *).
(IsStatusPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusPageDescription 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
"description" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearStatusPageDescription :: (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPageDescription :: forall (m :: * -> *) o. (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPageDescription 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
"description" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StatusPageDescriptionPropertyInfo
instance AttrInfo StatusPageDescriptionPropertyInfo where
type AttrAllowedOps StatusPageDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusPageDescriptionPropertyInfo = IsStatusPage
type AttrSetTypeConstraint StatusPageDescriptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusPageDescriptionPropertyInfo = (~) T.Text
type AttrTransferType StatusPageDescriptionPropertyInfo = T.Text
type AttrGetType StatusPageDescriptionPropertyInfo = (Maybe T.Text)
type AttrLabel StatusPageDescriptionPropertyInfo = "description"
type AttrOrigin StatusPageDescriptionPropertyInfo = StatusPage
attrGet = getStatusPageDescription
attrSet = setStatusPageDescription
attrTransfer _ v = do
return v
attrConstruct = constructStatusPageDescription
attrClear = clearStatusPageDescription
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.description"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#g:attr:description"
})
#endif
getStatusPageIconName :: (MonadIO m, IsStatusPage o) => o -> m (Maybe T.Text)
getStatusPageIconName :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> m (Maybe Text)
getStatusPageIconName 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
"icon-name"
setStatusPageIconName :: (MonadIO m, IsStatusPage o) => o -> T.Text -> m ()
setStatusPageIconName :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> Text -> m ()
setStatusPageIconName 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
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStatusPageIconName :: (IsStatusPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusPageIconName :: forall o (m :: * -> *).
(IsStatusPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusPageIconName 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
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearStatusPageIconName :: (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPageIconName :: forall (m :: * -> *) o. (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPageIconName 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
"icon-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StatusPageIconNamePropertyInfo
instance AttrInfo StatusPageIconNamePropertyInfo where
type AttrAllowedOps StatusPageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusPageIconNamePropertyInfo = IsStatusPage
type AttrSetTypeConstraint StatusPageIconNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusPageIconNamePropertyInfo = (~) T.Text
type AttrTransferType StatusPageIconNamePropertyInfo = T.Text
type AttrGetType StatusPageIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel StatusPageIconNamePropertyInfo = "icon-name"
type AttrOrigin StatusPageIconNamePropertyInfo = StatusPage
attrGet = getStatusPageIconName
attrSet = setStatusPageIconName
attrTransfer _ v = do
return v
attrConstruct = constructStatusPageIconName
attrClear = clearStatusPageIconName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.iconName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#g:attr:iconName"
})
#endif
getStatusPagePaintable :: (MonadIO m, IsStatusPage o) => o -> m (Maybe Gdk.Paintable.Paintable)
getStatusPagePaintable :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> m (Maybe Paintable)
getStatusPagePaintable o
obj = IO (Maybe Paintable) -> m (Maybe Paintable)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Paintable) -> m (Maybe Paintable))
-> IO (Maybe Paintable) -> m (Maybe Paintable)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Paintable -> Paintable)
-> IO (Maybe Paintable)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"paintable" ManagedPtr Paintable -> Paintable
Gdk.Paintable.Paintable
setStatusPagePaintable :: (MonadIO m, IsStatusPage o, Gdk.Paintable.IsPaintable a) => o -> a -> m ()
setStatusPagePaintable :: forall (m :: * -> *) o a.
(MonadIO m, IsStatusPage o, IsPaintable a) =>
o -> a -> m ()
setStatusPagePaintable o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"paintable" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructStatusPagePaintable :: (IsStatusPage o, MIO.MonadIO m, Gdk.Paintable.IsPaintable a) => a -> m (GValueConstruct o)
constructStatusPagePaintable :: forall o (m :: * -> *) a.
(IsStatusPage o, MonadIO m, IsPaintable a) =>
a -> m (GValueConstruct o)
constructStatusPagePaintable a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"paintable" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearStatusPagePaintable :: (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPagePaintable :: forall (m :: * -> *) o. (MonadIO m, IsStatusPage o) => o -> m ()
clearStatusPagePaintable 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 Paintable -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"paintable" (Maybe Paintable
forall a. Maybe a
Nothing :: Maybe Gdk.Paintable.Paintable)
#if defined(ENABLE_OVERLOADING)
data StatusPagePaintablePropertyInfo
instance AttrInfo StatusPagePaintablePropertyInfo where
type AttrAllowedOps StatusPagePaintablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusPagePaintablePropertyInfo = IsStatusPage
type AttrSetTypeConstraint StatusPagePaintablePropertyInfo = Gdk.Paintable.IsPaintable
type AttrTransferTypeConstraint StatusPagePaintablePropertyInfo = Gdk.Paintable.IsPaintable
type AttrTransferType StatusPagePaintablePropertyInfo = Gdk.Paintable.Paintable
type AttrGetType StatusPagePaintablePropertyInfo = (Maybe Gdk.Paintable.Paintable)
type AttrLabel StatusPagePaintablePropertyInfo = "paintable"
type AttrOrigin StatusPagePaintablePropertyInfo = StatusPage
attrGet = getStatusPagePaintable
attrSet = setStatusPagePaintable
attrTransfer _ v = do
unsafeCastTo Gdk.Paintable.Paintable v
attrConstruct = constructStatusPagePaintable
attrClear = clearStatusPagePaintable
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.paintable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#g:attr:paintable"
})
#endif
getStatusPageTitle :: (MonadIO m, IsStatusPage o) => o -> m T.Text
getStatusPageTitle :: forall (m :: * -> *) o. (MonadIO m, IsStatusPage o) => o -> m Text
getStatusPageTitle 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
"getStatusPageTitle" (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"
setStatusPageTitle :: (MonadIO m, IsStatusPage o) => o -> T.Text -> m ()
setStatusPageTitle :: forall (m :: * -> *) o.
(MonadIO m, IsStatusPage o) =>
o -> Text -> m ()
setStatusPageTitle 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)
constructStatusPageTitle :: (IsStatusPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusPageTitle :: forall o (m :: * -> *).
(IsStatusPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusPageTitle 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 StatusPageTitlePropertyInfo
instance AttrInfo StatusPageTitlePropertyInfo where
type AttrAllowedOps StatusPageTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StatusPageTitlePropertyInfo = IsStatusPage
type AttrSetTypeConstraint StatusPageTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusPageTitlePropertyInfo = (~) T.Text
type AttrTransferType StatusPageTitlePropertyInfo = T.Text
type AttrGetType StatusPageTitlePropertyInfo = T.Text
type AttrLabel StatusPageTitlePropertyInfo = "title"
type AttrOrigin StatusPageTitlePropertyInfo = StatusPage
attrGet = getStatusPageTitle
attrSet = setStatusPageTitle
attrTransfer _ v = do
return v
attrConstruct = constructStatusPageTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#g:attr:title"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StatusPage
type instance O.AttributeList StatusPage = StatusPageAttributeList
type StatusPageAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", StatusPageChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("description", StatusPageDescriptionPropertyInfo), '("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), '("iconName", StatusPageIconNamePropertyInfo), '("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), '("paintable", StatusPagePaintablePropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("title", StatusPageTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
statusPageChild :: AttrLabelProxy "child"
statusPageChild = AttrLabelProxy
statusPageDescription :: AttrLabelProxy "description"
statusPageDescription = AttrLabelProxy
statusPageIconName :: AttrLabelProxy "iconName"
statusPageIconName = AttrLabelProxy
statusPagePaintable :: AttrLabelProxy "paintable"
statusPagePaintable = AttrLabelProxy
statusPageTitle :: AttrLabelProxy "title"
statusPageTitle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList StatusPage = StatusPageSignalList
type StatusPageSignalList = ('[ '("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_status_page_new" adw_status_page_new ::
IO (Ptr StatusPage)
statusPageNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m StatusPage
statusPageNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m StatusPage
statusPageNew = IO StatusPage -> m StatusPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StatusPage -> m StatusPage) -> IO StatusPage -> m StatusPage
forall a b. (a -> b) -> a -> b
$ do
Ptr StatusPage
result <- IO (Ptr StatusPage)
adw_status_page_new
Text -> Ptr StatusPage -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusPageNew" Ptr StatusPage
result
StatusPage
result' <- ((ManagedPtr StatusPage -> StatusPage)
-> Ptr StatusPage -> IO StatusPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr StatusPage -> StatusPage
StatusPage) Ptr StatusPage
result
StatusPage -> IO StatusPage
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StatusPage
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_status_page_get_child" adw_status_page_get_child ::
Ptr StatusPage ->
IO (Ptr Gtk.Widget.Widget)
statusPageGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> m (Maybe Gtk.Widget.Widget)
statusPageGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> m (Maybe Widget)
statusPageGetChild a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr StatusPage -> IO (Ptr Widget)
adw_status_page_get_child Ptr StatusPage
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusPageGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageGetChildMethodInfo a signature where
overloadedMethod = statusPageGetChild
instance O.OverloadedMethodInfo StatusPageGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageGetChild"
})
#endif
foreign import ccall "adw_status_page_get_description" adw_status_page_get_description ::
Ptr StatusPage ->
IO CString
statusPageGetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> m (Maybe T.Text)
statusPageGetDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> m (Maybe Text)
statusPageGetDescription 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 StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr StatusPage -> IO CString
adw_status_page_get_description Ptr StatusPage
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 StatusPageGetDescriptionMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageGetDescriptionMethodInfo a signature where
overloadedMethod = statusPageGetDescription
instance O.OverloadedMethodInfo StatusPageGetDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageGetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageGetDescription"
})
#endif
foreign import ccall "adw_status_page_get_icon_name" adw_status_page_get_icon_name ::
Ptr StatusPage ->
IO CString
statusPageGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> m (Maybe T.Text)
statusPageGetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> m (Maybe Text)
statusPageGetIconName 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 StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr StatusPage -> IO CString
adw_status_page_get_icon_name Ptr StatusPage
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 StatusPageGetIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageGetIconNameMethodInfo a signature where
overloadedMethod = statusPageGetIconName
instance O.OverloadedMethodInfo StatusPageGetIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageGetIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageGetIconName"
})
#endif
foreign import ccall "adw_status_page_get_paintable" adw_status_page_get_paintable ::
Ptr StatusPage ->
IO (Ptr Gdk.Paintable.Paintable)
statusPageGetPaintable ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> m (Maybe Gdk.Paintable.Paintable)
statusPageGetPaintable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> m (Maybe Paintable)
statusPageGetPaintable a
self = IO (Maybe Paintable) -> m (Maybe Paintable)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Paintable) -> m (Maybe Paintable))
-> IO (Maybe Paintable) -> m (Maybe Paintable)
forall a b. (a -> b) -> a -> b
$ do
Ptr StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Paintable
result <- Ptr StatusPage -> IO (Ptr Paintable)
adw_status_page_get_paintable Ptr StatusPage
self'
Maybe Paintable
maybeResult <- Ptr Paintable
-> (Ptr Paintable -> IO Paintable) -> IO (Maybe Paintable)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Paintable
result ((Ptr Paintable -> IO Paintable) -> IO (Maybe Paintable))
-> (Ptr Paintable -> IO Paintable) -> IO (Maybe Paintable)
forall a b. (a -> b) -> a -> b
$ \Ptr Paintable
result' -> do
Paintable
result'' <- ((ManagedPtr Paintable -> Paintable)
-> Ptr Paintable -> IO Paintable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Paintable -> Paintable
Gdk.Paintable.Paintable) Ptr Paintable
result'
Paintable -> IO Paintable
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Paintable
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Paintable -> IO (Maybe Paintable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Paintable
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusPageGetPaintableMethodInfo
instance (signature ~ (m (Maybe Gdk.Paintable.Paintable)), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageGetPaintableMethodInfo a signature where
overloadedMethod = statusPageGetPaintable
instance O.OverloadedMethodInfo StatusPageGetPaintableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageGetPaintable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageGetPaintable"
})
#endif
foreign import ccall "adw_status_page_get_title" adw_status_page_get_title ::
Ptr StatusPage ->
IO CString
statusPageGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> m T.Text
statusPageGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> m Text
statusPageGetTitle 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 StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr StatusPage -> IO CString
adw_status_page_get_title Ptr StatusPage
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusPageGetTitle" 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 StatusPageGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageGetTitleMethodInfo a signature where
overloadedMethod = statusPageGetTitle
instance O.OverloadedMethodInfo StatusPageGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageGetTitle"
})
#endif
foreign import ccall "adw_status_page_set_child" adw_status_page_set_child ::
Ptr StatusPage ->
Ptr Gtk.Widget.Widget ->
IO ()
statusPageSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
statusPageSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStatusPage a, IsWidget b) =>
a -> Maybe b -> m ()
statusPageSetChild a
self Maybe b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeChild <- case Maybe b
child of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr StatusPage -> Ptr Widget -> IO ()
adw_status_page_set_child Ptr StatusPage
self' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusPageSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsStatusPage a, Gtk.Widget.IsWidget b) => O.OverloadedMethod StatusPageSetChildMethodInfo a signature where
overloadedMethod = statusPageSetChild
instance O.OverloadedMethodInfo StatusPageSetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageSetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageSetChild"
})
#endif
foreign import ccall "adw_status_page_set_description" adw_status_page_set_description ::
Ptr StatusPage ->
CString ->
IO ()
statusPageSetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> Maybe (T.Text)
-> m ()
statusPageSetDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> Maybe Text -> m ()
statusPageSetDescription a
self Maybe Text
description = 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 StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeDescription <- case Maybe Text
description 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
jDescription -> do
CString
jDescription' <- Text -> IO CString
textToCString Text
jDescription
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jDescription'
Ptr StatusPage -> CString -> IO ()
adw_status_page_set_description Ptr StatusPage
self' CString
maybeDescription
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeDescription
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusPageSetDescriptionMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageSetDescriptionMethodInfo a signature where
overloadedMethod = statusPageSetDescription
instance O.OverloadedMethodInfo StatusPageSetDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageSetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageSetDescription"
})
#endif
foreign import ccall "adw_status_page_set_icon_name" adw_status_page_set_icon_name ::
Ptr StatusPage ->
CString ->
IO ()
statusPageSetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> Maybe (T.Text)
-> m ()
statusPageSetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> Maybe Text -> m ()
statusPageSetIconName a
self Maybe Text
iconName = 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 StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeIconName <- case Maybe Text
iconName 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
jIconName -> do
CString
jIconName' <- Text -> IO CString
textToCString Text
jIconName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jIconName'
Ptr StatusPage -> CString -> IO ()
adw_status_page_set_icon_name Ptr StatusPage
self' CString
maybeIconName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeIconName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusPageSetIconNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageSetIconNameMethodInfo a signature where
overloadedMethod = statusPageSetIconName
instance O.OverloadedMethodInfo StatusPageSetIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageSetIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageSetIconName"
})
#endif
foreign import ccall "adw_status_page_set_paintable" adw_status_page_set_paintable ::
Ptr StatusPage ->
Ptr Gdk.Paintable.Paintable ->
IO ()
statusPageSetPaintable ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a, Gdk.Paintable.IsPaintable b) =>
a
-> Maybe (b)
-> m ()
statusPageSetPaintable :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStatusPage a, IsPaintable b) =>
a -> Maybe b -> m ()
statusPageSetPaintable a
self Maybe b
paintable = 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 StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Paintable
maybePaintable <- case Maybe b
paintable of
Maybe b
Nothing -> Ptr Paintable -> IO (Ptr Paintable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Paintable
forall a. Ptr a
nullPtr
Just b
jPaintable -> do
Ptr Paintable
jPaintable' <- b -> IO (Ptr Paintable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPaintable
Ptr Paintable -> IO (Ptr Paintable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Paintable
jPaintable'
Ptr StatusPage -> Ptr Paintable -> IO ()
adw_status_page_set_paintable Ptr StatusPage
self' Ptr Paintable
maybePaintable
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
paintable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusPageSetPaintableMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsStatusPage a, Gdk.Paintable.IsPaintable b) => O.OverloadedMethod StatusPageSetPaintableMethodInfo a signature where
overloadedMethod = statusPageSetPaintable
instance O.OverloadedMethodInfo StatusPageSetPaintableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageSetPaintable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageSetPaintable"
})
#endif
foreign import ccall "adw_status_page_set_title" adw_status_page_set_title ::
Ptr StatusPage ->
CString ->
IO ()
statusPageSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusPage a) =>
a
-> T.Text
-> m ()
statusPageSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusPage a) =>
a -> Text -> m ()
statusPageSetTitle 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 StatusPage
self' <- a -> IO (Ptr StatusPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr StatusPage -> CString -> IO ()
adw_status_page_set_title Ptr StatusPage
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 StatusPageSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusPage a) => O.OverloadedMethod StatusPageSetTitleMethodInfo a signature where
overloadedMethod = statusPageSetTitle
instance O.OverloadedMethodInfo StatusPageSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.StatusPage.statusPageSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.6/docs/GI-Adw-Objects-StatusPage.html#v:statusPageSetTitle"
})
#endif