{-# 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 ,
noStackPage ,
#if defined(ENABLE_OVERLOADING)
ResolveStackPageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageGetChildMethodInfo ,
#endif
stackPageGetChild ,
#if defined(ENABLE_OVERLOADING)
StackPageChildPropertyInfo ,
#endif
constructStackPageChild ,
getStackPageChild ,
#if defined(ENABLE_OVERLOADING)
stackPageChild ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageIconNamePropertyInfo ,
#endif
clearStackPageIconName ,
constructStackPageIconName ,
getStackPageIconName ,
setStackPageIconName ,
#if defined(ENABLE_OVERLOADING)
stackPageIconName ,
#endif
#if defined(ENABLE_OVERLOADING)
StackPageNamePropertyInfo ,
#endif
constructStackPageName ,
getStackPageName ,
#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
clearStackPageTitle ,
constructStackPageTitle ,
getStackPageTitle ,
setStackPageTitle ,
#if defined(ENABLE_OVERLOADING)
stackPageTitle ,
#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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype StackPage = StackPage (ManagedPtr StackPage)
deriving (StackPage -> StackPage -> Bool
(StackPage -> StackPage -> Bool)
-> (StackPage -> StackPage -> Bool) -> Eq StackPage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StackPage -> StackPage -> Bool
$c/= :: StackPage -> StackPage -> Bool
== :: StackPage -> StackPage -> Bool
$c== :: StackPage -> StackPage -> Bool
Eq)
foreign import ccall "gtk_stack_page_get_type"
c_gtk_stack_page_get_type :: IO GType
instance GObject StackPage where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_stack_page_get_type
instance B.GValue.IsGValue StackPage where
toGValue :: StackPage -> IO GValue
toGValue o :: StackPage
o = do
GType
gtype <- IO GType
c_gtk_stack_page_get_type
StackPage -> (Ptr StackPage -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StackPage
o (GType
-> (GValue -> Ptr StackPage -> IO ()) -> Ptr StackPage -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr StackPage -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO StackPage
fromGValue gv :: GValue
gv = do
Ptr StackPage
ptr <- GValue -> IO (Ptr StackPage)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr StackPage)
(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
class (GObject o, O.IsDescendantOf StackPage o) => IsStackPage o
instance (GObject o, O.IsDescendantOf StackPage o) => IsStackPage o
instance O.HasParentTypes StackPage
type instance O.ParentTypes StackPage = '[GObject.Object.Object]
toStackPage :: (MonadIO m, IsStackPage o) => o -> m StackPage
toStackPage :: o -> m StackPage
toStackPage = IO StackPage -> m StackPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr StackPage -> StackPage
StackPage
noStackPage :: Maybe StackPage
noStackPage :: Maybe StackPage
noStackPage = Maybe StackPage
forall a. Maybe a
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 "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 "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStackPageMethod "getChild" o = StackPageGetChildMethodInfo
ResolveStackPageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStackPageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStackPageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStackPageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStackPageMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStackPageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStackPageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStackPageMethod t StackPage, O.MethodInfo 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
#endif
getStackPageChild :: (MonadIO m, IsStackPage o) => o -> m Gtk.Widget.Widget
getStackPageChild :: o -> m Widget
getStackPageChild obj :: o
obj = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Widget) -> IO Widget
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
constructStackPageChild :: (IsStackPage o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructStackPageChild :: a -> IO (GValueConstruct o)
constructStackPageChild val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "child" (a -> Maybe a
forall a. a -> Maybe a
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
#endif
getStackPageIconName :: (MonadIO m, IsStackPage o) => o -> m (Maybe T.Text)
getStackPageIconName :: o -> m (Maybe Text)
getStackPageIconName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "icon-name"
setStackPageIconName :: (MonadIO m, IsStackPage o) => o -> T.Text -> m ()
setStackPageIconName :: o -> Text -> m ()
setStackPageIconName obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStackPageIconName :: (IsStackPage o) => T.Text -> IO (GValueConstruct o)
constructStackPageIconName :: Text -> IO (GValueConstruct o)
constructStackPageIconName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearStackPageIconName :: (MonadIO m, IsStackPage o) => o -> m ()
clearStackPageIconName :: o -> m ()
clearStackPageIconName obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "icon-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StackPageIconNamePropertyInfo
instance AttrInfo StackPageIconNamePropertyInfo where
type AttrAllowedOps StackPageIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
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 = clearStackPageIconName
#endif
getStackPageName :: (MonadIO m, IsStackPage o) => o -> m (Maybe T.Text)
getStackPageName :: o -> m (Maybe Text)
getStackPageName obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "name"
constructStackPageName :: (IsStackPage o) => T.Text -> IO (GValueConstruct o)
constructStackPageName :: Text -> IO (GValueConstruct o)
constructStackPageName val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StackPageNamePropertyInfo
instance AttrInfo StackPageNamePropertyInfo where
type AttrAllowedOps StackPageNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
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 = undefined
attrTransfer _ v = do
return v
attrConstruct = constructStackPageName
attrClear = undefined
#endif
getStackPageNeedsAttention :: (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageNeedsAttention :: o -> m Bool
getStackPageNeedsAttention obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "needs-attention"
setStackPageNeedsAttention :: (MonadIO m, IsStackPage o) => o -> Bool -> m ()
setStackPageNeedsAttention :: o -> Bool -> m ()
setStackPageNeedsAttention obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "needs-attention" Bool
val
constructStackPageNeedsAttention :: (IsStackPage o) => Bool -> IO (GValueConstruct o)
constructStackPageNeedsAttention :: Bool -> IO (GValueConstruct o)
constructStackPageNeedsAttention val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getStackPageTitle :: (MonadIO m, IsStackPage o) => o -> m (Maybe T.Text)
getStackPageTitle :: o -> m (Maybe Text)
getStackPageTitle obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "title"
setStackPageTitle :: (MonadIO m, IsStackPage o) => o -> T.Text -> m ()
setStackPageTitle :: o -> Text -> m ()
setStackPageTitle obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructStackPageTitle :: (IsStackPage o) => T.Text -> IO (GValueConstruct o)
constructStackPageTitle :: Text -> IO (GValueConstruct o)
constructStackPageTitle val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearStackPageTitle :: (MonadIO m, IsStackPage o) => o -> m ()
clearStackPageTitle :: o -> m ()
clearStackPageTitle obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "title" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StackPageTitlePropertyInfo
instance AttrInfo StackPageTitlePropertyInfo where
type AttrAllowedOps StackPageTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
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 = clearStackPageTitle
#endif
getStackPageVisible :: (MonadIO m, IsStackPage o) => o -> m Bool
getStackPageVisible :: o -> m Bool
getStackPageVisible obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "visible"
setStackPageVisible :: (MonadIO m, IsStackPage o) => o -> Bool -> m ()
setStackPageVisible :: o -> Bool -> m ()
setStackPageVisible obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "visible" Bool
val
constructStackPageVisible :: (IsStackPage o) => Bool -> IO (GValueConstruct o)
constructStackPageVisible :: Bool -> IO (GValueConstruct o)
constructStackPageVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StackPage
type instance O.AttributeList StackPage = StackPageAttributeList
type StackPageAttributeList = ('[ '("child", StackPageChildPropertyInfo), '("iconName", StackPageIconNamePropertyInfo), '("name", StackPageNamePropertyInfo), '("needsAttention", StackPageNeedsAttentionPropertyInfo), '("title", StackPageTitlePropertyInfo), '("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
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 :: a -> m Widget
stackPageGetChild page :: a
page = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr StackPage
page' <- a -> IO (Ptr StackPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
page
Ptr Widget
result <- Ptr StackPage -> IO (Ptr Widget)
gtk_stack_page_get_child Ptr StackPage
page'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "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
page
Widget -> IO Widget
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.MethodInfo StackPageGetChildMethodInfo a signature where
overloadedMethod = stackPageGetChild
#endif