{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GdkPixbuf.Structs.PixbufModule
(
PixbufModule(..) ,
newZeroPixbufModule ,
#if defined(ENABLE_OVERLOADING)
ResolvePixbufModuleMethod ,
#endif
clearPixbufModuleInfo ,
getPixbufModuleInfo ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_info ,
#endif
setPixbufModuleInfo ,
clearPixbufModuleIsSaveOptionSupported ,
getPixbufModuleIsSaveOptionSupported ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_isSaveOptionSupported ,
#endif
setPixbufModuleIsSaveOptionSupported ,
clearPixbufModuleLoad ,
getPixbufModuleLoad ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_load ,
#endif
setPixbufModuleLoad ,
clearPixbufModuleLoadAnimation ,
getPixbufModuleLoadAnimation ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_loadAnimation ,
#endif
setPixbufModuleLoadAnimation ,
clearPixbufModuleLoadIncrement ,
getPixbufModuleLoadIncrement ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_loadIncrement ,
#endif
setPixbufModuleLoadIncrement ,
clearPixbufModuleLoadXpmData ,
getPixbufModuleLoadXpmData ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_loadXpmData ,
#endif
setPixbufModuleLoadXpmData ,
clearPixbufModuleModule ,
getPixbufModuleModule ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_module ,
#endif
setPixbufModuleModule ,
clearPixbufModuleModuleName ,
getPixbufModuleModuleName ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_moduleName ,
#endif
setPixbufModuleModuleName ,
clearPixbufModuleModulePath ,
getPixbufModuleModulePath ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_modulePath ,
#endif
setPixbufModuleModulePath ,
clearPixbufModuleSave ,
getPixbufModuleSave ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_save ,
#endif
setPixbufModuleSave ,
clearPixbufModuleStopLoad ,
getPixbufModuleStopLoad ,
#if defined(ENABLE_OVERLOADING)
pixbufModule_stopLoad ,
#endif
setPixbufModuleStopLoad ,
) 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.GModule.Structs.Module as GModule.Module
import qualified GI.GdkPixbuf.Callbacks as GdkPixbuf.Callbacks
import {-# SOURCE #-} qualified GI.GdkPixbuf.Structs.PixbufFormat as GdkPixbuf.PixbufFormat
newtype PixbufModule = PixbufModule (SP.ManagedPtr PixbufModule)
deriving (PixbufModule -> PixbufModule -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PixbufModule -> PixbufModule -> Bool
$c/= :: PixbufModule -> PixbufModule -> Bool
== :: PixbufModule -> PixbufModule -> Bool
$c== :: PixbufModule -> PixbufModule -> Bool
Eq)
instance SP.ManagedPtrNewtype PixbufModule where
toManagedPtr :: PixbufModule -> ManagedPtr PixbufModule
toManagedPtr (PixbufModule ManagedPtr PixbufModule
p) = ManagedPtr PixbufModule
p
instance BoxedPtr PixbufModule where
boxedPtrCopy :: PixbufModule -> IO PixbufModule
boxedPtrCopy = \PixbufModule
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PixbufModule
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
68 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr PixbufModule -> PixbufModule
PixbufModule)
boxedPtrFree :: PixbufModule -> IO ()
boxedPtrFree = \PixbufModule
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr PixbufModule
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr PixbufModule where
boxedPtrCalloc :: IO (Ptr PixbufModule)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
68
newZeroPixbufModule :: MonadIO m => m PixbufModule
newZeroPixbufModule :: forall (m :: * -> *). MonadIO m => m PixbufModule
newZeroPixbufModule = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr PixbufModule -> PixbufModule
PixbufModule
instance tag ~ 'AttrSet => Constructible PixbufModule tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr PixbufModule -> PixbufModule)
-> [AttrOp PixbufModule tag] -> m PixbufModule
new ManagedPtr PixbufModule -> PixbufModule
_ [AttrOp PixbufModule tag]
attrs = do
PixbufModule
o <- forall (m :: * -> *). MonadIO m => m PixbufModule
newZeroPixbufModule
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set PixbufModule
o [AttrOp PixbufModule tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModule
o
getPixbufModuleModuleName :: MonadIO m => PixbufModule -> m (Maybe T.Text)
getPixbufModuleModuleName :: forall (m :: * -> *). MonadIO m => PixbufModule -> m (Maybe Text)
getPixbufModuleModuleName PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CString
Maybe Text
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
cstringToText CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setPixbufModuleModuleName :: MonadIO m => PixbufModule -> CString -> m ()
setPixbufModuleModuleName :: forall (m :: * -> *). MonadIO m => PixbufModule -> CString -> m ()
setPixbufModuleModuleName PixbufModule
s CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CString
val :: CString)
clearPixbufModuleModuleName :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleModuleName :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleModuleName PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleModuleNameFieldInfo
instance AttrInfo PixbufModuleModuleNameFieldInfo where
type AttrBaseTypeConstraint PixbufModuleModuleNameFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleModuleNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleModuleNameFieldInfo = (~) CString
type AttrTransferTypeConstraint PixbufModuleModuleNameFieldInfo = (~)CString
type AttrTransferType PixbufModuleModuleNameFieldInfo = CString
type AttrGetType PixbufModuleModuleNameFieldInfo = Maybe T.Text
type AttrLabel PixbufModuleModuleNameFieldInfo = "module_name"
type AttrOrigin PixbufModuleModuleNameFieldInfo = PixbufModule
attrGet = getPixbufModuleModuleName
attrSet = setPixbufModuleModuleName
attrConstruct = undefined
attrClear = clearPixbufModuleModuleName
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.moduleName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:moduleName"
})
pixbufModule_moduleName :: AttrLabelProxy "moduleName"
pixbufModule_moduleName = AttrLabelProxy
#endif
getPixbufModuleModulePath :: MonadIO m => PixbufModule -> m (Maybe T.Text)
getPixbufModuleModulePath :: forall (m :: * -> *). MonadIO m => PixbufModule -> m (Maybe Text)
getPixbufModuleModulePath PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
CString
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: IO CString
Maybe Text
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
cstringToText CString
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setPixbufModuleModulePath :: MonadIO m => PixbufModule -> CString -> m ()
setPixbufModuleModulePath :: forall (m :: * -> *). MonadIO m => PixbufModule -> CString -> m ()
setPixbufModuleModulePath PixbufModule
s CString
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (CString
val :: CString)
clearPixbufModuleModulePath :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleModulePath :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleModulePath PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleModulePathFieldInfo
instance AttrInfo PixbufModuleModulePathFieldInfo where
type AttrBaseTypeConstraint PixbufModuleModulePathFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleModulePathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleModulePathFieldInfo = (~) CString
type AttrTransferTypeConstraint PixbufModuleModulePathFieldInfo = (~)CString
type AttrTransferType PixbufModuleModulePathFieldInfo = CString
type AttrGetType PixbufModuleModulePathFieldInfo = Maybe T.Text
type AttrLabel PixbufModuleModulePathFieldInfo = "module_path"
type AttrOrigin PixbufModuleModulePathFieldInfo = PixbufModule
attrGet = getPixbufModuleModulePath
attrSet = setPixbufModuleModulePath
attrConstruct = undefined
attrClear = clearPixbufModuleModulePath
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.modulePath"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:modulePath"
})
pixbufModule_modulePath :: AttrLabelProxy "modulePath"
pixbufModule_modulePath = AttrLabelProxy
#endif
getPixbufModuleModule :: MonadIO m => PixbufModule -> m (Maybe GModule.Module.Module)
getPixbufModuleModule :: forall (m :: * -> *). MonadIO m => PixbufModule -> m (Maybe Module)
getPixbufModuleModule PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
Ptr Module
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO (Ptr GModule.Module.Module)
Maybe Module
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Module
val forall a b. (a -> b) -> a -> b
$ \Ptr Module
val' -> do
Module
val'' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr Module -> Module
GModule.Module.Module) Ptr Module
val'
forall (m :: * -> *) a. Monad m => a -> m a
return Module
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Module
result
setPixbufModuleModule :: MonadIO m => PixbufModule -> Ptr GModule.Module.Module -> m ()
setPixbufModuleModule :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> Ptr Module -> m ()
setPixbufModuleModule PixbufModule
s Ptr Module
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (Ptr Module
val :: Ptr GModule.Module.Module)
clearPixbufModuleModule :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleModule :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleModule PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (forall a. Ptr a
FP.nullPtr :: Ptr GModule.Module.Module)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleModuleFieldInfo
instance AttrInfo PixbufModuleModuleFieldInfo where
type AttrBaseTypeConstraint PixbufModuleModuleFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleModuleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleModuleFieldInfo = (~) (Ptr GModule.Module.Module)
type AttrTransferTypeConstraint PixbufModuleModuleFieldInfo = (~)(Ptr GModule.Module.Module)
type AttrTransferType PixbufModuleModuleFieldInfo = (Ptr GModule.Module.Module)
type AttrGetType PixbufModuleModuleFieldInfo = Maybe GModule.Module.Module
type AttrLabel PixbufModuleModuleFieldInfo = "module"
type AttrOrigin PixbufModuleModuleFieldInfo = PixbufModule
attrGet = getPixbufModuleModule
attrSet = setPixbufModuleModule
attrConstruct = undefined
attrClear = clearPixbufModuleModule
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.module"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:module"
})
pixbufModule_module :: AttrLabelProxy "module"
pixbufModule_module = AttrLabelProxy
#endif
getPixbufModuleInfo :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.PixbufFormat.PixbufFormat)
getPixbufModuleInfo :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufFormat)
getPixbufModuleInfo PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
Ptr PixbufFormat
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) :: IO (Ptr GdkPixbuf.PixbufFormat.PixbufFormat)
Maybe PixbufFormat
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr PixbufFormat
val forall a b. (a -> b) -> a -> b
$ \Ptr PixbufFormat
val' -> do
PixbufFormat
val'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr PixbufFormat -> PixbufFormat
GdkPixbuf.PixbufFormat.PixbufFormat) Ptr PixbufFormat
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufFormat
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufFormat
result
setPixbufModuleInfo :: MonadIO m => PixbufModule -> Ptr GdkPixbuf.PixbufFormat.PixbufFormat -> m ()
setPixbufModuleInfo :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> Ptr PixbufFormat -> m ()
setPixbufModuleInfo PixbufModule
s Ptr PixbufFormat
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (Ptr PixbufFormat
val :: Ptr GdkPixbuf.PixbufFormat.PixbufFormat)
clearPixbufModuleInfo :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleInfo :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleInfo PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
12) (forall a. Ptr a
FP.nullPtr :: Ptr GdkPixbuf.PixbufFormat.PixbufFormat)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleInfoFieldInfo
instance AttrInfo PixbufModuleInfoFieldInfo where
type AttrBaseTypeConstraint PixbufModuleInfoFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleInfoFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleInfoFieldInfo = (~) (Ptr GdkPixbuf.PixbufFormat.PixbufFormat)
type AttrTransferTypeConstraint PixbufModuleInfoFieldInfo = (~)(Ptr GdkPixbuf.PixbufFormat.PixbufFormat)
type AttrTransferType PixbufModuleInfoFieldInfo = (Ptr GdkPixbuf.PixbufFormat.PixbufFormat)
type AttrGetType PixbufModuleInfoFieldInfo = Maybe GdkPixbuf.PixbufFormat.PixbufFormat
type AttrLabel PixbufModuleInfoFieldInfo = "info"
type AttrOrigin PixbufModuleInfoFieldInfo = PixbufModule
attrGet = getPixbufModuleInfo
attrSet = setPixbufModuleInfo
attrConstruct = undefined
attrClear = clearPixbufModuleInfo
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.info"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:info"
})
pixbufModule_info :: AttrLabelProxy "info"
pixbufModule_info = AttrLabelProxy
#endif
getPixbufModuleLoad :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.Callbacks.PixbufModuleLoadFunc)
getPixbufModuleLoad :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufModuleLoadFunc)
getPixbufModuleLoad PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
FunPtr C_PixbufModuleLoadFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadFunc)
Maybe PixbufModuleLoadFunc
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_PixbufModuleLoadFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_PixbufModuleLoadFunc
val' -> do
let val'' :: PixbufModuleLoadFunc
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleLoadFunc -> Ptr () -> m Pixbuf
GdkPixbuf.Callbacks.dynamic_PixbufModuleLoadFunc FunPtr C_PixbufModuleLoadFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModuleLoadFunc
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufModuleLoadFunc
result
setPixbufModuleLoad :: MonadIO m => PixbufModule -> FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadFunc -> m ()
setPixbufModuleLoad :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> FunPtr C_PixbufModuleLoadFunc -> m ()
setPixbufModuleLoad PixbufModule
s FunPtr C_PixbufModuleLoadFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (FunPtr C_PixbufModuleLoadFunc
val :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadFunc)
clearPixbufModuleLoad :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoad :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoad PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadFunc)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleLoadFieldInfo
instance AttrInfo PixbufModuleLoadFieldInfo where
type AttrBaseTypeConstraint PixbufModuleLoadFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleLoadFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleLoadFieldInfo = (~) (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadFunc)
type AttrTransferTypeConstraint PixbufModuleLoadFieldInfo = (~)(FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadFunc)
type AttrTransferType PixbufModuleLoadFieldInfo = (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadFunc)
type AttrGetType PixbufModuleLoadFieldInfo = Maybe GdkPixbuf.Callbacks.PixbufModuleLoadFunc
type AttrLabel PixbufModuleLoadFieldInfo = "load"
type AttrOrigin PixbufModuleLoadFieldInfo = PixbufModule
attrGet = getPixbufModuleLoad
attrSet = setPixbufModuleLoad
attrConstruct = undefined
attrClear = clearPixbufModuleLoad
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.load"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:load"
})
pixbufModule_load :: AttrLabelProxy "load"
pixbufModule_load = AttrLabelProxy
#endif
getPixbufModuleLoadXpmData :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.Callbacks.PixbufModuleLoadXpmDataFunc)
getPixbufModuleLoadXpmData :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufModuleLoadXpmDataFunc)
getPixbufModuleLoadXpmData PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
FunPtr C_PixbufModuleLoadXpmDataFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) :: IO (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadXpmDataFunc)
Maybe PixbufModuleLoadXpmDataFunc
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_PixbufModuleLoadXpmDataFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_PixbufModuleLoadXpmDataFunc
val' -> do
let val'' :: PixbufModuleLoadXpmDataFunc
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleLoadXpmDataFunc -> [Text] -> m Pixbuf
GdkPixbuf.Callbacks.dynamic_PixbufModuleLoadXpmDataFunc FunPtr C_PixbufModuleLoadXpmDataFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModuleLoadXpmDataFunc
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufModuleLoadXpmDataFunc
result
setPixbufModuleLoadXpmData :: MonadIO m => PixbufModule -> FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadXpmDataFunc -> m ()
setPixbufModuleLoadXpmData :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> FunPtr C_PixbufModuleLoadXpmDataFunc -> m ()
setPixbufModuleLoadXpmData PixbufModule
s FunPtr C_PixbufModuleLoadXpmDataFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) (FunPtr C_PixbufModuleLoadXpmDataFunc
val :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadXpmDataFunc)
clearPixbufModuleLoadXpmData :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoadXpmData :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoadXpmData PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadXpmDataFunc)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleLoadXpmDataFieldInfo
instance AttrInfo PixbufModuleLoadXpmDataFieldInfo where
type AttrBaseTypeConstraint PixbufModuleLoadXpmDataFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleLoadXpmDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleLoadXpmDataFieldInfo = (~) (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadXpmDataFunc)
type AttrTransferTypeConstraint PixbufModuleLoadXpmDataFieldInfo = (~)GdkPixbuf.Callbacks.PixbufModuleLoadXpmDataFunc
type AttrTransferType PixbufModuleLoadXpmDataFieldInfo = (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadXpmDataFunc)
type AttrGetType PixbufModuleLoadXpmDataFieldInfo = Maybe GdkPixbuf.Callbacks.PixbufModuleLoadXpmDataFunc
type AttrLabel PixbufModuleLoadXpmDataFieldInfo = "load_xpm_data"
type AttrOrigin PixbufModuleLoadXpmDataFieldInfo = PixbufModule
attrGet = getPixbufModuleLoadXpmData
attrSet = setPixbufModuleLoadXpmData
attrConstruct = undefined
attrClear = clearPixbufModuleLoadXpmData
attrTransfer _ v = do
GdkPixbuf.Callbacks.mk_PixbufModuleLoadXpmDataFunc (GdkPixbuf.Callbacks.wrap_PixbufModuleLoadXpmDataFunc Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.loadXpmData"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:loadXpmData"
})
pixbufModule_loadXpmData :: AttrLabelProxy "loadXpmData"
pixbufModule_loadXpmData = AttrLabelProxy
#endif
getPixbufModuleStopLoad :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.Callbacks.PixbufModuleStopLoadFunc)
getPixbufModuleStopLoad :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufModuleStopLoadFunc)
getPixbufModuleStopLoad PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
FunPtr C_PixbufModuleStopLoadFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) :: IO (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleStopLoadFunc)
Maybe PixbufModuleStopLoadFunc
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_PixbufModuleStopLoadFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_PixbufModuleStopLoadFunc
val' -> do
let val'' :: PixbufModuleStopLoadFunc
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleStopLoadFunc -> Ptr () -> m ()
GdkPixbuf.Callbacks.dynamic_PixbufModuleStopLoadFunc FunPtr C_PixbufModuleStopLoadFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModuleStopLoadFunc
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufModuleStopLoadFunc
result
setPixbufModuleStopLoad :: MonadIO m => PixbufModule -> FunPtr GdkPixbuf.Callbacks.C_PixbufModuleStopLoadFunc -> m ()
setPixbufModuleStopLoad :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> FunPtr C_PixbufModuleStopLoadFunc -> m ()
setPixbufModuleStopLoad PixbufModule
s FunPtr C_PixbufModuleStopLoadFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) (FunPtr C_PixbufModuleStopLoadFunc
val :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleStopLoadFunc)
clearPixbufModuleStopLoad :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleStopLoad :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleStopLoad PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleStopLoadFunc)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleStopLoadFieldInfo
instance AttrInfo PixbufModuleStopLoadFieldInfo where
type AttrBaseTypeConstraint PixbufModuleStopLoadFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleStopLoadFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleStopLoadFieldInfo = (~) (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleStopLoadFunc)
type AttrTransferTypeConstraint PixbufModuleStopLoadFieldInfo = (~)(FunPtr GdkPixbuf.Callbacks.C_PixbufModuleStopLoadFunc)
type AttrTransferType PixbufModuleStopLoadFieldInfo = (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleStopLoadFunc)
type AttrGetType PixbufModuleStopLoadFieldInfo = Maybe GdkPixbuf.Callbacks.PixbufModuleStopLoadFunc
type AttrLabel PixbufModuleStopLoadFieldInfo = "stop_load"
type AttrOrigin PixbufModuleStopLoadFieldInfo = PixbufModule
attrGet = getPixbufModuleStopLoad
attrSet = setPixbufModuleStopLoad
attrConstruct = undefined
attrClear = clearPixbufModuleStopLoad
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.stopLoad"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:stopLoad"
})
pixbufModule_stopLoad :: AttrLabelProxy "stopLoad"
pixbufModule_stopLoad = AttrLabelProxy
#endif
getPixbufModuleLoadIncrement :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.Callbacks.PixbufModuleIncrementLoadFunc)
getPixbufModuleLoadIncrement :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufModuleIncrementLoadFunc)
getPixbufModuleLoadIncrement PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
FunPtr C_PixbufModuleIncrementLoadFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleIncrementLoadFunc)
Maybe PixbufModuleIncrementLoadFunc
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_PixbufModuleIncrementLoadFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_PixbufModuleIncrementLoadFunc
val' -> do
let val'' :: PixbufModuleIncrementLoadFunc
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleIncrementLoadFunc
-> Ptr () -> ByteString -> m ()
GdkPixbuf.Callbacks.dynamic_PixbufModuleIncrementLoadFunc FunPtr C_PixbufModuleIncrementLoadFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModuleIncrementLoadFunc
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufModuleIncrementLoadFunc
result
setPixbufModuleLoadIncrement :: MonadIO m => PixbufModule -> FunPtr GdkPixbuf.Callbacks.C_PixbufModuleIncrementLoadFunc -> m ()
setPixbufModuleLoadIncrement :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> FunPtr C_PixbufModuleIncrementLoadFunc -> m ()
setPixbufModuleLoadIncrement PixbufModule
s FunPtr C_PixbufModuleIncrementLoadFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (FunPtr C_PixbufModuleIncrementLoadFunc
val :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleIncrementLoadFunc)
clearPixbufModuleLoadIncrement :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoadIncrement :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoadIncrement PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleIncrementLoadFunc)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleLoadIncrementFieldInfo
instance AttrInfo PixbufModuleLoadIncrementFieldInfo where
type AttrBaseTypeConstraint PixbufModuleLoadIncrementFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleLoadIncrementFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleLoadIncrementFieldInfo = (~) (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleIncrementLoadFunc)
type AttrTransferTypeConstraint PixbufModuleLoadIncrementFieldInfo = (~)(FunPtr GdkPixbuf.Callbacks.C_PixbufModuleIncrementLoadFunc)
type AttrTransferType PixbufModuleLoadIncrementFieldInfo = (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleIncrementLoadFunc)
type AttrGetType PixbufModuleLoadIncrementFieldInfo = Maybe GdkPixbuf.Callbacks.PixbufModuleIncrementLoadFunc
type AttrLabel PixbufModuleLoadIncrementFieldInfo = "load_increment"
type AttrOrigin PixbufModuleLoadIncrementFieldInfo = PixbufModule
attrGet = getPixbufModuleLoadIncrement
attrSet = setPixbufModuleLoadIncrement
attrConstruct = undefined
attrClear = clearPixbufModuleLoadIncrement
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.loadIncrement"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:loadIncrement"
})
pixbufModule_loadIncrement :: AttrLabelProxy "loadIncrement"
pixbufModule_loadIncrement = AttrLabelProxy
#endif
getPixbufModuleLoadAnimation :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.Callbacks.PixbufModuleLoadAnimationFunc)
getPixbufModuleLoadAnimation :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufModuleLoadAnimationFunc)
getPixbufModuleLoadAnimation PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
FunPtr C_PixbufModuleLoadAnimationFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) :: IO (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadAnimationFunc)
Maybe PixbufModuleLoadAnimationFunc
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_PixbufModuleLoadAnimationFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_PixbufModuleLoadAnimationFunc
val' -> do
let val'' :: PixbufModuleLoadAnimationFunc
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleLoadAnimationFunc
-> Ptr () -> m PixbufAnimation
GdkPixbuf.Callbacks.dynamic_PixbufModuleLoadAnimationFunc FunPtr C_PixbufModuleLoadAnimationFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModuleLoadAnimationFunc
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufModuleLoadAnimationFunc
result
setPixbufModuleLoadAnimation :: MonadIO m => PixbufModule -> FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadAnimationFunc -> m ()
setPixbufModuleLoadAnimation :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> FunPtr C_PixbufModuleLoadAnimationFunc -> m ()
setPixbufModuleLoadAnimation PixbufModule
s FunPtr C_PixbufModuleLoadAnimationFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) (FunPtr C_PixbufModuleLoadAnimationFunc
val :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadAnimationFunc)
clearPixbufModuleLoadAnimation :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoadAnimation :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleLoadAnimation PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadAnimationFunc)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleLoadAnimationFieldInfo
instance AttrInfo PixbufModuleLoadAnimationFieldInfo where
type AttrBaseTypeConstraint PixbufModuleLoadAnimationFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleLoadAnimationFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleLoadAnimationFieldInfo = (~) (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadAnimationFunc)
type AttrTransferTypeConstraint PixbufModuleLoadAnimationFieldInfo = (~)(FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadAnimationFunc)
type AttrTransferType PixbufModuleLoadAnimationFieldInfo = (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleLoadAnimationFunc)
type AttrGetType PixbufModuleLoadAnimationFieldInfo = Maybe GdkPixbuf.Callbacks.PixbufModuleLoadAnimationFunc
type AttrLabel PixbufModuleLoadAnimationFieldInfo = "load_animation"
type AttrOrigin PixbufModuleLoadAnimationFieldInfo = PixbufModule
attrGet = getPixbufModuleLoadAnimation
attrSet = setPixbufModuleLoadAnimation
attrConstruct = undefined
attrClear = clearPixbufModuleLoadAnimation
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.loadAnimation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:loadAnimation"
})
pixbufModule_loadAnimation :: AttrLabelProxy "loadAnimation"
pixbufModule_loadAnimation = AttrLabelProxy
#endif
getPixbufModuleSave :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.Callbacks.PixbufModuleSaveFunc)
getPixbufModuleSave :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufModuleSaveFunc)
getPixbufModuleSave PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
FunPtr C_PixbufModuleSaveFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveFunc)
Maybe PixbufModuleSaveFunc
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_PixbufModuleSaveFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_PixbufModuleSaveFunc
val' -> do
let val'' :: PixbufModuleSaveFunc
val'' = forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
FunPtr C_PixbufModuleSaveFunc
-> Ptr () -> a -> Maybe [Text] -> Maybe [Text] -> m ()
GdkPixbuf.Callbacks.dynamic_PixbufModuleSaveFunc FunPtr C_PixbufModuleSaveFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModuleSaveFunc
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufModuleSaveFunc
result
setPixbufModuleSave :: MonadIO m => PixbufModule -> FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveFunc -> m ()
setPixbufModuleSave :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> FunPtr C_PixbufModuleSaveFunc -> m ()
setPixbufModuleSave PixbufModule
s FunPtr C_PixbufModuleSaveFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (FunPtr C_PixbufModuleSaveFunc
val :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveFunc)
clearPixbufModuleSave :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleSave :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleSave PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveFunc)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleSaveFieldInfo
instance AttrInfo PixbufModuleSaveFieldInfo where
type AttrBaseTypeConstraint PixbufModuleSaveFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleSaveFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleSaveFieldInfo = (~) (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveFunc)
type AttrTransferTypeConstraint PixbufModuleSaveFieldInfo = (~)(FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveFunc)
type AttrTransferType PixbufModuleSaveFieldInfo = (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveFunc)
type AttrGetType PixbufModuleSaveFieldInfo = Maybe GdkPixbuf.Callbacks.PixbufModuleSaveFunc
type AttrLabel PixbufModuleSaveFieldInfo = "save"
type AttrOrigin PixbufModuleSaveFieldInfo = PixbufModule
attrGet = getPixbufModuleSave
attrSet = setPixbufModuleSave
attrConstruct = undefined
attrClear = clearPixbufModuleSave
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.save"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:save"
})
pixbufModule_save :: AttrLabelProxy "save"
pixbufModule_save = AttrLabelProxy
#endif
getPixbufModuleIsSaveOptionSupported :: MonadIO m => PixbufModule -> m (Maybe GdkPixbuf.Callbacks.PixbufModuleSaveOptionSupportedFunc)
getPixbufModuleIsSaveOptionSupported :: forall (m :: * -> *).
MonadIO m =>
PixbufModule -> m (Maybe PixbufModuleSaveOptionSupportedFunc)
getPixbufModuleIsSaveOptionSupported PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
FunPtr C_PixbufModuleSaveOptionSupportedFunc
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveOptionSupportedFunc)
Maybe PixbufModuleSaveOptionSupportedFunc
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_PixbufModuleSaveOptionSupportedFunc
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_PixbufModuleSaveOptionSupportedFunc
val' -> do
let val'' :: PixbufModuleSaveOptionSupportedFunc
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleSaveOptionSupportedFunc -> Text -> m Bool
GdkPixbuf.Callbacks.dynamic_PixbufModuleSaveOptionSupportedFunc FunPtr C_PixbufModuleSaveOptionSupportedFunc
val'
forall (m :: * -> *) a. Monad m => a -> m a
return PixbufModuleSaveOptionSupportedFunc
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PixbufModuleSaveOptionSupportedFunc
result
setPixbufModuleIsSaveOptionSupported :: MonadIO m => PixbufModule -> FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveOptionSupportedFunc -> m ()
setPixbufModuleIsSaveOptionSupported :: forall (m :: * -> *).
MonadIO m =>
PixbufModule
-> FunPtr C_PixbufModuleSaveOptionSupportedFunc -> m ()
setPixbufModuleIsSaveOptionSupported PixbufModule
s FunPtr C_PixbufModuleSaveOptionSupportedFunc
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (FunPtr C_PixbufModuleSaveOptionSupportedFunc
val :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveOptionSupportedFunc)
clearPixbufModuleIsSaveOptionSupported :: MonadIO m => PixbufModule -> m ()
clearPixbufModuleIsSaveOptionSupported :: forall (m :: * -> *). MonadIO m => PixbufModule -> m ()
clearPixbufModuleIsSaveOptionSupported PixbufModule
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr PixbufModule
s forall a b. (a -> b) -> a -> b
$ \Ptr PixbufModule
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr PixbufModule
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveOptionSupportedFunc)
#if defined(ENABLE_OVERLOADING)
data PixbufModuleIsSaveOptionSupportedFieldInfo
instance AttrInfo PixbufModuleIsSaveOptionSupportedFieldInfo where
type AttrBaseTypeConstraint PixbufModuleIsSaveOptionSupportedFieldInfo = (~) PixbufModule
type AttrAllowedOps PixbufModuleIsSaveOptionSupportedFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PixbufModuleIsSaveOptionSupportedFieldInfo = (~) (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveOptionSupportedFunc)
type AttrTransferTypeConstraint PixbufModuleIsSaveOptionSupportedFieldInfo = (~)GdkPixbuf.Callbacks.PixbufModuleSaveOptionSupportedFunc
type AttrTransferType PixbufModuleIsSaveOptionSupportedFieldInfo = (FunPtr GdkPixbuf.Callbacks.C_PixbufModuleSaveOptionSupportedFunc)
type AttrGetType PixbufModuleIsSaveOptionSupportedFieldInfo = Maybe GdkPixbuf.Callbacks.PixbufModuleSaveOptionSupportedFunc
type AttrLabel PixbufModuleIsSaveOptionSupportedFieldInfo = "is_save_option_supported"
type AttrOrigin PixbufModuleIsSaveOptionSupportedFieldInfo = PixbufModule
attrGet = getPixbufModuleIsSaveOptionSupported
attrSet = setPixbufModuleIsSaveOptionSupported
attrConstruct = undefined
attrClear = clearPixbufModuleIsSaveOptionSupported
attrTransfer _ v = do
GdkPixbuf.Callbacks.mk_PixbufModuleSaveOptionSupportedFunc (GdkPixbuf.Callbacks.wrap_PixbufModuleSaveOptionSupportedFunc Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GdkPixbuf.Structs.PixbufModule.isSaveOptionSupported"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gdkpixbuf-2.0.29/docs/GI-GdkPixbuf-Structs-PixbufModule.html#g:attr:isSaveOptionSupported"
})
pixbufModule_isSaveOptionSupported :: AttrLabelProxy "isSaveOptionSupported"
pixbufModule_isSaveOptionSupported = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PixbufModule
type instance O.AttributeList PixbufModule = PixbufModuleAttributeList
type PixbufModuleAttributeList = ('[ '("moduleName", PixbufModuleModuleNameFieldInfo), '("modulePath", PixbufModuleModulePathFieldInfo), '("module", PixbufModuleModuleFieldInfo), '("info", PixbufModuleInfoFieldInfo), '("load", PixbufModuleLoadFieldInfo), '("loadXpmData", PixbufModuleLoadXpmDataFieldInfo), '("stopLoad", PixbufModuleStopLoadFieldInfo), '("loadIncrement", PixbufModuleLoadIncrementFieldInfo), '("loadAnimation", PixbufModuleLoadAnimationFieldInfo), '("save", PixbufModuleSaveFieldInfo), '("isSaveOptionSupported", PixbufModuleIsSaveOptionSupportedFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolvePixbufModuleMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePixbufModuleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePixbufModuleMethod t PixbufModule, O.OverloadedMethod info PixbufModule p) => OL.IsLabel t (PixbufModule -> 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 ~ ResolvePixbufModuleMethod t PixbufModule, O.OverloadedMethod info PixbufModule p, R.HasField t PixbufModule p) => R.HasField t PixbufModule p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePixbufModuleMethod t PixbufModule, O.OverloadedMethodInfo info PixbufModule) => OL.IsLabel t (O.MethodProxy info PixbufModule) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif