{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.StackPage
(
StackPage(..) ,
IsStackPage ,
toStackPage ,
#if defined(ENABLE_OVERLOADING)
ResolveStackPageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageGetChildMethodInfo ,
#endif
stackPageGetChild ,
#if defined(ENABLE_OVERLOADING)
StackPageGetIconNameMethodInfo ,
#endif
stackPageGetIconName ,
#if defined(ENABLE_OVERLOADING)
StackPageGetNameMethodInfo ,
#endif
stackPageGetName ,
#if defined(ENABLE_OVERLOADING)
StackPageGetNeedsAttentionMethodInfo ,
#endif
stackPageGetNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
StackPageGetTitleMethodInfo ,
#endif
stackPageGetTitle ,
#if defined(ENABLE_OVERLOADING)
StackPageGetUseUnderlineMethodInfo ,
#endif
stackPageGetUseUnderline ,
#if defined(ENABLE_OVERLOADING)
StackPageGetVisibleMethodInfo ,
#endif
stackPageGetVisible ,
#if defined(ENABLE_OVERLOADING)
StackPageSetIconNameMethodInfo ,
#endif
stackPageSetIconName ,
#if defined(ENABLE_OVERLOADING)
StackPageSetNameMethodInfo ,
#endif
stackPageSetName ,
#if defined(ENABLE_OVERLOADING)
StackPageSetNeedsAttentionMethodInfo ,
#endif
stackPageSetNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
StackPageSetTitleMethodInfo ,
#endif
stackPageSetTitle ,
#if defined(ENABLE_OVERLOADING)
StackPageSetUseUnderlineMethodInfo ,
#endif
stackPageSetUseUnderline ,
#if defined(ENABLE_OVERLOADING)
StackPageSetVisibleMethodInfo ,
#endif
stackPageSetVisible ,
#if defined(ENABLE_OVERLOADING)
StackPageChildPropertyInfo ,
#endif
constructStackPageChild ,
getStackPageChild ,
#if defined(ENABLE_OVERLOADING)
stackPageChild ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageIconNamePropertyInfo ,
#endif
constructStackPageIconName ,
getStackPageIconName ,
setStackPageIconName ,
#if defined(ENABLE_OVERLOADING)
stackPageIconName ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageNamePropertyInfo ,
#endif
constructStackPageName ,
getStackPageName ,
setStackPageName ,
#if defined(ENABLE_OVERLOADING)
stackPageName ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageNeedsAttentionPropertyInfo ,
#endif
constructStackPageNeedsAttention ,
getStackPageNeedsAttention ,
setStackPageNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
stackPageNeedsAttention ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageTitlePropertyInfo ,
#endif
constructStackPageTitle ,
getStackPageTitle ,
setStackPageTitle ,
#if defined(ENABLE_OVERLOADING)
stackPageTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageUseUnderlinePropertyInfo ,
#endif
constructStackPageUseUnderline ,
getStackPageUseUnderline ,
setStackPageUseUnderline ,
#if defined(ENABLE_OVERLOADING)
stackPageUseUnderline ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageVisiblePropertyInfo ,
#endif
constructStackPageVisible ,
getStackPageVisible ,
setStackPageVisible ,
#if defined(ENABLE_OVERLOADING)
stackPageVisible ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype StackPage = StackPage (SP.ManagedPtr StackPage)
deriving (StackPage -> StackPage -> Bool
(StackPage -> StackPage -> Bool)
-> (StackPage -> StackPage -> Bool) -> Eq StackPage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StackPage -> StackPage -> Bool
== :: StackPage -> StackPage -> Bool
$c/= :: StackPage -> StackPage -> Bool
/= :: StackPage -> StackPage -> Bool
Eq)
instance SP.ManagedPtrNewtype StackPage where
toManagedPtr :: StackPage -> ManagedPtr StackPage
toManagedPtr (StackPage ManagedPtr StackPage
p) = ManagedPtr StackPage
p
foreign import ccall "gtk_stack_page_get_type"
c_gtk_stack_page_get_type :: IO B.Types.GType
instance B.Types.TypedObject StackPage where
glibType :: IO GType
glibType = IO GType
c_gtk_stack_page_get_type
instance B.Types.GObject StackPage
class (SP.GObject o, O.IsDescendantOf StackPage o) => IsStackPage o
instance (SP.GObject o, O.IsDescendantOf StackPage o) => IsStackPage o
instance O.HasParentTypes StackPage
type instance O.ParentTypes StackPage = '[GObject.Object.Object, Gtk.Accessible.Accessible]
toStackPage :: (MIO.MonadIO m, IsStackPage o) => o -> m StackPage
toStackPage :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> m StackPage
toStackPage = IO StackPage -> m StackPage
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO StackPage -> m StackPage)
-> (o -> IO StackPage) -> o -> m StackPage
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr StackPage -> StackPage) -> o -> IO StackPage
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr StackPage -> StackPage
StackPage
instance B.GValue.IsGValue (Maybe StackPage) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_stack_page_get_type
gvalueSet_ :: Ptr GValue -> Maybe StackPage -> IO ()
gvalueSet_ Ptr GValue
gv Maybe StackPage
P.Nothing = Ptr GValue -> Ptr StackPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr StackPage
forall a. Ptr a
FP.nullPtr :: FP.Ptr StackPage)
gvalueSet_ Ptr GValue
gv (P.Just StackPage
obj) = StackPage -> (Ptr StackPage -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StackPage
obj (Ptr GValue -> Ptr StackPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe StackPage)
gvalueGet_ Ptr GValue
gv = do
Ptr StackPage
ptr <- Ptr GValue -> IO (Ptr StackPage)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr StackPage)
if Ptr StackPage
ptr Ptr StackPage -> Ptr StackPage -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr StackPage
forall a. Ptr a
FP.nullPtr
then StackPage -> Maybe StackPage
forall a. a -> Maybe a
P.Just (StackPage -> Maybe StackPage)
-> IO StackPage -> IO (Maybe StackPage)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr StackPage -> StackPage)
-> Ptr StackPage -> IO StackPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr StackPage -> StackPage
StackPage Ptr StackPage
ptr
else Maybe StackPage -> IO (Maybe StackPage)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe StackPage
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStackPageMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveStackPageMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveStackPageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStackPageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStackPageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStackPageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStackPageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStackPageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStackPageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStackPageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStackPageMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStackPageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStackPageMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveStackPageMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveStackPageMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveStackPageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStackPageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStackPageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStackPageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStackPageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStackPageMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveStackPageMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveStackPageMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveStackPageMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveStackPageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStackPageMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveStackPageMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveStackPageMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveStackPageMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveStackPageMethod "getChild" o = StackPageGetChildMethodInfo
ResolveStackPageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStackPageMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveStackPageMethod "getIconName" o = StackPageGetIconNameMethodInfo
ResolveStackPageMethod "getName" o = StackPageGetNameMethodInfo
ResolveStackPageMethod "getNeedsAttention" o = StackPageGetNeedsAttentionMethodInfo
ResolveStackPageMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveStackPageMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveStackPageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStackPageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStackPageMethod "getTitle" o = StackPageGetTitleMethodInfo
ResolveStackPageMethod "getUseUnderline" o = StackPageGetUseUnderlineMethodInfo
ResolveStackPageMethod "getVisible" o = StackPageGetVisibleMethodInfo
ResolveStackPageMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveStackPageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStackPageMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStackPageMethod "setIconName" o = StackPageSetIconNameMethodInfo
ResolveStackPageMethod "setName" o = StackPageSetNameMethodInfo
ResolveStackPageMethod "setNeedsAttention" o = StackPageSetNeedsAttentionMethodInfo
ResolveStackPageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStackPageMethod "setTitle" o = StackPageSetTitleMethodInfo
ResolveStackPageMethod "setUseUnderline" o = StackPageSetUseUnderlineMethodInfo
ResolveStackPageMethod "setVisible" o = StackPageSetVisibleMethodInfo
ResolveStackPageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStackPageMethod t StackPage, O.OverloadedMethod info StackPage p) => OL.IsLabel t (StackPage -> 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 ~ ResolveStackPageMethod t StackPage, O.OverloadedMethod info StackPage p, R.HasField t StackPage p) => R.HasField t StackPage p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStackPageMethod t StackPage, O.OverloadedMethodInfo info StackPage) => OL.IsLabel t (O.MethodProxy info StackPage) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getStackPageChild :: (MonadIO m, IsStackPage o) => o -> m Gtk.Widget.Widget
getStackPageChild :: forall (m :: * -> *) o. (MonadIO m, IsStackPage o) => o -> m Widget
getStackPageChild o
obj = IO Widget -> m Widget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Widget) -> IO Widget
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStackPageChild" (IO (Maybe Widget) -> IO Widget) -> IO (Maybe Widget) -> IO Widget
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
constructStackPageChild :: (IsStackPage o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructStackPageChild :: forall o (m :: * -> *) a.
(IsStackPage o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructStackPageChild 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)
#if defined(ENABLE_OVERLOADING)
data StackPageChildPropertyInfo
instance AttrInfo StackPageChildPropertyInfo where
type AttrAllowedOps StackPageChildPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StackPageChildPropertyInfo = IsStackPage
type AttrSetTypeConstraint StackPageChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint StackPageChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType StackPageChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType StackPageChildPropertyInfo = Gtk.Widget.Widget
type AttrLabel StackPageChildPropertyInfo = "child"
type AttrOrigin StackPageChildPropertyInfo = StackPage
attrGet = getStackPageChild
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructStackPageChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#g:attr:child"
})
#endif
getStackPageIconName :: (MonadIO m, IsStackPage o) => o -> m (Maybe T.Text)
getStackPageIconName :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> m (Maybe Text)
getStackPageIconName 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"
setStackPageIconName :: (MonadIO m, IsStackPage o) => o -> T.Text -> m ()
setStackPageIconName :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> Text -> m ()
setStackPageIconName 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)
constructStackPageIconName :: (IsStackPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStackPageIconName :: forall o (m :: * -> *).
(IsStackPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStackPageIconName 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)
#if defined(ENABLE_OVERLOADING)
data StackPageIconNamePropertyInfo
instance AttrInfo StackPageIconNamePropertyInfo where
type AttrAllowedOps StackPageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackPageIconNamePropertyInfo = IsStackPage
type AttrSetTypeConstraint StackPageIconNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StackPageIconNamePropertyInfo = (~) T.Text
type AttrTransferType StackPageIconNamePropertyInfo = T.Text
type AttrGetType StackPageIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel StackPageIconNamePropertyInfo = "icon-name"
type AttrOrigin StackPageIconNamePropertyInfo = StackPage
attrGet = getStackPageIconName
attrSet = setStackPageIconName
attrTransfer _ v = do
return v
attrConstruct = constructStackPageIconName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.iconName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#g:attr:iconName"
})
#endif
getStackPageName :: (MonadIO m, IsStackPage o) => o -> m (Maybe T.Text)
getStackPageName :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> m (Maybe Text)
getStackPageName 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
"name"
setStackPageName :: (MonadIO m, IsStackPage o) => o -> T.Text -> m ()
setStackPageName :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> Text -> m ()
setStackPageName 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
"name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStackPageName :: (IsStackPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStackPageName :: forall o (m :: * -> *).
(IsStackPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStackPageName 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
"name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StackPageNamePropertyInfo
instance AttrInfo StackPageNamePropertyInfo where
type AttrAllowedOps StackPageNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackPageNamePropertyInfo = IsStackPage
type AttrSetTypeConstraint StackPageNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StackPageNamePropertyInfo = (~) T.Text
type AttrTransferType StackPageNamePropertyInfo = T.Text
type AttrGetType StackPageNamePropertyInfo = (Maybe T.Text)
type AttrLabel StackPageNamePropertyInfo = "name"
type AttrOrigin StackPageNamePropertyInfo = StackPage
attrGet = getStackPageName
attrSet = setStackPageName
attrTransfer _ v = do
return v
attrConstruct = constructStackPageName
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#g:attr:name"
})
#endif
getStackPageNeedsAttention :: (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageNeedsAttention :: forall (m :: * -> *) o. (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageNeedsAttention 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
"needs-attention"
setStackPageNeedsAttention :: (MonadIO m, IsStackPage o) => o -> Bool -> m ()
setStackPageNeedsAttention :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> Bool -> m ()
setStackPageNeedsAttention 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
"needs-attention" Bool
val
constructStackPageNeedsAttention :: (IsStackPage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStackPageNeedsAttention :: forall o (m :: * -> *).
(IsStackPage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStackPageNeedsAttention 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
"needs-attention" Bool
val
#if defined(ENABLE_OVERLOADING)
data StackPageNeedsAttentionPropertyInfo
instance AttrInfo StackPageNeedsAttentionPropertyInfo where
type AttrAllowedOps StackPageNeedsAttentionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackPageNeedsAttentionPropertyInfo = IsStackPage
type AttrSetTypeConstraint StackPageNeedsAttentionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StackPageNeedsAttentionPropertyInfo = (~) Bool
type AttrTransferType StackPageNeedsAttentionPropertyInfo = Bool
type AttrGetType StackPageNeedsAttentionPropertyInfo = Bool
type AttrLabel StackPageNeedsAttentionPropertyInfo = "needs-attention"
type AttrOrigin StackPageNeedsAttentionPropertyInfo = StackPage
attrGet = getStackPageNeedsAttention
attrSet = setStackPageNeedsAttention
attrTransfer _ v = do
return v
attrConstruct = constructStackPageNeedsAttention
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.needsAttention"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#g:attr:needsAttention"
})
#endif
getStackPageTitle :: (MonadIO m, IsStackPage o) => o -> m (Maybe T.Text)
getStackPageTitle :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> m (Maybe Text)
getStackPageTitle 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
"title"
setStackPageTitle :: (MonadIO m, IsStackPage o) => o -> T.Text -> m ()
setStackPageTitle :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> Text -> m ()
setStackPageTitle 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)
constructStackPageTitle :: (IsStackPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStackPageTitle :: forall o (m :: * -> *).
(IsStackPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStackPageTitle 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 StackPageTitlePropertyInfo
instance AttrInfo StackPageTitlePropertyInfo where
type AttrAllowedOps StackPageTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackPageTitlePropertyInfo = IsStackPage
type AttrSetTypeConstraint StackPageTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StackPageTitlePropertyInfo = (~) T.Text
type AttrTransferType StackPageTitlePropertyInfo = T.Text
type AttrGetType StackPageTitlePropertyInfo = (Maybe T.Text)
type AttrLabel StackPageTitlePropertyInfo = "title"
type AttrOrigin StackPageTitlePropertyInfo = StackPage
attrGet = getStackPageTitle
attrSet = setStackPageTitle
attrTransfer _ v = do
return v
attrConstruct = constructStackPageTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#g:attr:title"
})
#endif
getStackPageUseUnderline :: (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageUseUnderline :: forall (m :: * -> *) o. (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageUseUnderline 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-underline"
setStackPageUseUnderline :: (MonadIO m, IsStackPage o) => o -> Bool -> m ()
setStackPageUseUnderline :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> Bool -> m ()
setStackPageUseUnderline 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-underline" Bool
val
constructStackPageUseUnderline :: (IsStackPage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStackPageUseUnderline :: forall o (m :: * -> *).
(IsStackPage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStackPageUseUnderline 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-underline" Bool
val
#if defined(ENABLE_OVERLOADING)
data StackPageUseUnderlinePropertyInfo
instance AttrInfo StackPageUseUnderlinePropertyInfo where
type AttrAllowedOps StackPageUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackPageUseUnderlinePropertyInfo = IsStackPage
type AttrSetTypeConstraint StackPageUseUnderlinePropertyInfo = (~) Bool
type AttrTransferTypeConstraint StackPageUseUnderlinePropertyInfo = (~) Bool
type AttrTransferType StackPageUseUnderlinePropertyInfo = Bool
type AttrGetType StackPageUseUnderlinePropertyInfo = Bool
type AttrLabel StackPageUseUnderlinePropertyInfo = "use-underline"
type AttrOrigin StackPageUseUnderlinePropertyInfo = StackPage
attrGet = getStackPageUseUnderline
attrSet = setStackPageUseUnderline
attrTransfer _ v = do
return v
attrConstruct = constructStackPageUseUnderline
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.useUnderline"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#g:attr:useUnderline"
})
#endif
getStackPageVisible :: (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageVisible :: forall (m :: * -> *) o. (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageVisible 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
"visible"
setStackPageVisible :: (MonadIO m, IsStackPage o) => o -> Bool -> m ()
setStackPageVisible :: forall (m :: * -> *) o.
(MonadIO m, IsStackPage o) =>
o -> Bool -> m ()
setStackPageVisible 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
"visible" Bool
val
constructStackPageVisible :: (IsStackPage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStackPageVisible :: forall o (m :: * -> *).
(IsStackPage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStackPageVisible 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
"visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data StackPageVisiblePropertyInfo
instance AttrInfo StackPageVisiblePropertyInfo where
type AttrAllowedOps StackPageVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StackPageVisiblePropertyInfo = IsStackPage
type AttrSetTypeConstraint StackPageVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint StackPageVisiblePropertyInfo = (~) Bool
type AttrTransferType StackPageVisiblePropertyInfo = Bool
type AttrGetType StackPageVisiblePropertyInfo = Bool
type AttrLabel StackPageVisiblePropertyInfo = "visible"
type AttrOrigin StackPageVisiblePropertyInfo = StackPage
attrGet = getStackPageVisible
attrSet = setStackPageVisible
attrTransfer _ v = do
return v
attrConstruct = constructStackPageVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.visible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#g:attr:visible"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StackPage
type instance O.AttributeList StackPage = StackPageAttributeList
type StackPageAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("child", StackPageChildPropertyInfo), '("iconName", StackPageIconNamePropertyInfo), '("name", StackPageNamePropertyInfo), '("needsAttention", StackPageNeedsAttentionPropertyInfo), '("title", StackPageTitlePropertyInfo), '("useUnderline", StackPageUseUnderlinePropertyInfo), '("visible", StackPageVisiblePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
stackPageChild :: AttrLabelProxy "child"
stackPageChild = AttrLabelProxy
stackPageIconName :: AttrLabelProxy "iconName"
stackPageIconName = AttrLabelProxy
stackPageName :: AttrLabelProxy "name"
stackPageName = AttrLabelProxy
stackPageNeedsAttention :: AttrLabelProxy "needsAttention"
stackPageNeedsAttention = AttrLabelProxy
stackPageTitle :: AttrLabelProxy "title"
stackPageTitle = AttrLabelProxy
stackPageUseUnderline :: AttrLabelProxy "useUnderline"
stackPageUseUnderline = AttrLabelProxy
stackPageVisible :: AttrLabelProxy "visible"
stackPageVisible = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList StackPage = StackPageSignalList
type StackPageSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_stack_page_get_child" gtk_stack_page_get_child ::
Ptr StackPage ->
IO (Ptr Gtk.Widget.Widget)
stackPageGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> m Gtk.Widget.Widget
stackPageGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> m Widget
stackPageGetChild a
self = IO Widget -> m Widget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr StackPage -> IO (Ptr Widget)
gtk_stack_page_get_child Ptr StackPage
self'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"stackPageGetChild" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data StackPageGetChildMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageGetChildMethodInfo a signature where
overloadedMethod = stackPageGetChild
instance O.OverloadedMethodInfo StackPageGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageGetChild"
})
#endif
foreign import ccall "gtk_stack_page_get_icon_name" gtk_stack_page_get_icon_name ::
Ptr StackPage ->
IO CString
stackPageGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> m (Maybe T.Text)
stackPageGetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> m (Maybe Text)
stackPageGetIconName 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr StackPage -> IO CString
gtk_stack_page_get_icon_name Ptr StackPage
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 StackPageGetIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageGetIconNameMethodInfo a signature where
overloadedMethod = stackPageGetIconName
instance O.OverloadedMethodInfo StackPageGetIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageGetIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageGetIconName"
})
#endif
foreign import ccall "gtk_stack_page_get_name" gtk_stack_page_get_name ::
Ptr StackPage ->
IO CString
stackPageGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> m (Maybe T.Text)
stackPageGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> m (Maybe Text)
stackPageGetName 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr StackPage -> IO CString
gtk_stack_page_get_name Ptr StackPage
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 StackPageGetNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageGetNameMethodInfo a signature where
overloadedMethod = stackPageGetName
instance O.OverloadedMethodInfo StackPageGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageGetName"
})
#endif
foreign import ccall "gtk_stack_page_get_needs_attention" gtk_stack_page_get_needs_attention ::
Ptr StackPage ->
IO CInt
stackPageGetNeedsAttention ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> m Bool
stackPageGetNeedsAttention :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> m Bool
stackPageGetNeedsAttention 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr StackPage -> IO CInt
gtk_stack_page_get_needs_attention Ptr StackPage
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 StackPageGetNeedsAttentionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageGetNeedsAttentionMethodInfo a signature where
overloadedMethod = stackPageGetNeedsAttention
instance O.OverloadedMethodInfo StackPageGetNeedsAttentionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageGetNeedsAttention",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageGetNeedsAttention"
})
#endif
foreign import ccall "gtk_stack_page_get_title" gtk_stack_page_get_title ::
Ptr StackPage ->
IO CString
stackPageGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> m (Maybe T.Text)
stackPageGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> m (Maybe Text)
stackPageGetTitle 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr StackPage -> IO CString
gtk_stack_page_get_title Ptr StackPage
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 StackPageGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageGetTitleMethodInfo a signature where
overloadedMethod = stackPageGetTitle
instance O.OverloadedMethodInfo StackPageGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageGetTitle"
})
#endif
foreign import ccall "gtk_stack_page_get_use_underline" gtk_stack_page_get_use_underline ::
Ptr StackPage ->
IO CInt
stackPageGetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> m Bool
stackPageGetUseUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> m Bool
stackPageGetUseUnderline 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr StackPage -> IO CInt
gtk_stack_page_get_use_underline Ptr StackPage
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 StackPageGetUseUnderlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageGetUseUnderlineMethodInfo a signature where
overloadedMethod = stackPageGetUseUnderline
instance O.OverloadedMethodInfo StackPageGetUseUnderlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageGetUseUnderline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageGetUseUnderline"
})
#endif
foreign import ccall "gtk_stack_page_get_visible" gtk_stack_page_get_visible ::
Ptr StackPage ->
IO CInt
stackPageGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> m Bool
stackPageGetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> m Bool
stackPageGetVisible 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr StackPage -> IO CInt
gtk_stack_page_get_visible Ptr StackPage
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 StackPageGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageGetVisibleMethodInfo a signature where
overloadedMethod = stackPageGetVisible
instance O.OverloadedMethodInfo StackPageGetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageGetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageGetVisible"
})
#endif
foreign import ccall "gtk_stack_page_set_icon_name" gtk_stack_page_set_icon_name ::
Ptr StackPage ->
CString ->
IO ()
stackPageSetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> T.Text
-> m ()
stackPageSetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> Text -> m ()
stackPageSetIconName a
self Text
setting = 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
setting' <- Text -> IO CString
textToCString Text
setting
Ptr StackPage -> CString -> IO ()
gtk_stack_page_set_icon_name Ptr StackPage
self' CString
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
setting'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackPageSetIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageSetIconNameMethodInfo a signature where
overloadedMethod = stackPageSetIconName
instance O.OverloadedMethodInfo StackPageSetIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageSetIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageSetIconName"
})
#endif
foreign import ccall "gtk_stack_page_set_name" gtk_stack_page_set_name ::
Ptr StackPage ->
CString ->
IO ()
stackPageSetName ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> T.Text
-> m ()
stackPageSetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> Text -> m ()
stackPageSetName a
self Text
setting = 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
setting' <- Text -> IO CString
textToCString Text
setting
Ptr StackPage -> CString -> IO ()
gtk_stack_page_set_name Ptr StackPage
self' CString
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
setting'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackPageSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageSetNameMethodInfo a signature where
overloadedMethod = stackPageSetName
instance O.OverloadedMethodInfo StackPageSetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageSetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageSetName"
})
#endif
foreign import ccall "gtk_stack_page_set_needs_attention" gtk_stack_page_set_needs_attention ::
Ptr StackPage ->
CInt ->
IO ()
stackPageSetNeedsAttention ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> Bool
-> m ()
stackPageSetNeedsAttention :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> Bool -> m ()
stackPageSetNeedsAttention a
self Bool
setting = 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr StackPage -> CInt -> IO ()
gtk_stack_page_set_needs_attention Ptr StackPage
self' CInt
setting'
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 StackPageSetNeedsAttentionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageSetNeedsAttentionMethodInfo a signature where
overloadedMethod = stackPageSetNeedsAttention
instance O.OverloadedMethodInfo StackPageSetNeedsAttentionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageSetNeedsAttention",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageSetNeedsAttention"
})
#endif
foreign import ccall "gtk_stack_page_set_title" gtk_stack_page_set_title ::
Ptr StackPage ->
CString ->
IO ()
stackPageSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> T.Text
-> m ()
stackPageSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> Text -> m ()
stackPageSetTitle a
self Text
setting = 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
setting' <- Text -> IO CString
textToCString Text
setting
Ptr StackPage -> CString -> IO ()
gtk_stack_page_set_title Ptr StackPage
self' CString
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
setting'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StackPageSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageSetTitleMethodInfo a signature where
overloadedMethod = stackPageSetTitle
instance O.OverloadedMethodInfo StackPageSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageSetTitle"
})
#endif
foreign import ccall "gtk_stack_page_set_use_underline" gtk_stack_page_set_use_underline ::
Ptr StackPage ->
CInt ->
IO ()
stackPageSetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> Bool
-> m ()
stackPageSetUseUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> Bool -> m ()
stackPageSetUseUnderline a
self Bool
setting = 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let setting' :: CInt
setting' = (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
setting
Ptr StackPage -> CInt -> IO ()
gtk_stack_page_set_use_underline Ptr StackPage
self' CInt
setting'
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 StackPageSetUseUnderlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageSetUseUnderlineMethodInfo a signature where
overloadedMethod = stackPageSetUseUnderline
instance O.OverloadedMethodInfo StackPageSetUseUnderlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageSetUseUnderline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageSetUseUnderline"
})
#endif
foreign import ccall "gtk_stack_page_set_visible" gtk_stack_page_set_visible ::
Ptr StackPage ->
CInt ->
IO ()
stackPageSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsStackPage a) =>
a
-> Bool
-> m ()
stackPageSetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStackPage a) =>
a -> Bool -> m ()
stackPageSetVisible a
self Bool
visible = 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 StackPage
self' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let visible' :: CInt
visible' = (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
visible
Ptr StackPage -> CInt -> IO ()
gtk_stack_page_set_visible Ptr StackPage
self' CInt
visible'
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 StackPageSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStackPage a) => O.OverloadedMethod StackPageSetVisibleMethodInfo a signature where
overloadedMethod = stackPageSetVisible
instance O.OverloadedMethodInfo StackPageSetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StackPage.stackPageSetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-StackPage.html#v:stackPageSetVisible"
})
#endif