{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- t'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' is an implementation of t'GI.Gio.Interfaces.Icon.Icon' that supports
-- adding an emblem to an icon. Adding multiple emblems to an
-- icon is ensured via 'GI.Gio.Objects.EmblemedIcon.emblemedIconAddEmblem'.
-- 
-- Note that t'GI.Gio.Objects.EmblemedIcon.EmblemedIcon' allows no control over the position
-- of the emblems. See also t'GI.Gio.Objects.Emblem.Emblem' for more information.

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Gio.Objects.EmblemedIcon
    ( 

-- * Exported types
    EmblemedIcon(..)                        ,
    IsEmblemedIcon                          ,
    toEmblemedIcon                          ,


 -- * Methods
-- ** Overloaded methods #method:Overloaded methods#

#if defined(ENABLE_OVERLOADING)
    ResolveEmblemedIconMethod               ,
#endif


-- ** addEmblem #method:addEmblem#

#if defined(ENABLE_OVERLOADING)
    EmblemedIconAddEmblemMethodInfo         ,
#endif
    emblemedIconAddEmblem                   ,


-- ** clearEmblems #method:clearEmblems#

#if defined(ENABLE_OVERLOADING)
    EmblemedIconClearEmblemsMethodInfo      ,
#endif
    emblemedIconClearEmblems                ,


-- ** getEmblems #method:getEmblems#

#if defined(ENABLE_OVERLOADING)
    EmblemedIconGetEmblemsMethodInfo        ,
#endif
    emblemedIconGetEmblems                  ,


-- ** getIcon #method:getIcon#

#if defined(ENABLE_OVERLOADING)
    EmblemedIconGetIconMethodInfo           ,
#endif
    emblemedIconGetIcon                     ,


-- ** new #method:new#

    emblemedIconNew                         ,




 -- * Properties
-- ** gicon #attr:gicon#
-- | /No description available in the introspection data./

#if defined(ENABLE_OVERLOADING)
    EmblemedIconGiconPropertyInfo           ,
#endif
    constructEmblemedIconGicon              ,
#if defined(ENABLE_OVERLOADING)
    emblemedIconGicon                       ,
#endif
    getEmblemedIconGicon                    ,




    ) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL

import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Icon as Gio.Icon
import {-# SOURCE #-} qualified GI.Gio.Objects.Emblem as Gio.Emblem

-- | Memory-managed wrapper type.
newtype EmblemedIcon = EmblemedIcon (SP.ManagedPtr EmblemedIcon)
    deriving (EmblemedIcon -> EmblemedIcon -> Bool
(EmblemedIcon -> EmblemedIcon -> Bool)
-> (EmblemedIcon -> EmblemedIcon -> Bool) -> Eq EmblemedIcon
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EmblemedIcon -> EmblemedIcon -> Bool
$c/= :: EmblemedIcon -> EmblemedIcon -> Bool
== :: EmblemedIcon -> EmblemedIcon -> Bool
$c== :: EmblemedIcon -> EmblemedIcon -> Bool
Eq)

instance SP.ManagedPtrNewtype EmblemedIcon where
    toManagedPtr :: EmblemedIcon -> ManagedPtr EmblemedIcon
toManagedPtr (EmblemedIcon ManagedPtr EmblemedIcon
p) = ManagedPtr EmblemedIcon
p

foreign import ccall "g_emblemed_icon_get_type"
    c_g_emblemed_icon_get_type :: IO B.Types.GType

instance B.Types.TypedObject EmblemedIcon where
    glibType :: IO GType
glibType = IO GType
c_g_emblemed_icon_get_type

instance B.Types.GObject EmblemedIcon

-- | Convert 'EmblemedIcon' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue EmblemedIcon where
    toGValue :: EmblemedIcon -> IO GValue
toGValue EmblemedIcon
o = do
        GType
gtype <- IO GType
c_g_emblemed_icon_get_type
        EmblemedIcon -> (Ptr EmblemedIcon -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr EmblemedIcon
o (GType
-> (GValue -> Ptr EmblemedIcon -> IO ())
-> Ptr EmblemedIcon
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr EmblemedIcon -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
        
    fromGValue :: GValue -> IO EmblemedIcon
fromGValue GValue
gv = do
        Ptr EmblemedIcon
ptr <- GValue -> IO (Ptr EmblemedIcon)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr EmblemedIcon)
        (ManagedPtr EmblemedIcon -> EmblemedIcon)
-> Ptr EmblemedIcon -> IO EmblemedIcon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr EmblemedIcon -> EmblemedIcon
EmblemedIcon Ptr EmblemedIcon
ptr
        
    

-- | Type class for types which can be safely cast to `EmblemedIcon`, for instance with `toEmblemedIcon`.
class (SP.GObject o, O.IsDescendantOf EmblemedIcon o) => IsEmblemedIcon o
instance (SP.GObject o, O.IsDescendantOf EmblemedIcon o) => IsEmblemedIcon o

instance O.HasParentTypes EmblemedIcon
type instance O.ParentTypes EmblemedIcon = '[GObject.Object.Object, Gio.Icon.Icon]

-- | Cast to `EmblemedIcon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toEmblemedIcon :: (MonadIO m, IsEmblemedIcon o) => o -> m EmblemedIcon
toEmblemedIcon :: o -> m EmblemedIcon
toEmblemedIcon = IO EmblemedIcon -> m EmblemedIcon
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EmblemedIcon -> m EmblemedIcon)
-> (o -> IO EmblemedIcon) -> o -> m EmblemedIcon
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr EmblemedIcon -> EmblemedIcon) -> o -> IO EmblemedIcon
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr EmblemedIcon -> EmblemedIcon
EmblemedIcon

#if defined(ENABLE_OVERLOADING)
type family ResolveEmblemedIconMethod (t :: Symbol) (o :: *) :: * where
    ResolveEmblemedIconMethod "addEmblem" o = EmblemedIconAddEmblemMethodInfo
    ResolveEmblemedIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveEmblemedIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveEmblemedIconMethod "clearEmblems" o = EmblemedIconClearEmblemsMethodInfo
    ResolveEmblemedIconMethod "equal" o = Gio.Icon.IconEqualMethodInfo
    ResolveEmblemedIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveEmblemedIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveEmblemedIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveEmblemedIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveEmblemedIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveEmblemedIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveEmblemedIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveEmblemedIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveEmblemedIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveEmblemedIconMethod "serialize" o = Gio.Icon.IconSerializeMethodInfo
    ResolveEmblemedIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveEmblemedIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveEmblemedIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveEmblemedIconMethod "toString" o = Gio.Icon.IconToStringMethodInfo
    ResolveEmblemedIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveEmblemedIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveEmblemedIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveEmblemedIconMethod "getEmblems" o = EmblemedIconGetEmblemsMethodInfo
    ResolveEmblemedIconMethod "getIcon" o = EmblemedIconGetIconMethodInfo
    ResolveEmblemedIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveEmblemedIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveEmblemedIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveEmblemedIconMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveEmblemedIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveEmblemedIconMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveEmblemedIconMethod t EmblemedIcon, O.MethodInfo info EmblemedIcon p) => OL.IsLabel t (EmblemedIcon -> p) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.overloadedMethod @info
#else
    fromLabel _ = O.overloadedMethod @info
#endif

#endif

-- VVV Prop "gicon"
   -- Type: TInterface (Name {namespace = "Gio", name = "Icon"})
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
   -- Nullable: (Nothing,Nothing)

-- | Get the value of the “@gicon@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' emblemedIcon #gicon
-- @
getEmblemedIconGicon :: (MonadIO m, IsEmblemedIcon o) => o -> m (Maybe Gio.Icon.Icon)
getEmblemedIconGicon :: o -> m (Maybe Icon)
getEmblemedIconGicon o
obj = 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
$ 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
"gicon" ManagedPtr Icon -> Icon
Gio.Icon.Icon

-- | Construct a `GValueConstruct` with valid value for the “@gicon@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructEmblemedIconGicon :: (IsEmblemedIcon o, MIO.MonadIO m, Gio.Icon.IsIcon a) => a -> m (GValueConstruct o)
constructEmblemedIconGicon :: a -> m (GValueConstruct o)
constructEmblemedIconGicon 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
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"gicon" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)

#if defined(ENABLE_OVERLOADING)
data EmblemedIconGiconPropertyInfo
instance AttrInfo EmblemedIconGiconPropertyInfo where
    type AttrAllowedOps EmblemedIconGiconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrBaseTypeConstraint EmblemedIconGiconPropertyInfo = IsEmblemedIcon
    type AttrSetTypeConstraint EmblemedIconGiconPropertyInfo = Gio.Icon.IsIcon
    type AttrTransferTypeConstraint EmblemedIconGiconPropertyInfo = Gio.Icon.IsIcon
    type AttrTransferType EmblemedIconGiconPropertyInfo = Gio.Icon.Icon
    type AttrGetType EmblemedIconGiconPropertyInfo = (Maybe Gio.Icon.Icon)
    type AttrLabel EmblemedIconGiconPropertyInfo = "gicon"
    type AttrOrigin EmblemedIconGiconPropertyInfo = EmblemedIcon
    attrGet = getEmblemedIconGicon
    attrSet = undefined
    attrTransfer _ v = do
        unsafeCastTo Gio.Icon.Icon v
    attrConstruct = constructEmblemedIconGicon
    attrClear = undefined
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList EmblemedIcon
type instance O.AttributeList EmblemedIcon = EmblemedIconAttributeList
type EmblemedIconAttributeList = ('[ '("gicon", EmblemedIconGiconPropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
emblemedIconGicon :: AttrLabelProxy "gicon"
emblemedIconGicon = AttrLabelProxy

#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList EmblemedIcon = EmblemedIconSignalList
type EmblemedIconSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method EmblemedIcon::new
-- method type : Constructor
-- Args: [ Arg
--           { argCName = "icon"
--           , argType = TInterface Name { namespace = "Gio" , name = "Icon" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GIcon" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "emblem"
--           , argType = TInterface Name { namespace = "Gio" , name = "Emblem" }
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GEmblem, or %NULL"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface Name { namespace = "Gio" , name = "EmblemedIcon" })
-- throws : False
-- Skip return : False

foreign import ccall "g_emblemed_icon_new" g_emblemed_icon_new :: 
    Ptr Gio.Icon.Icon ->                    -- icon : TInterface (Name {namespace = "Gio", name = "Icon"})
    Ptr Gio.Emblem.Emblem ->                -- emblem : TInterface (Name {namespace = "Gio", name = "Emblem"})
    IO (Ptr EmblemedIcon)

-- | Creates a new emblemed icon for /@icon@/ with the emblem /@emblem@/.
-- 
-- /Since: 2.18/
emblemedIconNew ::
    (B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a, Gio.Emblem.IsEmblem b) =>
    a
    -- ^ /@icon@/: a t'GI.Gio.Interfaces.Icon.Icon'
    -> Maybe (b)
    -- ^ /@emblem@/: a t'GI.Gio.Objects.Emblem.Emblem', or 'P.Nothing'
    -> m EmblemedIcon
    -- ^ __Returns:__ a new t'GI.Gio.Interfaces.Icon.Icon'
emblemedIconNew :: a -> Maybe b -> m EmblemedIcon
emblemedIconNew a
icon Maybe b
emblem = IO EmblemedIcon -> m EmblemedIcon
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EmblemedIcon -> m EmblemedIcon)
-> IO EmblemedIcon -> m EmblemedIcon
forall a b. (a -> b) -> a -> b
$ do
    Ptr Icon
icon' <- a -> IO (Ptr Icon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
icon
    Ptr Emblem
maybeEmblem <- case Maybe b
emblem of
        Maybe b
Nothing -> Ptr Emblem -> IO (Ptr Emblem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Emblem
forall a. Ptr a
nullPtr
        Just b
jEmblem -> do
            Ptr Emblem
jEmblem' <- b -> IO (Ptr Emblem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jEmblem
            Ptr Emblem -> IO (Ptr Emblem)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Emblem
jEmblem'
    Ptr EmblemedIcon
result <- Ptr Icon -> Ptr Emblem -> IO (Ptr EmblemedIcon)
g_emblemed_icon_new Ptr Icon
icon' Ptr Emblem
maybeEmblem
    Text -> Ptr EmblemedIcon -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"emblemedIconNew" Ptr EmblemedIcon
result
    EmblemedIcon
result' <- ((ManagedPtr EmblemedIcon -> EmblemedIcon)
-> Ptr EmblemedIcon -> IO EmblemedIcon
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr EmblemedIcon -> EmblemedIcon
EmblemedIcon) Ptr EmblemedIcon
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
icon
    Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
emblem b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
    EmblemedIcon -> IO EmblemedIcon
forall (m :: * -> *) a. Monad m => a -> m a
return EmblemedIcon
result'

#if defined(ENABLE_OVERLOADING)
#endif

-- method EmblemedIcon::add_emblem
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "emblemed"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "EmblemedIcon" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GEmblemedIcon" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "emblem"
--           , argType = TInterface Name { namespace = "Gio" , name = "Emblem" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GEmblem" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "g_emblemed_icon_add_emblem" g_emblemed_icon_add_emblem :: 
    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})
    Ptr Gio.Emblem.Emblem ->                -- emblem : TInterface (Name {namespace = "Gio", name = "Emblem"})
    IO ()

-- | Adds /@emblem@/ to the t'GI.GLib.Structs.List.List' of @/GEmblems/@.
-- 
-- /Since: 2.18/
emblemedIconAddEmblem ::
    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a, Gio.Emblem.IsEmblem b) =>
    a
    -- ^ /@emblemed@/: a t'GI.Gio.Objects.EmblemedIcon.EmblemedIcon'
    -> b
    -- ^ /@emblem@/: a t'GI.Gio.Objects.Emblem.Emblem'
    -> m ()
emblemedIconAddEmblem :: a -> b -> m ()
emblemedIconAddEmblem a
emblemed b
emblem = 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 EmblemedIcon
emblemed' <- a -> IO (Ptr EmblemedIcon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
emblemed
    Ptr Emblem
emblem' <- b -> IO (Ptr Emblem)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
emblem
    Ptr EmblemedIcon -> Ptr Emblem -> IO ()
g_emblemed_icon_add_emblem Ptr EmblemedIcon
emblemed' Ptr Emblem
emblem'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
emblemed
    b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
emblem
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data EmblemedIconAddEmblemMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsEmblemedIcon a, Gio.Emblem.IsEmblem b) => O.MethodInfo EmblemedIconAddEmblemMethodInfo a signature where
    overloadedMethod = emblemedIconAddEmblem

#endif

-- method EmblemedIcon::clear_emblems
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "emblemed"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "EmblemedIcon" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GEmblemedIcon" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "g_emblemed_icon_clear_emblems" g_emblemed_icon_clear_emblems :: 
    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})
    IO ()

-- | Removes all the emblems from /@icon@/.
-- 
-- /Since: 2.28/
emblemedIconClearEmblems ::
    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a) =>
    a
    -- ^ /@emblemed@/: a t'GI.Gio.Objects.EmblemedIcon.EmblemedIcon'
    -> m ()
emblemedIconClearEmblems :: a -> m ()
emblemedIconClearEmblems a
emblemed = 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 EmblemedIcon
emblemed' <- a -> IO (Ptr EmblemedIcon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
emblemed
    Ptr EmblemedIcon -> IO ()
g_emblemed_icon_clear_emblems Ptr EmblemedIcon
emblemed'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
emblemed
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data EmblemedIconClearEmblemsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEmblemedIcon a) => O.MethodInfo EmblemedIconClearEmblemsMethodInfo a signature where
    overloadedMethod = emblemedIconClearEmblems

#endif

-- method EmblemedIcon::get_emblems
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "emblemed"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "EmblemedIcon" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GEmblemedIcon" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TGList (TInterface Name { namespace = "Gio" , name = "Emblem" }))
-- throws : False
-- Skip return : False

foreign import ccall "g_emblemed_icon_get_emblems" g_emblemed_icon_get_emblems :: 
    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})
    IO (Ptr (GList (Ptr Gio.Emblem.Emblem)))

-- | Gets the list of emblems for the /@icon@/.
-- 
-- /Since: 2.18/
emblemedIconGetEmblems ::
    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a) =>
    a
    -- ^ /@emblemed@/: a t'GI.Gio.Objects.EmblemedIcon.EmblemedIcon'
    -> m [Gio.Emblem.Emblem]
    -- ^ __Returns:__ a t'GI.GLib.Structs.List.List' of
    --     @/GEmblems/@ that is owned by /@emblemed@/
emblemedIconGetEmblems :: a -> m [Emblem]
emblemedIconGetEmblems a
emblemed = IO [Emblem] -> m [Emblem]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Emblem] -> m [Emblem]) -> IO [Emblem] -> m [Emblem]
forall a b. (a -> b) -> a -> b
$ do
    Ptr EmblemedIcon
emblemed' <- a -> IO (Ptr EmblemedIcon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
emblemed
    Ptr (GList (Ptr Emblem))
result <- Ptr EmblemedIcon -> IO (Ptr (GList (Ptr Emblem)))
g_emblemed_icon_get_emblems Ptr EmblemedIcon
emblemed'
    [Ptr Emblem]
result' <- Ptr (GList (Ptr Emblem)) -> IO [Ptr Emblem]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Emblem))
result
    [Emblem]
result'' <- (Ptr Emblem -> IO Emblem) -> [Ptr Emblem] -> IO [Emblem]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Emblem -> Emblem) -> Ptr Emblem -> IO Emblem
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Emblem -> Emblem
Gio.Emblem.Emblem) [Ptr Emblem]
result'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
emblemed
    [Emblem] -> IO [Emblem]
forall (m :: * -> *) a. Monad m => a -> m a
return [Emblem]
result''

#if defined(ENABLE_OVERLOADING)
data EmblemedIconGetEmblemsMethodInfo
instance (signature ~ (m [Gio.Emblem.Emblem]), MonadIO m, IsEmblemedIcon a) => O.MethodInfo EmblemedIconGetEmblemsMethodInfo a signature where
    overloadedMethod = emblemedIconGetEmblems

#endif

-- method EmblemedIcon::get_icon
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "emblemed"
--           , argType =
--               TInterface Name { namespace = "Gio" , name = "EmblemedIcon" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GEmblemedIcon" , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TInterface Name { namespace = "Gio" , name = "Icon" })
-- throws : False
-- Skip return : False

foreign import ccall "g_emblemed_icon_get_icon" g_emblemed_icon_get_icon :: 
    Ptr EmblemedIcon ->                     -- emblemed : TInterface (Name {namespace = "Gio", name = "EmblemedIcon"})
    IO (Ptr Gio.Icon.Icon)

-- | Gets the main icon for /@emblemed@/.
-- 
-- /Since: 2.18/
emblemedIconGetIcon ::
    (B.CallStack.HasCallStack, MonadIO m, IsEmblemedIcon a) =>
    a
    -- ^ /@emblemed@/: a t'GI.Gio.Objects.EmblemedIcon.EmblemedIcon'
    -> m Gio.Icon.Icon
    -- ^ __Returns:__ a t'GI.Gio.Interfaces.Icon.Icon' that is owned by /@emblemed@/
emblemedIconGetIcon :: a -> m Icon
emblemedIconGetIcon a
emblemed = IO Icon -> m Icon
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Icon -> m Icon) -> IO Icon -> m Icon
forall a b. (a -> b) -> a -> b
$ do
    Ptr EmblemedIcon
emblemed' <- a -> IO (Ptr EmblemedIcon)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
emblemed
    Ptr Icon
result <- Ptr EmblemedIcon -> IO (Ptr Icon)
g_emblemed_icon_get_icon Ptr EmblemedIcon
emblemed'
    Text -> Ptr Icon -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"emblemedIconGetIcon" Ptr Icon
result
    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
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
emblemed
    Icon -> IO Icon
forall (m :: * -> *) a. Monad m => a -> m a
return Icon
result'

#if defined(ENABLE_OVERLOADING)
data EmblemedIconGetIconMethodInfo
instance (signature ~ (m Gio.Icon.Icon), MonadIO m, IsEmblemedIcon a) => O.MethodInfo EmblemedIconGetIconMethodInfo a signature where
    overloadedMethod = emblemedIconGetIcon

#endif