{-# 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.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 {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
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 :: *) :: * where
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 "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveStackPageMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveStackPageMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveStackPageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStackPageMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveStackPageMethod "getChild" o = StackPageGetChildMethodInfo
ResolveStackPageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStackPageMethod "getIconName" o = StackPageGetIconNameMethodInfo
ResolveStackPageMethod "getName" o = StackPageGetNameMethodInfo
ResolveStackPageMethod "getNeedsAttention" o = StackPageGetNeedsAttentionMethodInfo
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 "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.6/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.6/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.6/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.6/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.6/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.6/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.6/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, *)])
#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, *)])
#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.6/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.6/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.6/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.6/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.6/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.6/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.6/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.6/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.6/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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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.6/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.6/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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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.6/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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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.6/docs/GI-Gtk-Objects-StackPage.html#v:stackPageSetVisible"
})
#endif