module GI.Gtk.Objects.NumerableIcon
(
NumerableIcon(..) ,
IsNumerableIcon ,
toNumerableIcon ,
noNumerableIcon ,
NumerableIconGetBackgroundGiconMethodInfo,
numerableIconGetBackgroundGicon ,
NumerableIconGetBackgroundIconNameMethodInfo,
numerableIconGetBackgroundIconName ,
NumerableIconGetCountMethodInfo ,
numerableIconGetCount ,
NumerableIconGetLabelMethodInfo ,
numerableIconGetLabel ,
NumerableIconGetStyleContextMethodInfo ,
numerableIconGetStyleContext ,
numerableIconNew ,
numerableIconNewWithStyleContext ,
NumerableIconSetBackgroundGiconMethodInfo,
numerableIconSetBackgroundGicon ,
NumerableIconSetBackgroundIconNameMethodInfo,
numerableIconSetBackgroundIconName ,
NumerableIconSetCountMethodInfo ,
numerableIconSetCount ,
NumerableIconSetLabelMethodInfo ,
numerableIconSetLabel ,
NumerableIconSetStyleContextMethodInfo ,
numerableIconSetStyleContext ,
NumerableIconBackgroundIconPropertyInfo ,
clearNumerableIconBackgroundIcon ,
constructNumerableIconBackgroundIcon ,
getNumerableIconBackgroundIcon ,
numerableIconBackgroundIcon ,
setNumerableIconBackgroundIcon ,
NumerableIconBackgroundIconNamePropertyInfo,
clearNumerableIconBackgroundIconName ,
constructNumerableIconBackgroundIconName,
getNumerableIconBackgroundIconName ,
numerableIconBackgroundIconName ,
setNumerableIconBackgroundIconName ,
NumerableIconCountPropertyInfo ,
constructNumerableIconCount ,
getNumerableIconCount ,
numerableIconCount ,
setNumerableIconCount ,
NumerableIconLabelPropertyInfo ,
clearNumerableIconLabel ,
constructNumerableIconLabel ,
getNumerableIconLabel ,
numerableIconLabel ,
setNumerableIconLabel ,
NumerableIconStyleContextPropertyInfo ,
constructNumerableIconStyleContext ,
getNumerableIconStyleContext ,
numerableIconStyleContext ,
setNumerableIconStyleContext ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Objects.EmblemedIcon as Gio.EmblemedIcon
import qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
newtype NumerableIcon = NumerableIcon (ManagedPtr NumerableIcon)
foreign import ccall "gtk_numerable_icon_get_type"
c_gtk_numerable_icon_get_type :: IO GType
instance GObject NumerableIcon where
gobjectType _ = c_gtk_numerable_icon_get_type
class GObject o => IsNumerableIcon o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError NumerableIcon a) =>
IsNumerableIcon a
#endif
instance IsNumerableIcon NumerableIcon
instance Gio.EmblemedIcon.IsEmblemedIcon NumerableIcon
instance GObject.Object.IsObject NumerableIcon
instance Gio.Icon.IsIcon NumerableIcon
toNumerableIcon :: IsNumerableIcon o => o -> IO NumerableIcon
toNumerableIcon = unsafeCastTo NumerableIcon
noNumerableIcon :: Maybe NumerableIcon
noNumerableIcon = Nothing
type family ResolveNumerableIconMethod (t :: Symbol) (o :: *) :: * where
ResolveNumerableIconMethod "addEmblem" o = Gio.EmblemedIcon.EmblemedIconAddEmblemMethodInfo
ResolveNumerableIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveNumerableIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveNumerableIconMethod "clearEmblems" o = Gio.EmblemedIcon.EmblemedIconClearEmblemsMethodInfo
ResolveNumerableIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo
ResolveNumerableIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveNumerableIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveNumerableIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveNumerableIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveNumerableIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveNumerableIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveNumerableIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveNumerableIconMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveNumerableIconMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveNumerableIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveNumerableIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo
ResolveNumerableIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveNumerableIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveNumerableIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveNumerableIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo
ResolveNumerableIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveNumerableIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveNumerableIconMethod "getBackgroundGicon" o = NumerableIconGetBackgroundGiconMethodInfo
ResolveNumerableIconMethod "getBackgroundIconName" o = NumerableIconGetBackgroundIconNameMethodInfo
ResolveNumerableIconMethod "getCount" o = NumerableIconGetCountMethodInfo
ResolveNumerableIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveNumerableIconMethod "getEmblems" o = Gio.EmblemedIcon.EmblemedIconGetEmblemsMethodInfo
ResolveNumerableIconMethod "getIcon" o = Gio.EmblemedIcon.EmblemedIconGetIconMethodInfo
ResolveNumerableIconMethod "getLabel" o = NumerableIconGetLabelMethodInfo
ResolveNumerableIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveNumerableIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveNumerableIconMethod "getStyleContext" o = NumerableIconGetStyleContextMethodInfo
ResolveNumerableIconMethod "setBackgroundGicon" o = NumerableIconSetBackgroundGiconMethodInfo
ResolveNumerableIconMethod "setBackgroundIconName" o = NumerableIconSetBackgroundIconNameMethodInfo
ResolveNumerableIconMethod "setCount" o = NumerableIconSetCountMethodInfo
ResolveNumerableIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveNumerableIconMethod "setLabel" o = NumerableIconSetLabelMethodInfo
ResolveNumerableIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveNumerableIconMethod "setStyleContext" o = NumerableIconSetStyleContextMethodInfo
ResolveNumerableIconMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveNumerableIconMethod t NumerableIcon, O.MethodInfo info NumerableIcon p) => O.IsLabelProxy t (NumerableIcon -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveNumerableIconMethod t NumerableIcon, O.MethodInfo info NumerableIcon p) => O.IsLabel t (NumerableIcon -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getNumerableIconBackgroundIcon :: (MonadIO m, IsNumerableIcon o) => o -> m (Maybe Gio.Icon.Icon)
getNumerableIconBackgroundIcon obj = liftIO $ getObjectPropertyObject obj "background-icon" Gio.Icon.Icon
setNumerableIconBackgroundIcon :: (MonadIO m, IsNumerableIcon o, Gio.Icon.IsIcon a) => o -> a -> m ()
setNumerableIconBackgroundIcon obj val = liftIO $ setObjectPropertyObject obj "background-icon" (Just val)
constructNumerableIconBackgroundIcon :: (IsNumerableIcon o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o)
constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" (Just val)
clearNumerableIconBackgroundIcon :: (MonadIO m, IsNumerableIcon o) => o -> m ()
clearNumerableIconBackgroundIcon obj = liftIO $ setObjectPropertyObject obj "background-icon" (Nothing :: Maybe Gio.Icon.Icon)
data NumerableIconBackgroundIconPropertyInfo
instance AttrInfo NumerableIconBackgroundIconPropertyInfo where
type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.Icon.IsIcon
type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = IsNumerableIcon
type AttrGetType NumerableIconBackgroundIconPropertyInfo = (Maybe Gio.Icon.Icon)
type AttrLabel NumerableIconBackgroundIconPropertyInfo = "background-icon"
type AttrOrigin NumerableIconBackgroundIconPropertyInfo = NumerableIcon
attrGet _ = getNumerableIconBackgroundIcon
attrSet _ = setNumerableIconBackgroundIcon
attrConstruct _ = constructNumerableIconBackgroundIcon
attrClear _ = clearNumerableIconBackgroundIcon
getNumerableIconBackgroundIconName :: (MonadIO m, IsNumerableIcon o) => o -> m (Maybe T.Text)
getNumerableIconBackgroundIconName obj = liftIO $ getObjectPropertyString obj "background-icon-name"
setNumerableIconBackgroundIconName :: (MonadIO m, IsNumerableIcon o) => o -> T.Text -> m ()
setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" (Just val)
constructNumerableIconBackgroundIconName :: (IsNumerableIcon o) => T.Text -> IO (GValueConstruct o)
constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" (Just val)
clearNumerableIconBackgroundIconName :: (MonadIO m, IsNumerableIcon o) => o -> m ()
clearNumerableIconBackgroundIconName obj = liftIO $ setObjectPropertyString obj "background-icon-name" (Nothing :: Maybe T.Text)
data NumerableIconBackgroundIconNamePropertyInfo
instance AttrInfo NumerableIconBackgroundIconNamePropertyInfo where
type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = IsNumerableIcon
type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel NumerableIconBackgroundIconNamePropertyInfo = "background-icon-name"
type AttrOrigin NumerableIconBackgroundIconNamePropertyInfo = NumerableIcon
attrGet _ = getNumerableIconBackgroundIconName
attrSet _ = setNumerableIconBackgroundIconName
attrConstruct _ = constructNumerableIconBackgroundIconName
attrClear _ = clearNumerableIconBackgroundIconName
getNumerableIconCount :: (MonadIO m, IsNumerableIcon o) => o -> m Int32
getNumerableIconCount obj = liftIO $ getObjectPropertyInt32 obj "count"
setNumerableIconCount :: (MonadIO m, IsNumerableIcon o) => o -> Int32 -> m ()
setNumerableIconCount obj val = liftIO $ setObjectPropertyInt32 obj "count" val
constructNumerableIconCount :: (IsNumerableIcon o) => Int32 -> IO (GValueConstruct o)
constructNumerableIconCount val = constructObjectPropertyInt32 "count" val
data NumerableIconCountPropertyInfo
instance AttrInfo NumerableIconCountPropertyInfo where
type AttrAllowedOps NumerableIconCountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint NumerableIconCountPropertyInfo = (~) Int32
type AttrBaseTypeConstraint NumerableIconCountPropertyInfo = IsNumerableIcon
type AttrGetType NumerableIconCountPropertyInfo = Int32
type AttrLabel NumerableIconCountPropertyInfo = "count"
type AttrOrigin NumerableIconCountPropertyInfo = NumerableIcon
attrGet _ = getNumerableIconCount
attrSet _ = setNumerableIconCount
attrConstruct _ = constructNumerableIconCount
attrClear _ = undefined
getNumerableIconLabel :: (MonadIO m, IsNumerableIcon o) => o -> m (Maybe T.Text)
getNumerableIconLabel obj = liftIO $ getObjectPropertyString obj "label"
setNumerableIconLabel :: (MonadIO m, IsNumerableIcon o) => o -> T.Text -> m ()
setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" (Just val)
constructNumerableIconLabel :: (IsNumerableIcon o) => T.Text -> IO (GValueConstruct o)
constructNumerableIconLabel val = constructObjectPropertyString "label" (Just val)
clearNumerableIconLabel :: (MonadIO m, IsNumerableIcon o) => o -> m ()
clearNumerableIconLabel obj = liftIO $ setObjectPropertyString obj "label" (Nothing :: Maybe T.Text)
data NumerableIconLabelPropertyInfo
instance AttrInfo NumerableIconLabelPropertyInfo where
type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = IsNumerableIcon
type AttrGetType NumerableIconLabelPropertyInfo = (Maybe T.Text)
type AttrLabel NumerableIconLabelPropertyInfo = "label"
type AttrOrigin NumerableIconLabelPropertyInfo = NumerableIcon
attrGet _ = getNumerableIconLabel
attrSet _ = setNumerableIconLabel
attrConstruct _ = constructNumerableIconLabel
attrClear _ = clearNumerableIconLabel
getNumerableIconStyleContext :: (MonadIO m, IsNumerableIcon o) => o -> m (Maybe Gtk.StyleContext.StyleContext)
getNumerableIconStyleContext obj = liftIO $ getObjectPropertyObject obj "style-context" Gtk.StyleContext.StyleContext
setNumerableIconStyleContext :: (MonadIO m, IsNumerableIcon o, Gtk.StyleContext.IsStyleContext a) => o -> a -> m ()
setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" (Just val)
constructNumerableIconStyleContext :: (IsNumerableIcon o, Gtk.StyleContext.IsStyleContext a) => a -> IO (GValueConstruct o)
constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" (Just val)
data NumerableIconStyleContextPropertyInfo
instance AttrInfo NumerableIconStyleContextPropertyInfo where
type AttrAllowedOps NumerableIconStyleContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint NumerableIconStyleContextPropertyInfo = Gtk.StyleContext.IsStyleContext
type AttrBaseTypeConstraint NumerableIconStyleContextPropertyInfo = IsNumerableIcon
type AttrGetType NumerableIconStyleContextPropertyInfo = (Maybe Gtk.StyleContext.StyleContext)
type AttrLabel NumerableIconStyleContextPropertyInfo = "style-context"
type AttrOrigin NumerableIconStyleContextPropertyInfo = NumerableIcon
attrGet _ = getNumerableIconStyleContext
attrSet _ = setNumerableIconStyleContext
attrConstruct _ = constructNumerableIconStyleContext
attrClear _ = undefined
instance O.HasAttributeList NumerableIcon
type instance O.AttributeList NumerableIcon = NumerableIconAttributeList
type NumerableIconAttributeList = ('[ '("backgroundIcon", NumerableIconBackgroundIconPropertyInfo), '("backgroundIconName", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIcon.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("styleContext", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)])
numerableIconBackgroundIcon :: AttrLabelProxy "backgroundIcon"
numerableIconBackgroundIcon = AttrLabelProxy
numerableIconBackgroundIconName :: AttrLabelProxy "backgroundIconName"
numerableIconBackgroundIconName = AttrLabelProxy
numerableIconCount :: AttrLabelProxy "count"
numerableIconCount = AttrLabelProxy
numerableIconLabel :: AttrLabelProxy "label"
numerableIconLabel = AttrLabelProxy
numerableIconStyleContext :: AttrLabelProxy "styleContext"
numerableIconStyleContext = AttrLabelProxy
type instance O.SignalList NumerableIcon = NumerableIconSignalList
type NumerableIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_numerable_icon_get_background_gicon" gtk_numerable_icon_get_background_gicon ::
Ptr NumerableIcon ->
IO (Ptr Gio.Icon.Icon)
numerableIconGetBackgroundGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> m (Maybe Gio.Icon.Icon)
numerableIconGetBackgroundGicon self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- gtk_numerable_icon_get_background_gicon self'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gio.Icon.Icon) result'
return result''
touchManagedPtr self
return maybeResult
data NumerableIconGetBackgroundGiconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconGetBackgroundGiconMethodInfo a signature where
overloadedMethod _ = numerableIconGetBackgroundGicon
foreign import ccall "gtk_numerable_icon_get_background_icon_name" gtk_numerable_icon_get_background_icon_name ::
Ptr NumerableIcon ->
IO CString
numerableIconGetBackgroundIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> m (Maybe T.Text)
numerableIconGetBackgroundIconName self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- gtk_numerable_icon_get_background_icon_name self'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr self
return maybeResult
data NumerableIconGetBackgroundIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconGetBackgroundIconNameMethodInfo a signature where
overloadedMethod _ = numerableIconGetBackgroundIconName
foreign import ccall "gtk_numerable_icon_get_count" gtk_numerable_icon_get_count ::
Ptr NumerableIcon ->
IO Int32
numerableIconGetCount ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> m Int32
numerableIconGetCount self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- gtk_numerable_icon_get_count self'
touchManagedPtr self
return result
data NumerableIconGetCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconGetCountMethodInfo a signature where
overloadedMethod _ = numerableIconGetCount
foreign import ccall "gtk_numerable_icon_get_label" gtk_numerable_icon_get_label ::
Ptr NumerableIcon ->
IO CString
numerableIconGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> m (Maybe T.Text)
numerableIconGetLabel self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- gtk_numerable_icon_get_label self'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr self
return maybeResult
data NumerableIconGetLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconGetLabelMethodInfo a signature where
overloadedMethod _ = numerableIconGetLabel
foreign import ccall "gtk_numerable_icon_get_style_context" gtk_numerable_icon_get_style_context ::
Ptr NumerableIcon ->
IO (Ptr Gtk.StyleContext.StyleContext)
numerableIconGetStyleContext ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> m (Maybe Gtk.StyleContext.StyleContext)
numerableIconGetStyleContext self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- gtk_numerable_icon_get_style_context self'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.StyleContext.StyleContext) result'
return result''
touchManagedPtr self
return maybeResult
data NumerableIconGetStyleContextMethodInfo
instance (signature ~ (m (Maybe Gtk.StyleContext.StyleContext)), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconGetStyleContextMethodInfo a signature where
overloadedMethod _ = numerableIconGetStyleContext
foreign import ccall "gtk_numerable_icon_set_background_gicon" gtk_numerable_icon_set_background_gicon ::
Ptr NumerableIcon ->
Ptr Gio.Icon.Icon ->
IO ()
numerableIconSetBackgroundGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a, Gio.Icon.IsIcon b) =>
a
-> Maybe (b)
-> m ()
numerableIconSetBackgroundGicon self icon = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
maybeIcon <- case icon of
Nothing -> return nullPtr
Just jIcon -> do
jIcon' <- unsafeManagedPtrCastPtr jIcon
return jIcon'
gtk_numerable_icon_set_background_gicon self' maybeIcon
touchManagedPtr self
whenJust icon touchManagedPtr
return ()
data NumerableIconSetBackgroundGiconMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsNumerableIcon a, Gio.Icon.IsIcon b) => O.MethodInfo NumerableIconSetBackgroundGiconMethodInfo a signature where
overloadedMethod _ = numerableIconSetBackgroundGicon
foreign import ccall "gtk_numerable_icon_set_background_icon_name" gtk_numerable_icon_set_background_icon_name ::
Ptr NumerableIcon ->
CString ->
IO ()
numerableIconSetBackgroundIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> Maybe (T.Text)
-> m ()
numerableIconSetBackgroundIconName self iconName = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
maybeIconName <- case iconName of
Nothing -> return nullPtr
Just jIconName -> do
jIconName' <- textToCString jIconName
return jIconName'
gtk_numerable_icon_set_background_icon_name self' maybeIconName
touchManagedPtr self
freeMem maybeIconName
return ()
data NumerableIconSetBackgroundIconNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconSetBackgroundIconNameMethodInfo a signature where
overloadedMethod _ = numerableIconSetBackgroundIconName
foreign import ccall "gtk_numerable_icon_set_count" gtk_numerable_icon_set_count ::
Ptr NumerableIcon ->
Int32 ->
IO ()
numerableIconSetCount ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> Int32
-> m ()
numerableIconSetCount self count = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
gtk_numerable_icon_set_count self' count
touchManagedPtr self
return ()
data NumerableIconSetCountMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconSetCountMethodInfo a signature where
overloadedMethod _ = numerableIconSetCount
foreign import ccall "gtk_numerable_icon_set_label" gtk_numerable_icon_set_label ::
Ptr NumerableIcon ->
CString ->
IO ()
numerableIconSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a) =>
a
-> Maybe (T.Text)
-> m ()
numerableIconSetLabel self label = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_numerable_icon_set_label self' maybeLabel
touchManagedPtr self
freeMem maybeLabel
return ()
data NumerableIconSetLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsNumerableIcon a) => O.MethodInfo NumerableIconSetLabelMethodInfo a signature where
overloadedMethod _ = numerableIconSetLabel
foreign import ccall "gtk_numerable_icon_set_style_context" gtk_numerable_icon_set_style_context ::
Ptr NumerableIcon ->
Ptr Gtk.StyleContext.StyleContext ->
IO ()
numerableIconSetStyleContext ::
(B.CallStack.HasCallStack, MonadIO m, IsNumerableIcon a, Gtk.StyleContext.IsStyleContext b) =>
a
-> b
-> m ()
numerableIconSetStyleContext self style = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
style' <- unsafeManagedPtrCastPtr style
gtk_numerable_icon_set_style_context self' style'
touchManagedPtr self
touchManagedPtr style
return ()
data NumerableIconSetStyleContextMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsNumerableIcon a, Gtk.StyleContext.IsStyleContext b) => O.MethodInfo NumerableIconSetStyleContextMethodInfo a signature where
overloadedMethod _ = numerableIconSetStyleContext
foreign import ccall "gtk_numerable_icon_new" gtk_numerable_icon_new ::
Ptr Gio.Icon.Icon ->
IO (Ptr Gio.Icon.Icon)
numerableIconNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a) =>
a
-> m Gio.Icon.Icon
numerableIconNew baseIcon = liftIO $ do
baseIcon' <- unsafeManagedPtrCastPtr baseIcon
result <- gtk_numerable_icon_new baseIcon'
checkUnexpectedReturnNULL "numerableIconNew" result
result' <- (wrapObject Gio.Icon.Icon) result
touchManagedPtr baseIcon
return result'
foreign import ccall "gtk_numerable_icon_new_with_style_context" gtk_numerable_icon_new_with_style_context ::
Ptr Gio.Icon.Icon ->
Ptr Gtk.StyleContext.StyleContext ->
IO (Ptr Gio.Icon.Icon)
numerableIconNewWithStyleContext ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a, Gtk.StyleContext.IsStyleContext b) =>
a
-> b
-> m Gio.Icon.Icon
numerableIconNewWithStyleContext baseIcon context = liftIO $ do
baseIcon' <- unsafeManagedPtrCastPtr baseIcon
context' <- unsafeManagedPtrCastPtr context
result <- gtk_numerable_icon_new_with_style_context baseIcon' context'
checkUnexpectedReturnNULL "numerableIconNewWithStyleContext" result
result' <- (wrapObject Gio.Icon.Icon) result
touchManagedPtr baseIcon
touchManagedPtr context
return result'