module GI.Gtk.Objects.NumerableIcon
(
NumerableIcon(..) ,
NumerableIconK ,
toNumerableIcon ,
noNumerableIcon ,
numerableIconGetBackgroundGicon ,
numerableIconGetBackgroundIconName ,
numerableIconGetCount ,
numerableIconGetLabel ,
numerableIconGetStyleContext ,
numerableIconNew ,
numerableIconNewWithStyleContext ,
numerableIconSetBackgroundGicon ,
numerableIconSetBackgroundIconName ,
numerableIconSetCount ,
numerableIconSetLabel ,
numerableIconSetStyleContext ,
NumerableIconBackgroundIconPropertyInfo ,
constructNumerableIconBackgroundIcon ,
getNumerableIconBackgroundIcon ,
setNumerableIconBackgroundIcon ,
NumerableIconBackgroundIconNamePropertyInfo,
constructNumerableIconBackgroundIconName,
getNumerableIconBackgroundIconName ,
setNumerableIconBackgroundIconName ,
NumerableIconCountPropertyInfo ,
constructNumerableIconCount ,
getNumerableIconCount ,
setNumerableIconCount ,
NumerableIconLabelPropertyInfo ,
constructNumerableIconLabel ,
getNumerableIconLabel ,
setNumerableIconLabel ,
NumerableIconStyleContextPropertyInfo ,
constructNumerableIconStyleContext ,
getNumerableIconStyleContext ,
setNumerableIconStyleContext ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GObject as GObject
import qualified GI.Gio as Gio
newtype NumerableIcon = NumerableIcon (ForeignPtr NumerableIcon)
foreign import ccall "gtk_numerable_icon_get_type"
c_gtk_numerable_icon_get_type :: IO GType
type instance ParentTypes NumerableIcon = NumerableIconParentTypes
type NumerableIconParentTypes = '[Gio.EmblemedIcon, GObject.Object, Gio.Icon]
instance GObject NumerableIcon where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gtk_numerable_icon_get_type
class GObject o => NumerableIconK o
instance (GObject o, IsDescendantOf NumerableIcon o) => NumerableIconK o
toNumerableIcon :: NumerableIconK o => o -> IO NumerableIcon
toNumerableIcon = unsafeCastTo NumerableIcon
noNumerableIcon :: Maybe NumerableIcon
noNumerableIcon = Nothing
getNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o) => o -> m Gio.Icon
getNumerableIconBackgroundIcon obj = liftIO $ getObjectPropertyObject obj "background-icon" Gio.Icon
setNumerableIconBackgroundIcon :: (MonadIO m, NumerableIconK o, Gio.IconK a) => o -> a -> m ()
setNumerableIconBackgroundIcon obj val = liftIO $ setObjectPropertyObject obj "background-icon" val
constructNumerableIconBackgroundIcon :: (Gio.IconK a) => a -> IO ([Char], GValue)
constructNumerableIconBackgroundIcon val = constructObjectPropertyObject "background-icon" val
data NumerableIconBackgroundIconPropertyInfo
instance AttrInfo NumerableIconBackgroundIconPropertyInfo where
type AttrAllowedOps NumerableIconBackgroundIconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint NumerableIconBackgroundIconPropertyInfo = Gio.IconK
type AttrBaseTypeConstraint NumerableIconBackgroundIconPropertyInfo = NumerableIconK
type AttrGetType NumerableIconBackgroundIconPropertyInfo = Gio.Icon
type AttrLabel NumerableIconBackgroundIconPropertyInfo = "NumerableIcon::background-icon"
attrGet _ = getNumerableIconBackgroundIcon
attrSet _ = setNumerableIconBackgroundIcon
attrConstruct _ = constructNumerableIconBackgroundIcon
getNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> m T.Text
getNumerableIconBackgroundIconName obj = liftIO $ getObjectPropertyString obj "background-icon-name"
setNumerableIconBackgroundIconName :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m ()
setNumerableIconBackgroundIconName obj val = liftIO $ setObjectPropertyString obj "background-icon-name" val
constructNumerableIconBackgroundIconName :: T.Text -> IO ([Char], GValue)
constructNumerableIconBackgroundIconName val = constructObjectPropertyString "background-icon-name" val
data NumerableIconBackgroundIconNamePropertyInfo
instance AttrInfo NumerableIconBackgroundIconNamePropertyInfo where
type AttrAllowedOps NumerableIconBackgroundIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint NumerableIconBackgroundIconNamePropertyInfo = NumerableIconK
type AttrGetType NumerableIconBackgroundIconNamePropertyInfo = T.Text
type AttrLabel NumerableIconBackgroundIconNamePropertyInfo = "NumerableIcon::background-icon-name"
attrGet _ = getNumerableIconBackgroundIconName
attrSet _ = setNumerableIconBackgroundIconName
attrConstruct _ = constructNumerableIconBackgroundIconName
getNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> m Int32
getNumerableIconCount obj = liftIO $ getObjectPropertyCInt obj "count"
setNumerableIconCount :: (MonadIO m, NumerableIconK o) => o -> Int32 -> m ()
setNumerableIconCount obj val = liftIO $ setObjectPropertyCInt obj "count" val
constructNumerableIconCount :: Int32 -> IO ([Char], GValue)
constructNumerableIconCount val = constructObjectPropertyCInt "count" val
data NumerableIconCountPropertyInfo
instance AttrInfo NumerableIconCountPropertyInfo where
type AttrAllowedOps NumerableIconCountPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint NumerableIconCountPropertyInfo = (~) Int32
type AttrBaseTypeConstraint NumerableIconCountPropertyInfo = NumerableIconK
type AttrGetType NumerableIconCountPropertyInfo = Int32
type AttrLabel NumerableIconCountPropertyInfo = "NumerableIcon::count"
attrGet _ = getNumerableIconCount
attrSet _ = setNumerableIconCount
attrConstruct _ = constructNumerableIconCount
getNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> m T.Text
getNumerableIconLabel obj = liftIO $ getObjectPropertyString obj "label"
setNumerableIconLabel :: (MonadIO m, NumerableIconK o) => o -> T.Text -> m ()
setNumerableIconLabel obj val = liftIO $ setObjectPropertyString obj "label" val
constructNumerableIconLabel :: T.Text -> IO ([Char], GValue)
constructNumerableIconLabel val = constructObjectPropertyString "label" val
data NumerableIconLabelPropertyInfo
instance AttrInfo NumerableIconLabelPropertyInfo where
type AttrAllowedOps NumerableIconLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint NumerableIconLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint NumerableIconLabelPropertyInfo = NumerableIconK
type AttrGetType NumerableIconLabelPropertyInfo = T.Text
type AttrLabel NumerableIconLabelPropertyInfo = "NumerableIcon::label"
attrGet _ = getNumerableIconLabel
attrSet _ = setNumerableIconLabel
attrConstruct _ = constructNumerableIconLabel
getNumerableIconStyleContext :: (MonadIO m, NumerableIconK o) => o -> m StyleContext
getNumerableIconStyleContext obj = liftIO $ getObjectPropertyObject obj "style-context" StyleContext
setNumerableIconStyleContext :: (MonadIO m, NumerableIconK o, StyleContextK a) => o -> a -> m ()
setNumerableIconStyleContext obj val = liftIO $ setObjectPropertyObject obj "style-context" val
constructNumerableIconStyleContext :: (StyleContextK a) => a -> IO ([Char], GValue)
constructNumerableIconStyleContext val = constructObjectPropertyObject "style-context" val
data NumerableIconStyleContextPropertyInfo
instance AttrInfo NumerableIconStyleContextPropertyInfo where
type AttrAllowedOps NumerableIconStyleContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint NumerableIconStyleContextPropertyInfo = StyleContextK
type AttrBaseTypeConstraint NumerableIconStyleContextPropertyInfo = NumerableIconK
type AttrGetType NumerableIconStyleContextPropertyInfo = StyleContext
type AttrLabel NumerableIconStyleContextPropertyInfo = "NumerableIcon::style-context"
attrGet _ = getNumerableIconStyleContext
attrSet _ = setNumerableIconStyleContext
attrConstruct _ = constructNumerableIconStyleContext
type instance AttributeList NumerableIcon = NumerableIconAttributeList
type NumerableIconAttributeList = ('[ '("background-icon", NumerableIconBackgroundIconPropertyInfo), '("background-icon-name", NumerableIconBackgroundIconNamePropertyInfo), '("count", NumerableIconCountPropertyInfo), '("gicon", Gio.EmblemedIconGiconPropertyInfo), '("label", NumerableIconLabelPropertyInfo), '("style-context", NumerableIconStyleContextPropertyInfo)] :: [(Symbol, *)])
type instance SignalList NumerableIcon = NumerableIconSignalList
type NumerableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_numerable_icon_get_background_gicon" gtk_numerable_icon_get_background_gicon ::
Ptr NumerableIcon ->
IO (Ptr Gio.Icon)
numerableIconGetBackgroundGicon ::
(MonadIO m, NumerableIconK a) =>
a ->
m Gio.Icon
numerableIconGetBackgroundGicon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_background_gicon _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_background_gicon" result
result' <- (newObject Gio.Icon) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_numerable_icon_get_background_icon_name" gtk_numerable_icon_get_background_icon_name ::
Ptr NumerableIcon ->
IO CString
numerableIconGetBackgroundIconName ::
(MonadIO m, NumerableIconK a) =>
a ->
m T.Text
numerableIconGetBackgroundIconName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_background_icon_name _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_background_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_numerable_icon_get_count" gtk_numerable_icon_get_count ::
Ptr NumerableIcon ->
IO Int32
numerableIconGetCount ::
(MonadIO m, NumerableIconK a) =>
a ->
m Int32
numerableIconGetCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_count _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_numerable_icon_get_label" gtk_numerable_icon_get_label ::
Ptr NumerableIcon ->
IO CString
numerableIconGetLabel ::
(MonadIO m, NumerableIconK a) =>
a ->
m T.Text
numerableIconGetLabel _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_label _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_label" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_numerable_icon_get_style_context" gtk_numerable_icon_get_style_context ::
Ptr NumerableIcon ->
IO (Ptr StyleContext)
numerableIconGetStyleContext ::
(MonadIO m, NumerableIconK a) =>
a ->
m StyleContext
numerableIconGetStyleContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_numerable_icon_get_style_context _obj'
checkUnexpectedReturnNULL "gtk_numerable_icon_get_style_context" result
result' <- (newObject StyleContext) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_numerable_icon_set_background_gicon" gtk_numerable_icon_set_background_gicon ::
Ptr NumerableIcon ->
Ptr Gio.Icon ->
IO ()
numerableIconSetBackgroundGicon ::
(MonadIO m, NumerableIconK a, Gio.IconK b) =>
a ->
Maybe (b) ->
m ()
numerableIconSetBackgroundGicon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon <- case icon of
Nothing -> return nullPtr
Just jIcon -> do
let jIcon' = unsafeManagedPtrCastPtr jIcon
return jIcon'
gtk_numerable_icon_set_background_gicon _obj' maybeIcon
touchManagedPtr _obj
whenJust icon touchManagedPtr
return ()
foreign import ccall "gtk_numerable_icon_set_background_icon_name" gtk_numerable_icon_set_background_icon_name ::
Ptr NumerableIcon ->
CString ->
IO ()
numerableIconSetBackgroundIconName ::
(MonadIO m, NumerableIconK a) =>
a ->
Maybe (T.Text) ->
m ()
numerableIconSetBackgroundIconName _obj icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_numerable_icon_set_background_icon_name _obj' maybeIcon_name
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
foreign import ccall "gtk_numerable_icon_set_count" gtk_numerable_icon_set_count ::
Ptr NumerableIcon ->
Int32 ->
IO ()
numerableIconSetCount ::
(MonadIO m, NumerableIconK a) =>
a ->
Int32 ->
m ()
numerableIconSetCount _obj count = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_numerable_icon_set_count _obj' count
touchManagedPtr _obj
return ()
foreign import ccall "gtk_numerable_icon_set_label" gtk_numerable_icon_set_label ::
Ptr NumerableIcon ->
CString ->
IO ()
numerableIconSetLabel ::
(MonadIO m, NumerableIconK a) =>
a ->
Maybe (T.Text) ->
m ()
numerableIconSetLabel _obj label = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
gtk_numerable_icon_set_label _obj' maybeLabel
touchManagedPtr _obj
freeMem maybeLabel
return ()
foreign import ccall "gtk_numerable_icon_set_style_context" gtk_numerable_icon_set_style_context ::
Ptr NumerableIcon ->
Ptr StyleContext ->
IO ()
numerableIconSetStyleContext ::
(MonadIO m, NumerableIconK a, StyleContextK b) =>
a ->
b ->
m ()
numerableIconSetStyleContext _obj style = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let style' = unsafeManagedPtrCastPtr style
gtk_numerable_icon_set_style_context _obj' style'
touchManagedPtr _obj
touchManagedPtr style
return ()
foreign import ccall "gtk_numerable_icon_new" gtk_numerable_icon_new ::
Ptr Gio.Icon ->
IO (Ptr Gio.Icon)
numerableIconNew ::
(MonadIO m, Gio.IconK a) =>
a ->
m Gio.Icon
numerableIconNew base_icon = liftIO $ do
let base_icon' = unsafeManagedPtrCastPtr base_icon
result <- gtk_numerable_icon_new base_icon'
checkUnexpectedReturnNULL "gtk_numerable_icon_new" result
result' <- (wrapObject Gio.Icon) result
touchManagedPtr base_icon
return result'
foreign import ccall "gtk_numerable_icon_new_with_style_context" gtk_numerable_icon_new_with_style_context ::
Ptr Gio.Icon ->
Ptr StyleContext ->
IO (Ptr Gio.Icon)
numerableIconNewWithStyleContext ::
(MonadIO m, Gio.IconK a, StyleContextK b) =>
a ->
b ->
m Gio.Icon
numerableIconNewWithStyleContext base_icon context = liftIO $ do
let base_icon' = unsafeManagedPtrCastPtr base_icon
let context' = unsafeManagedPtrCastPtr context
result <- gtk_numerable_icon_new_with_style_context base_icon' context'
checkUnexpectedReturnNULL "gtk_numerable_icon_new_with_style_context" result
result' <- (wrapObject Gio.Icon) result
touchManagedPtr base_icon
touchManagedPtr context
return result'