#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GdkPixbuf.Callbacks
(
C_PixbufDestroyNotify ,
PixbufDestroyNotify ,
PixbufDestroyNotify_WithClosures ,
drop_closures_PixbufDestroyNotify ,
dynamic_PixbufDestroyNotify ,
genClosure_PixbufDestroyNotify ,
mk_PixbufDestroyNotify ,
noPixbufDestroyNotify ,
noPixbufDestroyNotify_WithClosures ,
wrap_PixbufDestroyNotify ,
C_PixbufModuleFillInfoFunc ,
PixbufModuleFillInfoFunc ,
dynamic_PixbufModuleFillInfoFunc ,
genClosure_PixbufModuleFillInfoFunc ,
mk_PixbufModuleFillInfoFunc ,
noPixbufModuleFillInfoFunc ,
wrap_PixbufModuleFillInfoFunc ,
C_PixbufModuleFillVtableFunc ,
PixbufModuleFillVtableFunc ,
dynamic_PixbufModuleFillVtableFunc ,
genClosure_PixbufModuleFillVtableFunc ,
mk_PixbufModuleFillVtableFunc ,
noPixbufModuleFillVtableFunc ,
wrap_PixbufModuleFillVtableFunc ,
C_PixbufModuleIsSaveOptionSupportedFieldCallback,
PixbufModuleIsSaveOptionSupportedFieldCallback,
dynamic_PixbufModuleIsSaveOptionSupportedFieldCallback,
genClosure_PixbufModuleIsSaveOptionSupportedFieldCallback,
mk_PixbufModuleIsSaveOptionSupportedFieldCallback,
noPixbufModuleIsSaveOptionSupportedFieldCallback,
wrap_PixbufModuleIsSaveOptionSupportedFieldCallback,
C_PixbufModuleLoadIncrementFieldCallback,
PixbufModuleLoadIncrementFieldCallback ,
dynamic_PixbufModuleLoadIncrementFieldCallback,
mk_PixbufModuleLoadIncrementFieldCallback,
noPixbufModuleLoadIncrementFieldCallback,
C_PixbufModulePreparedFunc ,
PixbufModulePreparedFunc ,
PixbufModulePreparedFunc_WithClosures ,
drop_closures_PixbufModulePreparedFunc ,
dynamic_PixbufModulePreparedFunc ,
genClosure_PixbufModulePreparedFunc ,
mk_PixbufModulePreparedFunc ,
noPixbufModulePreparedFunc ,
noPixbufModulePreparedFunc_WithClosures ,
wrap_PixbufModulePreparedFunc ,
C_PixbufModuleSaveFieldCallback ,
PixbufModuleSaveFieldCallback ,
dynamic_PixbufModuleSaveFieldCallback ,
mk_PixbufModuleSaveFieldCallback ,
noPixbufModuleSaveFieldCallback ,
C_PixbufModuleSizeFunc ,
PixbufModuleSizeFunc ,
PixbufModuleSizeFunc_WithClosures ,
drop_closures_PixbufModuleSizeFunc ,
dynamic_PixbufModuleSizeFunc ,
genClosure_PixbufModuleSizeFunc ,
mk_PixbufModuleSizeFunc ,
noPixbufModuleSizeFunc ,
noPixbufModuleSizeFunc_WithClosures ,
wrap_PixbufModuleSizeFunc ,
C_PixbufModuleStopLoadFieldCallback ,
PixbufModuleStopLoadFieldCallback ,
dynamic_PixbufModuleStopLoadFieldCallback,
mk_PixbufModuleStopLoadFieldCallback ,
noPixbufModuleStopLoadFieldCallback ,
C_PixbufModuleUpdatedFunc ,
PixbufModuleUpdatedFunc ,
PixbufModuleUpdatedFunc_WithClosures ,
drop_closures_PixbufModuleUpdatedFunc ,
dynamic_PixbufModuleUpdatedFunc ,
genClosure_PixbufModuleUpdatedFunc ,
mk_PixbufModuleUpdatedFunc ,
noPixbufModuleUpdatedFunc ,
noPixbufModuleUpdatedFunc_WithClosures ,
wrap_PixbufModuleUpdatedFunc ,
C_PixbufSaveFunc ,
PixbufSaveFunc ,
PixbufSaveFunc_WithClosures ,
drop_closures_PixbufSaveFunc ,
dynamic_PixbufSaveFunc ,
genClosure_PixbufSaveFunc ,
mk_PixbufSaveFunc ,
noPixbufSaveFunc ,
noPixbufSaveFunc_WithClosures ,
wrap_PixbufSaveFunc ,
) 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.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.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 {-# SOURCE #-} qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import {-# SOURCE #-} qualified GI.GdkPixbuf.Objects.PixbufAnimation as GdkPixbuf.PixbufAnimation
import {-# SOURCE #-} qualified GI.GdkPixbuf.Structs.PixbufFormat as GdkPixbuf.PixbufFormat
import {-# SOURCE #-} qualified GI.GdkPixbuf.Structs.PixbufModule as GdkPixbuf.PixbufModule
type C_PixbufSaveFunc =
Ptr Word8 ->
Word64 ->
Ptr (Ptr GError) ->
Ptr () ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_PixbufSaveFunc :: FunPtr C_PixbufSaveFunc -> C_PixbufSaveFunc
dynamic_PixbufSaveFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufSaveFunc
-> ByteString
-> Ptr ()
-> m ((Bool, GError))
dynamic_PixbufSaveFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufSaveFunc -> ByteString -> Ptr () -> m (Bool, GError)
dynamic_PixbufSaveFunc FunPtr C_PixbufSaveFunc
__funPtr ByteString
buf Ptr ()
data_ = IO (Bool, GError) -> m (Bool, GError)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, GError) -> m (Bool, GError))
-> IO (Bool, GError) -> m (Bool, GError)
forall a b. (a -> b) -> a -> b
$ do
let count :: Word64
count = Int -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word64) -> Int -> Word64
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
buf
Ptr Word8
buf' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
buf
Ptr (Ptr GError)
error_ <- IO (Ptr (Ptr GError))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr GError))
CInt
result <- (FunPtr C_PixbufSaveFunc -> C_PixbufSaveFunc
__dynamic_C_PixbufSaveFunc FunPtr C_PixbufSaveFunc
__funPtr) Ptr Word8
buf' Word64
count Ptr (Ptr GError)
error_ Ptr ()
data_
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr GError
error_' <- Ptr (Ptr GError) -> IO (Ptr GError)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr GError)
error_
GError
error_'' <- ((ManagedPtr GError -> GError) -> Ptr GError -> IO GError
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr GError -> GError
GError) Ptr GError
error_'
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
buf'
Ptr (Ptr GError) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr GError)
error_
(Bool, GError) -> IO (Bool, GError)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', GError
error_'')
foreign import ccall "wrapper"
mk_PixbufSaveFunc :: C_PixbufSaveFunc -> IO (FunPtr C_PixbufSaveFunc)
type PixbufSaveFunc =
ByteString
-> IO ((Bool, GError))
noPixbufSaveFunc :: Maybe PixbufSaveFunc
noPixbufSaveFunc :: Maybe PixbufSaveFunc
noPixbufSaveFunc = Maybe PixbufSaveFunc
forall a. Maybe a
Nothing
type PixbufSaveFunc_WithClosures =
ByteString
-> Ptr ()
-> IO ((Bool, GError))
noPixbufSaveFunc_WithClosures :: Maybe PixbufSaveFunc_WithClosures
noPixbufSaveFunc_WithClosures :: Maybe PixbufSaveFunc_WithClosures
noPixbufSaveFunc_WithClosures = Maybe PixbufSaveFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_PixbufSaveFunc :: PixbufSaveFunc -> PixbufSaveFunc_WithClosures
drop_closures_PixbufSaveFunc :: PixbufSaveFunc -> PixbufSaveFunc_WithClosures
drop_closures_PixbufSaveFunc PixbufSaveFunc
_f ByteString
buf Ptr ()
_ = PixbufSaveFunc
_f ByteString
buf
genClosure_PixbufSaveFunc :: MonadIO m => PixbufSaveFunc -> m (GClosure C_PixbufSaveFunc)
genClosure_PixbufSaveFunc :: forall (m :: * -> *).
MonadIO m =>
PixbufSaveFunc -> m (GClosure C_PixbufSaveFunc)
genClosure_PixbufSaveFunc PixbufSaveFunc
cb = IO (GClosure C_PixbufSaveFunc) -> m (GClosure C_PixbufSaveFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufSaveFunc) -> m (GClosure C_PixbufSaveFunc))
-> IO (GClosure C_PixbufSaveFunc) -> m (GClosure C_PixbufSaveFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: PixbufSaveFunc_WithClosures
cb' = PixbufSaveFunc -> PixbufSaveFunc_WithClosures
drop_closures_PixbufSaveFunc PixbufSaveFunc
cb
let cb'' :: C_PixbufSaveFunc
cb'' = Maybe (Ptr (FunPtr C_PixbufSaveFunc))
-> PixbufSaveFunc_WithClosures -> C_PixbufSaveFunc
wrap_PixbufSaveFunc Maybe (Ptr (FunPtr C_PixbufSaveFunc))
forall a. Maybe a
Nothing PixbufSaveFunc_WithClosures
cb'
C_PixbufSaveFunc -> IO (FunPtr C_PixbufSaveFunc)
mk_PixbufSaveFunc C_PixbufSaveFunc
cb'' IO (FunPtr C_PixbufSaveFunc)
-> (FunPtr C_PixbufSaveFunc -> IO (GClosure C_PixbufSaveFunc))
-> IO (GClosure C_PixbufSaveFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufSaveFunc -> IO (GClosure C_PixbufSaveFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufSaveFunc ::
Maybe (Ptr (FunPtr C_PixbufSaveFunc)) ->
PixbufSaveFunc_WithClosures ->
C_PixbufSaveFunc
wrap_PixbufSaveFunc :: Maybe (Ptr (FunPtr C_PixbufSaveFunc))
-> PixbufSaveFunc_WithClosures -> C_PixbufSaveFunc
wrap_PixbufSaveFunc Maybe (Ptr (FunPtr C_PixbufSaveFunc))
gi'funptrptr PixbufSaveFunc_WithClosures
gi'cb Ptr Word8
buf Word64
count Ptr (Ptr GError)
error_ Ptr ()
data_ = do
ByteString
buf' <- (Word64 -> Ptr Word8 -> IO ByteString
forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength Word64
count) Ptr Word8
buf
(Bool
result, GError
outerror_) <- PixbufSaveFunc_WithClosures
gi'cb ByteString
buf' Ptr ()
data_
Ptr GError
outerror_' <- GError -> IO (Ptr GError)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed GError
outerror_
Ptr (Ptr GError) -> Ptr GError -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (Ptr GError)
error_ Ptr GError
outerror_'
Maybe (Ptr (FunPtr C_PixbufSaveFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PixbufSaveFunc))
gi'funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_PixbufModuleUpdatedFunc =
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PixbufModuleUpdatedFunc :: FunPtr C_PixbufModuleUpdatedFunc -> C_PixbufModuleUpdatedFunc
dynamic_PixbufModuleUpdatedFunc ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
FunPtr C_PixbufModuleUpdatedFunc
-> a
-> Int32
-> Int32
-> Int32
-> Int32
-> Ptr ()
-> m ()
dynamic_PixbufModuleUpdatedFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
FunPtr C_PixbufModuleUpdatedFunc
-> a -> Int32 -> Int32 -> Int32 -> Int32 -> Ptr () -> m ()
dynamic_PixbufModuleUpdatedFunc FunPtr C_PixbufModuleUpdatedFunc
__funPtr a
pixbuf Int32
x Int32
y Int32
width Int32
height Ptr ()
userData = 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 Pixbuf
pixbuf' <- a -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pixbuf
(FunPtr C_PixbufModuleUpdatedFunc -> C_PixbufModuleUpdatedFunc
__dynamic_C_PixbufModuleUpdatedFunc FunPtr C_PixbufModuleUpdatedFunc
__funPtr) Ptr Pixbuf
pixbuf' Int32
x Int32
y Int32
width Int32
height Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pixbuf
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_PixbufModuleUpdatedFunc :: C_PixbufModuleUpdatedFunc -> IO (FunPtr C_PixbufModuleUpdatedFunc)
type PixbufModuleUpdatedFunc =
GdkPixbuf.Pixbuf.Pixbuf
-> Int32
-> Int32
-> Int32
-> Int32
-> IO ()
noPixbufModuleUpdatedFunc :: Maybe PixbufModuleUpdatedFunc
noPixbufModuleUpdatedFunc :: Maybe PixbufModuleUpdatedFunc
noPixbufModuleUpdatedFunc = Maybe PixbufModuleUpdatedFunc
forall a. Maybe a
Nothing
type PixbufModuleUpdatedFunc_WithClosures =
GdkPixbuf.Pixbuf.Pixbuf
-> Int32
-> Int32
-> Int32
-> Int32
-> Ptr ()
-> IO ()
noPixbufModuleUpdatedFunc_WithClosures :: Maybe PixbufModuleUpdatedFunc_WithClosures
noPixbufModuleUpdatedFunc_WithClosures :: Maybe PixbufModuleUpdatedFunc_WithClosures
noPixbufModuleUpdatedFunc_WithClosures = Maybe PixbufModuleUpdatedFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_PixbufModuleUpdatedFunc :: PixbufModuleUpdatedFunc -> PixbufModuleUpdatedFunc_WithClosures
drop_closures_PixbufModuleUpdatedFunc :: PixbufModuleUpdatedFunc -> PixbufModuleUpdatedFunc_WithClosures
drop_closures_PixbufModuleUpdatedFunc PixbufModuleUpdatedFunc
_f Pixbuf
pixbuf Int32
x Int32
y Int32
width Int32
height Ptr ()
_ = PixbufModuleUpdatedFunc
_f Pixbuf
pixbuf Int32
x Int32
y Int32
width Int32
height
genClosure_PixbufModuleUpdatedFunc :: MonadIO m => PixbufModuleUpdatedFunc -> m (GClosure C_PixbufModuleUpdatedFunc)
genClosure_PixbufModuleUpdatedFunc :: forall (m :: * -> *).
MonadIO m =>
PixbufModuleUpdatedFunc -> m (GClosure C_PixbufModuleUpdatedFunc)
genClosure_PixbufModuleUpdatedFunc PixbufModuleUpdatedFunc
cb = IO (GClosure C_PixbufModuleUpdatedFunc)
-> m (GClosure C_PixbufModuleUpdatedFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufModuleUpdatedFunc)
-> m (GClosure C_PixbufModuleUpdatedFunc))
-> IO (GClosure C_PixbufModuleUpdatedFunc)
-> m (GClosure C_PixbufModuleUpdatedFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: PixbufModuleUpdatedFunc_WithClosures
cb' = PixbufModuleUpdatedFunc -> PixbufModuleUpdatedFunc_WithClosures
drop_closures_PixbufModuleUpdatedFunc PixbufModuleUpdatedFunc
cb
let cb'' :: C_PixbufModuleUpdatedFunc
cb'' = Maybe (Ptr (FunPtr C_PixbufModuleUpdatedFunc))
-> PixbufModuleUpdatedFunc_WithClosures
-> C_PixbufModuleUpdatedFunc
wrap_PixbufModuleUpdatedFunc Maybe (Ptr (FunPtr C_PixbufModuleUpdatedFunc))
forall a. Maybe a
Nothing PixbufModuleUpdatedFunc_WithClosures
cb'
C_PixbufModuleUpdatedFunc -> IO (FunPtr C_PixbufModuleUpdatedFunc)
mk_PixbufModuleUpdatedFunc C_PixbufModuleUpdatedFunc
cb'' IO (FunPtr C_PixbufModuleUpdatedFunc)
-> (FunPtr C_PixbufModuleUpdatedFunc
-> IO (GClosure C_PixbufModuleUpdatedFunc))
-> IO (GClosure C_PixbufModuleUpdatedFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufModuleUpdatedFunc
-> IO (GClosure C_PixbufModuleUpdatedFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufModuleUpdatedFunc ::
Maybe (Ptr (FunPtr C_PixbufModuleUpdatedFunc)) ->
PixbufModuleUpdatedFunc_WithClosures ->
C_PixbufModuleUpdatedFunc
wrap_PixbufModuleUpdatedFunc :: Maybe (Ptr (FunPtr C_PixbufModuleUpdatedFunc))
-> PixbufModuleUpdatedFunc_WithClosures
-> C_PixbufModuleUpdatedFunc
wrap_PixbufModuleUpdatedFunc Maybe (Ptr (FunPtr C_PixbufModuleUpdatedFunc))
gi'funptrptr PixbufModuleUpdatedFunc_WithClosures
gi'cb Ptr Pixbuf
pixbuf Int32
x Int32
y Int32
width Int32
height Ptr ()
userData = do
Pixbuf
pixbuf' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
pixbuf
PixbufModuleUpdatedFunc_WithClosures
gi'cb Pixbuf
pixbuf' Int32
x Int32
y Int32
width Int32
height Ptr ()
userData
Maybe (Ptr (FunPtr C_PixbufModuleUpdatedFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PixbufModuleUpdatedFunc))
gi'funptrptr
type C_PixbufModuleStopLoadFieldCallback =
Ptr () ->
Ptr (Ptr GError) ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_PixbufModuleStopLoadFieldCallback :: FunPtr C_PixbufModuleStopLoadFieldCallback -> C_PixbufModuleStopLoadFieldCallback
dynamic_PixbufModuleStopLoadFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleStopLoadFieldCallback
-> Ptr ()
-> m ()
dynamic_PixbufModuleStopLoadFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleStopLoadFieldCallback -> Ptr () -> m ()
dynamic_PixbufModuleStopLoadFieldCallback FunPtr C_PixbufModuleStopLoadFieldCallback
__funPtr Ptr ()
context = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ (FunPtr C_PixbufModuleStopLoadFieldCallback
-> C_PixbufModuleStopLoadFieldCallback
__dynamic_C_PixbufModuleStopLoadFieldCallback FunPtr C_PixbufModuleStopLoadFieldCallback
__funPtr) Ptr ()
context
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
foreign import ccall "wrapper"
mk_PixbufModuleStopLoadFieldCallback :: C_PixbufModuleStopLoadFieldCallback -> IO (FunPtr C_PixbufModuleStopLoadFieldCallback)
type PixbufModuleStopLoadFieldCallback =
Ptr ()
-> IO ()
noPixbufModuleStopLoadFieldCallback :: Maybe PixbufModuleStopLoadFieldCallback
noPixbufModuleStopLoadFieldCallback :: Maybe PixbufModuleStopLoadFieldCallback
noPixbufModuleStopLoadFieldCallback = Maybe PixbufModuleStopLoadFieldCallback
forall a. Maybe a
Nothing
type C_PixbufModuleSizeFunc =
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PixbufModuleSizeFunc :: FunPtr C_PixbufModuleSizeFunc -> C_PixbufModuleSizeFunc
dynamic_PixbufModuleSizeFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleSizeFunc
-> Int32
-> Int32
-> Ptr ()
-> m ()
dynamic_PixbufModuleSizeFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleSizeFunc -> Int32 -> Int32 -> Ptr () -> m ()
dynamic_PixbufModuleSizeFunc FunPtr C_PixbufModuleSizeFunc
__funPtr Int32
width Int32
height Ptr ()
userData = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
(FunPtr C_PixbufModuleSizeFunc -> C_PixbufModuleSizeFunc
__dynamic_C_PixbufModuleSizeFunc FunPtr C_PixbufModuleSizeFunc
__funPtr) Int32
width Int32
height Ptr ()
userData
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_PixbufModuleSizeFunc :: C_PixbufModuleSizeFunc -> IO (FunPtr C_PixbufModuleSizeFunc)
type PixbufModuleSizeFunc =
Int32
-> Int32
-> IO ()
noPixbufModuleSizeFunc :: Maybe PixbufModuleSizeFunc
noPixbufModuleSizeFunc :: Maybe PixbufModuleSizeFunc
noPixbufModuleSizeFunc = Maybe PixbufModuleSizeFunc
forall a. Maybe a
Nothing
type PixbufModuleSizeFunc_WithClosures =
Int32
-> Int32
-> Ptr ()
-> IO ()
noPixbufModuleSizeFunc_WithClosures :: Maybe PixbufModuleSizeFunc_WithClosures
noPixbufModuleSizeFunc_WithClosures :: Maybe C_PixbufModuleSizeFunc
noPixbufModuleSizeFunc_WithClosures = Maybe C_PixbufModuleSizeFunc
forall a. Maybe a
Nothing
drop_closures_PixbufModuleSizeFunc :: PixbufModuleSizeFunc -> PixbufModuleSizeFunc_WithClosures
drop_closures_PixbufModuleSizeFunc :: PixbufModuleSizeFunc -> C_PixbufModuleSizeFunc
drop_closures_PixbufModuleSizeFunc PixbufModuleSizeFunc
_f Int32
width Int32
height Ptr ()
_ = PixbufModuleSizeFunc
_f Int32
width Int32
height
genClosure_PixbufModuleSizeFunc :: MonadIO m => PixbufModuleSizeFunc -> m (GClosure C_PixbufModuleSizeFunc)
genClosure_PixbufModuleSizeFunc :: forall (m :: * -> *).
MonadIO m =>
PixbufModuleSizeFunc -> m (GClosure C_PixbufModuleSizeFunc)
genClosure_PixbufModuleSizeFunc PixbufModuleSizeFunc
cb = IO (GClosure C_PixbufModuleSizeFunc)
-> m (GClosure C_PixbufModuleSizeFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufModuleSizeFunc)
-> m (GClosure C_PixbufModuleSizeFunc))
-> IO (GClosure C_PixbufModuleSizeFunc)
-> m (GClosure C_PixbufModuleSizeFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PixbufModuleSizeFunc
cb' = PixbufModuleSizeFunc -> C_PixbufModuleSizeFunc
drop_closures_PixbufModuleSizeFunc PixbufModuleSizeFunc
cb
let cb'' :: C_PixbufModuleSizeFunc
cb'' = Maybe (Ptr (FunPtr C_PixbufModuleSizeFunc))
-> C_PixbufModuleSizeFunc -> C_PixbufModuleSizeFunc
wrap_PixbufModuleSizeFunc Maybe (Ptr (FunPtr C_PixbufModuleSizeFunc))
forall a. Maybe a
Nothing C_PixbufModuleSizeFunc
cb'
C_PixbufModuleSizeFunc -> IO (FunPtr C_PixbufModuleSizeFunc)
mk_PixbufModuleSizeFunc C_PixbufModuleSizeFunc
cb'' IO (FunPtr C_PixbufModuleSizeFunc)
-> (FunPtr C_PixbufModuleSizeFunc
-> IO (GClosure C_PixbufModuleSizeFunc))
-> IO (GClosure C_PixbufModuleSizeFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufModuleSizeFunc
-> IO (GClosure C_PixbufModuleSizeFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufModuleSizeFunc ::
Maybe (Ptr (FunPtr C_PixbufModuleSizeFunc)) ->
PixbufModuleSizeFunc_WithClosures ->
C_PixbufModuleSizeFunc
wrap_PixbufModuleSizeFunc :: Maybe (Ptr (FunPtr C_PixbufModuleSizeFunc))
-> C_PixbufModuleSizeFunc -> C_PixbufModuleSizeFunc
wrap_PixbufModuleSizeFunc Maybe (Ptr (FunPtr C_PixbufModuleSizeFunc))
gi'funptrptr C_PixbufModuleSizeFunc
gi'cb Int32
width Int32
height Ptr ()
userData = do
C_PixbufModuleSizeFunc
gi'cb Int32
width Int32
height Ptr ()
userData
Maybe (Ptr (FunPtr C_PixbufModuleSizeFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PixbufModuleSizeFunc))
gi'funptrptr
type C_PixbufModuleSaveFieldCallback =
Ptr () ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_PixbufModuleSaveFieldCallback :: FunPtr C_PixbufModuleSaveFieldCallback -> C_PixbufModuleSaveFieldCallback
dynamic_PixbufModuleSaveFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
FunPtr C_PixbufModuleSaveFieldCallback
-> Ptr ()
-> a
-> T.Text
-> T.Text
-> m ()
dynamic_PixbufModuleSaveFieldCallback :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
FunPtr C_PixbufModuleSaveFieldCallback
-> Ptr () -> a -> Text -> Text -> m ()
dynamic_PixbufModuleSaveFieldCallback FunPtr C_PixbufModuleSaveFieldCallback
__funPtr Ptr ()
f a
pixbuf Text
paramKeys Text
paramValues = 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 Pixbuf
pixbuf' <- a -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pixbuf
CString
paramKeys' <- Text -> IO CString
textToCString Text
paramKeys
CString
paramValues' <- Text -> IO CString
textToCString Text
paramValues
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ (FunPtr C_PixbufModuleSaveFieldCallback
-> C_PixbufModuleSaveFieldCallback
__dynamic_C_PixbufModuleSaveFieldCallback FunPtr C_PixbufModuleSaveFieldCallback
__funPtr) Ptr ()
f Ptr Pixbuf
pixbuf' CString
paramKeys' CString
paramValues'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pixbuf
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
paramKeys'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
paramValues'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
paramKeys'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
paramValues'
)
foreign import ccall "wrapper"
mk_PixbufModuleSaveFieldCallback :: C_PixbufModuleSaveFieldCallback -> IO (FunPtr C_PixbufModuleSaveFieldCallback)
type PixbufModuleSaveFieldCallback =
Ptr ()
-> GdkPixbuf.Pixbuf.Pixbuf
-> T.Text
-> T.Text
-> IO ()
noPixbufModuleSaveFieldCallback :: Maybe PixbufModuleSaveFieldCallback
noPixbufModuleSaveFieldCallback :: Maybe PixbufModuleSaveFieldCallback
noPixbufModuleSaveFieldCallback = Maybe PixbufModuleSaveFieldCallback
forall a. Maybe a
Nothing
type C_PixbufModulePreparedFunc =
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
Ptr GdkPixbuf.PixbufAnimation.PixbufAnimation ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PixbufModulePreparedFunc :: FunPtr C_PixbufModulePreparedFunc -> C_PixbufModulePreparedFunc
dynamic_PixbufModulePreparedFunc ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a, GdkPixbuf.PixbufAnimation.IsPixbufAnimation b) =>
FunPtr C_PixbufModulePreparedFunc
-> a
-> b
-> Ptr ()
-> m ()
dynamic_PixbufModulePreparedFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsPixbuf a, IsPixbufAnimation b) =>
FunPtr C_PixbufModulePreparedFunc -> a -> b -> Ptr () -> m ()
dynamic_PixbufModulePreparedFunc FunPtr C_PixbufModulePreparedFunc
__funPtr a
pixbuf b
anim Ptr ()
userData = 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 Pixbuf
pixbuf' <- a -> IO (Ptr Pixbuf)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pixbuf
Ptr PixbufAnimation
anim' <- b -> IO (Ptr PixbufAnimation)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
anim
(FunPtr C_PixbufModulePreparedFunc -> C_PixbufModulePreparedFunc
__dynamic_C_PixbufModulePreparedFunc FunPtr C_PixbufModulePreparedFunc
__funPtr) Ptr Pixbuf
pixbuf' Ptr PixbufAnimation
anim' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pixbuf
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
anim
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_PixbufModulePreparedFunc :: C_PixbufModulePreparedFunc -> IO (FunPtr C_PixbufModulePreparedFunc)
type PixbufModulePreparedFunc =
GdkPixbuf.Pixbuf.Pixbuf
-> GdkPixbuf.PixbufAnimation.PixbufAnimation
-> IO ()
noPixbufModulePreparedFunc :: Maybe PixbufModulePreparedFunc
noPixbufModulePreparedFunc :: Maybe PixbufModulePreparedFunc
noPixbufModulePreparedFunc = Maybe PixbufModulePreparedFunc
forall a. Maybe a
Nothing
type PixbufModulePreparedFunc_WithClosures =
GdkPixbuf.Pixbuf.Pixbuf
-> GdkPixbuf.PixbufAnimation.PixbufAnimation
-> Ptr ()
-> IO ()
noPixbufModulePreparedFunc_WithClosures :: Maybe PixbufModulePreparedFunc_WithClosures
noPixbufModulePreparedFunc_WithClosures :: Maybe PixbufModulePreparedFunc_WithClosures
noPixbufModulePreparedFunc_WithClosures = Maybe PixbufModulePreparedFunc_WithClosures
forall a. Maybe a
Nothing
drop_closures_PixbufModulePreparedFunc :: PixbufModulePreparedFunc -> PixbufModulePreparedFunc_WithClosures
drop_closures_PixbufModulePreparedFunc :: PixbufModulePreparedFunc -> PixbufModulePreparedFunc_WithClosures
drop_closures_PixbufModulePreparedFunc PixbufModulePreparedFunc
_f Pixbuf
pixbuf PixbufAnimation
anim Ptr ()
_ = PixbufModulePreparedFunc
_f Pixbuf
pixbuf PixbufAnimation
anim
genClosure_PixbufModulePreparedFunc :: MonadIO m => PixbufModulePreparedFunc -> m (GClosure C_PixbufModulePreparedFunc)
genClosure_PixbufModulePreparedFunc :: forall (m :: * -> *).
MonadIO m =>
PixbufModulePreparedFunc -> m (GClosure C_PixbufModulePreparedFunc)
genClosure_PixbufModulePreparedFunc PixbufModulePreparedFunc
cb = IO (GClosure C_PixbufModulePreparedFunc)
-> m (GClosure C_PixbufModulePreparedFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufModulePreparedFunc)
-> m (GClosure C_PixbufModulePreparedFunc))
-> IO (GClosure C_PixbufModulePreparedFunc)
-> m (GClosure C_PixbufModulePreparedFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: PixbufModulePreparedFunc_WithClosures
cb' = PixbufModulePreparedFunc -> PixbufModulePreparedFunc_WithClosures
drop_closures_PixbufModulePreparedFunc PixbufModulePreparedFunc
cb
let cb'' :: C_PixbufModulePreparedFunc
cb'' = Maybe (Ptr (FunPtr C_PixbufModulePreparedFunc))
-> PixbufModulePreparedFunc_WithClosures
-> C_PixbufModulePreparedFunc
wrap_PixbufModulePreparedFunc Maybe (Ptr (FunPtr C_PixbufModulePreparedFunc))
forall a. Maybe a
Nothing PixbufModulePreparedFunc_WithClosures
cb'
C_PixbufModulePreparedFunc
-> IO (FunPtr C_PixbufModulePreparedFunc)
mk_PixbufModulePreparedFunc C_PixbufModulePreparedFunc
cb'' IO (FunPtr C_PixbufModulePreparedFunc)
-> (FunPtr C_PixbufModulePreparedFunc
-> IO (GClosure C_PixbufModulePreparedFunc))
-> IO (GClosure C_PixbufModulePreparedFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufModulePreparedFunc
-> IO (GClosure C_PixbufModulePreparedFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufModulePreparedFunc ::
Maybe (Ptr (FunPtr C_PixbufModulePreparedFunc)) ->
PixbufModulePreparedFunc_WithClosures ->
C_PixbufModulePreparedFunc
wrap_PixbufModulePreparedFunc :: Maybe (Ptr (FunPtr C_PixbufModulePreparedFunc))
-> PixbufModulePreparedFunc_WithClosures
-> C_PixbufModulePreparedFunc
wrap_PixbufModulePreparedFunc Maybe (Ptr (FunPtr C_PixbufModulePreparedFunc))
gi'funptrptr PixbufModulePreparedFunc_WithClosures
gi'cb Ptr Pixbuf
pixbuf Ptr PixbufAnimation
anim Ptr ()
userData = do
Pixbuf
pixbuf' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
pixbuf
PixbufAnimation
anim' <- ((ManagedPtr PixbufAnimation -> PixbufAnimation)
-> Ptr PixbufAnimation -> IO PixbufAnimation
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr PixbufAnimation -> PixbufAnimation
GdkPixbuf.PixbufAnimation.PixbufAnimation) Ptr PixbufAnimation
anim
PixbufModulePreparedFunc_WithClosures
gi'cb Pixbuf
pixbuf' PixbufAnimation
anim' Ptr ()
userData
Maybe (Ptr (FunPtr C_PixbufModulePreparedFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PixbufModulePreparedFunc))
gi'funptrptr
type C_PixbufModuleLoadIncrementFieldCallback =
Ptr () ->
Word8 ->
Word32 ->
Ptr (Ptr GError) ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_PixbufModuleLoadIncrementFieldCallback :: FunPtr C_PixbufModuleLoadIncrementFieldCallback -> C_PixbufModuleLoadIncrementFieldCallback
dynamic_PixbufModuleLoadIncrementFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleLoadIncrementFieldCallback
-> Ptr ()
-> Word8
-> Word32
-> m ()
dynamic_PixbufModuleLoadIncrementFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleLoadIncrementFieldCallback
-> Ptr () -> Word8 -> Word32 -> m ()
dynamic_PixbufModuleLoadIncrementFieldCallback FunPtr C_PixbufModuleLoadIncrementFieldCallback
__funPtr Ptr ()
context Word8
buf Word32
size = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ (FunPtr C_PixbufModuleLoadIncrementFieldCallback
-> C_PixbufModuleLoadIncrementFieldCallback
__dynamic_C_PixbufModuleLoadIncrementFieldCallback FunPtr C_PixbufModuleLoadIncrementFieldCallback
__funPtr) Ptr ()
context Word8
buf Word32
size
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
foreign import ccall "wrapper"
mk_PixbufModuleLoadIncrementFieldCallback :: C_PixbufModuleLoadIncrementFieldCallback -> IO (FunPtr C_PixbufModuleLoadIncrementFieldCallback)
type PixbufModuleLoadIncrementFieldCallback =
Ptr ()
-> Word8
-> Word32
-> IO ()
noPixbufModuleLoadIncrementFieldCallback :: Maybe PixbufModuleLoadIncrementFieldCallback
noPixbufModuleLoadIncrementFieldCallback :: Maybe PixbufModuleLoadIncrementFieldCallback
noPixbufModuleLoadIncrementFieldCallback = Maybe PixbufModuleLoadIncrementFieldCallback
forall a. Maybe a
Nothing
type C_PixbufModuleIsSaveOptionSupportedFieldCallback =
CString ->
IO CInt
foreign import ccall "dynamic" __dynamic_C_PixbufModuleIsSaveOptionSupportedFieldCallback :: FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback -> C_PixbufModuleIsSaveOptionSupportedFieldCallback
dynamic_PixbufModuleIsSaveOptionSupportedFieldCallback ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback
-> T.Text
-> m Bool
dynamic_PixbufModuleIsSaveOptionSupportedFieldCallback :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback
-> Text -> m Bool
dynamic_PixbufModuleIsSaveOptionSupportedFieldCallback FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback
__funPtr Text
optionKey = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
CString
optionKey' <- Text -> IO CString
textToCString Text
optionKey
CInt
result <- (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback
-> C_PixbufModuleIsSaveOptionSupportedFieldCallback
__dynamic_C_PixbufModuleIsSaveOptionSupportedFieldCallback FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback
__funPtr) CString
optionKey'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
optionKey'
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
foreign import ccall "wrapper"
mk_PixbufModuleIsSaveOptionSupportedFieldCallback :: C_PixbufModuleIsSaveOptionSupportedFieldCallback -> IO (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback)
type PixbufModuleIsSaveOptionSupportedFieldCallback =
T.Text
-> IO Bool
noPixbufModuleIsSaveOptionSupportedFieldCallback :: Maybe PixbufModuleIsSaveOptionSupportedFieldCallback
noPixbufModuleIsSaveOptionSupportedFieldCallback :: Maybe PixbufModuleIsSaveOptionSupportedFieldCallback
noPixbufModuleIsSaveOptionSupportedFieldCallback = Maybe PixbufModuleIsSaveOptionSupportedFieldCallback
forall a. Maybe a
Nothing
genClosure_PixbufModuleIsSaveOptionSupportedFieldCallback :: MonadIO m => PixbufModuleIsSaveOptionSupportedFieldCallback -> m (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
genClosure_PixbufModuleIsSaveOptionSupportedFieldCallback :: forall (m :: * -> *).
MonadIO m =>
PixbufModuleIsSaveOptionSupportedFieldCallback
-> m (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
genClosure_PixbufModuleIsSaveOptionSupportedFieldCallback PixbufModuleIsSaveOptionSupportedFieldCallback
cb = IO (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
-> m (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
-> m (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback))
-> IO (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
-> m (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PixbufModuleIsSaveOptionSupportedFieldCallback
cb' = Maybe
(Ptr (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback))
-> PixbufModuleIsSaveOptionSupportedFieldCallback
-> C_PixbufModuleIsSaveOptionSupportedFieldCallback
wrap_PixbufModuleIsSaveOptionSupportedFieldCallback Maybe
(Ptr (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback))
forall a. Maybe a
Nothing PixbufModuleIsSaveOptionSupportedFieldCallback
cb
C_PixbufModuleIsSaveOptionSupportedFieldCallback
-> IO (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback)
mk_PixbufModuleIsSaveOptionSupportedFieldCallback C_PixbufModuleIsSaveOptionSupportedFieldCallback
cb' IO (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback)
-> (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback
-> IO (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback))
-> IO (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback
-> IO (GClosure C_PixbufModuleIsSaveOptionSupportedFieldCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufModuleIsSaveOptionSupportedFieldCallback ::
Maybe (Ptr (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback)) ->
PixbufModuleIsSaveOptionSupportedFieldCallback ->
C_PixbufModuleIsSaveOptionSupportedFieldCallback
wrap_PixbufModuleIsSaveOptionSupportedFieldCallback :: Maybe
(Ptr (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback))
-> PixbufModuleIsSaveOptionSupportedFieldCallback
-> C_PixbufModuleIsSaveOptionSupportedFieldCallback
wrap_PixbufModuleIsSaveOptionSupportedFieldCallback Maybe
(Ptr (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback))
gi'funptrptr PixbufModuleIsSaveOptionSupportedFieldCallback
gi'cb CString
optionKey = do
Text
optionKey' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
optionKey
Bool
result <- PixbufModuleIsSaveOptionSupportedFieldCallback
gi'cb Text
optionKey'
Maybe
(Ptr (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback))
-> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe
(Ptr (FunPtr C_PixbufModuleIsSaveOptionSupportedFieldCallback))
gi'funptrptr
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
type C_PixbufModuleFillVtableFunc =
Ptr GdkPixbuf.PixbufModule.PixbufModule ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PixbufModuleFillVtableFunc :: FunPtr C_PixbufModuleFillVtableFunc -> C_PixbufModuleFillVtableFunc
dynamic_PixbufModuleFillVtableFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleFillVtableFunc
-> GdkPixbuf.PixbufModule.PixbufModule
-> m ()
dynamic_PixbufModuleFillVtableFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleFillVtableFunc -> PixbufModule -> m ()
dynamic_PixbufModuleFillVtableFunc FunPtr C_PixbufModuleFillVtableFunc
__funPtr PixbufModule
module_ = 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 PixbufModule
module_' <- PixbufModule -> IO (Ptr PixbufModule)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PixbufModule
module_
(FunPtr C_PixbufModuleFillVtableFunc -> C_PixbufModuleFillVtableFunc
__dynamic_C_PixbufModuleFillVtableFunc FunPtr C_PixbufModuleFillVtableFunc
__funPtr) Ptr PixbufModule
module_'
PixbufModule -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PixbufModule
module_
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_PixbufModuleFillVtableFunc :: C_PixbufModuleFillVtableFunc -> IO (FunPtr C_PixbufModuleFillVtableFunc)
type PixbufModuleFillVtableFunc =
GdkPixbuf.PixbufModule.PixbufModule
-> IO ()
noPixbufModuleFillVtableFunc :: Maybe PixbufModuleFillVtableFunc
noPixbufModuleFillVtableFunc :: Maybe (PixbufModule -> IO ())
noPixbufModuleFillVtableFunc = Maybe (PixbufModule -> IO ())
forall a. Maybe a
Nothing
genClosure_PixbufModuleFillVtableFunc :: MonadIO m => PixbufModuleFillVtableFunc -> m (GClosure C_PixbufModuleFillVtableFunc)
genClosure_PixbufModuleFillVtableFunc :: forall (m :: * -> *).
MonadIO m =>
(PixbufModule -> IO ())
-> m (GClosure C_PixbufModuleFillVtableFunc)
genClosure_PixbufModuleFillVtableFunc PixbufModule -> IO ()
cb = IO (GClosure C_PixbufModuleFillVtableFunc)
-> m (GClosure C_PixbufModuleFillVtableFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufModuleFillVtableFunc)
-> m (GClosure C_PixbufModuleFillVtableFunc))
-> IO (GClosure C_PixbufModuleFillVtableFunc)
-> m (GClosure C_PixbufModuleFillVtableFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PixbufModuleFillVtableFunc
cb' = Maybe (Ptr (FunPtr C_PixbufModuleFillVtableFunc))
-> (PixbufModule -> IO ()) -> C_PixbufModuleFillVtableFunc
wrap_PixbufModuleFillVtableFunc Maybe (Ptr (FunPtr C_PixbufModuleFillVtableFunc))
forall a. Maybe a
Nothing PixbufModule -> IO ()
cb
C_PixbufModuleFillVtableFunc
-> IO (FunPtr C_PixbufModuleFillVtableFunc)
mk_PixbufModuleFillVtableFunc C_PixbufModuleFillVtableFunc
cb' IO (FunPtr C_PixbufModuleFillVtableFunc)
-> (FunPtr C_PixbufModuleFillVtableFunc
-> IO (GClosure C_PixbufModuleFillVtableFunc))
-> IO (GClosure C_PixbufModuleFillVtableFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufModuleFillVtableFunc
-> IO (GClosure C_PixbufModuleFillVtableFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufModuleFillVtableFunc ::
Maybe (Ptr (FunPtr C_PixbufModuleFillVtableFunc)) ->
PixbufModuleFillVtableFunc ->
C_PixbufModuleFillVtableFunc
wrap_PixbufModuleFillVtableFunc :: Maybe (Ptr (FunPtr C_PixbufModuleFillVtableFunc))
-> (PixbufModule -> IO ()) -> C_PixbufModuleFillVtableFunc
wrap_PixbufModuleFillVtableFunc Maybe (Ptr (FunPtr C_PixbufModuleFillVtableFunc))
gi'funptrptr PixbufModule -> IO ()
gi'cb Ptr PixbufModule
module_ = do
PixbufModule
module_' <- ((ManagedPtr PixbufModule -> PixbufModule)
-> Ptr PixbufModule -> IO PixbufModule
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr PixbufModule -> PixbufModule
GdkPixbuf.PixbufModule.PixbufModule) Ptr PixbufModule
module_
PixbufModule -> IO ()
gi'cb PixbufModule
module_'
Maybe (Ptr (FunPtr C_PixbufModuleFillVtableFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PixbufModuleFillVtableFunc))
gi'funptrptr
type C_PixbufModuleFillInfoFunc =
Ptr GdkPixbuf.PixbufFormat.PixbufFormat ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PixbufModuleFillInfoFunc :: FunPtr C_PixbufModuleFillInfoFunc -> C_PixbufModuleFillInfoFunc
dynamic_PixbufModuleFillInfoFunc ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleFillInfoFunc
-> GdkPixbuf.PixbufFormat.PixbufFormat
-> m ()
dynamic_PixbufModuleFillInfoFunc :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufModuleFillInfoFunc -> PixbufFormat -> m ()
dynamic_PixbufModuleFillInfoFunc FunPtr C_PixbufModuleFillInfoFunc
__funPtr PixbufFormat
info = 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 PixbufFormat
info' <- PixbufFormat -> IO (Ptr PixbufFormat)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PixbufFormat
info
(FunPtr C_PixbufModuleFillInfoFunc -> C_PixbufModuleFillInfoFunc
__dynamic_C_PixbufModuleFillInfoFunc FunPtr C_PixbufModuleFillInfoFunc
__funPtr) Ptr PixbufFormat
info'
PixbufFormat -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PixbufFormat
info
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_PixbufModuleFillInfoFunc :: C_PixbufModuleFillInfoFunc -> IO (FunPtr C_PixbufModuleFillInfoFunc)
type PixbufModuleFillInfoFunc =
GdkPixbuf.PixbufFormat.PixbufFormat
-> IO ()
noPixbufModuleFillInfoFunc :: Maybe PixbufModuleFillInfoFunc
noPixbufModuleFillInfoFunc :: Maybe (PixbufFormat -> IO ())
noPixbufModuleFillInfoFunc = Maybe (PixbufFormat -> IO ())
forall a. Maybe a
Nothing
genClosure_PixbufModuleFillInfoFunc :: MonadIO m => PixbufModuleFillInfoFunc -> m (GClosure C_PixbufModuleFillInfoFunc)
genClosure_PixbufModuleFillInfoFunc :: forall (m :: * -> *).
MonadIO m =>
(PixbufFormat -> IO ()) -> m (GClosure C_PixbufModuleFillInfoFunc)
genClosure_PixbufModuleFillInfoFunc PixbufFormat -> IO ()
cb = IO (GClosure C_PixbufModuleFillInfoFunc)
-> m (GClosure C_PixbufModuleFillInfoFunc)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufModuleFillInfoFunc)
-> m (GClosure C_PixbufModuleFillInfoFunc))
-> IO (GClosure C_PixbufModuleFillInfoFunc)
-> m (GClosure C_PixbufModuleFillInfoFunc)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PixbufModuleFillInfoFunc
cb' = Maybe (Ptr (FunPtr C_PixbufModuleFillInfoFunc))
-> (PixbufFormat -> IO ()) -> C_PixbufModuleFillInfoFunc
wrap_PixbufModuleFillInfoFunc Maybe (Ptr (FunPtr C_PixbufModuleFillInfoFunc))
forall a. Maybe a
Nothing PixbufFormat -> IO ()
cb
C_PixbufModuleFillInfoFunc
-> IO (FunPtr C_PixbufModuleFillInfoFunc)
mk_PixbufModuleFillInfoFunc C_PixbufModuleFillInfoFunc
cb' IO (FunPtr C_PixbufModuleFillInfoFunc)
-> (FunPtr C_PixbufModuleFillInfoFunc
-> IO (GClosure C_PixbufModuleFillInfoFunc))
-> IO (GClosure C_PixbufModuleFillInfoFunc)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufModuleFillInfoFunc
-> IO (GClosure C_PixbufModuleFillInfoFunc)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufModuleFillInfoFunc ::
Maybe (Ptr (FunPtr C_PixbufModuleFillInfoFunc)) ->
PixbufModuleFillInfoFunc ->
C_PixbufModuleFillInfoFunc
wrap_PixbufModuleFillInfoFunc :: Maybe (Ptr (FunPtr C_PixbufModuleFillInfoFunc))
-> (PixbufFormat -> IO ()) -> C_PixbufModuleFillInfoFunc
wrap_PixbufModuleFillInfoFunc Maybe (Ptr (FunPtr C_PixbufModuleFillInfoFunc))
gi'funptrptr PixbufFormat -> IO ()
gi'cb Ptr PixbufFormat
info = do
Ptr PixbufFormat -> (PixbufFormat -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr PixbufFormat
info ((PixbufFormat -> IO ()) -> IO ())
-> (PixbufFormat -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \PixbufFormat
info' -> do
PixbufFormat -> IO ()
gi'cb PixbufFormat
info'
Maybe (Ptr (FunPtr C_PixbufModuleFillInfoFunc)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PixbufModuleFillInfoFunc))
gi'funptrptr
type C_PixbufDestroyNotify =
Ptr Word8 ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_PixbufDestroyNotify :: FunPtr C_PixbufDestroyNotify -> C_PixbufDestroyNotify
dynamic_PixbufDestroyNotify ::
(B.CallStack.HasCallStack, MonadIO m) =>
FunPtr C_PixbufDestroyNotify
-> Ptr Word8
-> Ptr ()
-> m ()
dynamic_PixbufDestroyNotify :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_PixbufDestroyNotify -> Ptr Word8 -> Ptr () -> m ()
dynamic_PixbufDestroyNotify FunPtr C_PixbufDestroyNotify
__funPtr Ptr Word8
pixels Ptr ()
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
(FunPtr C_PixbufDestroyNotify -> C_PixbufDestroyNotify
__dynamic_C_PixbufDestroyNotify FunPtr C_PixbufDestroyNotify
__funPtr) Ptr Word8
pixels Ptr ()
data_
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_PixbufDestroyNotify :: C_PixbufDestroyNotify -> IO (FunPtr C_PixbufDestroyNotify)
type PixbufDestroyNotify =
Ptr Word8
-> IO ()
noPixbufDestroyNotify :: Maybe PixbufDestroyNotify
noPixbufDestroyNotify :: Maybe (Ptr Word8 -> IO ())
noPixbufDestroyNotify = Maybe (Ptr Word8 -> IO ())
forall a. Maybe a
Nothing
type PixbufDestroyNotify_WithClosures =
Ptr Word8
-> Ptr ()
-> IO ()
noPixbufDestroyNotify_WithClosures :: Maybe PixbufDestroyNotify_WithClosures
noPixbufDestroyNotify_WithClosures :: Maybe C_PixbufDestroyNotify
noPixbufDestroyNotify_WithClosures = Maybe C_PixbufDestroyNotify
forall a. Maybe a
Nothing
drop_closures_PixbufDestroyNotify :: PixbufDestroyNotify -> PixbufDestroyNotify_WithClosures
drop_closures_PixbufDestroyNotify :: (Ptr Word8 -> IO ()) -> C_PixbufDestroyNotify
drop_closures_PixbufDestroyNotify Ptr Word8 -> IO ()
_f Ptr Word8
pixels Ptr ()
_ = Ptr Word8 -> IO ()
_f Ptr Word8
pixels
genClosure_PixbufDestroyNotify :: MonadIO m => PixbufDestroyNotify -> m (GClosure C_PixbufDestroyNotify)
genClosure_PixbufDestroyNotify :: forall (m :: * -> *).
MonadIO m =>
(Ptr Word8 -> IO ()) -> m (GClosure C_PixbufDestroyNotify)
genClosure_PixbufDestroyNotify Ptr Word8 -> IO ()
cb = IO (GClosure C_PixbufDestroyNotify)
-> m (GClosure C_PixbufDestroyNotify)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_PixbufDestroyNotify)
-> m (GClosure C_PixbufDestroyNotify))
-> IO (GClosure C_PixbufDestroyNotify)
-> m (GClosure C_PixbufDestroyNotify)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_PixbufDestroyNotify
cb' = (Ptr Word8 -> IO ()) -> C_PixbufDestroyNotify
drop_closures_PixbufDestroyNotify Ptr Word8 -> IO ()
cb
let cb'' :: C_PixbufDestroyNotify
cb'' = Maybe (Ptr (FunPtr C_PixbufDestroyNotify))
-> C_PixbufDestroyNotify -> C_PixbufDestroyNotify
wrap_PixbufDestroyNotify Maybe (Ptr (FunPtr C_PixbufDestroyNotify))
forall a. Maybe a
Nothing C_PixbufDestroyNotify
cb'
C_PixbufDestroyNotify -> IO (FunPtr C_PixbufDestroyNotify)
mk_PixbufDestroyNotify C_PixbufDestroyNotify
cb'' IO (FunPtr C_PixbufDestroyNotify)
-> (FunPtr C_PixbufDestroyNotify
-> IO (GClosure C_PixbufDestroyNotify))
-> IO (GClosure C_PixbufDestroyNotify)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_PixbufDestroyNotify -> IO (GClosure C_PixbufDestroyNotify)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_PixbufDestroyNotify ::
Maybe (Ptr (FunPtr C_PixbufDestroyNotify)) ->
PixbufDestroyNotify_WithClosures ->
C_PixbufDestroyNotify
wrap_PixbufDestroyNotify :: Maybe (Ptr (FunPtr C_PixbufDestroyNotify))
-> C_PixbufDestroyNotify -> C_PixbufDestroyNotify
wrap_PixbufDestroyNotify Maybe (Ptr (FunPtr C_PixbufDestroyNotify))
gi'funptrptr C_PixbufDestroyNotify
gi'cb Ptr Word8
pixels Ptr ()
data_ = do
C_PixbufDestroyNotify
gi'cb Ptr Word8
pixels Ptr ()
data_
Maybe (Ptr (FunPtr C_PixbufDestroyNotify)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_PixbufDestroyNotify))
gi'funptrptr