{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Handy.Objects.TabPage
(
TabPage(..) ,
IsTabPage ,
toTabPage ,
#if defined(ENABLE_OVERLOADING)
ResolveTabPageMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageGetChildMethodInfo ,
#endif
tabPageGetChild ,
#if defined(ENABLE_OVERLOADING)
TabPageGetIconMethodInfo ,
#endif
tabPageGetIcon ,
#if defined(ENABLE_OVERLOADING)
TabPageGetIndicatorActivatableMethodInfo,
#endif
tabPageGetIndicatorActivatable ,
#if defined(ENABLE_OVERLOADING)
TabPageGetIndicatorIconMethodInfo ,
#endif
tabPageGetIndicatorIcon ,
#if defined(ENABLE_OVERLOADING)
TabPageGetLoadingMethodInfo ,
#endif
tabPageGetLoading ,
#if defined(ENABLE_OVERLOADING)
TabPageGetNeedsAttentionMethodInfo ,
#endif
tabPageGetNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
TabPageGetParentMethodInfo ,
#endif
tabPageGetParent ,
#if defined(ENABLE_OVERLOADING)
TabPageGetPinnedMethodInfo ,
#endif
tabPageGetPinned ,
#if defined(ENABLE_OVERLOADING)
TabPageGetSelectedMethodInfo ,
#endif
tabPageGetSelected ,
#if defined(ENABLE_OVERLOADING)
TabPageGetTitleMethodInfo ,
#endif
tabPageGetTitle ,
#if defined(ENABLE_OVERLOADING)
TabPageGetTooltipMethodInfo ,
#endif
tabPageGetTooltip ,
#if defined(ENABLE_OVERLOADING)
TabPageSetIconMethodInfo ,
#endif
tabPageSetIcon ,
#if defined(ENABLE_OVERLOADING)
TabPageSetIndicatorActivatableMethodInfo,
#endif
tabPageSetIndicatorActivatable ,
#if defined(ENABLE_OVERLOADING)
TabPageSetIndicatorIconMethodInfo ,
#endif
tabPageSetIndicatorIcon ,
#if defined(ENABLE_OVERLOADING)
TabPageSetLoadingMethodInfo ,
#endif
tabPageSetLoading ,
#if defined(ENABLE_OVERLOADING)
TabPageSetNeedsAttentionMethodInfo ,
#endif
tabPageSetNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
TabPageSetTitleMethodInfo ,
#endif
tabPageSetTitle ,
#if defined(ENABLE_OVERLOADING)
TabPageSetTooltipMethodInfo ,
#endif
tabPageSetTooltip ,
#if defined(ENABLE_OVERLOADING)
TabPageChildPropertyInfo ,
#endif
constructTabPageChild ,
getTabPageChild ,
#if defined(ENABLE_OVERLOADING)
tabPageChild ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageIconPropertyInfo ,
#endif
clearTabPageIcon ,
constructTabPageIcon ,
getTabPageIcon ,
setTabPageIcon ,
#if defined(ENABLE_OVERLOADING)
tabPageIcon ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageIndicatorActivatablePropertyInfo ,
#endif
constructTabPageIndicatorActivatable ,
getTabPageIndicatorActivatable ,
setTabPageIndicatorActivatable ,
#if defined(ENABLE_OVERLOADING)
tabPageIndicatorActivatable ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageIndicatorIconPropertyInfo ,
#endif
clearTabPageIndicatorIcon ,
constructTabPageIndicatorIcon ,
getTabPageIndicatorIcon ,
setTabPageIndicatorIcon ,
#if defined(ENABLE_OVERLOADING)
tabPageIndicatorIcon ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageLoadingPropertyInfo ,
#endif
constructTabPageLoading ,
getTabPageLoading ,
setTabPageLoading ,
#if defined(ENABLE_OVERLOADING)
tabPageLoading ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageNeedsAttentionPropertyInfo ,
#endif
constructTabPageNeedsAttention ,
getTabPageNeedsAttention ,
setTabPageNeedsAttention ,
#if defined(ENABLE_OVERLOADING)
tabPageNeedsAttention ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageParentPropertyInfo ,
#endif
constructTabPageParent ,
getTabPageParent ,
#if defined(ENABLE_OVERLOADING)
tabPageParent ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPagePinnedPropertyInfo ,
#endif
getTabPagePinned ,
#if defined(ENABLE_OVERLOADING)
tabPagePinned ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageSelectedPropertyInfo ,
#endif
getTabPageSelected ,
#if defined(ENABLE_OVERLOADING)
tabPageSelected ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageTitlePropertyInfo ,
#endif
clearTabPageTitle ,
constructTabPageTitle ,
getTabPageTitle ,
setTabPageTitle ,
#if defined(ENABLE_OVERLOADING)
tabPageTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
TabPageTooltipPropertyInfo ,
#endif
clearTabPageTooltip ,
constructTabPageTooltip ,
getTabPageTooltip ,
setTabPageTooltip ,
#if defined(ENABLE_OVERLOADING)
tabPageTooltip ,
#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.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 qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype TabPage = TabPage (SP.ManagedPtr TabPage)
deriving (TabPage -> TabPage -> Bool
(TabPage -> TabPage -> Bool)
-> (TabPage -> TabPage -> Bool) -> Eq TabPage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TabPage -> TabPage -> Bool
$c/= :: TabPage -> TabPage -> Bool
== :: TabPage -> TabPage -> Bool
$c== :: TabPage -> TabPage -> Bool
Eq)
instance SP.ManagedPtrNewtype TabPage where
toManagedPtr :: TabPage -> ManagedPtr TabPage
toManagedPtr (TabPage ManagedPtr TabPage
p) = ManagedPtr TabPage
p
foreign import ccall "hdy_tab_page_get_type"
c_hdy_tab_page_get_type :: IO B.Types.GType
instance B.Types.TypedObject TabPage where
glibType :: IO GType
glibType = IO GType
c_hdy_tab_page_get_type
instance B.Types.GObject TabPage
class (SP.GObject o, O.IsDescendantOf TabPage o) => IsTabPage o
instance (SP.GObject o, O.IsDescendantOf TabPage o) => IsTabPage o
instance O.HasParentTypes TabPage
type instance O.ParentTypes TabPage = '[GObject.Object.Object]
toTabPage :: (MIO.MonadIO m, IsTabPage o) => o -> m TabPage
toTabPage :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m TabPage
toTabPage = IO TabPage -> m TabPage
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TabPage -> m TabPage) -> (o -> IO TabPage) -> o -> m TabPage
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TabPage -> TabPage) -> o -> IO TabPage
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TabPage -> TabPage
TabPage
instance B.GValue.IsGValue (Maybe TabPage) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_hdy_tab_page_get_type
gvalueSet_ :: Ptr GValue -> Maybe TabPage -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TabPage
P.Nothing = Ptr GValue -> Ptr TabPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TabPage
forall a. Ptr a
FP.nullPtr :: FP.Ptr TabPage)
gvalueSet_ Ptr GValue
gv (P.Just TabPage
obj) = TabPage -> (Ptr TabPage -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TabPage
obj (Ptr GValue -> Ptr TabPage -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TabPage)
gvalueGet_ Ptr GValue
gv = do
Ptr TabPage
ptr <- Ptr GValue -> IO (Ptr TabPage)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TabPage)
if Ptr TabPage
ptr Ptr TabPage -> Ptr TabPage -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TabPage
forall a. Ptr a
FP.nullPtr
then TabPage -> Maybe TabPage
forall a. a -> Maybe a
P.Just (TabPage -> Maybe TabPage) -> IO TabPage -> IO (Maybe TabPage)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TabPage -> TabPage
TabPage Ptr TabPage
ptr
else Maybe TabPage -> IO (Maybe TabPage)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabPage
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTabPageMethod (t :: Symbol) (o :: *) :: * where
ResolveTabPageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTabPageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTabPageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTabPageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTabPageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTabPageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTabPageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTabPageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTabPageMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTabPageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTabPageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTabPageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTabPageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTabPageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTabPageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTabPageMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTabPageMethod "getChild" o = TabPageGetChildMethodInfo
ResolveTabPageMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTabPageMethod "getIcon" o = TabPageGetIconMethodInfo
ResolveTabPageMethod "getIndicatorActivatable" o = TabPageGetIndicatorActivatableMethodInfo
ResolveTabPageMethod "getIndicatorIcon" o = TabPageGetIndicatorIconMethodInfo
ResolveTabPageMethod "getLoading" o = TabPageGetLoadingMethodInfo
ResolveTabPageMethod "getNeedsAttention" o = TabPageGetNeedsAttentionMethodInfo
ResolveTabPageMethod "getParent" o = TabPageGetParentMethodInfo
ResolveTabPageMethod "getPinned" o = TabPageGetPinnedMethodInfo
ResolveTabPageMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTabPageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTabPageMethod "getSelected" o = TabPageGetSelectedMethodInfo
ResolveTabPageMethod "getTitle" o = TabPageGetTitleMethodInfo
ResolveTabPageMethod "getTooltip" o = TabPageGetTooltipMethodInfo
ResolveTabPageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTabPageMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTabPageMethod "setIcon" o = TabPageSetIconMethodInfo
ResolveTabPageMethod "setIndicatorActivatable" o = TabPageSetIndicatorActivatableMethodInfo
ResolveTabPageMethod "setIndicatorIcon" o = TabPageSetIndicatorIconMethodInfo
ResolveTabPageMethod "setLoading" o = TabPageSetLoadingMethodInfo
ResolveTabPageMethod "setNeedsAttention" o = TabPageSetNeedsAttentionMethodInfo
ResolveTabPageMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTabPageMethod "setTitle" o = TabPageSetTitleMethodInfo
ResolveTabPageMethod "setTooltip" o = TabPageSetTooltipMethodInfo
ResolveTabPageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTabPageMethod t TabPage, O.OverloadedMethod info TabPage p) => OL.IsLabel t (TabPage -> 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 ~ ResolveTabPageMethod t TabPage, O.OverloadedMethod info TabPage p, R.HasField t TabPage p) => R.HasField t TabPage p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTabPageMethod t TabPage, O.OverloadedMethodInfo info TabPage) => OL.IsLabel t (O.MethodProxy info TabPage) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getTabPageChild :: (MonadIO m, IsTabPage o) => o -> m Gtk.Widget.Widget
getTabPageChild :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m Widget
getTabPageChild o
obj = IO Widget -> m Widget
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
"getTabPageChild" (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
constructTabPageChild :: (IsTabPage o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructTabPageChild :: forall o (m :: * -> *) a.
(IsTabPage o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructTabPageChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TabPageChildPropertyInfo
instance AttrInfo TabPageChildPropertyInfo where
type AttrAllowedOps TabPageChildPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabPageChildPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint TabPageChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType TabPageChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType TabPageChildPropertyInfo = Gtk.Widget.Widget
type AttrLabel TabPageChildPropertyInfo = "child"
type AttrOrigin TabPageChildPropertyInfo = TabPage
attrGet = getTabPageChild
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructTabPageChild
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:child"
})
#endif
getTabPageIcon :: (MonadIO m, IsTabPage o) => o -> m (Maybe Gio.Icon.Icon)
getTabPageIcon :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> m (Maybe Icon)
getTabPageIcon o
obj = IO (Maybe Icon) -> m (Maybe Icon)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Icon) -> m (Maybe Icon))
-> IO (Maybe Icon) -> m (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Icon -> Icon) -> IO (Maybe Icon)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"icon" ManagedPtr Icon -> Icon
Gio.Icon.Icon
setTabPageIcon :: (MonadIO m, IsTabPage o, Gio.Icon.IsIcon a) => o -> a -> m ()
setTabPageIcon :: forall (m :: * -> *) o a.
(MonadIO m, IsTabPage o, IsIcon a) =>
o -> a -> m ()
setTabPageIcon o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"icon" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabPageIcon :: (IsTabPage o, MIO.MonadIO m, Gio.Icon.IsIcon a) => a -> m (GValueConstruct o)
constructTabPageIcon :: forall o (m :: * -> *) a.
(IsTabPage o, MonadIO m, IsIcon a) =>
a -> m (GValueConstruct o)
constructTabPageIcon a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"icon" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTabPageIcon :: (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageIcon :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageIcon 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 Icon -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"icon" (Maybe Icon
forall a. Maybe a
Nothing :: Maybe Gio.Icon.Icon)
#if defined(ENABLE_OVERLOADING)
data TabPageIconPropertyInfo
instance AttrInfo TabPageIconPropertyInfo where
type AttrAllowedOps TabPageIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabPageIconPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageIconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferTypeConstraint TabPageIconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferType TabPageIconPropertyInfo = Gio.Icon.Icon
type AttrGetType TabPageIconPropertyInfo = (Maybe Gio.Icon.Icon)
type AttrLabel TabPageIconPropertyInfo = "icon"
type AttrOrigin TabPageIconPropertyInfo = TabPage
attrGet = getTabPageIcon
attrSet = setTabPageIcon
attrTransfer _ v = do
unsafeCastTo Gio.Icon.Icon v
attrConstruct = constructTabPageIcon
attrClear = clearTabPageIcon
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.icon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:icon"
})
#endif
getTabPageIndicatorActivatable :: (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageIndicatorActivatable :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageIndicatorActivatable o
obj = IO Bool -> m Bool
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
"indicator-activatable"
setTabPageIndicatorActivatable :: (MonadIO m, IsTabPage o) => o -> Bool -> m ()
setTabPageIndicatorActivatable :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> Bool -> m ()
setTabPageIndicatorActivatable o
obj Bool
val = IO () -> m ()
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
"indicator-activatable" Bool
val
constructTabPageIndicatorActivatable :: (IsTabPage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabPageIndicatorActivatable :: forall o (m :: * -> *).
(IsTabPage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabPageIndicatorActivatable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"indicator-activatable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabPageIndicatorActivatablePropertyInfo
instance AttrInfo TabPageIndicatorActivatablePropertyInfo where
type AttrAllowedOps TabPageIndicatorActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabPageIndicatorActivatablePropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageIndicatorActivatablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabPageIndicatorActivatablePropertyInfo = (~) Bool
type AttrTransferType TabPageIndicatorActivatablePropertyInfo = Bool
type AttrGetType TabPageIndicatorActivatablePropertyInfo = Bool
type AttrLabel TabPageIndicatorActivatablePropertyInfo = "indicator-activatable"
type AttrOrigin TabPageIndicatorActivatablePropertyInfo = TabPage
attrGet = getTabPageIndicatorActivatable
attrSet = setTabPageIndicatorActivatable
attrTransfer _ v = do
return v
attrConstruct = constructTabPageIndicatorActivatable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.indicatorActivatable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:indicatorActivatable"
})
#endif
getTabPageIndicatorIcon :: (MonadIO m, IsTabPage o) => o -> m (Maybe Gio.Icon.Icon)
getTabPageIndicatorIcon :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> m (Maybe Icon)
getTabPageIndicatorIcon o
obj = IO (Maybe Icon) -> m (Maybe Icon)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Icon) -> m (Maybe Icon))
-> IO (Maybe Icon) -> m (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Icon -> Icon) -> IO (Maybe Icon)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"indicator-icon" ManagedPtr Icon -> Icon
Gio.Icon.Icon
setTabPageIndicatorIcon :: (MonadIO m, IsTabPage o, Gio.Icon.IsIcon a) => o -> a -> m ()
setTabPageIndicatorIcon :: forall (m :: * -> *) o a.
(MonadIO m, IsTabPage o, IsIcon a) =>
o -> a -> m ()
setTabPageIndicatorIcon o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"indicator-icon" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTabPageIndicatorIcon :: (IsTabPage o, MIO.MonadIO m, Gio.Icon.IsIcon a) => a -> m (GValueConstruct o)
constructTabPageIndicatorIcon :: forall o (m :: * -> *) a.
(IsTabPage o, MonadIO m, IsIcon a) =>
a -> m (GValueConstruct o)
constructTabPageIndicatorIcon a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"indicator-icon" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTabPageIndicatorIcon :: (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageIndicatorIcon :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageIndicatorIcon 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 Icon -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"indicator-icon" (Maybe Icon
forall a. Maybe a
Nothing :: Maybe Gio.Icon.Icon)
#if defined(ENABLE_OVERLOADING)
data TabPageIndicatorIconPropertyInfo
instance AttrInfo TabPageIndicatorIconPropertyInfo where
type AttrAllowedOps TabPageIndicatorIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabPageIndicatorIconPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageIndicatorIconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferTypeConstraint TabPageIndicatorIconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferType TabPageIndicatorIconPropertyInfo = Gio.Icon.Icon
type AttrGetType TabPageIndicatorIconPropertyInfo = (Maybe Gio.Icon.Icon)
type AttrLabel TabPageIndicatorIconPropertyInfo = "indicator-icon"
type AttrOrigin TabPageIndicatorIconPropertyInfo = TabPage
attrGet = getTabPageIndicatorIcon
attrSet = setTabPageIndicatorIcon
attrTransfer _ v = do
unsafeCastTo Gio.Icon.Icon v
attrConstruct = constructTabPageIndicatorIcon
attrClear = clearTabPageIndicatorIcon
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.indicatorIcon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:indicatorIcon"
})
#endif
getTabPageLoading :: (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageLoading :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageLoading o
obj = IO Bool -> m Bool
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
"loading"
setTabPageLoading :: (MonadIO m, IsTabPage o) => o -> Bool -> m ()
setTabPageLoading :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> Bool -> m ()
setTabPageLoading o
obj Bool
val = IO () -> m ()
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
"loading" Bool
val
constructTabPageLoading :: (IsTabPage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabPageLoading :: forall o (m :: * -> *).
(IsTabPage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabPageLoading Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"loading" Bool
val
#if defined(ENABLE_OVERLOADING)
data TabPageLoadingPropertyInfo
instance AttrInfo TabPageLoadingPropertyInfo where
type AttrAllowedOps TabPageLoadingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabPageLoadingPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageLoadingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabPageLoadingPropertyInfo = (~) Bool
type AttrTransferType TabPageLoadingPropertyInfo = Bool
type AttrGetType TabPageLoadingPropertyInfo = Bool
type AttrLabel TabPageLoadingPropertyInfo = "loading"
type AttrOrigin TabPageLoadingPropertyInfo = TabPage
attrGet = getTabPageLoading
attrSet = setTabPageLoading
attrTransfer _ v = do
return v
attrConstruct = constructTabPageLoading
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.loading"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:loading"
})
#endif
getTabPageNeedsAttention :: (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageNeedsAttention :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageNeedsAttention o
obj = IO Bool -> m Bool
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"
setTabPageNeedsAttention :: (MonadIO m, IsTabPage o) => o -> Bool -> m ()
setTabPageNeedsAttention :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> Bool -> m ()
setTabPageNeedsAttention o
obj Bool
val = IO () -> m ()
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
constructTabPageNeedsAttention :: (IsTabPage o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTabPageNeedsAttention :: forall o (m :: * -> *).
(IsTabPage o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTabPageNeedsAttention Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TabPageNeedsAttentionPropertyInfo
instance AttrInfo TabPageNeedsAttentionPropertyInfo where
type AttrAllowedOps TabPageNeedsAttentionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TabPageNeedsAttentionPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageNeedsAttentionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TabPageNeedsAttentionPropertyInfo = (~) Bool
type AttrTransferType TabPageNeedsAttentionPropertyInfo = Bool
type AttrGetType TabPageNeedsAttentionPropertyInfo = Bool
type AttrLabel TabPageNeedsAttentionPropertyInfo = "needs-attention"
type AttrOrigin TabPageNeedsAttentionPropertyInfo = TabPage
attrGet = getTabPageNeedsAttention
attrSet = setTabPageNeedsAttention
attrTransfer _ v = do
return v
attrConstruct = constructTabPageNeedsAttention
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.needsAttention"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:needsAttention"
})
#endif
getTabPageParent :: (MonadIO m, IsTabPage o) => o -> m (Maybe TabPage)
getTabPageParent :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> m (Maybe TabPage)
getTabPageParent o
obj = IO (Maybe TabPage) -> m (Maybe TabPage)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TabPage) -> m (Maybe TabPage))
-> IO (Maybe TabPage) -> m (Maybe TabPage)
forall a b. (a -> b) -> a -> b
$ o
-> String -> (ManagedPtr TabPage -> TabPage) -> IO (Maybe TabPage)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"parent" ManagedPtr TabPage -> TabPage
TabPage
constructTabPageParent :: (IsTabPage o, MIO.MonadIO m, IsTabPage a) => a -> m (GValueConstruct o)
constructTabPageParent :: forall o (m :: * -> *) a.
(IsTabPage o, MonadIO m, IsTabPage a) =>
a -> m (GValueConstruct o)
constructTabPageParent a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"parent" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data TabPageParentPropertyInfo
instance AttrInfo TabPageParentPropertyInfo where
type AttrAllowedOps TabPageParentPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabPageParentPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageParentPropertyInfo = IsTabPage
type AttrTransferTypeConstraint TabPageParentPropertyInfo = IsTabPage
type AttrTransferType TabPageParentPropertyInfo = TabPage
type AttrGetType TabPageParentPropertyInfo = (Maybe TabPage)
type AttrLabel TabPageParentPropertyInfo = "parent"
type AttrOrigin TabPageParentPropertyInfo = TabPage
attrGet = getTabPageParent
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo TabPage v
attrConstruct = constructTabPageParent
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.parent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:parent"
})
#endif
getTabPagePinned :: (MonadIO m, IsTabPage o) => o -> m Bool
getTabPagePinned :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m Bool
getTabPagePinned o
obj = IO Bool -> m Bool
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
"pinned"
#if defined(ENABLE_OVERLOADING)
data TabPagePinnedPropertyInfo
instance AttrInfo TabPagePinnedPropertyInfo where
type AttrAllowedOps TabPagePinnedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TabPagePinnedPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPagePinnedPropertyInfo = (~) ()
type AttrTransferTypeConstraint TabPagePinnedPropertyInfo = (~) ()
type AttrTransferType TabPagePinnedPropertyInfo = ()
type AttrGetType TabPagePinnedPropertyInfo = Bool
type AttrLabel TabPagePinnedPropertyInfo = "pinned"
type AttrOrigin TabPagePinnedPropertyInfo = TabPage
attrGet = getTabPagePinned
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.pinned"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:pinned"
})
#endif
getTabPageSelected :: (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageSelected :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m Bool
getTabPageSelected o
obj = IO Bool -> m Bool
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
"selected"
#if defined(ENABLE_OVERLOADING)
data TabPageSelectedPropertyInfo
instance AttrInfo TabPageSelectedPropertyInfo where
type AttrAllowedOps TabPageSelectedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TabPageSelectedPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageSelectedPropertyInfo = (~) ()
type AttrTransferTypeConstraint TabPageSelectedPropertyInfo = (~) ()
type AttrTransferType TabPageSelectedPropertyInfo = ()
type AttrGetType TabPageSelectedPropertyInfo = Bool
type AttrLabel TabPageSelectedPropertyInfo = "selected"
type AttrOrigin TabPageSelectedPropertyInfo = TabPage
attrGet = getTabPageSelected
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.selected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:selected"
})
#endif
getTabPageTitle :: (MonadIO m, IsTabPage o) => o -> m (Maybe T.Text)
getTabPageTitle :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> m (Maybe Text)
getTabPageTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
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"
setTabPageTitle :: (MonadIO m, IsTabPage o) => o -> T.Text -> m ()
setTabPageTitle :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> Text -> m ()
setTabPageTitle o
obj Text
val = IO () -> m ()
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)
constructTabPageTitle :: (IsTabPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTabPageTitle :: forall o (m :: * -> *).
(IsTabPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTabPageTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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)
clearTabPageTitle :: (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageTitle :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageTitle 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 String
"title" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TabPageTitlePropertyInfo
instance AttrInfo TabPageTitlePropertyInfo where
type AttrAllowedOps TabPageTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabPageTitlePropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TabPageTitlePropertyInfo = (~) T.Text
type AttrTransferType TabPageTitlePropertyInfo = T.Text
type AttrGetType TabPageTitlePropertyInfo = (Maybe T.Text)
type AttrLabel TabPageTitlePropertyInfo = "title"
type AttrOrigin TabPageTitlePropertyInfo = TabPage
attrGet = getTabPageTitle
attrSet = setTabPageTitle
attrTransfer _ v = do
return v
attrConstruct = constructTabPageTitle
attrClear = clearTabPageTitle
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:title"
})
#endif
getTabPageTooltip :: (MonadIO m, IsTabPage o) => o -> m (Maybe T.Text)
getTabPageTooltip :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> m (Maybe Text)
getTabPageTooltip o
obj = IO (Maybe Text) -> m (Maybe Text)
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
"tooltip"
setTabPageTooltip :: (MonadIO m, IsTabPage o) => o -> T.Text -> m ()
setTabPageTooltip :: forall (m :: * -> *) o.
(MonadIO m, IsTabPage o) =>
o -> Text -> m ()
setTabPageTooltip o
obj Text
val = IO () -> m ()
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
"tooltip" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTabPageTooltip :: (IsTabPage o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTabPageTooltip :: forall o (m :: * -> *).
(IsTabPage o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTabPageTooltip Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"tooltip" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearTabPageTooltip :: (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageTooltip :: forall (m :: * -> *) o. (MonadIO m, IsTabPage o) => o -> m ()
clearTabPageTooltip 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 String
"tooltip" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TabPageTooltipPropertyInfo
instance AttrInfo TabPageTooltipPropertyInfo where
type AttrAllowedOps TabPageTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TabPageTooltipPropertyInfo = IsTabPage
type AttrSetTypeConstraint TabPageTooltipPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TabPageTooltipPropertyInfo = (~) T.Text
type AttrTransferType TabPageTooltipPropertyInfo = T.Text
type AttrGetType TabPageTooltipPropertyInfo = (Maybe T.Text)
type AttrLabel TabPageTooltipPropertyInfo = "tooltip"
type AttrOrigin TabPageTooltipPropertyInfo = TabPage
attrGet = getTabPageTooltip
attrSet = setTabPageTooltip
attrTransfer _ v = do
return v
attrConstruct = constructTabPageTooltip
attrClear = clearTabPageTooltip
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tooltip"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#g:attr:tooltip"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TabPage
type instance O.AttributeList TabPage = TabPageAttributeList
type TabPageAttributeList = ('[ '("child", TabPageChildPropertyInfo), '("icon", TabPageIconPropertyInfo), '("indicatorActivatable", TabPageIndicatorActivatablePropertyInfo), '("indicatorIcon", TabPageIndicatorIconPropertyInfo), '("loading", TabPageLoadingPropertyInfo), '("needsAttention", TabPageNeedsAttentionPropertyInfo), '("parent", TabPageParentPropertyInfo), '("pinned", TabPagePinnedPropertyInfo), '("selected", TabPageSelectedPropertyInfo), '("title", TabPageTitlePropertyInfo), '("tooltip", TabPageTooltipPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
tabPageChild :: AttrLabelProxy "child"
tabPageChild = AttrLabelProxy
tabPageIcon :: AttrLabelProxy "icon"
tabPageIcon = AttrLabelProxy
tabPageIndicatorActivatable :: AttrLabelProxy "indicatorActivatable"
tabPageIndicatorActivatable = AttrLabelProxy
tabPageIndicatorIcon :: AttrLabelProxy "indicatorIcon"
tabPageIndicatorIcon = AttrLabelProxy
tabPageLoading :: AttrLabelProxy "loading"
tabPageLoading = AttrLabelProxy
tabPageNeedsAttention :: AttrLabelProxy "needsAttention"
tabPageNeedsAttention = AttrLabelProxy
tabPageParent :: AttrLabelProxy "parent"
tabPageParent = AttrLabelProxy
tabPagePinned :: AttrLabelProxy "pinned"
tabPagePinned = AttrLabelProxy
tabPageSelected :: AttrLabelProxy "selected"
tabPageSelected = AttrLabelProxy
tabPageTitle :: AttrLabelProxy "title"
tabPageTitle = AttrLabelProxy
tabPageTooltip :: AttrLabelProxy "tooltip"
tabPageTooltip = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TabPage = TabPageSignalList
type TabPageSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "hdy_tab_page_get_child" hdy_tab_page_get_child ::
Ptr TabPage ->
IO (Ptr Gtk.Widget.Widget)
tabPageGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m Gtk.Widget.Widget
tabPageGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m Widget
tabPageGetChild a
self = 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 TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr TabPage -> IO (Ptr Widget)
hdy_tab_page_get_child Ptr TabPage
self'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tabPageGetChild" 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 (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data TabPageGetChildMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetChildMethodInfo a signature where
overloadedMethod = tabPageGetChild
instance O.OverloadedMethodInfo TabPageGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetChild"
})
#endif
foreign import ccall "hdy_tab_page_get_icon" hdy_tab_page_get_icon ::
Ptr TabPage ->
IO (Ptr Gio.Icon.Icon)
tabPageGetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m (Maybe Gio.Icon.Icon)
tabPageGetIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m (Maybe Icon)
tabPageGetIcon a
self = IO (Maybe Icon) -> m (Maybe Icon)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Icon) -> m (Maybe Icon))
-> IO (Maybe Icon) -> m (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Icon
result <- Ptr TabPage -> IO (Ptr Icon)
hdy_tab_page_get_icon Ptr TabPage
self'
Maybe Icon
maybeResult <- Ptr Icon -> (Ptr Icon -> IO Icon) -> IO (Maybe Icon)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Icon
result ((Ptr Icon -> IO Icon) -> IO (Maybe Icon))
-> (Ptr Icon -> IO Icon) -> IO (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ \Ptr Icon
result' -> do
Icon
result'' <- ((ManagedPtr Icon -> Icon) -> Ptr Icon -> IO Icon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Icon -> Icon
Gio.Icon.Icon) Ptr Icon
result'
Icon -> IO Icon
forall (m :: * -> *) a. Monad m => a -> m a
return Icon
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Icon -> IO (Maybe Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Icon
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabPageGetIconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetIconMethodInfo a signature where
overloadedMethod = tabPageGetIcon
instance O.OverloadedMethodInfo TabPageGetIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetIcon"
})
#endif
foreign import ccall "hdy_tab_page_get_indicator_activatable" hdy_tab_page_get_indicator_activatable ::
Ptr TabPage ->
IO CInt
tabPageGetIndicatorActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m Bool
tabPageGetIndicatorActivatable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m Bool
tabPageGetIndicatorActivatable a
self = 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
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabPage -> IO CInt
hdy_tab_page_get_indicator_activatable Ptr TabPage
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabPageGetIndicatorActivatableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetIndicatorActivatableMethodInfo a signature where
overloadedMethod = tabPageGetIndicatorActivatable
instance O.OverloadedMethodInfo TabPageGetIndicatorActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetIndicatorActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetIndicatorActivatable"
})
#endif
foreign import ccall "hdy_tab_page_get_indicator_icon" hdy_tab_page_get_indicator_icon ::
Ptr TabPage ->
IO (Ptr Gio.Icon.Icon)
tabPageGetIndicatorIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m (Maybe Gio.Icon.Icon)
tabPageGetIndicatorIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m (Maybe Icon)
tabPageGetIndicatorIcon a
self = IO (Maybe Icon) -> m (Maybe Icon)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Icon) -> m (Maybe Icon))
-> IO (Maybe Icon) -> m (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Icon
result <- Ptr TabPage -> IO (Ptr Icon)
hdy_tab_page_get_indicator_icon Ptr TabPage
self'
Maybe Icon
maybeResult <- Ptr Icon -> (Ptr Icon -> IO Icon) -> IO (Maybe Icon)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Icon
result ((Ptr Icon -> IO Icon) -> IO (Maybe Icon))
-> (Ptr Icon -> IO Icon) -> IO (Maybe Icon)
forall a b. (a -> b) -> a -> b
$ \Ptr Icon
result' -> do
Icon
result'' <- ((ManagedPtr Icon -> Icon) -> Ptr Icon -> IO Icon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Icon -> Icon
Gio.Icon.Icon) Ptr Icon
result'
Icon -> IO Icon
forall (m :: * -> *) a. Monad m => a -> m a
return Icon
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Icon -> IO (Maybe Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Icon
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabPageGetIndicatorIconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetIndicatorIconMethodInfo a signature where
overloadedMethod = tabPageGetIndicatorIcon
instance O.OverloadedMethodInfo TabPageGetIndicatorIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetIndicatorIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetIndicatorIcon"
})
#endif
foreign import ccall "hdy_tab_page_get_loading" hdy_tab_page_get_loading ::
Ptr TabPage ->
IO CInt
tabPageGetLoading ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m Bool
tabPageGetLoading :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m Bool
tabPageGetLoading a
self = 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
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabPage -> IO CInt
hdy_tab_page_get_loading Ptr TabPage
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabPageGetLoadingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetLoadingMethodInfo a signature where
overloadedMethod = tabPageGetLoading
instance O.OverloadedMethodInfo TabPageGetLoadingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetLoading",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetLoading"
})
#endif
foreign import ccall "hdy_tab_page_get_needs_attention" hdy_tab_page_get_needs_attention ::
Ptr TabPage ->
IO CInt
tabPageGetNeedsAttention ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m Bool
tabPageGetNeedsAttention :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m Bool
tabPageGetNeedsAttention a
self = 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
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabPage -> IO CInt
hdy_tab_page_get_needs_attention Ptr TabPage
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabPageGetNeedsAttentionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetNeedsAttentionMethodInfo a signature where
overloadedMethod = tabPageGetNeedsAttention
instance O.OverloadedMethodInfo TabPageGetNeedsAttentionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetNeedsAttention",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetNeedsAttention"
})
#endif
foreign import ccall "hdy_tab_page_get_parent" hdy_tab_page_get_parent ::
Ptr TabPage ->
IO (Ptr TabPage)
tabPageGetParent ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m (Maybe TabPage)
tabPageGetParent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m (Maybe TabPage)
tabPageGetParent a
self = IO (Maybe TabPage) -> m (Maybe TabPage)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TabPage) -> m (Maybe TabPage))
-> IO (Maybe TabPage) -> m (Maybe TabPage)
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr TabPage
result <- Ptr TabPage -> IO (Ptr TabPage)
hdy_tab_page_get_parent Ptr TabPage
self'
Maybe TabPage
maybeResult <- Ptr TabPage -> (Ptr TabPage -> IO TabPage) -> IO (Maybe TabPage)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TabPage
result ((Ptr TabPage -> IO TabPage) -> IO (Maybe TabPage))
-> (Ptr TabPage -> IO TabPage) -> IO (Maybe TabPage)
forall a b. (a -> b) -> a -> b
$ \Ptr TabPage
result' -> do
TabPage
result'' <- ((ManagedPtr TabPage -> TabPage) -> Ptr TabPage -> IO TabPage
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TabPage -> TabPage
TabPage) Ptr TabPage
result'
TabPage -> IO TabPage
forall (m :: * -> *) a. Monad m => a -> m a
return TabPage
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe TabPage -> IO (Maybe TabPage)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TabPage
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabPageGetParentMethodInfo
instance (signature ~ (m (Maybe TabPage)), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetParentMethodInfo a signature where
overloadedMethod = tabPageGetParent
instance O.OverloadedMethodInfo TabPageGetParentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetParent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetParent"
})
#endif
foreign import ccall "hdy_tab_page_get_pinned" hdy_tab_page_get_pinned ::
Ptr TabPage ->
IO CInt
tabPageGetPinned ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m Bool
tabPageGetPinned :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m Bool
tabPageGetPinned a
self = 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
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabPage -> IO CInt
hdy_tab_page_get_pinned Ptr TabPage
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabPageGetPinnedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetPinnedMethodInfo a signature where
overloadedMethod = tabPageGetPinned
instance O.OverloadedMethodInfo TabPageGetPinnedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetPinned",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetPinned"
})
#endif
foreign import ccall "hdy_tab_page_get_selected" hdy_tab_page_get_selected ::
Ptr TabPage ->
IO CInt
tabPageGetSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m Bool
tabPageGetSelected :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m Bool
tabPageGetSelected a
self = 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
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr TabPage -> IO CInt
hdy_tab_page_get_selected Ptr TabPage
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 (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TabPageGetSelectedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetSelectedMethodInfo a signature where
overloadedMethod = tabPageGetSelected
instance O.OverloadedMethodInfo TabPageGetSelectedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetSelected",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetSelected"
})
#endif
foreign import ccall "hdy_tab_page_get_title" hdy_tab_page_get_title ::
Ptr TabPage ->
IO CString
tabPageGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m (Maybe T.Text)
tabPageGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m (Maybe Text)
tabPageGetTitle a
self = 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
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr TabPage -> IO CString
hdy_tab_page_get_title Ptr TabPage
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 (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 (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabPageGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetTitleMethodInfo a signature where
overloadedMethod = tabPageGetTitle
instance O.OverloadedMethodInfo TabPageGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetTitle"
})
#endif
foreign import ccall "hdy_tab_page_get_tooltip" hdy_tab_page_get_tooltip ::
Ptr TabPage ->
IO CString
tabPageGetTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> m (Maybe T.Text)
tabPageGetTooltip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> m (Maybe Text)
tabPageGetTooltip a
self = 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
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr TabPage -> IO CString
hdy_tab_page_get_tooltip Ptr TabPage
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 (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 (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data TabPageGetTooltipMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageGetTooltipMethodInfo a signature where
overloadedMethod = tabPageGetTooltip
instance O.OverloadedMethodInfo TabPageGetTooltipMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageGetTooltip",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageGetTooltip"
})
#endif
foreign import ccall "hdy_tab_page_set_icon" hdy_tab_page_set_icon ::
Ptr TabPage ->
Ptr Gio.Icon.Icon ->
IO ()
tabPageSetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a, Gio.Icon.IsIcon b) =>
a
-> Maybe (b)
-> m ()
tabPageSetIcon :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabPage a, IsIcon b) =>
a -> Maybe b -> m ()
tabPageSetIcon a
self Maybe b
icon = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Icon
maybeIcon <- case Maybe b
icon of
Maybe b
Nothing -> Ptr Icon -> IO (Ptr Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Icon
forall a. Ptr a
nullPtr
Just b
jIcon -> do
Ptr Icon
jIcon' <- b -> IO (Ptr Icon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jIcon
Ptr Icon -> IO (Ptr Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Icon
jIcon'
Ptr TabPage -> Ptr Icon -> IO ()
hdy_tab_page_set_icon Ptr TabPage
self' Ptr Icon
maybeIcon
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
icon b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabPageSetIconMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTabPage a, Gio.Icon.IsIcon b) => O.OverloadedMethod TabPageSetIconMethodInfo a signature where
overloadedMethod = tabPageSetIcon
instance O.OverloadedMethodInfo TabPageSetIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageSetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageSetIcon"
})
#endif
foreign import ccall "hdy_tab_page_set_indicator_activatable" hdy_tab_page_set_indicator_activatable ::
Ptr TabPage ->
CInt ->
IO ()
tabPageSetIndicatorActivatable ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> Bool
-> m ()
tabPageSetIndicatorActivatable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> Bool -> m ()
tabPageSetIndicatorActivatable a
self Bool
activatable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let activatable' :: CInt
activatable' = (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
activatable
Ptr TabPage -> CInt -> IO ()
hdy_tab_page_set_indicator_activatable Ptr TabPage
self' CInt
activatable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabPageSetIndicatorActivatableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageSetIndicatorActivatableMethodInfo a signature where
overloadedMethod = tabPageSetIndicatorActivatable
instance O.OverloadedMethodInfo TabPageSetIndicatorActivatableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageSetIndicatorActivatable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageSetIndicatorActivatable"
})
#endif
foreign import ccall "hdy_tab_page_set_indicator_icon" hdy_tab_page_set_indicator_icon ::
Ptr TabPage ->
Ptr Gio.Icon.Icon ->
IO ()
tabPageSetIndicatorIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a, Gio.Icon.IsIcon b) =>
a
-> Maybe (b)
-> m ()
tabPageSetIndicatorIcon :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTabPage a, IsIcon b) =>
a -> Maybe b -> m ()
tabPageSetIndicatorIcon a
self Maybe b
indicatorIcon = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Icon
maybeIndicatorIcon <- case Maybe b
indicatorIcon of
Maybe b
Nothing -> Ptr Icon -> IO (Ptr Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Icon
forall a. Ptr a
nullPtr
Just b
jIndicatorIcon -> do
Ptr Icon
jIndicatorIcon' <- b -> IO (Ptr Icon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jIndicatorIcon
Ptr Icon -> IO (Ptr Icon)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Icon
jIndicatorIcon'
Ptr TabPage -> Ptr Icon -> IO ()
hdy_tab_page_set_indicator_icon Ptr TabPage
self' Ptr Icon
maybeIndicatorIcon
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
indicatorIcon b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabPageSetIndicatorIconMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTabPage a, Gio.Icon.IsIcon b) => O.OverloadedMethod TabPageSetIndicatorIconMethodInfo a signature where
overloadedMethod = tabPageSetIndicatorIcon
instance O.OverloadedMethodInfo TabPageSetIndicatorIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageSetIndicatorIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageSetIndicatorIcon"
})
#endif
foreign import ccall "hdy_tab_page_set_loading" hdy_tab_page_set_loading ::
Ptr TabPage ->
CInt ->
IO ()
tabPageSetLoading ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> Bool
-> m ()
tabPageSetLoading :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> Bool -> m ()
tabPageSetLoading a
self Bool
loading = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let loading' :: CInt
loading' = (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
loading
Ptr TabPage -> CInt -> IO ()
hdy_tab_page_set_loading Ptr TabPage
self' CInt
loading'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabPageSetLoadingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageSetLoadingMethodInfo a signature where
overloadedMethod = tabPageSetLoading
instance O.OverloadedMethodInfo TabPageSetLoadingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageSetLoading",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageSetLoading"
})
#endif
foreign import ccall "hdy_tab_page_set_needs_attention" hdy_tab_page_set_needs_attention ::
Ptr TabPage ->
CInt ->
IO ()
tabPageSetNeedsAttention ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> Bool
-> m ()
tabPageSetNeedsAttention :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> Bool -> m ()
tabPageSetNeedsAttention a
self Bool
needsAttention = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let needsAttention' :: CInt
needsAttention' = (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
needsAttention
Ptr TabPage -> CInt -> IO ()
hdy_tab_page_set_needs_attention Ptr TabPage
self' CInt
needsAttention'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabPageSetNeedsAttentionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageSetNeedsAttentionMethodInfo a signature where
overloadedMethod = tabPageSetNeedsAttention
instance O.OverloadedMethodInfo TabPageSetNeedsAttentionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageSetNeedsAttention",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageSetNeedsAttention"
})
#endif
foreign import ccall "hdy_tab_page_set_title" hdy_tab_page_set_title ::
Ptr TabPage ->
CString ->
IO ()
tabPageSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> Maybe (T.Text)
-> m ()
tabPageSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> Maybe Text -> m ()
tabPageSetTitle a
self Maybe Text
title = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeTitle <- case Maybe Text
title of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jTitle -> do
CString
jTitle' <- Text -> IO CString
textToCString Text
jTitle
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTitle'
Ptr TabPage -> CString -> IO ()
hdy_tab_page_set_title Ptr TabPage
self' CString
maybeTitle
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeTitle
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabPageSetTitleMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageSetTitleMethodInfo a signature where
overloadedMethod = tabPageSetTitle
instance O.OverloadedMethodInfo TabPageSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageSetTitle"
})
#endif
foreign import ccall "hdy_tab_page_set_tooltip" hdy_tab_page_set_tooltip ::
Ptr TabPage ->
CString ->
IO ()
tabPageSetTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsTabPage a) =>
a
-> Maybe (T.Text)
-> m ()
tabPageSetTooltip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTabPage a) =>
a -> Maybe Text -> m ()
tabPageSetTooltip a
self Maybe Text
tooltip = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TabPage
self' <- a -> IO (Ptr TabPage)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeTooltip <- case Maybe Text
tooltip of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jTooltip -> do
CString
jTooltip' <- Text -> IO CString
textToCString Text
jTooltip
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTooltip'
Ptr TabPage -> CString -> IO ()
hdy_tab_page_set_tooltip Ptr TabPage
self' CString
maybeTooltip
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeTooltip
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TabPageSetTooltipMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsTabPage a) => O.OverloadedMethod TabPageSetTooltipMethodInfo a signature where
overloadedMethod = tabPageSetTooltip
instance O.OverloadedMethodInfo TabPageSetTooltipMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Handy.Objects.TabPage.tabPageSetTooltip",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-handy-1.0.1/docs/GI-Handy-Objects-TabPage.html#v:tabPageSetTooltip"
})
#endif