gi-gdkpixbuf-0.2.32.12: GI/GdkPixbuf/Objects/Pixbuf.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.GdkPixbuf.Objects.Pixbuf
(
-- * Exported types
Pixbuf(..) ,
PixbufK ,
toPixbuf ,
noPixbuf ,
-- * Methods
-- ** pixbufAddAlpha
pixbufAddAlpha ,
-- ** pixbufApplyEmbeddedOrientation
pixbufApplyEmbeddedOrientation ,
-- ** pixbufComposite
pixbufComposite ,
-- ** pixbufCompositeColor
pixbufCompositeColor ,
-- ** pixbufCompositeColorSimple
pixbufCompositeColorSimple ,
-- ** pixbufCopy
pixbufCopy ,
-- ** pixbufCopyArea
pixbufCopyArea ,
-- ** pixbufFill
pixbufFill ,
-- ** pixbufFlip
pixbufFlip ,
-- ** pixbufFromPixdata
pixbufFromPixdata ,
-- ** pixbufGetBitsPerSample
pixbufGetBitsPerSample ,
-- ** pixbufGetByteLength
pixbufGetByteLength ,
-- ** pixbufGetColorspace
pixbufGetColorspace ,
-- ** pixbufGetFileInfo
pixbufGetFileInfo ,
-- ** pixbufGetFileInfoAsync
pixbufGetFileInfoAsync ,
-- ** pixbufGetFileInfoFinish
pixbufGetFileInfoFinish ,
-- ** pixbufGetFormats
pixbufGetFormats ,
-- ** pixbufGetHasAlpha
pixbufGetHasAlpha ,
-- ** pixbufGetHeight
pixbufGetHeight ,
-- ** pixbufGetNChannels
pixbufGetNChannels ,
-- ** pixbufGetOption
pixbufGetOption ,
-- ** pixbufGetPixels
pixbufGetPixels ,
-- ** pixbufGetRowstride
pixbufGetRowstride ,
-- ** pixbufGetWidth
pixbufGetWidth ,
-- ** pixbufNew
pixbufNew ,
-- ** pixbufNewFromBytes
pixbufNewFromBytes ,
-- ** pixbufNewFromData
pixbufNewFromData ,
-- ** pixbufNewFromFile
pixbufNewFromFile ,
-- ** pixbufNewFromFileAtScale
pixbufNewFromFileAtScale ,
-- ** pixbufNewFromFileAtSize
pixbufNewFromFileAtSize ,
-- ** pixbufNewFromInline
pixbufNewFromInline ,
-- ** pixbufNewFromResource
pixbufNewFromResource ,
-- ** pixbufNewFromResourceAtScale
pixbufNewFromResourceAtScale ,
-- ** pixbufNewFromStream
pixbufNewFromStream ,
-- ** pixbufNewFromStreamAsync
pixbufNewFromStreamAsync ,
-- ** pixbufNewFromStreamAtScale
pixbufNewFromStreamAtScale ,
-- ** pixbufNewFromStreamAtScaleAsync
pixbufNewFromStreamAtScaleAsync ,
-- ** pixbufNewFromStreamFinish
pixbufNewFromStreamFinish ,
-- ** pixbufNewFromXpmData
pixbufNewFromXpmData ,
-- ** pixbufNewSubpixbuf
pixbufNewSubpixbuf ,
-- ** pixbufReadPixelBytes
pixbufReadPixelBytes ,
-- ** pixbufReadPixels
pixbufReadPixels ,
-- ** pixbufRotateSimple
pixbufRotateSimple ,
-- ** pixbufSaturateAndPixelate
pixbufSaturateAndPixelate ,
-- ** pixbufSaveToBufferv
pixbufSaveToBufferv ,
-- ** pixbufSaveToCallbackv
pixbufSaveToCallbackv ,
-- ** pixbufSaveToStreamFinish
pixbufSaveToStreamFinish ,
-- ** pixbufSavev
pixbufSavev ,
-- ** pixbufScale
pixbufScale ,
-- ** pixbufScaleSimple
pixbufScaleSimple ,
-- * Properties
-- ** BitsPerSample
PixbufBitsPerSamplePropertyInfo ,
constructPixbufBitsPerSample ,
getPixbufBitsPerSample ,
-- ** Colorspace
PixbufColorspacePropertyInfo ,
constructPixbufColorspace ,
getPixbufColorspace ,
-- ** HasAlpha
PixbufHasAlphaPropertyInfo ,
constructPixbufHasAlpha ,
getPixbufHasAlpha ,
-- ** Height
PixbufHeightPropertyInfo ,
constructPixbufHeight ,
getPixbufHeight ,
-- ** NChannels
PixbufNChannelsPropertyInfo ,
constructPixbufNChannels ,
getPixbufNChannels ,
-- ** PixelBytes
PixbufPixelBytesPropertyInfo ,
constructPixbufPixelBytes ,
getPixbufPixelBytes ,
-- ** Pixels
PixbufPixelsPropertyInfo ,
constructPixbufPixels ,
getPixbufPixels ,
-- ** Rowstride
PixbufRowstridePropertyInfo ,
constructPixbufRowstride ,
getPixbufRowstride ,
-- ** Width
PixbufWidthPropertyInfo ,
constructPixbufWidth ,
getPixbufWidth ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.GdkPixbuf.Types
import GI.GdkPixbuf.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.Gio as Gio
newtype Pixbuf = Pixbuf (ForeignPtr Pixbuf)
foreign import ccall "gdk_pixbuf_get_type"
c_gdk_pixbuf_get_type :: IO GType
type instance ParentTypes Pixbuf = PixbufParentTypes
type PixbufParentTypes = '[GObject.Object, Gio.Icon, Gio.LoadableIcon]
instance GObject Pixbuf where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gdk_pixbuf_get_type
class GObject o => PixbufK o
instance (GObject o, IsDescendantOf Pixbuf o) => PixbufK o
toPixbuf :: PixbufK o => o -> IO Pixbuf
toPixbuf = unsafeCastTo Pixbuf
noPixbuf :: Maybe Pixbuf
noPixbuf = Nothing
-- VVV Prop "bits-per-sample"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufBitsPerSample :: (MonadIO m, PixbufK o) => o -> m Int32
getPixbufBitsPerSample obj = liftIO $ getObjectPropertyCInt obj "bits-per-sample"
constructPixbufBitsPerSample :: Int32 -> IO ([Char], GValue)
constructPixbufBitsPerSample val = constructObjectPropertyCInt "bits-per-sample" val
data PixbufBitsPerSamplePropertyInfo
instance AttrInfo PixbufBitsPerSamplePropertyInfo where
type AttrAllowedOps PixbufBitsPerSamplePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufBitsPerSamplePropertyInfo = (~) Int32
type AttrBaseTypeConstraint PixbufBitsPerSamplePropertyInfo = PixbufK
type AttrGetType PixbufBitsPerSamplePropertyInfo = Int32
type AttrLabel PixbufBitsPerSamplePropertyInfo = "Pixbuf::bits-per-sample"
attrGet _ = getPixbufBitsPerSample
attrSet _ = undefined
attrConstruct _ = constructPixbufBitsPerSample
-- VVV Prop "colorspace"
-- Type: TInterface "GdkPixbuf" "Colorspace"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufColorspace :: (MonadIO m, PixbufK o) => o -> m Colorspace
getPixbufColorspace obj = liftIO $ getObjectPropertyEnum obj "colorspace"
constructPixbufColorspace :: Colorspace -> IO ([Char], GValue)
constructPixbufColorspace val = constructObjectPropertyEnum "colorspace" val
data PixbufColorspacePropertyInfo
instance AttrInfo PixbufColorspacePropertyInfo where
type AttrAllowedOps PixbufColorspacePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufColorspacePropertyInfo = (~) Colorspace
type AttrBaseTypeConstraint PixbufColorspacePropertyInfo = PixbufK
type AttrGetType PixbufColorspacePropertyInfo = Colorspace
type AttrLabel PixbufColorspacePropertyInfo = "Pixbuf::colorspace"
attrGet _ = getPixbufColorspace
attrSet _ = undefined
attrConstruct _ = constructPixbufColorspace
-- VVV Prop "has-alpha"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufHasAlpha :: (MonadIO m, PixbufK o) => o -> m Bool
getPixbufHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha"
constructPixbufHasAlpha :: Bool -> IO ([Char], GValue)
constructPixbufHasAlpha val = constructObjectPropertyBool "has-alpha" val
data PixbufHasAlphaPropertyInfo
instance AttrInfo PixbufHasAlphaPropertyInfo where
type AttrAllowedOps PixbufHasAlphaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufHasAlphaPropertyInfo = (~) Bool
type AttrBaseTypeConstraint PixbufHasAlphaPropertyInfo = PixbufK
type AttrGetType PixbufHasAlphaPropertyInfo = Bool
type AttrLabel PixbufHasAlphaPropertyInfo = "Pixbuf::has-alpha"
attrGet _ = getPixbufHasAlpha
attrSet _ = undefined
attrConstruct _ = constructPixbufHasAlpha
-- VVV Prop "height"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufHeight :: (MonadIO m, PixbufK o) => o -> m Int32
getPixbufHeight obj = liftIO $ getObjectPropertyCInt obj "height"
constructPixbufHeight :: Int32 -> IO ([Char], GValue)
constructPixbufHeight val = constructObjectPropertyCInt "height" val
data PixbufHeightPropertyInfo
instance AttrInfo PixbufHeightPropertyInfo where
type AttrAllowedOps PixbufHeightPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufHeightPropertyInfo = (~) Int32
type AttrBaseTypeConstraint PixbufHeightPropertyInfo = PixbufK
type AttrGetType PixbufHeightPropertyInfo = Int32
type AttrLabel PixbufHeightPropertyInfo = "Pixbuf::height"
attrGet _ = getPixbufHeight
attrSet _ = undefined
attrConstruct _ = constructPixbufHeight
-- VVV Prop "n-channels"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufNChannels :: (MonadIO m, PixbufK o) => o -> m Int32
getPixbufNChannels obj = liftIO $ getObjectPropertyCInt obj "n-channels"
constructPixbufNChannels :: Int32 -> IO ([Char], GValue)
constructPixbufNChannels val = constructObjectPropertyCInt "n-channels" val
data PixbufNChannelsPropertyInfo
instance AttrInfo PixbufNChannelsPropertyInfo where
type AttrAllowedOps PixbufNChannelsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufNChannelsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint PixbufNChannelsPropertyInfo = PixbufK
type AttrGetType PixbufNChannelsPropertyInfo = Int32
type AttrLabel PixbufNChannelsPropertyInfo = "Pixbuf::n-channels"
attrGet _ = getPixbufNChannels
attrSet _ = undefined
attrConstruct _ = constructPixbufNChannels
-- VVV Prop "pixel-bytes"
-- Type: TInterface "GLib" "Bytes"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufPixelBytes :: (MonadIO m, PixbufK o) => o -> m GLib.Bytes
getPixbufPixelBytes obj = liftIO $ getObjectPropertyBoxed obj "pixel-bytes" GLib.Bytes
constructPixbufPixelBytes :: GLib.Bytes -> IO ([Char], GValue)
constructPixbufPixelBytes val = constructObjectPropertyBoxed "pixel-bytes" val
data PixbufPixelBytesPropertyInfo
instance AttrInfo PixbufPixelBytesPropertyInfo where
type AttrAllowedOps PixbufPixelBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufPixelBytesPropertyInfo = (~) GLib.Bytes
type AttrBaseTypeConstraint PixbufPixelBytesPropertyInfo = PixbufK
type AttrGetType PixbufPixelBytesPropertyInfo = GLib.Bytes
type AttrLabel PixbufPixelBytesPropertyInfo = "Pixbuf::pixel-bytes"
attrGet _ = getPixbufPixelBytes
attrSet _ = undefined
attrConstruct _ = constructPixbufPixelBytes
-- VVV Prop "pixels"
-- Type: TBasicType TVoid
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufPixels :: (MonadIO m, PixbufK o) => o -> m (Ptr ())
getPixbufPixels obj = liftIO $ getObjectPropertyPtr obj "pixels"
constructPixbufPixels :: (Ptr ()) -> IO ([Char], GValue)
constructPixbufPixels val = constructObjectPropertyPtr "pixels" val
data PixbufPixelsPropertyInfo
instance AttrInfo PixbufPixelsPropertyInfo where
type AttrAllowedOps PixbufPixelsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufPixelsPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint PixbufPixelsPropertyInfo = PixbufK
type AttrGetType PixbufPixelsPropertyInfo = (Ptr ())
type AttrLabel PixbufPixelsPropertyInfo = "Pixbuf::pixels"
attrGet _ = getPixbufPixels
attrSet _ = undefined
attrConstruct _ = constructPixbufPixels
-- VVV Prop "rowstride"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufRowstride :: (MonadIO m, PixbufK o) => o -> m Int32
getPixbufRowstride obj = liftIO $ getObjectPropertyCInt obj "rowstride"
constructPixbufRowstride :: Int32 -> IO ([Char], GValue)
constructPixbufRowstride val = constructObjectPropertyCInt "rowstride" val
data PixbufRowstridePropertyInfo
instance AttrInfo PixbufRowstridePropertyInfo where
type AttrAllowedOps PixbufRowstridePropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufRowstridePropertyInfo = (~) Int32
type AttrBaseTypeConstraint PixbufRowstridePropertyInfo = PixbufK
type AttrGetType PixbufRowstridePropertyInfo = Int32
type AttrLabel PixbufRowstridePropertyInfo = "Pixbuf::rowstride"
attrGet _ = getPixbufRowstride
attrSet _ = undefined
attrConstruct _ = constructPixbufRowstride
-- VVV Prop "width"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getPixbufWidth :: (MonadIO m, PixbufK o) => o -> m Int32
getPixbufWidth obj = liftIO $ getObjectPropertyCInt obj "width"
constructPixbufWidth :: Int32 -> IO ([Char], GValue)
constructPixbufWidth val = constructObjectPropertyCInt "width" val
data PixbufWidthPropertyInfo
instance AttrInfo PixbufWidthPropertyInfo where
type AttrAllowedOps PixbufWidthPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint PixbufWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint PixbufWidthPropertyInfo = PixbufK
type AttrGetType PixbufWidthPropertyInfo = Int32
type AttrLabel PixbufWidthPropertyInfo = "Pixbuf::width"
attrGet _ = getPixbufWidth
attrSet _ = undefined
attrConstruct _ = constructPixbufWidth
type instance AttributeList Pixbuf = PixbufAttributeList
type PixbufAttributeList = ('[ '("bits-per-sample", PixbufBitsPerSamplePropertyInfo), '("colorspace", PixbufColorspacePropertyInfo), '("has-alpha", PixbufHasAlphaPropertyInfo), '("height", PixbufHeightPropertyInfo), '("n-channels", PixbufNChannelsPropertyInfo), '("pixel-bytes", PixbufPixelBytesPropertyInfo), '("pixels", PixbufPixelsPropertyInfo), '("rowstride", PixbufRowstridePropertyInfo), '("width", PixbufWidthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList Pixbuf = PixbufSignalList
type PixbufSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method Pixbuf::new
-- method type : Constructor
-- Args : [Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_new" gdk_pixbuf_new ::
CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace"
CInt -> -- has_alpha : TBasicType TBoolean
Int32 -> -- bits_per_sample : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO (Ptr Pixbuf)
pixbufNew ::
(MonadIO m) =>
Colorspace -> -- colorspace
Bool -> -- has_alpha
Int32 -> -- bits_per_sample
Int32 -> -- width
Int32 -> -- height
m Pixbuf
pixbufNew colorspace has_alpha bits_per_sample width height = liftIO $ do
let colorspace' = (fromIntegral . fromEnum) colorspace
let has_alpha' = (fromIntegral . fromEnum) has_alpha
result <- gdk_pixbuf_new colorspace' has_alpha' bits_per_sample width height
checkUnexpectedReturnNULL "gdk_pixbuf_new" result
result' <- (wrapObject Pixbuf) result
return result'
-- method Pixbuf::new_from_bytes
-- method type : Constructor
-- Args : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_bytes" gdk_pixbuf_new_from_bytes ::
Ptr GLib.Bytes -> -- data : TInterface "GLib" "Bytes"
CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace"
CInt -> -- has_alpha : TBasicType TBoolean
Int32 -> -- bits_per_sample : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
Int32 -> -- rowstride : TBasicType TInt32
IO (Ptr Pixbuf)
pixbufNewFromBytes ::
(MonadIO m) =>
GLib.Bytes -> -- data
Colorspace -> -- colorspace
Bool -> -- has_alpha
Int32 -> -- bits_per_sample
Int32 -> -- width
Int32 -> -- height
Int32 -> -- rowstride
m Pixbuf
pixbufNewFromBytes data_ colorspace has_alpha bits_per_sample width height rowstride = liftIO $ do
let data_' = unsafeManagedPtrGetPtr data_
let colorspace' = (fromIntegral . fromEnum) colorspace
let has_alpha' = (fromIntegral . fromEnum) has_alpha
result <- gdk_pixbuf_new_from_bytes data_' colorspace' has_alpha' bits_per_sample width height rowstride
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_bytes" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr data_
return result'
-- method Pixbuf::new_from_data
-- method type : Constructor
-- Args : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_data" gdk_pixbuf_new_from_data ::
Ptr Word8 -> -- data : TCArray False (-1) (-1) (TBasicType TUInt8)
CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace"
CInt -> -- has_alpha : TBasicType TBoolean
Int32 -> -- bits_per_sample : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
Int32 -> -- rowstride : TBasicType TInt32
FunPtr PixbufDestroyNotifyC -> -- destroy_fn : TInterface "GdkPixbuf" "PixbufDestroyNotify"
Ptr () -> -- destroy_fn_data : TBasicType TVoid
IO (Ptr Pixbuf)
pixbufNewFromData ::
(MonadIO m) =>
Ptr Word8 -> -- data
Colorspace -> -- colorspace
Bool -> -- has_alpha
Int32 -> -- bits_per_sample
Int32 -> -- width
Int32 -> -- height
Int32 -> -- rowstride
Maybe (PixbufDestroyNotify) -> -- destroy_fn
m Pixbuf
pixbufNewFromData data_ colorspace has_alpha bits_per_sample width height rowstride destroy_fn = liftIO $ do
let colorspace' = (fromIntegral . fromEnum) colorspace
let has_alpha' = (fromIntegral . fromEnum) has_alpha
ptrdestroy_fn <- callocMem :: IO (Ptr (FunPtr PixbufDestroyNotifyC))
maybeDestroy_fn <- case destroy_fn of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jDestroy_fn -> do
jDestroy_fn' <- mkPixbufDestroyNotify (pixbufDestroyNotifyWrapper (Just ptrdestroy_fn) jDestroy_fn)
poke ptrdestroy_fn jDestroy_fn'
return jDestroy_fn'
let destroy_fn_data = nullPtr
result <- gdk_pixbuf_new_from_data data_ colorspace' has_alpha' bits_per_sample width height rowstride maybeDestroy_fn destroy_fn_data
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_data" result
result' <- (wrapObject Pixbuf) result
return result'
-- method Pixbuf::new_from_file
-- method type : Constructor
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_file" gdk_pixbuf_new_from_file ::
CString -> -- filename : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromFile ::
(MonadIO m) =>
T.Text -> -- filename
m Pixbuf
pixbufNewFromFile filename = liftIO $ do
filename' <- textToCString filename
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_file filename'
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file" result
result' <- (wrapObject Pixbuf) result
freeMem filename'
return result'
) (do
freeMem filename'
)
-- method Pixbuf::new_from_file_at_scale
-- method type : Constructor
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_file_at_scale" gdk_pixbuf_new_from_file_at_scale ::
CString -> -- filename : TBasicType TUTF8
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CInt -> -- preserve_aspect_ratio : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromFileAtScale ::
(MonadIO m) =>
T.Text -> -- filename
Int32 -> -- width
Int32 -> -- height
Bool -> -- preserve_aspect_ratio
m Pixbuf
pixbufNewFromFileAtScale filename width height preserve_aspect_ratio = liftIO $ do
filename' <- textToCString filename
let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_file_at_scale filename' width height preserve_aspect_ratio'
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file_at_scale" result
result' <- (wrapObject Pixbuf) result
freeMem filename'
return result'
) (do
freeMem filename'
)
-- method Pixbuf::new_from_file_at_size
-- method type : Constructor
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_file_at_size" gdk_pixbuf_new_from_file_at_size ::
CString -> -- filename : TBasicType TUTF8
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromFileAtSize ::
(MonadIO m) =>
T.Text -> -- filename
Int32 -> -- width
Int32 -> -- height
m Pixbuf
pixbufNewFromFileAtSize filename width height = liftIO $ do
filename' <- textToCString filename
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_file_at_size filename' width height
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file_at_size" result
result' <- (wrapObject Pixbuf) result
freeMem filename'
return result'
) (do
freeMem filename'
)
-- method Pixbuf::new_from_inline
-- method type : Constructor
-- Args : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_inline" gdk_pixbuf_new_from_inline ::
Int32 -> -- data_length : TBasicType TInt32
Ptr Word8 -> -- data : TCArray False (-1) 0 (TBasicType TUInt8)
CInt -> -- copy_pixels : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
{-# DEPRECATED pixbufNewFromInline ["(Since version 2.32)","Use #GResource instead."]#-}
pixbufNewFromInline ::
(MonadIO m) =>
ByteString -> -- data
Bool -> -- copy_pixels
m Pixbuf
pixbufNewFromInline data_ copy_pixels = liftIO $ do
let data_length = fromIntegral $ B.length data_
data_' <- packByteString data_
let copy_pixels' = (fromIntegral . fromEnum) copy_pixels
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_inline data_length data_' copy_pixels'
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_inline" result
result' <- (wrapObject Pixbuf) result
freeMem data_'
return result'
) (do
freeMem data_'
)
-- method Pixbuf::new_from_resource
-- method type : Constructor
-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_resource" gdk_pixbuf_new_from_resource ::
CString -> -- resource_path : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromResource ::
(MonadIO m) =>
T.Text -> -- resource_path
m Pixbuf
pixbufNewFromResource resource_path = liftIO $ do
resource_path' <- textToCString resource_path
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_resource resource_path'
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource" result
result' <- (wrapObject Pixbuf) result
freeMem resource_path'
return result'
) (do
freeMem resource_path'
)
-- method Pixbuf::new_from_resource_at_scale
-- method type : Constructor
-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_resource_at_scale" gdk_pixbuf_new_from_resource_at_scale ::
CString -> -- resource_path : TBasicType TUTF8
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CInt -> -- preserve_aspect_ratio : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromResourceAtScale ::
(MonadIO m) =>
T.Text -> -- resource_path
Int32 -> -- width
Int32 -> -- height
Bool -> -- preserve_aspect_ratio
m Pixbuf
pixbufNewFromResourceAtScale resource_path width height preserve_aspect_ratio = liftIO $ do
resource_path' <- textToCString resource_path
let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_resource_at_scale resource_path' width height preserve_aspect_ratio'
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource_at_scale" result
result' <- (wrapObject Pixbuf) result
freeMem resource_path'
return result'
) (do
freeMem resource_path'
)
-- method Pixbuf::new_from_stream
-- method type : Constructor
-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_stream" gdk_pixbuf_new_from_stream ::
Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromStream ::
(MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>
a -> -- stream
Maybe (b) -> -- cancellable
m Pixbuf
pixbufNewFromStream stream cancellable = liftIO $ do
let stream' = unsafeManagedPtrCastPtr stream
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_stream stream' maybeCancellable
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr stream
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
-- method Pixbuf::new_from_stream_at_scale
-- method type : Constructor
-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_stream_at_scale" gdk_pixbuf_new_from_stream_at_scale ::
Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CInt -> -- preserve_aspect_ratio : TBasicType TBoolean
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromStreamAtScale ::
(MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>
a -> -- stream
Int32 -> -- width
Int32 -> -- height
Bool -> -- preserve_aspect_ratio
Maybe (b) -> -- cancellable
m Pixbuf
pixbufNewFromStreamAtScale stream width height preserve_aspect_ratio cancellable = liftIO $ do
let stream' = unsafeManagedPtrCastPtr stream
let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_stream_at_scale stream' width height preserve_aspect_ratio' maybeCancellable
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream_at_scale" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr stream
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
-- method Pixbuf::new_from_stream_finish
-- method type : Constructor
-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_stream_finish" gdk_pixbuf_new_from_stream_finish ::
Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
pixbufNewFromStreamFinish ::
(MonadIO m, Gio.AsyncResultK a) =>
a -> -- async_result
m Pixbuf
pixbufNewFromStreamFinish async_result = liftIO $ do
let async_result' = unsafeManagedPtrCastPtr async_result
onException (do
result <- propagateGError $ gdk_pixbuf_new_from_stream_finish async_result'
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream_finish" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr async_result
return result'
) (do
return ()
)
-- method Pixbuf::new_from_xpm_data
-- method type : Constructor
-- Args : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_xpm_data" gdk_pixbuf_new_from_xpm_data ::
Ptr CString -> -- data : TCArray True (-1) (-1) (TBasicType TUTF8)
IO (Ptr Pixbuf)
pixbufNewFromXpmData ::
(MonadIO m) =>
[T.Text] -> -- data
m Pixbuf
pixbufNewFromXpmData data_ = liftIO $ do
data_' <- packZeroTerminatedUTF8CArray data_
result <- gdk_pixbuf_new_from_xpm_data data_'
checkUnexpectedReturnNULL "gdk_pixbuf_new_from_xpm_data" result
result' <- (wrapObject Pixbuf) result
mapZeroTerminatedCArray freeMem data_'
freeMem data_'
return result'
-- method Pixbuf::add_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_add_alpha" gdk_pixbuf_add_alpha ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
CInt -> -- substitute_color : TBasicType TBoolean
Word8 -> -- r : TBasicType TUInt8
Word8 -> -- g : TBasicType TUInt8
Word8 -> -- b : TBasicType TUInt8
IO (Ptr Pixbuf)
pixbufAddAlpha ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
Bool -> -- substitute_color
Word8 -> -- r
Word8 -> -- g
Word8 -> -- b
m Pixbuf
pixbufAddAlpha _obj substitute_color r g b = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let substitute_color' = (fromIntegral . fromEnum) substitute_color
result <- gdk_pixbuf_add_alpha _obj' substitute_color' r g b
checkUnexpectedReturnNULL "gdk_pixbuf_add_alpha" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::apply_embedded_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_apply_embedded_orientation" gdk_pixbuf_apply_embedded_orientation ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr Pixbuf)
pixbufApplyEmbeddedOrientation ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Pixbuf
pixbufApplyEmbeddedOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_apply_embedded_orientation _obj'
checkUnexpectedReturnNULL "gdk_pixbuf_apply_embedded_orientation" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::composite
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_composite" gdk_pixbuf_composite ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- dest_x : TBasicType TInt32
Int32 -> -- dest_y : TBasicType TInt32
Int32 -> -- dest_width : TBasicType TInt32
Int32 -> -- dest_height : TBasicType TInt32
CDouble -> -- offset_x : TBasicType TDouble
CDouble -> -- offset_y : TBasicType TDouble
CDouble -> -- scale_x : TBasicType TDouble
CDouble -> -- scale_y : TBasicType TDouble
CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"
Int32 -> -- overall_alpha : TBasicType TInt32
IO ()
pixbufComposite ::
(MonadIO m, PixbufK a, PixbufK b) =>
a -> -- _obj
b -> -- dest
Int32 -> -- dest_x
Int32 -> -- dest_y
Int32 -> -- dest_width
Int32 -> -- dest_height
Double -> -- offset_x
Double -> -- offset_y
Double -> -- scale_x
Double -> -- scale_y
InterpType -> -- interp_type
Int32 -> -- overall_alpha
m ()
pixbufComposite _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest' = unsafeManagedPtrCastPtr dest
let offset_x' = realToFrac offset_x
let offset_y' = realToFrac offset_y
let scale_x' = realToFrac scale_x
let scale_y' = realToFrac scale_y
let interp_type' = (fromIntegral . fromEnum) interp_type
gdk_pixbuf_composite _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha
touchManagedPtr _obj
touchManagedPtr dest
return ()
-- method Pixbuf::composite_color
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_composite_color" gdk_pixbuf_composite_color ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- dest_x : TBasicType TInt32
Int32 -> -- dest_y : TBasicType TInt32
Int32 -> -- dest_width : TBasicType TInt32
Int32 -> -- dest_height : TBasicType TInt32
CDouble -> -- offset_x : TBasicType TDouble
CDouble -> -- offset_y : TBasicType TDouble
CDouble -> -- scale_x : TBasicType TDouble
CDouble -> -- scale_y : TBasicType TDouble
CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"
Int32 -> -- overall_alpha : TBasicType TInt32
Int32 -> -- check_x : TBasicType TInt32
Int32 -> -- check_y : TBasicType TInt32
Int32 -> -- check_size : TBasicType TInt32
Word32 -> -- color1 : TBasicType TUInt32
Word32 -> -- color2 : TBasicType TUInt32
IO ()
pixbufCompositeColor ::
(MonadIO m, PixbufK a, PixbufK b) =>
a -> -- _obj
b -> -- dest
Int32 -> -- dest_x
Int32 -> -- dest_y
Int32 -> -- dest_width
Int32 -> -- dest_height
Double -> -- offset_x
Double -> -- offset_y
Double -> -- scale_x
Double -> -- scale_y
InterpType -> -- interp_type
Int32 -> -- overall_alpha
Int32 -> -- check_x
Int32 -> -- check_y
Int32 -> -- check_size
Word32 -> -- color1
Word32 -> -- color2
m ()
pixbufCompositeColor _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha check_x check_y check_size color1 color2 = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest' = unsafeManagedPtrCastPtr dest
let offset_x' = realToFrac offset_x
let offset_y' = realToFrac offset_y
let scale_x' = realToFrac scale_x
let scale_y' = realToFrac scale_y
let interp_type' = (fromIntegral . fromEnum) interp_type
gdk_pixbuf_composite_color _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha check_x check_y check_size color1 color2
touchManagedPtr _obj
touchManagedPtr dest
return ()
-- method Pixbuf::composite_color_simple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_composite_color_simple" gdk_pixbuf_composite_color_simple ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- dest_width : TBasicType TInt32
Int32 -> -- dest_height : TBasicType TInt32
CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"
Int32 -> -- overall_alpha : TBasicType TInt32
Int32 -> -- check_size : TBasicType TInt32
Word32 -> -- color1 : TBasicType TUInt32
Word32 -> -- color2 : TBasicType TUInt32
IO (Ptr Pixbuf)
pixbufCompositeColorSimple ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
Int32 -> -- dest_width
Int32 -> -- dest_height
InterpType -> -- interp_type
Int32 -> -- overall_alpha
Int32 -> -- check_size
Word32 -> -- color1
Word32 -> -- color2
m Pixbuf
pixbufCompositeColorSimple _obj dest_width dest_height interp_type overall_alpha check_size color1 color2 = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let interp_type' = (fromIntegral . fromEnum) interp_type
result <- gdk_pixbuf_composite_color_simple _obj' dest_width dest_height interp_type' overall_alpha check_size color1 color2
checkUnexpectedReturnNULL "gdk_pixbuf_composite_color_simple" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_copy" gdk_pixbuf_copy ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr Pixbuf)
pixbufCopy ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Pixbuf
pixbufCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_copy _obj'
checkUnexpectedReturnNULL "gdk_pixbuf_copy" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::copy_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_copy_area" gdk_pixbuf_copy_area ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- src_x : TBasicType TInt32
Int32 -> -- src_y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
Ptr Pixbuf -> -- dest_pixbuf : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- dest_x : TBasicType TInt32
Int32 -> -- dest_y : TBasicType TInt32
IO ()
pixbufCopyArea ::
(MonadIO m, PixbufK a, PixbufK b) =>
a -> -- _obj
Int32 -> -- src_x
Int32 -> -- src_y
Int32 -> -- width
Int32 -> -- height
b -> -- dest_pixbuf
Int32 -> -- dest_x
Int32 -> -- dest_y
m ()
pixbufCopyArea _obj src_x src_y width height dest_pixbuf dest_x dest_y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest_pixbuf' = unsafeManagedPtrCastPtr dest_pixbuf
gdk_pixbuf_copy_area _obj' src_x src_y width height dest_pixbuf' dest_x dest_y
touchManagedPtr _obj
touchManagedPtr dest_pixbuf
return ()
-- method Pixbuf::fill
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_fill" gdk_pixbuf_fill ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Word32 -> -- pixel : TBasicType TUInt32
IO ()
pixbufFill ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
Word32 -> -- pixel
m ()
pixbufFill _obj pixel = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gdk_pixbuf_fill _obj' pixel
touchManagedPtr _obj
return ()
-- method Pixbuf::flip
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_flip" gdk_pixbuf_flip ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
CInt -> -- horizontal : TBasicType TBoolean
IO (Ptr Pixbuf)
pixbufFlip ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
Bool -> -- horizontal
m Pixbuf
pixbufFlip _obj horizontal = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let horizontal' = (fromIntegral . fromEnum) horizontal
result <- gdk_pixbuf_flip _obj' horizontal'
checkUnexpectedReturnNULL "gdk_pixbuf_flip" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::get_bits_per_sample
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_bits_per_sample" gdk_pixbuf_get_bits_per_sample ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO Int32
pixbufGetBitsPerSample ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Int32
pixbufGetBitsPerSample _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_bits_per_sample _obj'
touchManagedPtr _obj
return result
-- method Pixbuf::get_byte_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_byte_length" gdk_pixbuf_get_byte_length ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO Word64
pixbufGetByteLength ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Word64
pixbufGetByteLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_byte_length _obj'
touchManagedPtr _obj
return result
-- method Pixbuf::get_colorspace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Colorspace"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_colorspace" gdk_pixbuf_get_colorspace ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO CUInt
pixbufGetColorspace ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Colorspace
pixbufGetColorspace _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_colorspace _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method Pixbuf::get_has_alpha
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_has_alpha" gdk_pixbuf_get_has_alpha ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO CInt
pixbufGetHasAlpha ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Bool
pixbufGetHasAlpha _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_has_alpha _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method Pixbuf::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_height" gdk_pixbuf_get_height ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO Int32
pixbufGetHeight ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Int32
pixbufGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_height _obj'
touchManagedPtr _obj
return result
-- method Pixbuf::get_n_channels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_n_channels" gdk_pixbuf_get_n_channels ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO Int32
pixbufGetNChannels ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Int32
pixbufGetNChannels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_n_channels _obj'
touchManagedPtr _obj
return result
-- method Pixbuf::get_option
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_option" gdk_pixbuf_get_option ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
CString -> -- key : TBasicType TUTF8
IO CString
pixbufGetOption ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
T.Text -> -- key
m T.Text
pixbufGetOption _obj key = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
key' <- textToCString key
result <- gdk_pixbuf_get_option _obj' key'
checkUnexpectedReturnNULL "gdk_pixbuf_get_option" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem key'
return result'
-- XXX Could not generate method Pixbuf::get_options
-- Error was : Not implemented: "Hash table argument with transfer = Container? result"
-- method Pixbuf::get_pixels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray False (-1) 1 (TBasicType TUInt8)
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_pixels_with_length" gdk_pixbuf_get_pixels_with_length ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Ptr Word32 -> -- length : TBasicType TUInt32
IO (Ptr Word8)
pixbufGetPixels ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m ByteString
pixbufGetPixels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
length_ <- allocMem :: IO (Ptr Word32)
result <- gdk_pixbuf_get_pixels_with_length _obj' length_
length_' <- peek length_
checkUnexpectedReturnNULL "gdk_pixbuf_get_pixels_with_length" result
result' <- (unpackByteStringWithLength length_') result
touchManagedPtr _obj
freeMem length_
return result'
-- method Pixbuf::get_rowstride
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_rowstride" gdk_pixbuf_get_rowstride ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO Int32
pixbufGetRowstride ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Int32
pixbufGetRowstride _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_rowstride _obj'
touchManagedPtr _obj
return result
-- method Pixbuf::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_width" gdk_pixbuf_get_width ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO Int32
pixbufGetWidth ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Int32
pixbufGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_get_width _obj'
touchManagedPtr _obj
return result
-- method Pixbuf::new_subpixbuf
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_subpixbuf" gdk_pixbuf_new_subpixbuf ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- src_x : TBasicType TInt32
Int32 -> -- src_y : TBasicType TInt32
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
IO (Ptr Pixbuf)
pixbufNewSubpixbuf ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
Int32 -> -- src_x
Int32 -> -- src_y
Int32 -> -- width
Int32 -> -- height
m Pixbuf
pixbufNewSubpixbuf _obj src_x src_y width height = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_new_subpixbuf _obj' src_x src_y width height
checkUnexpectedReturnNULL "gdk_pixbuf_new_subpixbuf" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::read_pixel_bytes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "Bytes"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_read_pixel_bytes" gdk_pixbuf_read_pixel_bytes ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO (Ptr GLib.Bytes)
pixbufReadPixelBytes ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m GLib.Bytes
pixbufReadPixelBytes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_read_pixel_bytes _obj'
checkUnexpectedReturnNULL "gdk_pixbuf_read_pixel_bytes" result
result' <- (wrapBoxed GLib.Bytes) result
touchManagedPtr _obj
return result'
-- method Pixbuf::read_pixels
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt8
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_read_pixels" gdk_pixbuf_read_pixels ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
IO Word8
pixbufReadPixels ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
m Word8
pixbufReadPixels _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_read_pixels _obj'
touchManagedPtr _obj
return result
-- method Pixbuf::rotate_simple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_rotate_simple" gdk_pixbuf_rotate_simple ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
CUInt -> -- angle : TInterface "GdkPixbuf" "PixbufRotation"
IO (Ptr Pixbuf)
pixbufRotateSimple ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
PixbufRotation -> -- angle
m Pixbuf
pixbufRotateSimple _obj angle = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let angle' = (fromIntegral . fromEnum) angle
result <- gdk_pixbuf_rotate_simple _obj' angle'
checkUnexpectedReturnNULL "gdk_pixbuf_rotate_simple" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::saturate_and_pixelate
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_saturate_and_pixelate" gdk_pixbuf_saturate_and_pixelate ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"
CFloat -> -- saturation : TBasicType TFloat
CInt -> -- pixelate : TBasicType TBoolean
IO ()
pixbufSaturateAndPixelate ::
(MonadIO m, PixbufK a, PixbufK b) =>
a -> -- _obj
b -> -- dest
Float -> -- saturation
Bool -> -- pixelate
m ()
pixbufSaturateAndPixelate _obj dest saturation pixelate = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest' = unsafeManagedPtrCastPtr dest
let saturation' = realToFrac saturation
let pixelate' = (fromIntegral . fromEnum) pixelate
gdk_pixbuf_saturate_and_pixelate _obj' dest' saturation' pixelate'
touchManagedPtr _obj
touchManagedPtr dest
return ()
-- method Pixbuf::save_to_bufferv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : [Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_save_to_bufferv" gdk_pixbuf_save_to_bufferv ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Ptr (Ptr Word8) -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)
Ptr Word64 -> -- buffer_size : TBasicType TUInt64
CString -> -- type : TBasicType TUTF8
Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr (Ptr GError) -> -- error
IO CInt
pixbufSaveToBufferv ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
T.Text -> -- type
[T.Text] -> -- option_keys
[T.Text] -> -- option_values
m (ByteString)
pixbufSaveToBufferv _obj type_ option_keys option_values = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
buffer <- allocMem :: IO (Ptr (Ptr Word8))
buffer_size <- allocMem :: IO (Ptr Word64)
type_' <- textToCString type_
option_keys' <- packZeroTerminatedUTF8CArray option_keys
option_values' <- packZeroTerminatedUTF8CArray option_values
onException (do
_ <- propagateGError $ gdk_pixbuf_save_to_bufferv _obj' buffer buffer_size type_' option_keys' option_values'
buffer_size' <- peek buffer_size
buffer' <- peek buffer
buffer'' <- (unpackByteStringWithLength buffer_size') buffer'
freeMem buffer'
touchManagedPtr _obj
freeMem buffer
freeMem buffer_size
freeMem type_'
mapZeroTerminatedCArray freeMem option_keys'
freeMem option_keys'
mapZeroTerminatedCArray freeMem option_values'
freeMem option_values'
return buffer''
) (do
freeMem buffer
freeMem buffer_size
freeMem type_'
mapZeroTerminatedCArray freeMem option_keys'
freeMem option_keys'
mapZeroTerminatedCArray freeMem option_values'
freeMem option_values'
)
-- method Pixbuf::save_to_callbackv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_save_to_callbackv" gdk_pixbuf_save_to_callbackv ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
FunPtr PixbufSaveFuncC -> -- save_func : TInterface "GdkPixbuf" "PixbufSaveFunc"
Ptr () -> -- user_data : TBasicType TVoid
CString -> -- type : TBasicType TUTF8
Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr (Ptr GError) -> -- error
IO CInt
pixbufSaveToCallbackv ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
PixbufSaveFunc -> -- save_func
T.Text -> -- type
[T.Text] -> -- option_keys
[T.Text] -> -- option_values
m ()
pixbufSaveToCallbackv _obj save_func type_ option_keys option_values = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
save_func' <- mkPixbufSaveFunc (pixbufSaveFuncWrapper Nothing save_func)
type_' <- textToCString type_
option_keys' <- packZeroTerminatedUTF8CArray option_keys
option_values' <- packZeroTerminatedUTF8CArray option_values
let user_data = nullPtr
onException (do
_ <- propagateGError $ gdk_pixbuf_save_to_callbackv _obj' save_func' user_data type_' option_keys' option_values'
safeFreeFunPtr $ castFunPtrToPtr save_func'
touchManagedPtr _obj
freeMem type_'
mapZeroTerminatedCArray freeMem option_keys'
freeMem option_keys'
mapZeroTerminatedCArray freeMem option_values'
freeMem option_values'
return ()
) (do
safeFreeFunPtr $ castFunPtrToPtr save_func'
freeMem type_'
mapZeroTerminatedCArray freeMem option_keys'
freeMem option_keys'
mapZeroTerminatedCArray freeMem option_values'
freeMem option_values'
)
-- method Pixbuf::savev
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_savev" gdk_pixbuf_savev ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
CString -> -- filename : TBasicType TUTF8
CString -> -- type : TBasicType TUTF8
Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8)
Ptr (Ptr GError) -> -- error
IO CInt
pixbufSavev ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
T.Text -> -- filename
T.Text -> -- type
[T.Text] -> -- option_keys
[T.Text] -> -- option_values
m ()
pixbufSavev _obj filename type_ option_keys option_values = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
filename' <- textToCString filename
type_' <- textToCString type_
option_keys' <- packZeroTerminatedUTF8CArray option_keys
option_values' <- packZeroTerminatedUTF8CArray option_values
onException (do
_ <- propagateGError $ gdk_pixbuf_savev _obj' filename' type_' option_keys' option_values'
touchManagedPtr _obj
freeMem filename'
freeMem type_'
mapZeroTerminatedCArray freeMem option_keys'
freeMem option_keys'
mapZeroTerminatedCArray freeMem option_values'
freeMem option_values'
return ()
) (do
freeMem filename'
freeMem type_'
mapZeroTerminatedCArray freeMem option_keys'
freeMem option_keys'
mapZeroTerminatedCArray freeMem option_values'
freeMem option_values'
)
-- method Pixbuf::scale
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_scale" gdk_pixbuf_scale ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- dest_x : TBasicType TInt32
Int32 -> -- dest_y : TBasicType TInt32
Int32 -> -- dest_width : TBasicType TInt32
Int32 -> -- dest_height : TBasicType TInt32
CDouble -> -- offset_x : TBasicType TDouble
CDouble -> -- offset_y : TBasicType TDouble
CDouble -> -- scale_x : TBasicType TDouble
CDouble -> -- scale_y : TBasicType TDouble
CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"
IO ()
pixbufScale ::
(MonadIO m, PixbufK a, PixbufK b) =>
a -> -- _obj
b -> -- dest
Int32 -> -- dest_x
Int32 -> -- dest_y
Int32 -> -- dest_width
Int32 -> -- dest_height
Double -> -- offset_x
Double -> -- offset_y
Double -> -- scale_x
Double -> -- scale_y
InterpType -> -- interp_type
m ()
pixbufScale _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest' = unsafeManagedPtrCastPtr dest
let offset_x' = realToFrac offset_x
let offset_y' = realToFrac offset_y
let scale_x' = realToFrac scale_x
let scale_y' = realToFrac scale_y
let interp_type' = (fromIntegral . fromEnum) interp_type
gdk_pixbuf_scale _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type'
touchManagedPtr _obj
touchManagedPtr dest
return ()
-- method Pixbuf::scale_simple
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_scale_simple" gdk_pixbuf_scale_simple ::
Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"
Int32 -> -- dest_width : TBasicType TInt32
Int32 -> -- dest_height : TBasicType TInt32
CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"
IO (Ptr Pixbuf)
pixbufScaleSimple ::
(MonadIO m, PixbufK a) =>
a -> -- _obj
Int32 -> -- dest_width
Int32 -> -- dest_height
InterpType -> -- interp_type
m Pixbuf
pixbufScaleSimple _obj dest_width dest_height interp_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let interp_type' = (fromIntegral . fromEnum) interp_type
result <- gdk_pixbuf_scale_simple _obj' dest_width dest_height interp_type'
checkUnexpectedReturnNULL "gdk_pixbuf_scale_simple" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr _obj
return result'
-- method Pixbuf::from_pixdata
-- method type : MemberFunction
-- Args : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "Pixbuf"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_from_pixdata" gdk_pixbuf_from_pixdata ::
Ptr Pixdata -> -- pixdata : TInterface "GdkPixbuf" "Pixdata"
CInt -> -- copy_pixels : TBasicType TBoolean
Ptr (Ptr GError) -> -- error
IO (Ptr Pixbuf)
{-# DEPRECATED pixbufFromPixdata ["(Since version 2.32)","Use #GResource instead."]#-}
pixbufFromPixdata ::
(MonadIO m) =>
Pixdata -> -- pixdata
Bool -> -- copy_pixels
m Pixbuf
pixbufFromPixdata pixdata copy_pixels = liftIO $ do
let pixdata' = unsafeManagedPtrGetPtr pixdata
let copy_pixels' = (fromIntegral . fromEnum) copy_pixels
onException (do
result <- propagateGError $ gdk_pixbuf_from_pixdata pixdata' copy_pixels'
checkUnexpectedReturnNULL "gdk_pixbuf_from_pixdata" result
result' <- (wrapObject Pixbuf) result
touchManagedPtr pixdata
return result'
) (do
return ()
)
-- method Pixbuf::get_file_info
-- method type : MemberFunction
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "PixbufFormat"
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_file_info" gdk_pixbuf_get_file_info ::
CString -> -- filename : TBasicType TUTF8
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO (Ptr PixbufFormat)
pixbufGetFileInfo ::
(MonadIO m) =>
T.Text -> -- filename
m (PixbufFormat,Int32,Int32)
pixbufGetFileInfo filename = liftIO $ do
filename' <- textToCString filename
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
result <- gdk_pixbuf_get_file_info filename' width height
checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info" result
result' <- (newBoxed PixbufFormat) result
width' <- peek width
height' <- peek height
freeMem filename'
freeMem width
freeMem height
return (result', width', height')
-- method Pixbuf::get_file_info_async
-- method type : MemberFunction
-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_file_info_async" gdk_pixbuf_get_file_info_async ::
CString -> -- filename : TBasicType TUTF8
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
pixbufGetFileInfoAsync ::
(MonadIO m, Gio.CancellableK a) =>
T.Text -> -- filename
Maybe (a) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
pixbufGetFileInfoAsync filename cancellable callback = liftIO $ do
filename' <- textToCString filename
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
gdk_pixbuf_get_file_info_async filename' maybeCancellable maybeCallback user_data
whenJust cancellable touchManagedPtr
freeMem filename'
return ()
-- method Pixbuf::get_file_info_finish
-- method type : MemberFunction
-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GdkPixbuf" "PixbufFormat"
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_file_info_finish" gdk_pixbuf_get_file_info_finish ::
Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult"
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
Ptr (Ptr GError) -> -- error
IO (Ptr PixbufFormat)
pixbufGetFileInfoFinish ::
(MonadIO m, Gio.AsyncResultK a) =>
a -> -- async_result
m (PixbufFormat,Int32,Int32)
pixbufGetFileInfoFinish async_result = liftIO $ do
let async_result' = unsafeManagedPtrCastPtr async_result
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
onException (do
result <- propagateGError $ gdk_pixbuf_get_file_info_finish async_result' width height
checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info_finish" result
result' <- (newBoxed PixbufFormat) result
width' <- peek width
height' <- peek height
touchManagedPtr async_result
freeMem width
freeMem height
return (result', width', height')
) (do
freeMem width
freeMem height
)
-- method Pixbuf::get_formats
-- method type : MemberFunction
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TGSList (TInterface "GdkPixbuf" "PixbufFormat")
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_get_formats" gdk_pixbuf_get_formats ::
IO (Ptr (GSList (Ptr PixbufFormat)))
pixbufGetFormats ::
(MonadIO m) =>
m [PixbufFormat]
pixbufGetFormats = liftIO $ do
result <- gdk_pixbuf_get_formats
checkUnexpectedReturnNULL "gdk_pixbuf_get_formats" result
result' <- unpackGSList result
result'' <- mapM (newBoxed PixbufFormat) result'
g_slist_free result
return result''
-- method Pixbuf::new_from_stream_async
-- method type : MemberFunction
-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_stream_async" gdk_pixbuf_new_from_stream_async ::
Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
pixbufNewFromStreamAsync ::
(MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>
a -> -- stream
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
pixbufNewFromStreamAsync stream cancellable callback = liftIO $ do
let stream' = unsafeManagedPtrCastPtr stream
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
gdk_pixbuf_new_from_stream_async stream' maybeCancellable maybeCallback user_data
touchManagedPtr stream
whenJust cancellable touchManagedPtr
return ()
-- method Pixbuf::new_from_stream_at_scale_async
-- method type : MemberFunction
-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gdk_pixbuf_new_from_stream_at_scale_async" gdk_pixbuf_new_from_stream_at_scale_async ::
Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"
Int32 -> -- width : TBasicType TInt32
Int32 -> -- height : TBasicType TInt32
CInt -> -- preserve_aspect_ratio : TBasicType TBoolean
Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
pixbufNewFromStreamAtScaleAsync ::
(MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>
a -> -- stream
Int32 -> -- width
Int32 -> -- height
Bool -> -- preserve_aspect_ratio
Maybe (b) -> -- cancellable
Maybe (Gio.AsyncReadyCallback) -> -- callback
m ()
pixbufNewFromStreamAtScaleAsync stream width height preserve_aspect_ratio cancellable callback = liftIO $ do
let stream' = unsafeManagedPtrCastPtr stream
let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let user_data = nullPtr
gdk_pixbuf_new_from_stream_at_scale_async stream' width height preserve_aspect_ratio' maybeCancellable maybeCallback user_data
touchManagedPtr stream
whenJust cancellable touchManagedPtr
return ()
-- method Pixbuf::save_to_stream_finish
-- method type : MemberFunction
-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "gdk_pixbuf_save_to_stream_finish" gdk_pixbuf_save_to_stream_finish ::
Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO CInt
pixbufSaveToStreamFinish ::
(MonadIO m, Gio.AsyncResultK a) =>
a -> -- async_result
m ()
pixbufSaveToStreamFinish async_result = liftIO $ do
let async_result' = unsafeManagedPtrCastPtr async_result
onException (do
_ <- propagateGError $ gdk_pixbuf_save_to_stream_finish async_result'
touchManagedPtr async_result
return ()
) (do
return ()
)