{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GdkPixbuf.Objects.PixbufNonAnim
(
PixbufNonAnim(..) ,
IsPixbufNonAnim ,
toPixbufNonAnim ,
#if defined(ENABLE_OVERLOADING)
ResolvePixbufNonAnimMethod ,
#endif
pixbufNonAnimNew ,
) 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.GHashTable as B.GHT
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.Kind as DK
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 {-# SOURCE #-} qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import {-# SOURCE #-} qualified GI.GdkPixbuf.Objects.PixbufAnimation as GdkPixbuf.PixbufAnimation
newtype PixbufNonAnim = PixbufNonAnim (SP.ManagedPtr PixbufNonAnim)
deriving (PixbufNonAnim -> PixbufNonAnim -> Bool
(PixbufNonAnim -> PixbufNonAnim -> Bool)
-> (PixbufNonAnim -> PixbufNonAnim -> Bool) -> Eq PixbufNonAnim
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PixbufNonAnim -> PixbufNonAnim -> Bool
== :: PixbufNonAnim -> PixbufNonAnim -> Bool
$c/= :: PixbufNonAnim -> PixbufNonAnim -> Bool
/= :: PixbufNonAnim -> PixbufNonAnim -> Bool
Eq)
instance SP.ManagedPtrNewtype PixbufNonAnim where
toManagedPtr :: PixbufNonAnim -> ManagedPtr PixbufNonAnim
toManagedPtr (PixbufNonAnim ManagedPtr PixbufNonAnim
p) = ManagedPtr PixbufNonAnim
p
foreign import ccall "gdk_pixbuf_non_anim_get_type"
c_gdk_pixbuf_non_anim_get_type :: IO B.Types.GType
instance B.Types.TypedObject PixbufNonAnim where
glibType :: IO GType
glibType = IO GType
c_gdk_pixbuf_non_anim_get_type
instance B.Types.GObject PixbufNonAnim
class (SP.GObject o, O.IsDescendantOf PixbufNonAnim o) => IsPixbufNonAnim o
instance (SP.GObject o, O.IsDescendantOf PixbufNonAnim o) => IsPixbufNonAnim o
instance O.HasParentTypes PixbufNonAnim
type instance O.ParentTypes PixbufNonAnim = '[GdkPixbuf.PixbufAnimation.PixbufAnimation, GObject.Object.Object]
toPixbufNonAnim :: (MIO.MonadIO m, IsPixbufNonAnim o) => o -> m PixbufNonAnim
toPixbufNonAnim :: forall (m :: * -> *) o.
(MonadIO m, IsPixbufNonAnim o) =>
o -> m PixbufNonAnim
toPixbufNonAnim = IO PixbufNonAnim -> m PixbufNonAnim
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PixbufNonAnim -> m PixbufNonAnim)
-> (o -> IO PixbufNonAnim) -> o -> m PixbufNonAnim
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr PixbufNonAnim -> PixbufNonAnim)
-> o -> IO PixbufNonAnim
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr PixbufNonAnim -> PixbufNonAnim
PixbufNonAnim
instance B.GValue.IsGValue (Maybe PixbufNonAnim) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gdk_pixbuf_non_anim_get_type
gvalueSet_ :: Ptr GValue -> Maybe PixbufNonAnim -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PixbufNonAnim
P.Nothing = Ptr GValue -> Ptr PixbufNonAnim -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr PixbufNonAnim
forall a. Ptr a
FP.nullPtr :: FP.Ptr PixbufNonAnim)
gvalueSet_ Ptr GValue
gv (P.Just PixbufNonAnim
obj) = PixbufNonAnim -> (Ptr PixbufNonAnim -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PixbufNonAnim
obj (Ptr GValue -> Ptr PixbufNonAnim -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PixbufNonAnim)
gvalueGet_ Ptr GValue
gv = do
Ptr PixbufNonAnim
ptr <- Ptr GValue -> IO (Ptr PixbufNonAnim)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr PixbufNonAnim)
if Ptr PixbufNonAnim
ptr Ptr PixbufNonAnim -> Ptr PixbufNonAnim -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr PixbufNonAnim
forall a. Ptr a
FP.nullPtr
then PixbufNonAnim -> Maybe PixbufNonAnim
forall a. a -> Maybe a
P.Just (PixbufNonAnim -> Maybe PixbufNonAnim)
-> IO PixbufNonAnim -> IO (Maybe PixbufNonAnim)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr PixbufNonAnim -> PixbufNonAnim)
-> Ptr PixbufNonAnim -> IO PixbufNonAnim
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr PixbufNonAnim -> PixbufNonAnim
PixbufNonAnim Ptr PixbufNonAnim
ptr
else Maybe PixbufNonAnim -> IO (Maybe PixbufNonAnim)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufNonAnim
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolvePixbufNonAnimMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePixbufNonAnimMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolvePixbufNonAnimMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolvePixbufNonAnimMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolvePixbufNonAnimMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolvePixbufNonAnimMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolvePixbufNonAnimMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolvePixbufNonAnimMethod "isStaticImage" o = GdkPixbuf.PixbufAnimation.PixbufAnimationIsStaticImageMethodInfo
ResolvePixbufNonAnimMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolvePixbufNonAnimMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolvePixbufNonAnimMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolvePixbufNonAnimMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolvePixbufNonAnimMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolvePixbufNonAnimMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolvePixbufNonAnimMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolvePixbufNonAnimMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolvePixbufNonAnimMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolvePixbufNonAnimMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolvePixbufNonAnimMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolvePixbufNonAnimMethod "getHeight" o = GdkPixbuf.PixbufAnimation.PixbufAnimationGetHeightMethodInfo
ResolvePixbufNonAnimMethod "getIter" o = GdkPixbuf.PixbufAnimation.PixbufAnimationGetIterMethodInfo
ResolvePixbufNonAnimMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolvePixbufNonAnimMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolvePixbufNonAnimMethod "getStaticImage" o = GdkPixbuf.PixbufAnimation.PixbufAnimationGetStaticImageMethodInfo
ResolvePixbufNonAnimMethod "getWidth" o = GdkPixbuf.PixbufAnimation.PixbufAnimationGetWidthMethodInfo
ResolvePixbufNonAnimMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolvePixbufNonAnimMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolvePixbufNonAnimMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolvePixbufNonAnimMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePixbufNonAnimMethod t PixbufNonAnim, O.OverloadedMethod info PixbufNonAnim p) => OL.IsLabel t (PixbufNonAnim -> 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 ~ ResolvePixbufNonAnimMethod t PixbufNonAnim, O.OverloadedMethod info PixbufNonAnim p, R.HasField t PixbufNonAnim p) => R.HasField t PixbufNonAnim p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePixbufNonAnimMethod t PixbufNonAnim, O.OverloadedMethodInfo info PixbufNonAnim) => OL.IsLabel t (O.MethodProxy info PixbufNonAnim) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PixbufNonAnim
type instance O.AttributeList PixbufNonAnim = PixbufNonAnimAttributeList
type PixbufNonAnimAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList PixbufNonAnim = PixbufNonAnimSignalList
type PixbufNonAnimSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gdk_pixbuf_non_anim_new" gdk_pixbuf_non_anim_new ::
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO (Ptr PixbufNonAnim)
pixbufNonAnimNew ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
a
-> m PixbufNonAnim
pixbufNonAnimNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
a -> m PixbufNonAnim
pixbufNonAnimNew a
pixbuf = IO PixbufNonAnim -> m PixbufNonAnim
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PixbufNonAnim -> m PixbufNonAnim)
-> IO PixbufNonAnim -> m PixbufNonAnim
forall a b. (a -> b) -> a -> b
$ do
Ptr Pixbuf
pixbuf' <- a -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pixbuf
Ptr PixbufNonAnim
result <- Ptr Pixbuf -> IO (Ptr PixbufNonAnim)
gdk_pixbuf_non_anim_new Ptr Pixbuf
pixbuf'
Text -> Ptr PixbufNonAnim -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pixbufNonAnimNew" Ptr PixbufNonAnim
result
PixbufNonAnim
result' <- ((ManagedPtr PixbufNonAnim -> PixbufNonAnim)
-> Ptr PixbufNonAnim -> IO PixbufNonAnim
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr PixbufNonAnim -> PixbufNonAnim
PixbufNonAnim) Ptr PixbufNonAnim
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pixbuf
PixbufNonAnim -> IO PixbufNonAnim
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufNonAnim
result'
#if defined(ENABLE_OVERLOADING)
#endif