diff --git a/GI/GdkPixbuf.hs b/GI/GdkPixbuf.hs --- a/GI/GdkPixbuf.hs +++ b/GI/GdkPixbuf.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -10,18 +11,20 @@ module GI.GdkPixbuf.Constants , module GI.GdkPixbuf.Enums , module GI.GdkPixbuf.Flags , - module GI.GdkPixbuf.Functions , module GI.GdkPixbuf.Objects , module GI.GdkPixbuf.Structs , + + module Data.GI.Base , + + ) where import GI.GdkPixbuf.Callbacks import GI.GdkPixbuf.Constants import GI.GdkPixbuf.Enums import GI.GdkPixbuf.Flags -import GI.GdkPixbuf.Functions import GI.GdkPixbuf.Objects import GI.GdkPixbuf.Structs @@ -35,4 +38,5 @@ import GI.GdkPixbuf.Types import GI.GdkPixbuf.Callbacks +import Data.GI.Base diff --git a/GI/GdkPixbuf/Callbacks.hs b/GI/GdkPixbuf/Callbacks.hs --- a/GI/GdkPixbuf/Callbacks.hs +++ b/GI/GdkPixbuf/Callbacks.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/GdkPixbuf/Constants.hs b/GI/GdkPixbuf/Constants.hs --- a/GI/GdkPixbuf/Constants.hs +++ b/GI/GdkPixbuf/Constants.hs @@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/GdkPixbuf/Enums.hs b/GI/GdkPixbuf/Enums.hs --- a/GI/GdkPixbuf/Enums.hs +++ b/GI/GdkPixbuf/Enums.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/GdkPixbuf/Flags.hs b/GI/GdkPixbuf/Flags.hs --- a/GI/GdkPixbuf/Flags.hs +++ b/GI/GdkPixbuf/Flags.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/GdkPixbuf/Functions.hs b/GI/GdkPixbuf/Functions.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Functions.hs +++ /dev/null @@ -1,50 +0,0 @@ - -{- | -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.Functions - ( - - -- * Methods --- ** pixbufErrorQuark - pixbufErrorQuark , - - - - - ) 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 - --- function gdk_pixbuf_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_error_quark" gdk_pixbuf_error_quark :: - IO Word32 - - -pixbufErrorQuark :: - (MonadIO m) => - m Word32 -pixbufErrorQuark = liftIO $ do - result <- gdk_pixbuf_error_quark - return result - - - diff --git a/GI/GdkPixbuf/Objects.hs b/GI/GdkPixbuf/Objects.hs --- a/GI/GdkPixbuf/Objects.hs +++ b/GI/GdkPixbuf/Objects.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/GdkPixbuf/Objects/Pixbuf.hs b/GI/GdkPixbuf/Objects/Pixbuf.hs --- a/GI/GdkPixbuf/Objects/Pixbuf.hs +++ b/GI/GdkPixbuf/Objects/Pixbuf.hs @@ -1,2269 +1,2443 @@ -{- | -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 + +{- | +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 +-- ** Unsupported methods + PixbufGetOptionsMethodInfo , + + +-- ** pixbufAddAlpha + PixbufAddAlphaMethodInfo , + pixbufAddAlpha , + + +-- ** pixbufApplyEmbeddedOrientation + PixbufApplyEmbeddedOrientationMethodInfo, + pixbufApplyEmbeddedOrientation , + + +-- ** pixbufComposite + PixbufCompositeMethodInfo , + pixbufComposite , + + +-- ** pixbufCompositeColor + PixbufCompositeColorMethodInfo , + pixbufCompositeColor , + + +-- ** pixbufCompositeColorSimple + PixbufCompositeColorSimpleMethodInfo , + pixbufCompositeColorSimple , + + +-- ** pixbufCopy + PixbufCopyMethodInfo , + pixbufCopy , + + +-- ** pixbufCopyArea + PixbufCopyAreaMethodInfo , + pixbufCopyArea , + + +-- ** pixbufFill + PixbufFillMethodInfo , + pixbufFill , + + +-- ** pixbufFlip + PixbufFlipMethodInfo , + pixbufFlip , + + +-- ** pixbufFromPixdata + pixbufFromPixdata , + + +-- ** pixbufGetBitsPerSample + PixbufGetBitsPerSampleMethodInfo , + pixbufGetBitsPerSample , + + +-- ** pixbufGetByteLength + PixbufGetByteLengthMethodInfo , + pixbufGetByteLength , + + +-- ** pixbufGetColorspace + PixbufGetColorspaceMethodInfo , + pixbufGetColorspace , + + +-- ** pixbufGetFileInfo + pixbufGetFileInfo , + + +-- ** pixbufGetFileInfoAsync + pixbufGetFileInfoAsync , + + +-- ** pixbufGetFileInfoFinish + pixbufGetFileInfoFinish , + + +-- ** pixbufGetFormats + pixbufGetFormats , + + +-- ** pixbufGetHasAlpha + PixbufGetHasAlphaMethodInfo , + pixbufGetHasAlpha , + + +-- ** pixbufGetHeight + PixbufGetHeightMethodInfo , + pixbufGetHeight , + + +-- ** pixbufGetNChannels + PixbufGetNChannelsMethodInfo , + pixbufGetNChannels , + + +-- ** pixbufGetOption + PixbufGetOptionMethodInfo , + pixbufGetOption , + + +-- ** pixbufGetPixels + PixbufGetPixelsMethodInfo , + pixbufGetPixels , + + +-- ** pixbufGetRowstride + PixbufGetRowstrideMethodInfo , + pixbufGetRowstride , + + +-- ** pixbufGetWidth + PixbufGetWidthMethodInfo , + 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 + PixbufNewSubpixbufMethodInfo , + pixbufNewSubpixbuf , + + +-- ** pixbufReadPixelBytes + PixbufReadPixelBytesMethodInfo , + pixbufReadPixelBytes , + + +-- ** pixbufReadPixels + PixbufReadPixelsMethodInfo , + pixbufReadPixels , + + +-- ** pixbufRotateSimple + PixbufRotateSimpleMethodInfo , + pixbufRotateSimple , + + +-- ** pixbufSaturateAndPixelate + PixbufSaturateAndPixelateMethodInfo , + pixbufSaturateAndPixelate , + + +-- ** pixbufSaveToBufferv + PixbufSaveToBuffervMethodInfo , + pixbufSaveToBufferv , + + +-- ** pixbufSaveToCallbackv + PixbufSaveToCallbackvMethodInfo , + pixbufSaveToCallbackv , + + +-- ** pixbufSaveToStreamFinish + pixbufSaveToStreamFinish , + + +-- ** pixbufSavev + PixbufSavevMethodInfo , + pixbufSavev , + + +-- ** pixbufScale + PixbufScaleMethodInfo , + pixbufScale , + + +-- ** pixbufScaleSimple + PixbufScaleSimpleMethodInfo , + 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 + +type family ResolvePixbufMethod (t :: Symbol) (o :: *) :: * where + ResolvePixbufMethod "addAlpha" o = PixbufAddAlphaMethodInfo + ResolvePixbufMethod "applyEmbeddedOrientation" o = PixbufApplyEmbeddedOrientationMethodInfo + ResolvePixbufMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePixbufMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePixbufMethod "composite" o = PixbufCompositeMethodInfo + ResolvePixbufMethod "compositeColor" o = PixbufCompositeColorMethodInfo + ResolvePixbufMethod "compositeColorSimple" o = PixbufCompositeColorSimpleMethodInfo + ResolvePixbufMethod "copy" o = PixbufCopyMethodInfo + ResolvePixbufMethod "copyArea" o = PixbufCopyAreaMethodInfo + ResolvePixbufMethod "equal" o = Gio.IconEqualMethodInfo + ResolvePixbufMethod "fill" o = PixbufFillMethodInfo + ResolvePixbufMethod "flip" o = PixbufFlipMethodInfo + ResolvePixbufMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePixbufMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePixbufMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePixbufMethod "load" o = Gio.LoadableIconLoadMethodInfo + ResolvePixbufMethod "loadAsync" o = Gio.LoadableIconLoadAsyncMethodInfo + ResolvePixbufMethod "loadFinish" o = Gio.LoadableIconLoadFinishMethodInfo + ResolvePixbufMethod "newSubpixbuf" o = PixbufNewSubpixbufMethodInfo + ResolvePixbufMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePixbufMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePixbufMethod "readPixelBytes" o = PixbufReadPixelBytesMethodInfo + ResolvePixbufMethod "readPixels" o = PixbufReadPixelsMethodInfo + ResolvePixbufMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePixbufMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePixbufMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePixbufMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePixbufMethod "rotateSimple" o = PixbufRotateSimpleMethodInfo + ResolvePixbufMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePixbufMethod "saturateAndPixelate" o = PixbufSaturateAndPixelateMethodInfo + ResolvePixbufMethod "saveToBufferv" o = PixbufSaveToBuffervMethodInfo + ResolvePixbufMethod "saveToCallbackv" o = PixbufSaveToCallbackvMethodInfo + ResolvePixbufMethod "savev" o = PixbufSavevMethodInfo + ResolvePixbufMethod "scale" o = PixbufScaleMethodInfo + ResolvePixbufMethod "scaleSimple" o = PixbufScaleSimpleMethodInfo + ResolvePixbufMethod "serialize" o = Gio.IconSerializeMethodInfo + ResolvePixbufMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePixbufMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePixbufMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePixbufMethod "toString" o = Gio.IconToStringMethodInfo + ResolvePixbufMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePixbufMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePixbufMethod "getBitsPerSample" o = PixbufGetBitsPerSampleMethodInfo + ResolvePixbufMethod "getByteLength" o = PixbufGetByteLengthMethodInfo + ResolvePixbufMethod "getColorspace" o = PixbufGetColorspaceMethodInfo + ResolvePixbufMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePixbufMethod "getHasAlpha" o = PixbufGetHasAlphaMethodInfo + ResolvePixbufMethod "getHeight" o = PixbufGetHeightMethodInfo + ResolvePixbufMethod "getNChannels" o = PixbufGetNChannelsMethodInfo + ResolvePixbufMethod "getOption" o = PixbufGetOptionMethodInfo + ResolvePixbufMethod "getOptions" o = PixbufGetOptionsMethodInfo + ResolvePixbufMethod "getPixels" o = PixbufGetPixelsMethodInfo + ResolvePixbufMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePixbufMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePixbufMethod "getRowstride" o = PixbufGetRowstrideMethodInfo + ResolvePixbufMethod "getWidth" o = PixbufGetWidthMethodInfo + ResolvePixbufMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePixbufMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePixbufMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixbufMethod t Pixbuf, MethodInfo info Pixbuf p) => IsLabelProxy t (Pixbuf -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixbufMethod t Pixbuf, MethodInfo info Pixbuf p) => IsLabel t (Pixbuf -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + +-- 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 = "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 = "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 = "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 = "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 = "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 = "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 = "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 = "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 = "width" + attrGet _ = getPixbufWidth + attrSet _ = undefined + attrConstruct _ = constructPixbufWidth + +type instance AttributeList Pixbuf = PixbufAttributeList +type PixbufAttributeList = ('[ '("bitsPerSample", PixbufBitsPerSamplePropertyInfo), '("colorspace", PixbufColorspacePropertyInfo), '("hasAlpha", PixbufHasAlphaPropertyInfo), '("height", PixbufHeightPropertyInfo), '("nChannels", PixbufNChannelsPropertyInfo), '("pixelBytes", PixbufPixelBytesPropertyInfo), '("pixels", PixbufPixelsPropertyInfo), '("rowstride", PixbufRowstridePropertyInfo), '("width", PixbufWidthPropertyInfo)] :: [(Symbol, *)]) + +type instance SignalList Pixbuf = PixbufSignalList +type PixbufSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) + +-- method Pixbuf::new +-- method type : Constructor +-- Args : [Arg {argCName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- hasAlpha + -> Int32 -- bitsPerSample + -> Int32 -- width + -> Int32 -- height + -> m Pixbuf -- result +pixbufNew colorspace hasAlpha bitsPerSample width height = liftIO $ do + let colorspace' = (fromIntegral . fromEnum) colorspace + let hasAlpha' = (fromIntegral . fromEnum) hasAlpha + result <- gdk_pixbuf_new colorspace' hasAlpha' bitsPerSample width height + checkUnexpectedReturnNULL "gdk_pixbuf_new" result + result' <- (wrapObject Pixbuf) result + return result' + +-- method Pixbuf::new_from_bytes +-- method type : Constructor +-- Args : [Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- hasAlpha + -> Int32 -- bitsPerSample + -> Int32 -- width + -> Int32 -- height + -> Int32 -- rowstride + -> m Pixbuf -- result +pixbufNewFromBytes data_ colorspace hasAlpha bitsPerSample width height rowstride = liftIO $ do + let data_' = unsafeManagedPtrGetPtr data_ + let colorspace' = (fromIntegral . fromEnum) colorspace + let hasAlpha' = (fromIntegral . fromEnum) hasAlpha + result <- gdk_pixbuf_new_from_bytes data_' colorspace' hasAlpha' bitsPerSample 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 {argCName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_fn_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- hasAlpha + -> Int32 -- bitsPerSample + -> Int32 -- width + -> Int32 -- height + -> Int32 -- rowstride + -> Maybe (PixbufDestroyNotify) -- destroyFn + -> m Pixbuf -- result +pixbufNewFromData data_ colorspace hasAlpha bitsPerSample width height rowstride destroyFn = liftIO $ do + let colorspace' = (fromIntegral . fromEnum) colorspace + let hasAlpha' = (fromIntegral . fromEnum) hasAlpha + ptrdestroyFn <- callocMem :: IO (Ptr (FunPtr PixbufDestroyNotifyC)) + maybeDestroyFn <- case destroyFn of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jDestroyFn -> do + jDestroyFn' <- mkPixbufDestroyNotify (pixbufDestroyNotifyWrapper (Just ptrdestroyFn) jDestroyFn) + poke ptrdestroyFn jDestroyFn' + return jDestroyFn' + let destroyFnData = nullPtr + result <- gdk_pixbuf_new_from_data data_ colorspace' hasAlpha' bitsPerSample width height rowstride maybeDestroyFn destroyFnData + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_data" result + result' <- (wrapObject Pixbuf) result + return result' + +-- method Pixbuf::new_from_file +-- method type : Constructor +-- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- preserveAspectRatio + -> m Pixbuf -- result +pixbufNewFromFileAtScale filename width height preserveAspectRatio = liftIO $ do + filename' <- textToCString filename + let preserveAspectRatio' = (fromIntegral . fromEnum) preserveAspectRatio + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_file_at_scale filename' width height preserveAspectRatio' + 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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 -- copyPixels + -> m Pixbuf -- result +pixbufNewFromInline data_ copyPixels = liftIO $ do + let dataLength = fromIntegral $ B.length data_ + data_' <- packByteString data_ + let copyPixels' = (fromIntegral . fromEnum) copyPixels + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_inline dataLength data_' copyPixels' + 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 {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- resourcePath + -> m Pixbuf -- result +pixbufNewFromResource resourcePath = liftIO $ do + resourcePath' <- textToCString resourcePath + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_resource resourcePath' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource" result + result' <- (wrapObject Pixbuf) result + freeMem resourcePath' + return result' + ) (do + freeMem resourcePath' + ) + +-- method Pixbuf::new_from_resource_at_scale +-- method type : Constructor +-- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- resourcePath + -> Int32 -- width + -> Int32 -- height + -> Bool -- preserveAspectRatio + -> m Pixbuf -- result +pixbufNewFromResourceAtScale resourcePath width height preserveAspectRatio = liftIO $ do + resourcePath' <- textToCString resourcePath + let preserveAspectRatio' = (fromIntegral . fromEnum) preserveAspectRatio + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_resource_at_scale resourcePath' width height preserveAspectRatio' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource_at_scale" result + result' <- (wrapObject Pixbuf) result + freeMem resourcePath' + return result' + ) (do + freeMem resourcePath' + ) + +-- method Pixbuf::new_from_stream +-- method type : Constructor +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- preserveAspectRatio + -> Maybe (b) -- cancellable + -> m Pixbuf -- result +pixbufNewFromStreamAtScale stream width height preserveAspectRatio cancellable = liftIO $ do + let stream' = unsafeManagedPtrCastPtr stream + let preserveAspectRatio' = (fromIntegral . fromEnum) preserveAspectRatio + 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 preserveAspectRatio' 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 {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- asyncResult + -> m Pixbuf -- result +pixbufNewFromStreamFinish asyncResult = liftIO $ do + let asyncResult' = unsafeManagedPtrCastPtr asyncResult + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_stream_finish asyncResult' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream_finish" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr asyncResult + return result' + ) (do + return () + ) + +-- method Pixbuf::new_from_xpm_data +-- method type : Constructor +-- Args : [Arg {argCName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- substituteColor + -> Word8 -- r + -> Word8 -- g + -> Word8 -- b + -> m Pixbuf -- result +pixbufAddAlpha _obj substituteColor r g b = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let substituteColor' = (fromIntegral . fromEnum) substituteColor + result <- gdk_pixbuf_add_alpha _obj' substituteColor' r g b + checkUnexpectedReturnNULL "gdk_pixbuf_add_alpha" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +data PixbufAddAlphaMethodInfo +instance (signature ~ (Bool -> Word8 -> Word8 -> Word8 -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufAddAlphaMethodInfo a signature where + overloadedMethod _ = pixbufAddAlpha + +-- method Pixbuf::apply_embedded_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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' + +data PixbufApplyEmbeddedOrientationMethodInfo +instance (signature ~ (m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufApplyEmbeddedOrientationMethodInfo a signature where + overloadedMethod _ = pixbufApplyEmbeddedOrientation + +-- method Pixbuf::composite +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- destX + -> Int32 -- destY + -> Int32 -- destWidth + -> Int32 -- destHeight + -> Double -- offsetX + -> Double -- offsetY + -> Double -- scaleX + -> Double -- scaleY + -> InterpType -- interpType + -> Int32 -- overallAlpha + -> m () -- result +pixbufComposite _obj dest destX destY destWidth destHeight offsetX offsetY scaleX scaleY interpType overallAlpha = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest' = unsafeManagedPtrCastPtr dest + let offsetX' = realToFrac offsetX + let offsetY' = realToFrac offsetY + let scaleX' = realToFrac scaleX + let scaleY' = realToFrac scaleY + let interpType' = (fromIntegral . fromEnum) interpType + gdk_pixbuf_composite _obj' dest' destX destY destWidth destHeight offsetX' offsetY' scaleX' scaleY' interpType' overallAlpha + touchManagedPtr _obj + touchManagedPtr dest + return () + +data PixbufCompositeMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Double -> Double -> Double -> Double -> InterpType -> Int32 -> m ()), MonadIO m, PixbufK a, PixbufK b) => MethodInfo PixbufCompositeMethodInfo a signature where + overloadedMethod _ = pixbufComposite + +-- method Pixbuf::composite_color +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- destX + -> Int32 -- destY + -> Int32 -- destWidth + -> Int32 -- destHeight + -> Double -- offsetX + -> Double -- offsetY + -> Double -- scaleX + -> Double -- scaleY + -> InterpType -- interpType + -> Int32 -- overallAlpha + -> Int32 -- checkX + -> Int32 -- checkY + -> Int32 -- checkSize + -> Word32 -- color1 + -> Word32 -- color2 + -> m () -- result +pixbufCompositeColor _obj dest destX destY destWidth destHeight offsetX offsetY scaleX scaleY interpType overallAlpha checkX checkY checkSize color1 color2 = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest' = unsafeManagedPtrCastPtr dest + let offsetX' = realToFrac offsetX + let offsetY' = realToFrac offsetY + let scaleX' = realToFrac scaleX + let scaleY' = realToFrac scaleY + let interpType' = (fromIntegral . fromEnum) interpType + gdk_pixbuf_composite_color _obj' dest' destX destY destWidth destHeight offsetX' offsetY' scaleX' scaleY' interpType' overallAlpha checkX checkY checkSize color1 color2 + touchManagedPtr _obj + touchManagedPtr dest + return () + +data PixbufCompositeColorMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Double -> Double -> Double -> Double -> InterpType -> Int32 -> Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> m ()), MonadIO m, PixbufK a, PixbufK b) => MethodInfo PixbufCompositeColorMethodInfo a signature where + overloadedMethod _ = pixbufCompositeColor + +-- method Pixbuf::composite_color_simple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- destWidth + -> Int32 -- destHeight + -> InterpType -- interpType + -> Int32 -- overallAlpha + -> Int32 -- checkSize + -> Word32 -- color1 + -> Word32 -- color2 + -> m Pixbuf -- result +pixbufCompositeColorSimple _obj destWidth destHeight interpType overallAlpha checkSize color1 color2 = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let interpType' = (fromIntegral . fromEnum) interpType + result <- gdk_pixbuf_composite_color_simple _obj' destWidth destHeight interpType' overallAlpha checkSize color1 color2 + checkUnexpectedReturnNULL "gdk_pixbuf_composite_color_simple" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +data PixbufCompositeColorSimpleMethodInfo +instance (signature ~ (Int32 -> Int32 -> InterpType -> Int32 -> Int32 -> Word32 -> Word32 -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufCompositeColorSimpleMethodInfo a signature where + overloadedMethod _ = pixbufCompositeColorSimple + +-- method Pixbuf::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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' + +data PixbufCopyMethodInfo +instance (signature ~ (m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufCopyMethodInfo a signature where + overloadedMethod _ = pixbufCopy + +-- method Pixbuf::copy_area +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- srcX + -> Int32 -- srcY + -> Int32 -- width + -> Int32 -- height + -> b -- destPixbuf + -> Int32 -- destX + -> Int32 -- destY + -> m () -- result +pixbufCopyArea _obj srcX srcY width height destPixbuf destX destY = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let destPixbuf' = unsafeManagedPtrCastPtr destPixbuf + gdk_pixbuf_copy_area _obj' srcX srcY width height destPixbuf' destX destY + touchManagedPtr _obj + touchManagedPtr destPixbuf + return () + +data PixbufCopyAreaMethodInfo +instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> b -> Int32 -> Int32 -> m ()), MonadIO m, PixbufK a, PixbufK b) => MethodInfo PixbufCopyAreaMethodInfo a signature where + overloadedMethod _ = pixbufCopyArea + +-- method Pixbuf::fill +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +pixbufFill _obj pixel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gdk_pixbuf_fill _obj' pixel + touchManagedPtr _obj + return () + +data PixbufFillMethodInfo +instance (signature ~ (Word32 -> m ()), MonadIO m, PixbufK a) => MethodInfo PixbufFillMethodInfo a signature where + overloadedMethod _ = pixbufFill + +-- method Pixbuf::flip +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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' + +data PixbufFlipMethodInfo +instance (signature ~ (Bool -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufFlipMethodInfo a signature where + overloadedMethod _ = pixbufFlip + +-- method Pixbuf::get_bits_per_sample +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetBitsPerSample _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_bits_per_sample _obj' + touchManagedPtr _obj + return result + +data PixbufGetBitsPerSampleMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufK a) => MethodInfo PixbufGetBitsPerSampleMethodInfo a signature where + overloadedMethod _ = pixbufGetBitsPerSample + +-- method Pixbuf::get_byte_length +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetByteLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_byte_length _obj' + touchManagedPtr _obj + return result + +data PixbufGetByteLengthMethodInfo +instance (signature ~ (m Word64), MonadIO m, PixbufK a) => MethodInfo PixbufGetByteLengthMethodInfo a signature where + overloadedMethod _ = pixbufGetByteLength + +-- method Pixbuf::get_colorspace +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetColorspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_colorspace _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +data PixbufGetColorspaceMethodInfo +instance (signature ~ (m Colorspace), MonadIO m, PixbufK a) => MethodInfo PixbufGetColorspaceMethodInfo a signature where + overloadedMethod _ = pixbufGetColorspace + +-- method Pixbuf::get_has_alpha +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetHasAlpha _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_has_alpha _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +data PixbufGetHasAlphaMethodInfo +instance (signature ~ (m Bool), MonadIO m, PixbufK a) => MethodInfo PixbufGetHasAlphaMethodInfo a signature where + overloadedMethod _ = pixbufGetHasAlpha + +-- method Pixbuf::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_height _obj' + touchManagedPtr _obj + return result + +data PixbufGetHeightMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufK a) => MethodInfo PixbufGetHeightMethodInfo a signature where + overloadedMethod _ = pixbufGetHeight + +-- method Pixbuf::get_n_channels +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetNChannels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_n_channels _obj' + touchManagedPtr _obj + return result + +data PixbufGetNChannelsMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufK a) => MethodInfo PixbufGetNChannelsMethodInfo a signature where + overloadedMethod _ = pixbufGetNChannels + +-- method Pixbuf::get_option +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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' + +data PixbufGetOptionMethodInfo +instance (signature ~ (T.Text -> m T.Text), MonadIO m, PixbufK a) => MethodInfo PixbufGetOptionMethodInfo a signature where + overloadedMethod _ = pixbufGetOption + +-- XXX Could not generate method Pixbuf::get_options +-- Error was : Not implemented: "Hash table argument with transfer = Container? result" +-- XXX: Dummy instance, since code generation failed. +-- Please file a bug at http://github.com/haskell-gi/haskell-gi. +data PixbufGetOptionsMethodInfo +instance (p ~ (), o ~ MethodResolutionFailed "getOptions" Pixbuf) => MethodInfo PixbufGetOptionsMethodInfo o p where + overloadedMethod _ = undefined +-- method Pixbuf::get_pixels +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- 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 -- result +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' + +data PixbufGetPixelsMethodInfo +instance (signature ~ (m ByteString), MonadIO m, PixbufK a) => MethodInfo PixbufGetPixelsMethodInfo a signature where + overloadedMethod _ = pixbufGetPixels + +-- method Pixbuf::get_rowstride +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetRowstride _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_rowstride _obj' + touchManagedPtr _obj + return result + +data PixbufGetRowstrideMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufK a) => MethodInfo PixbufGetRowstrideMethodInfo a signature where + overloadedMethod _ = pixbufGetRowstride + +-- method Pixbuf::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_width _obj' + touchManagedPtr _obj + return result + +data PixbufGetWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufK a) => MethodInfo PixbufGetWidthMethodInfo a signature where + overloadedMethod _ = pixbufGetWidth + +-- method Pixbuf::new_subpixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- srcX + -> Int32 -- srcY + -> Int32 -- width + -> Int32 -- height + -> m Pixbuf -- result +pixbufNewSubpixbuf _obj srcX srcY width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_new_subpixbuf _obj' srcX srcY width height + checkUnexpectedReturnNULL "gdk_pixbuf_new_subpixbuf" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +data PixbufNewSubpixbufMethodInfo +instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufNewSubpixbufMethodInfo a signature where + overloadedMethod _ = pixbufNewSubpixbuf + +-- method Pixbuf::read_pixel_bytes +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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' + +data PixbufReadPixelBytesMethodInfo +instance (signature ~ (m GLib.Bytes), MonadIO m, PixbufK a) => MethodInfo PixbufReadPixelBytesMethodInfo a signature where + overloadedMethod _ = pixbufReadPixelBytes + +-- method Pixbuf::read_pixels +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +pixbufReadPixels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_read_pixels _obj' + touchManagedPtr _obj + return result + +data PixbufReadPixelsMethodInfo +instance (signature ~ (m Word8), MonadIO m, PixbufK a) => MethodInfo PixbufReadPixelsMethodInfo a signature where + overloadedMethod _ = pixbufReadPixels + +-- method Pixbuf::rotate_simple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- result +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' + +data PixbufRotateSimpleMethodInfo +instance (signature ~ (PixbufRotation -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufRotateSimpleMethodInfo a signature where + overloadedMethod _ = pixbufRotateSimple + +-- method Pixbuf::saturate_and_pixelate +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 () + +data PixbufSaturateAndPixelateMethodInfo +instance (signature ~ (b -> Float -> Bool -> m ()), MonadIO m, PixbufK a, PixbufK b) => MethodInfo PixbufSaturateAndPixelateMethodInfo a signature where + overloadedMethod _ = pixbufSaturateAndPixelate + +-- method Pixbuf::save_to_bufferv +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- 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] -- optionKeys + -> [T.Text] -- optionValues + -> m (ByteString) -- result +pixbufSaveToBufferv _obj type_ optionKeys optionValues = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + buffer <- allocMem :: IO (Ptr (Ptr Word8)) + bufferSize <- allocMem :: IO (Ptr Word64) + type_' <- textToCString type_ + optionKeys' <- packZeroTerminatedUTF8CArray optionKeys + optionValues' <- packZeroTerminatedUTF8CArray optionValues + onException (do + _ <- propagateGError $ gdk_pixbuf_save_to_bufferv _obj' buffer bufferSize type_' optionKeys' optionValues' + bufferSize' <- peek bufferSize + buffer' <- peek buffer + buffer'' <- (unpackByteStringWithLength bufferSize') buffer' + freeMem buffer' + touchManagedPtr _obj + freeMem buffer + freeMem bufferSize + freeMem type_' + mapZeroTerminatedCArray freeMem optionKeys' + freeMem optionKeys' + mapZeroTerminatedCArray freeMem optionValues' + freeMem optionValues' + return buffer'' + ) (do + freeMem buffer + freeMem bufferSize + freeMem type_' + mapZeroTerminatedCArray freeMem optionKeys' + freeMem optionKeys' + mapZeroTerminatedCArray freeMem optionValues' + freeMem optionValues' + ) + +data PixbufSaveToBuffervMethodInfo +instance (signature ~ (T.Text -> [T.Text] -> [T.Text] -> m (ByteString)), MonadIO m, PixbufK a) => MethodInfo PixbufSaveToBuffervMethodInfo a signature where + overloadedMethod _ = pixbufSaveToBufferv + +-- method Pixbuf::save_to_callbackv +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- saveFunc + -> T.Text -- type_ + -> [T.Text] -- optionKeys + -> [T.Text] -- optionValues + -> m () -- result +pixbufSaveToCallbackv _obj saveFunc type_ optionKeys optionValues = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + saveFunc' <- mkPixbufSaveFunc (pixbufSaveFuncWrapper Nothing saveFunc) + type_' <- textToCString type_ + optionKeys' <- packZeroTerminatedUTF8CArray optionKeys + optionValues' <- packZeroTerminatedUTF8CArray optionValues + let userData = nullPtr + onException (do + _ <- propagateGError $ gdk_pixbuf_save_to_callbackv _obj' saveFunc' userData type_' optionKeys' optionValues' + safeFreeFunPtr $ castFunPtrToPtr saveFunc' + touchManagedPtr _obj + freeMem type_' + mapZeroTerminatedCArray freeMem optionKeys' + freeMem optionKeys' + mapZeroTerminatedCArray freeMem optionValues' + freeMem optionValues' + return () + ) (do + safeFreeFunPtr $ castFunPtrToPtr saveFunc' + freeMem type_' + mapZeroTerminatedCArray freeMem optionKeys' + freeMem optionKeys' + mapZeroTerminatedCArray freeMem optionValues' + freeMem optionValues' + ) + +data PixbufSaveToCallbackvMethodInfo +instance (signature ~ (PixbufSaveFunc -> T.Text -> [T.Text] -> [T.Text] -> m ()), MonadIO m, PixbufK a) => MethodInfo PixbufSaveToCallbackvMethodInfo a signature where + overloadedMethod _ = pixbufSaveToCallbackv + +-- method Pixbuf::savev +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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] -- optionKeys + -> [T.Text] -- optionValues + -> m () -- result +pixbufSavev _obj filename type_ optionKeys optionValues = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filename' <- textToCString filename + type_' <- textToCString type_ + optionKeys' <- packZeroTerminatedUTF8CArray optionKeys + optionValues' <- packZeroTerminatedUTF8CArray optionValues + onException (do + _ <- propagateGError $ gdk_pixbuf_savev _obj' filename' type_' optionKeys' optionValues' + touchManagedPtr _obj + freeMem filename' + freeMem type_' + mapZeroTerminatedCArray freeMem optionKeys' + freeMem optionKeys' + mapZeroTerminatedCArray freeMem optionValues' + freeMem optionValues' + return () + ) (do + freeMem filename' + freeMem type_' + mapZeroTerminatedCArray freeMem optionKeys' + freeMem optionKeys' + mapZeroTerminatedCArray freeMem optionValues' + freeMem optionValues' + ) + +data PixbufSavevMethodInfo +instance (signature ~ (T.Text -> T.Text -> [T.Text] -> [T.Text] -> m ()), MonadIO m, PixbufK a) => MethodInfo PixbufSavevMethodInfo a signature where + overloadedMethod _ = pixbufSavev + +-- method Pixbuf::scale +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- destX + -> Int32 -- destY + -> Int32 -- destWidth + -> Int32 -- destHeight + -> Double -- offsetX + -> Double -- offsetY + -> Double -- scaleX + -> Double -- scaleY + -> InterpType -- interpType + -> m () -- result +pixbufScale _obj dest destX destY destWidth destHeight offsetX offsetY scaleX scaleY interpType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest' = unsafeManagedPtrCastPtr dest + let offsetX' = realToFrac offsetX + let offsetY' = realToFrac offsetY + let scaleX' = realToFrac scaleX + let scaleY' = realToFrac scaleY + let interpType' = (fromIntegral . fromEnum) interpType + gdk_pixbuf_scale _obj' dest' destX destY destWidth destHeight offsetX' offsetY' scaleX' scaleY' interpType' + touchManagedPtr _obj + touchManagedPtr dest + return () + +data PixbufScaleMethodInfo +instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> Double -> Double -> Double -> Double -> InterpType -> m ()), MonadIO m, PixbufK a, PixbufK b) => MethodInfo PixbufScaleMethodInfo a signature where + overloadedMethod _ = pixbufScale + +-- method Pixbuf::scale_simple +-- method type : OrdinaryMethod +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- destWidth + -> Int32 -- destHeight + -> InterpType -- interpType + -> m Pixbuf -- result +pixbufScaleSimple _obj destWidth destHeight interpType = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let interpType' = (fromIntegral . fromEnum) interpType + result <- gdk_pixbuf_scale_simple _obj' destWidth destHeight interpType' + checkUnexpectedReturnNULL "gdk_pixbuf_scale_simple" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +data PixbufScaleSimpleMethodInfo +instance (signature ~ (Int32 -> Int32 -> InterpType -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufScaleSimpleMethodInfo a signature where + overloadedMethod _ = pixbufScaleSimple + +-- method Pixbuf::from_pixdata +-- method type : MemberFunction +-- Args : [Arg {argCName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- copyPixels + -> m Pixbuf -- result +pixbufFromPixdata pixdata copyPixels = liftIO $ do + let pixdata' = unsafeManagedPtrGetPtr pixdata + let copyPixels' = (fromIntegral . fromEnum) copyPixels + onException (do + result <- propagateGError $ gdk_pixbuf_from_pixdata pixdata' copyPixels' + 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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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) -- result +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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 userData = nullPtr + gdk_pixbuf_get_file_info_async filename' maybeCancellable maybeCallback userData + whenJust cancellable touchManagedPtr + freeMem filename' + return () + +-- method Pixbuf::get_file_info_finish +-- method type : MemberFunction +-- Args : [Arg {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [] +-- 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 -- asyncResult + -> m (PixbufFormat,Int32,Int32) -- result +pixbufGetFileInfoFinish asyncResult = liftIO $ do + let asyncResult' = unsafeManagedPtrCastPtr asyncResult + width <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + onException (do + result <- propagateGError $ gdk_pixbuf_get_file_info_finish asyncResult' width height + checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info_finish" result + result' <- (newBoxed PixbufFormat) result + width' <- peek width + height' <- peek height + touchManagedPtr asyncResult + freeMem width + freeMem height + return (result', width', height') + ) (do + freeMem width + freeMem height + ) + +-- method Pixbuf::get_formats +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- 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] -- result +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 {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 () -- result +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 userData = nullPtr + gdk_pixbuf_new_from_stream_async stream' maybeCancellable maybeCallback userData + touchManagedPtr stream + whenJust cancellable touchManagedPtr + return () + +-- method Pixbuf::new_from_stream_at_scale_async +-- method type : MemberFunction +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- preserveAspectRatio + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result +pixbufNewFromStreamAtScaleAsync stream width height preserveAspectRatio cancellable callback = liftIO $ do + let stream' = unsafeManagedPtrCastPtr stream + let preserveAspectRatio' = (fromIntegral . fromEnum) preserveAspectRatio + 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 userData = nullPtr + gdk_pixbuf_new_from_stream_at_scale_async stream' width height preserveAspectRatio' maybeCancellable maybeCallback userData + touchManagedPtr stream + whenJust cancellable touchManagedPtr + return () + +-- method Pixbuf::save_to_stream_finish +-- method type : MemberFunction +-- Args : [Arg {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [] +-- 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 -- asyncResult + -> m () -- result +pixbufSaveToStreamFinish asyncResult = liftIO $ do + let asyncResult' = unsafeManagedPtrCastPtr asyncResult + onException (do + _ <- propagateGError $ gdk_pixbuf_save_to_stream_finish asyncResult' + touchManagedPtr asyncResult return () ) (do return () diff --git a/GI/GdkPixbuf/Objects/Pixbuf.hs-boot b/GI/GdkPixbuf/Objects/Pixbuf.hs-boot --- a/GI/GdkPixbuf/Objects/Pixbuf.hs-boot +++ b/GI/GdkPixbuf/Objects/Pixbuf.hs-boot @@ -20,3 +20,33 @@ data PixbufPixelsPropertyInfo data PixbufRowstridePropertyInfo data PixbufWidthPropertyInfo +data PixbufAddAlphaMethodInfo +data PixbufApplyEmbeddedOrientationMethodInfo +data PixbufCompositeMethodInfo +data PixbufCompositeColorMethodInfo +data PixbufCompositeColorSimpleMethodInfo +data PixbufCopyMethodInfo +data PixbufCopyAreaMethodInfo +data PixbufFillMethodInfo +data PixbufFlipMethodInfo +data PixbufGetBitsPerSampleMethodInfo +data PixbufGetByteLengthMethodInfo +data PixbufGetColorspaceMethodInfo +data PixbufGetHasAlphaMethodInfo +data PixbufGetHeightMethodInfo +data PixbufGetNChannelsMethodInfo +data PixbufGetOptionMethodInfo +data PixbufGetOptionsMethodInfo +data PixbufGetPixelsMethodInfo +data PixbufGetRowstrideMethodInfo +data PixbufGetWidthMethodInfo +data PixbufNewSubpixbufMethodInfo +data PixbufReadPixelBytesMethodInfo +data PixbufReadPixelsMethodInfo +data PixbufRotateSimpleMethodInfo +data PixbufSaturateAndPixelateMethodInfo +data PixbufSaveToBuffervMethodInfo +data PixbufSaveToCallbackvMethodInfo +data PixbufSavevMethodInfo +data PixbufScaleMethodInfo +data PixbufScaleSimpleMethodInfo diff --git a/GI/GdkPixbuf/Objects/PixbufAnimation.hs b/GI/GdkPixbuf/Objects/PixbufAnimation.hs --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs +++ b/GI/GdkPixbuf/Objects/PixbufAnimation.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,22 +18,27 @@ -- * Methods -- ** pixbufAnimationGetHeight + PixbufAnimationGetHeightMethodInfo , pixbufAnimationGetHeight , -- ** pixbufAnimationGetIter + PixbufAnimationGetIterMethodInfo , pixbufAnimationGetIter , -- ** pixbufAnimationGetStaticImage + PixbufAnimationGetStaticImageMethodInfo , pixbufAnimationGetStaticImage , -- ** pixbufAnimationGetWidth + PixbufAnimationGetWidthMethodInfo , pixbufAnimationGetWidth , -- ** pixbufAnimationIsStaticImage + PixbufAnimationIsStaticImageMethodInfo , pixbufAnimationIsStaticImage , @@ -94,17 +100,54 @@ noPixbufAnimation :: Maybe PixbufAnimation noPixbufAnimation = Nothing +type family ResolvePixbufAnimationMethod (t :: Symbol) (o :: *) :: * where + ResolvePixbufAnimationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePixbufAnimationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePixbufAnimationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePixbufAnimationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePixbufAnimationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePixbufAnimationMethod "isStaticImage" o = PixbufAnimationIsStaticImageMethodInfo + ResolvePixbufAnimationMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePixbufAnimationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePixbufAnimationMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePixbufAnimationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePixbufAnimationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePixbufAnimationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePixbufAnimationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePixbufAnimationMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePixbufAnimationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePixbufAnimationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePixbufAnimationMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePixbufAnimationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePixbufAnimationMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePixbufAnimationMethod "getHeight" o = PixbufAnimationGetHeightMethodInfo + ResolvePixbufAnimationMethod "getIter" o = PixbufAnimationGetIterMethodInfo + ResolvePixbufAnimationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePixbufAnimationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePixbufAnimationMethod "getStaticImage" o = PixbufAnimationGetStaticImageMethodInfo + ResolvePixbufAnimationMethod "getWidth" o = PixbufAnimationGetWidthMethodInfo + ResolvePixbufAnimationMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePixbufAnimationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePixbufAnimationMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixbufAnimationMethod t PixbufAnimation, MethodInfo info PixbufAnimation p) => IsLabelProxy t (PixbufAnimation -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixbufAnimationMethod t PixbufAnimation, MethodInfo info PixbufAnimation p) => IsLabel t (PixbufAnimation -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PixbufAnimation = PixbufAnimationAttributeList type PixbufAnimationAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList PixbufAnimation = PixbufAnimationSignalList -type PixbufAnimationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PixbufAnimationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PixbufAnimation::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}] +-- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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" "PixbufAnimation" -- throws : True -- Skip return : False @@ -117,8 +160,8 @@ pixbufAnimationNewFromFile :: (MonadIO m) => - T.Text -> -- filename - m PixbufAnimation + T.Text -- filename + -> m PixbufAnimation -- result pixbufAnimationNewFromFile filename = liftIO $ do filename' <- textToCString filename onException (do @@ -133,9 +176,8 @@ -- method PixbufAnimation::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}] +-- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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" "PixbufAnimation" -- throws : True -- Skip return : False @@ -148,25 +190,24 @@ pixbufAnimationNewFromResource :: (MonadIO m) => - T.Text -> -- resource_path - m PixbufAnimation -pixbufAnimationNewFromResource resource_path = liftIO $ do - resource_path' <- textToCString resource_path + T.Text -- resourcePath + -> m PixbufAnimation -- result +pixbufAnimationNewFromResource resourcePath = liftIO $ do + resourcePath' <- textToCString resourcePath onException (do - result <- propagateGError $ gdk_pixbuf_animation_new_from_resource resource_path' + result <- propagateGError $ gdk_pixbuf_animation_new_from_resource resourcePath' checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_resource" result result' <- (wrapObject PixbufAnimation) result - freeMem resource_path' + freeMem resourcePath' return result' ) (do - freeMem resource_path' + freeMem resourcePath' ) -- method PixbufAnimation::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}] +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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" "PixbufAnimation" -- throws : True -- Skip return : False @@ -180,9 +221,9 @@ pixbufAnimationNewFromStream :: (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -> -- stream - Maybe (b) -> -- cancellable - m PixbufAnimation + a -- stream + -> Maybe (b) -- cancellable + -> m PixbufAnimation -- result pixbufAnimationNewFromStream stream cancellable = liftIO $ do let stream' = unsafeManagedPtrCastPtr stream maybeCancellable <- case cancellable of @@ -203,9 +244,8 @@ -- method PixbufAnimation::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}] +-- Args : [Arg {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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" "PixbufAnimation" -- throws : True -- Skip return : False @@ -218,15 +258,15 @@ pixbufAnimationNewFromStreamFinish :: (MonadIO m, Gio.AsyncResultK a) => - a -> -- async_result - m PixbufAnimation -pixbufAnimationNewFromStreamFinish async_result = liftIO $ do - let async_result' = unsafeManagedPtrCastPtr async_result + a -- asyncResult + -> m PixbufAnimation -- result +pixbufAnimationNewFromStreamFinish asyncResult = liftIO $ do + let asyncResult' = unsafeManagedPtrCastPtr asyncResult onException (do - result <- propagateGError $ gdk_pixbuf_animation_new_from_stream_finish async_result' + result <- propagateGError $ gdk_pixbuf_animation_new_from_stream_finish asyncResult' checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_stream_finish" result result' <- (wrapObject PixbufAnimation) result - touchManagedPtr async_result + touchManagedPtr asyncResult return result' ) (do return () @@ -234,9 +274,8 @@ -- method PixbufAnimation::get_height -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -248,19 +287,22 @@ pixbufAnimationGetHeight :: (MonadIO m, PixbufAnimationK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result pixbufAnimationGetHeight _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_animation_get_height _obj' touchManagedPtr _obj return result +data PixbufAnimationGetHeightMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufAnimationK a) => MethodInfo PixbufAnimationGetHeightMethodInfo a signature where + overloadedMethod _ = pixbufAnimationGetHeight + -- method PixbufAnimation::get_iter -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufAnimationIter" -- throws : False -- Skip return : False @@ -273,28 +315,31 @@ pixbufAnimationGetIter :: (MonadIO m, PixbufAnimationK a) => - a -> -- _obj - Maybe (GLib.TimeVal) -> -- start_time - m PixbufAnimationIter -pixbufAnimationGetIter _obj start_time = liftIO $ do + a -- _obj + -> Maybe (GLib.TimeVal) -- startTime + -> m PixbufAnimationIter -- result +pixbufAnimationGetIter _obj startTime = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeStart_time <- case start_time of + maybeStartTime <- case startTime of Nothing -> return nullPtr - Just jStart_time -> do - let jStart_time' = unsafeManagedPtrGetPtr jStart_time - return jStart_time' - result <- gdk_pixbuf_animation_get_iter _obj' maybeStart_time + Just jStartTime -> do + let jStartTime' = unsafeManagedPtrGetPtr jStartTime + return jStartTime' + result <- gdk_pixbuf_animation_get_iter _obj' maybeStartTime checkUnexpectedReturnNULL "gdk_pixbuf_animation_get_iter" result result' <- (wrapObject PixbufAnimationIter) result touchManagedPtr _obj - whenJust start_time touchManagedPtr + whenJust startTime touchManagedPtr return result' +data PixbufAnimationGetIterMethodInfo +instance (signature ~ (Maybe (GLib.TimeVal) -> m PixbufAnimationIter), MonadIO m, PixbufAnimationK a) => MethodInfo PixbufAnimationGetIterMethodInfo a signature where + overloadedMethod _ = pixbufAnimationGetIter + -- method PixbufAnimation::get_static_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -306,8 +351,8 @@ pixbufAnimationGetStaticImage :: (MonadIO m, PixbufAnimationK a) => - a -> -- _obj - m Pixbuf + a -- _obj + -> m Pixbuf -- result pixbufAnimationGetStaticImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_animation_get_static_image _obj' @@ -316,11 +361,14 @@ touchManagedPtr _obj return result' +data PixbufAnimationGetStaticImageMethodInfo +instance (signature ~ (m Pixbuf), MonadIO m, PixbufAnimationK a) => MethodInfo PixbufAnimationGetStaticImageMethodInfo a signature where + overloadedMethod _ = pixbufAnimationGetStaticImage + -- method PixbufAnimation::get_width -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -332,19 +380,22 @@ pixbufAnimationGetWidth :: (MonadIO m, PixbufAnimationK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result pixbufAnimationGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_animation_get_width _obj' touchManagedPtr _obj return result +data PixbufAnimationGetWidthMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufAnimationK a) => MethodInfo PixbufAnimationGetWidthMethodInfo a signature where + overloadedMethod _ = pixbufAnimationGetWidth + -- method PixbufAnimation::is_static_image -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -356,8 +407,8 @@ pixbufAnimationIsStaticImage :: (MonadIO m, PixbufAnimationK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result pixbufAnimationIsStaticImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_animation_is_static_image _obj' @@ -365,11 +416,14 @@ touchManagedPtr _obj return result' +data PixbufAnimationIsStaticImageMethodInfo +instance (signature ~ (m Bool), MonadIO m, PixbufAnimationK a) => MethodInfo PixbufAnimationIsStaticImageMethodInfo a signature where + overloadedMethod _ = pixbufAnimationIsStaticImage + -- method PixbufAnimation::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}] +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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 @@ -384,10 +438,10 @@ pixbufAnimationNewFromStreamAsync :: (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -> -- stream - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () + a -- stream + -> Maybe (b) -- cancellable + -> Maybe (Gio.AsyncReadyCallback) -- callback + -> m () -- result pixbufAnimationNewFromStreamAsync stream cancellable callback = liftIO $ do let stream' = unsafeManagedPtrCastPtr stream maybeCancellable <- case cancellable of @@ -402,8 +456,8 @@ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) poke ptrcallback jCallback' return jCallback' - let user_data = nullPtr - gdk_pixbuf_animation_new_from_stream_async stream' maybeCancellable maybeCallback user_data + let userData = nullPtr + gdk_pixbuf_animation_new_from_stream_async stream' maybeCancellable maybeCallback userData touchManagedPtr stream whenJust cancellable touchManagedPtr return () diff --git a/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot b/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot @@ -11,3 +11,8 @@ instance GObject PixbufAnimation where class GObject o => PixbufAnimationK o instance (GObject o, IsDescendantOf PixbufAnimation o) => PixbufAnimationK o +data PixbufAnimationGetHeightMethodInfo +data PixbufAnimationGetIterMethodInfo +data PixbufAnimationGetStaticImageMethodInfo +data PixbufAnimationGetWidthMethodInfo +data PixbufAnimationIsStaticImageMethodInfo diff --git a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs +++ b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** pixbufAnimationIterAdvance + PixbufAnimationIterAdvanceMethodInfo , pixbufAnimationIterAdvance , -- ** pixbufAnimationIterGetDelayTime + PixbufAnimationIterGetDelayTimeMethodInfo, pixbufAnimationIterGetDelayTime , -- ** pixbufAnimationIterGetPixbuf + PixbufAnimationIterGetPixbufMethodInfo , pixbufAnimationIterGetPixbuf , -- ** pixbufAnimationIterOnCurrentlyLoadingFrame + PixbufAnimationIterOnCurrentlyLoadingFrameMethodInfo, pixbufAnimationIterOnCurrentlyLoadingFrame, @@ -69,17 +74,53 @@ noPixbufAnimationIter :: Maybe PixbufAnimationIter noPixbufAnimationIter = Nothing +type family ResolvePixbufAnimationIterMethod (t :: Symbol) (o :: *) :: * where + ResolvePixbufAnimationIterMethod "advance" o = PixbufAnimationIterAdvanceMethodInfo + ResolvePixbufAnimationIterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePixbufAnimationIterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePixbufAnimationIterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePixbufAnimationIterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePixbufAnimationIterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePixbufAnimationIterMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePixbufAnimationIterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePixbufAnimationIterMethod "onCurrentlyLoadingFrame" o = PixbufAnimationIterOnCurrentlyLoadingFrameMethodInfo + ResolvePixbufAnimationIterMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePixbufAnimationIterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePixbufAnimationIterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePixbufAnimationIterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePixbufAnimationIterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePixbufAnimationIterMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePixbufAnimationIterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePixbufAnimationIterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePixbufAnimationIterMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePixbufAnimationIterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePixbufAnimationIterMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePixbufAnimationIterMethod "getDelayTime" o = PixbufAnimationIterGetDelayTimeMethodInfo + ResolvePixbufAnimationIterMethod "getPixbuf" o = PixbufAnimationIterGetPixbufMethodInfo + ResolvePixbufAnimationIterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePixbufAnimationIterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePixbufAnimationIterMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePixbufAnimationIterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePixbufAnimationIterMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixbufAnimationIterMethod t PixbufAnimationIter, MethodInfo info PixbufAnimationIter p) => IsLabelProxy t (PixbufAnimationIter -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixbufAnimationIterMethod t PixbufAnimationIter, MethodInfo info PixbufAnimationIter p) => IsLabel t (PixbufAnimationIter -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PixbufAnimationIter = PixbufAnimationIterAttributeList type PixbufAnimationIterAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList PixbufAnimationIter = PixbufAnimationIterSignalList -type PixbufAnimationIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PixbufAnimationIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PixbufAnimationIter::advance -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "current_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -92,27 +133,30 @@ pixbufAnimationIterAdvance :: (MonadIO m, PixbufAnimationIterK a) => - a -> -- _obj - Maybe (GLib.TimeVal) -> -- current_time - m Bool -pixbufAnimationIterAdvance _obj current_time = liftIO $ do + a -- _obj + -> Maybe (GLib.TimeVal) -- currentTime + -> m Bool -- result +pixbufAnimationIterAdvance _obj currentTime = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj - maybeCurrent_time <- case current_time of + maybeCurrentTime <- case currentTime of Nothing -> return nullPtr - Just jCurrent_time -> do - let jCurrent_time' = unsafeManagedPtrGetPtr jCurrent_time - return jCurrent_time' - result <- gdk_pixbuf_animation_iter_advance _obj' maybeCurrent_time + Just jCurrentTime -> do + let jCurrentTime' = unsafeManagedPtrGetPtr jCurrentTime + return jCurrentTime' + result <- gdk_pixbuf_animation_iter_advance _obj' maybeCurrentTime let result' = (/= 0) result touchManagedPtr _obj - whenJust current_time touchManagedPtr + whenJust currentTime touchManagedPtr return result' +data PixbufAnimationIterAdvanceMethodInfo +instance (signature ~ (Maybe (GLib.TimeVal) -> m Bool), MonadIO m, PixbufAnimationIterK a) => MethodInfo PixbufAnimationIterAdvanceMethodInfo a signature where + overloadedMethod _ = pixbufAnimationIterAdvance + -- method PixbufAnimationIter::get_delay_time -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False @@ -124,19 +168,22 @@ pixbufAnimationIterGetDelayTime :: (MonadIO m, PixbufAnimationIterK a) => - a -> -- _obj - m Int32 + a -- _obj + -> m Int32 -- result pixbufAnimationIterGetDelayTime _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_animation_iter_get_delay_time _obj' touchManagedPtr _obj return result +data PixbufAnimationIterGetDelayTimeMethodInfo +instance (signature ~ (m Int32), MonadIO m, PixbufAnimationIterK a) => MethodInfo PixbufAnimationIterGetDelayTimeMethodInfo a signature where + overloadedMethod _ = pixbufAnimationIterGetDelayTime + -- method PixbufAnimationIter::get_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -148,8 +195,8 @@ pixbufAnimationIterGetPixbuf :: (MonadIO m, PixbufAnimationIterK a) => - a -> -- _obj - m Pixbuf + a -- _obj + -> m Pixbuf -- result pixbufAnimationIterGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_animation_iter_get_pixbuf _obj' @@ -158,11 +205,14 @@ touchManagedPtr _obj return result' +data PixbufAnimationIterGetPixbufMethodInfo +instance (signature ~ (m Pixbuf), MonadIO m, PixbufAnimationIterK a) => MethodInfo PixbufAnimationIterGetPixbufMethodInfo a signature where + overloadedMethod _ = pixbufAnimationIterGetPixbuf + -- method PixbufAnimationIter::on_currently_loading_frame -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -174,13 +224,17 @@ pixbufAnimationIterOnCurrentlyLoadingFrame :: (MonadIO m, PixbufAnimationIterK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result pixbufAnimationIterOnCurrentlyLoadingFrame _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_animation_iter_on_currently_loading_frame _obj' let result' = (/= 0) result touchManagedPtr _obj return result' + +data PixbufAnimationIterOnCurrentlyLoadingFrameMethodInfo +instance (signature ~ (m Bool), MonadIO m, PixbufAnimationIterK a) => MethodInfo PixbufAnimationIterOnCurrentlyLoadingFrameMethodInfo a signature where + overloadedMethod _ = pixbufAnimationIterOnCurrentlyLoadingFrame diff --git a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot @@ -11,3 +11,7 @@ instance GObject PixbufAnimationIter where class GObject o => PixbufAnimationIterK o instance (GObject o, IsDescendantOf PixbufAnimationIter o) => PixbufAnimationIterK o +data PixbufAnimationIterAdvanceMethodInfo +data PixbufAnimationIterGetDelayTimeMethodInfo +data PixbufAnimationIterGetPixbufMethodInfo +data PixbufAnimationIterOnCurrentlyLoadingFrameMethodInfo diff --git a/GI/GdkPixbuf/Objects/PixbufLoader.hs b/GI/GdkPixbuf/Objects/PixbufLoader.hs --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs +++ b/GI/GdkPixbuf/Objects/PixbufLoader.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,18 +18,22 @@ -- * Methods -- ** pixbufLoaderClose + PixbufLoaderCloseMethodInfo , pixbufLoaderClose , -- ** pixbufLoaderGetAnimation + PixbufLoaderGetAnimationMethodInfo , pixbufLoaderGetAnimation , -- ** pixbufLoaderGetFormat + PixbufLoaderGetFormatMethodInfo , pixbufLoaderGetFormat , -- ** pixbufLoaderGetPixbuf + PixbufLoaderGetPixbufMethodInfo , pixbufLoaderGetPixbuf , @@ -45,14 +50,17 @@ -- ** pixbufLoaderSetSize + PixbufLoaderSetSizeMethodInfo , pixbufLoaderSetSize , -- ** pixbufLoaderWrite + PixbufLoaderWriteMethodInfo , pixbufLoaderWrite , -- ** pixbufLoaderWriteBytes + PixbufLoaderWriteBytesMethodInfo , pixbufLoaderWriteBytes , @@ -144,6 +152,46 @@ noPixbufLoader :: Maybe PixbufLoader noPixbufLoader = Nothing +type family ResolvePixbufLoaderMethod (t :: Symbol) (o :: *) :: * where + ResolvePixbufLoaderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePixbufLoaderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePixbufLoaderMethod "close" o = PixbufLoaderCloseMethodInfo + ResolvePixbufLoaderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePixbufLoaderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePixbufLoaderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePixbufLoaderMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePixbufLoaderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePixbufLoaderMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePixbufLoaderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePixbufLoaderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePixbufLoaderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePixbufLoaderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePixbufLoaderMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePixbufLoaderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePixbufLoaderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePixbufLoaderMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePixbufLoaderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePixbufLoaderMethod "write" o = PixbufLoaderWriteMethodInfo + ResolvePixbufLoaderMethod "writeBytes" o = PixbufLoaderWriteBytesMethodInfo + ResolvePixbufLoaderMethod "getAnimation" o = PixbufLoaderGetAnimationMethodInfo + ResolvePixbufLoaderMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePixbufLoaderMethod "getFormat" o = PixbufLoaderGetFormatMethodInfo + ResolvePixbufLoaderMethod "getPixbuf" o = PixbufLoaderGetPixbufMethodInfo + ResolvePixbufLoaderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePixbufLoaderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePixbufLoaderMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePixbufLoaderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePixbufLoaderMethod "setSize" o = PixbufLoaderSetSizeMethodInfo + ResolvePixbufLoaderMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixbufLoaderMethod t PixbufLoader, MethodInfo info PixbufLoader p) => IsLabelProxy t (PixbufLoader -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixbufLoaderMethod t PixbufLoader, MethodInfo info PixbufLoader p) => IsLabel t (PixbufLoader -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- signal PixbufLoader::area-prepared type PixbufLoaderAreaPreparedCallback = IO () @@ -338,13 +386,12 @@ connectSignal _ = connectPixbufLoaderSizePrepared type instance SignalList PixbufLoader = PixbufLoaderSignalList -type PixbufLoaderSignalList = ('[ '("area-prepared", PixbufLoaderAreaPreparedSignalInfo), '("area-updated", PixbufLoaderAreaUpdatedSignalInfo), '("closed", PixbufLoaderClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("size-prepared", PixbufLoaderSizePreparedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PixbufLoaderSignalList = ('[ '("areaPrepared", PixbufLoaderAreaPreparedSignalInfo), '("areaUpdated", PixbufLoaderAreaUpdatedSignalInfo), '("closed", PixbufLoaderClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sizePrepared", PixbufLoaderSizePreparedSignalInfo)] :: [(Symbol, *)]) -- method PixbufLoader::new -- method type : Constructor -- Args : [] -- Lengths : [] --- hInArgs : [] -- returnType : TInterface "GdkPixbuf" "PixbufLoader" -- throws : False -- Skip return : False @@ -355,7 +402,7 @@ pixbufLoaderNew :: (MonadIO m) => - m PixbufLoader + m PixbufLoader -- result pixbufLoaderNew = liftIO $ do result <- gdk_pixbuf_loader_new checkUnexpectedReturnNULL "gdk_pixbuf_loader_new" result @@ -364,9 +411,8 @@ -- method PixbufLoader::new_with_mime_type -- method type : Constructor --- Args : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufLoader" -- throws : True -- Skip return : False @@ -379,25 +425,24 @@ pixbufLoaderNewWithMimeType :: (MonadIO m) => - T.Text -> -- mime_type - m PixbufLoader -pixbufLoaderNewWithMimeType mime_type = liftIO $ do - mime_type' <- textToCString mime_type + T.Text -- mimeType + -> m PixbufLoader -- result +pixbufLoaderNewWithMimeType mimeType = liftIO $ do + mimeType' <- textToCString mimeType onException (do - result <- propagateGError $ gdk_pixbuf_loader_new_with_mime_type mime_type' + result <- propagateGError $ gdk_pixbuf_loader_new_with_mime_type mimeType' checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_mime_type" result result' <- (wrapObject PixbufLoader) result - freeMem mime_type' + freeMem mimeType' return result' ) (do - freeMem mime_type' + freeMem mimeType' ) -- method PixbufLoader::new_with_type -- method type : Constructor --- Args : [Arg {argName = "image_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "image_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "image_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufLoader" -- throws : True -- Skip return : False @@ -410,25 +455,24 @@ pixbufLoaderNewWithType :: (MonadIO m) => - T.Text -> -- image_type - m PixbufLoader -pixbufLoaderNewWithType image_type = liftIO $ do - image_type' <- textToCString image_type + T.Text -- imageType + -> m PixbufLoader -- result +pixbufLoaderNewWithType imageType = liftIO $ do + imageType' <- textToCString imageType onException (do - result <- propagateGError $ gdk_pixbuf_loader_new_with_type image_type' + result <- propagateGError $ gdk_pixbuf_loader_new_with_type imageType' checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_type" result result' <- (wrapObject PixbufLoader) result - freeMem image_type' + freeMem imageType' return result' ) (do - freeMem image_type' + freeMem imageType' ) -- method PixbufLoader::close -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -441,8 +485,8 @@ pixbufLoaderClose :: (MonadIO m, PixbufLoaderK a) => - a -> -- _obj - m () + a -- _obj + -> m () -- result pixbufLoaderClose _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj onException (do @@ -453,11 +497,14 @@ return () ) +data PixbufLoaderCloseMethodInfo +instance (signature ~ (m ()), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderCloseMethodInfo a signature where + overloadedMethod _ = pixbufLoaderClose + -- method PixbufLoader::get_animation -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufAnimation" -- throws : False -- Skip return : False @@ -469,8 +516,8 @@ pixbufLoaderGetAnimation :: (MonadIO m, PixbufLoaderK a) => - a -> -- _obj - m PixbufAnimation + a -- _obj + -> m PixbufAnimation -- result pixbufLoaderGetAnimation _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_loader_get_animation _obj' @@ -479,11 +526,14 @@ touchManagedPtr _obj return result' +data PixbufLoaderGetAnimationMethodInfo +instance (signature ~ (m PixbufAnimation), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderGetAnimationMethodInfo a signature where + overloadedMethod _ = pixbufLoaderGetAnimation + -- method PixbufLoader::get_format -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufFormat" -- throws : False -- Skip return : False @@ -495,8 +545,8 @@ pixbufLoaderGetFormat :: (MonadIO m, PixbufLoaderK a) => - a -> -- _obj - m PixbufFormat + a -- _obj + -> m PixbufFormat -- result pixbufLoaderGetFormat _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_loader_get_format _obj' @@ -505,11 +555,14 @@ touchManagedPtr _obj return result' +data PixbufLoaderGetFormatMethodInfo +instance (signature ~ (m PixbufFormat), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderGetFormatMethodInfo a signature where + overloadedMethod _ = pixbufLoaderGetFormat + -- method PixbufLoader::get_pixbuf -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "Pixbuf" -- throws : False -- Skip return : False @@ -521,8 +574,8 @@ pixbufLoaderGetPixbuf :: (MonadIO m, PixbufLoaderK a) => - a -> -- _obj - m Pixbuf + a -- _obj + -> m Pixbuf -- result pixbufLoaderGetPixbuf _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_loader_get_pixbuf _obj' @@ -531,11 +584,14 @@ touchManagedPtr _obj return result' +data PixbufLoaderGetPixbufMethodInfo +instance (signature ~ (m Pixbuf), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderGetPixbufMethodInfo a signature where + overloadedMethod _ = pixbufLoaderGetPixbuf + -- method PixbufLoader::set_size -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", 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}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", 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 : TBasicType TVoid -- throws : False -- Skip return : False @@ -549,21 +605,24 @@ pixbufLoaderSetSize :: (MonadIO m, PixbufLoaderK a) => - a -> -- _obj - Int32 -> -- width - Int32 -> -- height - m () + a -- _obj + -> Int32 -- width + -> Int32 -- height + -> m () -- result pixbufLoaderSetSize _obj width height = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gdk_pixbuf_loader_set_size _obj' width height touchManagedPtr _obj return () +data PixbufLoaderSetSizeMethodInfo +instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderSetSizeMethodInfo a signature where + overloadedMethod _ = pixbufLoaderSetSize + -- method PixbufLoader::write -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -578,9 +637,9 @@ pixbufLoaderWrite :: (MonadIO m, PixbufLoaderK a) => - a -> -- _obj - ByteString -> -- buf - m () + a -- _obj + -> ByteString -- buf + -> m () -- result pixbufLoaderWrite _obj buf = liftIO $ do let count = fromIntegral $ B.length buf let _obj' = unsafeManagedPtrCastPtr _obj @@ -594,11 +653,14 @@ freeMem buf' ) +data PixbufLoaderWriteMethodInfo +instance (signature ~ (ByteString -> m ()), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderWriteMethodInfo a signature where + overloadedMethod _ = pixbufLoaderWrite + -- method PixbufLoader::write_bytes -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -612,9 +674,9 @@ pixbufLoaderWriteBytes :: (MonadIO m, PixbufLoaderK a) => - a -> -- _obj - GLib.Bytes -> -- buffer - m () + a -- _obj + -> GLib.Bytes -- buffer + -> m () -- result pixbufLoaderWriteBytes _obj buffer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let buffer' = unsafeManagedPtrGetPtr buffer @@ -626,5 +688,9 @@ ) (do return () ) + +data PixbufLoaderWriteBytesMethodInfo +instance (signature ~ (GLib.Bytes -> m ()), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderWriteBytesMethodInfo a signature where + overloadedMethod _ = pixbufLoaderWriteBytes diff --git a/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot b/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot @@ -15,3 +15,10 @@ data PixbufLoaderAreaUpdatedSignalInfo data PixbufLoaderClosedSignalInfo data PixbufLoaderSizePreparedSignalInfo +data PixbufLoaderCloseMethodInfo +data PixbufLoaderGetAnimationMethodInfo +data PixbufLoaderGetFormatMethodInfo +data PixbufLoaderGetPixbufMethodInfo +data PixbufLoaderSetSizeMethodInfo +data PixbufLoaderWriteMethodInfo +data PixbufLoaderWriteBytesMethodInfo diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs +++ b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -17,10 +18,12 @@ -- * Methods -- ** pixbufSimpleAnimAddFrame + PixbufSimpleAnimAddFrameMethodInfo , pixbufSimpleAnimAddFrame , -- ** pixbufSimpleAnimGetLoop + PixbufSimpleAnimGetLoopMethodInfo , pixbufSimpleAnimGetLoop , @@ -29,6 +32,7 @@ -- ** pixbufSimpleAnimSetLoop + PixbufSimpleAnimSetLoopMethodInfo , pixbufSimpleAnimSetLoop , @@ -78,6 +82,47 @@ noPixbufSimpleAnim :: Maybe PixbufSimpleAnim noPixbufSimpleAnim = Nothing +type family ResolvePixbufSimpleAnimMethod (t :: Symbol) (o :: *) :: * where + ResolvePixbufSimpleAnimMethod "addFrame" o = PixbufSimpleAnimAddFrameMethodInfo + ResolvePixbufSimpleAnimMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePixbufSimpleAnimMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePixbufSimpleAnimMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePixbufSimpleAnimMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePixbufSimpleAnimMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePixbufSimpleAnimMethod "isStaticImage" o = PixbufAnimationIsStaticImageMethodInfo + ResolvePixbufSimpleAnimMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePixbufSimpleAnimMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePixbufSimpleAnimMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePixbufSimpleAnimMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePixbufSimpleAnimMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePixbufSimpleAnimMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePixbufSimpleAnimMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePixbufSimpleAnimMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePixbufSimpleAnimMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePixbufSimpleAnimMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePixbufSimpleAnimMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePixbufSimpleAnimMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePixbufSimpleAnimMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePixbufSimpleAnimMethod "getHeight" o = PixbufAnimationGetHeightMethodInfo + ResolvePixbufSimpleAnimMethod "getIter" o = PixbufAnimationGetIterMethodInfo + ResolvePixbufSimpleAnimMethod "getLoop" o = PixbufSimpleAnimGetLoopMethodInfo + ResolvePixbufSimpleAnimMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePixbufSimpleAnimMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePixbufSimpleAnimMethod "getStaticImage" o = PixbufAnimationGetStaticImageMethodInfo + ResolvePixbufSimpleAnimMethod "getWidth" o = PixbufAnimationGetWidthMethodInfo + ResolvePixbufSimpleAnimMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePixbufSimpleAnimMethod "setLoop" o = PixbufSimpleAnimSetLoopMethodInfo + ResolvePixbufSimpleAnimMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePixbufSimpleAnimMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixbufSimpleAnimMethod t PixbufSimpleAnim, MethodInfo info PixbufSimpleAnim p) => IsLabelProxy t (PixbufSimpleAnim -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixbufSimpleAnimMethod t PixbufSimpleAnim, MethodInfo info PixbufSimpleAnim p) => IsLabel t (PixbufSimpleAnim -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + -- VVV Prop "loop" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] @@ -97,7 +142,7 @@ type AttrSetTypeConstraint PixbufSimpleAnimLoopPropertyInfo = (~) Bool type AttrBaseTypeConstraint PixbufSimpleAnimLoopPropertyInfo = PixbufSimpleAnimK type AttrGetType PixbufSimpleAnimLoopPropertyInfo = Bool - type AttrLabel PixbufSimpleAnimLoopPropertyInfo = "PixbufSimpleAnim::loop" + type AttrLabel PixbufSimpleAnimLoopPropertyInfo = "loop" attrGet _ = getPixbufSimpleAnimLoop attrSet _ = setPixbufSimpleAnimLoop attrConstruct _ = constructPixbufSimpleAnimLoop @@ -106,13 +151,12 @@ type PixbufSimpleAnimAttributeList = ('[ '("loop", PixbufSimpleAnimLoopPropertyInfo)] :: [(Symbol, *)]) type instance SignalList PixbufSimpleAnim = PixbufSimpleAnimSignalList -type PixbufSimpleAnimSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PixbufSimpleAnimSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method PixbufSimpleAnim::new -- method type : Constructor --- Args : [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 = "rate", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rate", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [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 = "rate", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufSimpleAnim" -- throws : False -- Skip return : False @@ -126,10 +170,10 @@ pixbufSimpleAnimNew :: (MonadIO m) => - Int32 -> -- width - Int32 -> -- height - Float -> -- rate - m PixbufSimpleAnim + Int32 -- width + -> Int32 -- height + -> Float -- rate + -> m PixbufSimpleAnim -- result pixbufSimpleAnimNew width height rate = liftIO $ do let rate' = realToFrac rate result <- gdk_pixbuf_simple_anim_new width height rate' @@ -139,9 +183,8 @@ -- method PixbufSimpleAnim::add_frame -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -154,9 +197,9 @@ pixbufSimpleAnimAddFrame :: (MonadIO m, PixbufSimpleAnimK a, PixbufK b) => - a -> -- _obj - b -> -- pixbuf - m () + a -- _obj + -> b -- pixbuf + -> m () -- result pixbufSimpleAnimAddFrame _obj pixbuf = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let pixbuf' = unsafeManagedPtrCastPtr pixbuf @@ -165,11 +208,14 @@ touchManagedPtr pixbuf return () +data PixbufSimpleAnimAddFrameMethodInfo +instance (signature ~ (b -> m ()), MonadIO m, PixbufSimpleAnimK a, PixbufK b) => MethodInfo PixbufSimpleAnimAddFrameMethodInfo a signature where + overloadedMethod _ = pixbufSimpleAnimAddFrame + -- method PixbufSimpleAnim::get_loop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -181,8 +227,8 @@ pixbufSimpleAnimGetLoop :: (MonadIO m, PixbufSimpleAnimK a) => - a -> -- _obj - m Bool + a -- _obj + -> m Bool -- result pixbufSimpleAnimGetLoop _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_simple_anim_get_loop _obj' @@ -190,11 +236,14 @@ touchManagedPtr _obj return result' +data PixbufSimpleAnimGetLoopMethodInfo +instance (signature ~ (m Bool), MonadIO m, PixbufSimpleAnimK a) => MethodInfo PixbufSimpleAnimGetLoopMethodInfo a signature where + overloadedMethod _ = pixbufSimpleAnimGetLoop + -- method PixbufSimpleAnim::set_loop -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "loop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "loop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "loop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -207,14 +256,18 @@ pixbufSimpleAnimSetLoop :: (MonadIO m, PixbufSimpleAnimK a) => - a -> -- _obj - Bool -> -- loop - m () + a -- _obj + -> Bool -- loop + -> m () -- result pixbufSimpleAnimSetLoop _obj loop = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let loop' = (fromIntegral . fromEnum) loop gdk_pixbuf_simple_anim_set_loop _obj' loop' touchManagedPtr _obj return () + +data PixbufSimpleAnimSetLoopMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m, PixbufSimpleAnimK a) => MethodInfo PixbufSimpleAnimSetLoopMethodInfo a signature where + overloadedMethod _ = pixbufSimpleAnimSetLoop diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot @@ -12,3 +12,6 @@ class GObject o => PixbufSimpleAnimK o instance (GObject o, IsDescendantOf PixbufSimpleAnim o) => PixbufSimpleAnimK o data PixbufSimpleAnimLoopPropertyInfo +data PixbufSimpleAnimAddFrameMethodInfo +data PixbufSimpleAnimGetLoopMethodInfo +data PixbufSimpleAnimSetLoopMethodInfo diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs +++ b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -49,10 +50,47 @@ noPixbufSimpleAnimIter :: Maybe PixbufSimpleAnimIter noPixbufSimpleAnimIter = Nothing +type family ResolvePixbufSimpleAnimIterMethod (t :: Symbol) (o :: *) :: * where + ResolvePixbufSimpleAnimIterMethod "advance" o = PixbufAnimationIterAdvanceMethodInfo + ResolvePixbufSimpleAnimIterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo + ResolvePixbufSimpleAnimIterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo + ResolvePixbufSimpleAnimIterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo + ResolvePixbufSimpleAnimIterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo + ResolvePixbufSimpleAnimIterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo + ResolvePixbufSimpleAnimIterMethod "notify" o = GObject.ObjectNotifyMethodInfo + ResolvePixbufSimpleAnimIterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo + ResolvePixbufSimpleAnimIterMethod "onCurrentlyLoadingFrame" o = PixbufAnimationIterOnCurrentlyLoadingFrameMethodInfo + ResolvePixbufSimpleAnimIterMethod "ref" o = GObject.ObjectRefMethodInfo + ResolvePixbufSimpleAnimIterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo + ResolvePixbufSimpleAnimIterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo + ResolvePixbufSimpleAnimIterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo + ResolvePixbufSimpleAnimIterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo + ResolvePixbufSimpleAnimIterMethod "stealData" o = GObject.ObjectStealDataMethodInfo + ResolvePixbufSimpleAnimIterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo + ResolvePixbufSimpleAnimIterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo + ResolvePixbufSimpleAnimIterMethod "unref" o = GObject.ObjectUnrefMethodInfo + ResolvePixbufSimpleAnimIterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo + ResolvePixbufSimpleAnimIterMethod "getData" o = GObject.ObjectGetDataMethodInfo + ResolvePixbufSimpleAnimIterMethod "getDelayTime" o = PixbufAnimationIterGetDelayTimeMethodInfo + ResolvePixbufSimpleAnimIterMethod "getPixbuf" o = PixbufAnimationIterGetPixbufMethodInfo + ResolvePixbufSimpleAnimIterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo + ResolvePixbufSimpleAnimIterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo + ResolvePixbufSimpleAnimIterMethod "setData" o = GObject.ObjectSetDataMethodInfo + ResolvePixbufSimpleAnimIterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo + ResolvePixbufSimpleAnimIterMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixbufSimpleAnimIterMethod t PixbufSimpleAnimIter, MethodInfo info PixbufSimpleAnimIter p) => IsLabelProxy t (PixbufSimpleAnimIter -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixbufSimpleAnimIterMethod t PixbufSimpleAnimIter, MethodInfo info PixbufSimpleAnimIter p) => IsLabel t (PixbufSimpleAnimIter -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif + type instance AttributeList PixbufSimpleAnimIter = PixbufSimpleAnimIterAttributeList type PixbufSimpleAnimIterAttributeList = ('[ ] :: [(Symbol, *)]) type instance SignalList PixbufSimpleAnimIter = PixbufSimpleAnimIterSignalList -type PixbufSimpleAnimIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) +type PixbufSimpleAnimIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) diff --git a/GI/GdkPixbuf/Structs.hs b/GI/GdkPixbuf/Structs.hs --- a/GI/GdkPixbuf/Structs.hs +++ b/GI/GdkPixbuf/Structs.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 diff --git a/GI/GdkPixbuf/Structs/PixbufFormat.hs b/GI/GdkPixbuf/Structs/PixbufFormat.hs --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs +++ b/GI/GdkPixbuf/Structs/PixbufFormat.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -15,46 +16,57 @@ -- * Methods -- ** pixbufFormatCopy + PixbufFormatCopyMethodInfo , pixbufFormatCopy , -- ** pixbufFormatFree + PixbufFormatFreeMethodInfo , pixbufFormatFree , -- ** pixbufFormatGetDescription + PixbufFormatGetDescriptionMethodInfo , pixbufFormatGetDescription , -- ** pixbufFormatGetExtensions + PixbufFormatGetExtensionsMethodInfo , pixbufFormatGetExtensions , -- ** pixbufFormatGetLicense + PixbufFormatGetLicenseMethodInfo , pixbufFormatGetLicense , -- ** pixbufFormatGetMimeTypes + PixbufFormatGetMimeTypesMethodInfo , pixbufFormatGetMimeTypes , -- ** pixbufFormatGetName + PixbufFormatGetNameMethodInfo , pixbufFormatGetName , -- ** pixbufFormatIsDisabled + PixbufFormatIsDisabledMethodInfo , pixbufFormatIsDisabled , -- ** pixbufFormatIsScalable + PixbufFormatIsScalableMethodInfo , pixbufFormatIsScalable , -- ** pixbufFormatIsWritable + PixbufFormatIsWritableMethodInfo , pixbufFormatIsWritable , -- ** pixbufFormatSetDisabled + PixbufFormatSetDisabledMethodInfo , pixbufFormatSetDisabled , @@ -84,9 +96,8 @@ -- method PixbufFormat::copy -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GdkPixbuf" "PixbufFormat" -- throws : False -- Skip return : False @@ -98,8 +109,8 @@ pixbufFormatCopy :: (MonadIO m) => - PixbufFormat -> -- _obj - m PixbufFormat + PixbufFormat -- _obj + -> m PixbufFormat -- result pixbufFormatCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_copy _obj' @@ -108,11 +119,14 @@ touchManagedPtr _obj return result' +data PixbufFormatCopyMethodInfo +instance (signature ~ (m PixbufFormat), MonadIO m) => MethodInfo PixbufFormatCopyMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatCopy + -- method PixbufFormat::free -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -124,19 +138,22 @@ pixbufFormatFree :: (MonadIO m) => - PixbufFormat -> -- _obj - m () + PixbufFormat -- _obj + -> m () -- result pixbufFormatFree _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj gdk_pixbuf_format_free _obj' touchManagedPtr _obj return () +data PixbufFormatFreeMethodInfo +instance (signature ~ (m ()), MonadIO m) => MethodInfo PixbufFormatFreeMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatFree + -- method PixbufFormat::get_description -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -148,8 +165,8 @@ pixbufFormatGetDescription :: (MonadIO m) => - PixbufFormat -> -- _obj - m T.Text + PixbufFormat -- _obj + -> m T.Text -- result pixbufFormatGetDescription _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_get_description _obj' @@ -159,11 +176,14 @@ touchManagedPtr _obj return result' +data PixbufFormatGetDescriptionMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PixbufFormatGetDescriptionMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatGetDescription + -- method PixbufFormat::get_extensions -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -175,8 +195,8 @@ pixbufFormatGetExtensions :: (MonadIO m) => - PixbufFormat -> -- _obj - m [T.Text] + PixbufFormat -- _obj + -> m [T.Text] -- result pixbufFormatGetExtensions _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_get_extensions _obj' @@ -187,11 +207,14 @@ touchManagedPtr _obj return result' +data PixbufFormatGetExtensionsMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo PixbufFormatGetExtensionsMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatGetExtensions + -- method PixbufFormat::get_license -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -203,8 +226,8 @@ pixbufFormatGetLicense :: (MonadIO m) => - PixbufFormat -> -- _obj - m T.Text + PixbufFormat -- _obj + -> m T.Text -- result pixbufFormatGetLicense _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_get_license _obj' @@ -214,11 +237,14 @@ touchManagedPtr _obj return result' +data PixbufFormatGetLicenseMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PixbufFormatGetLicenseMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatGetLicense + -- method PixbufFormat::get_mime_types -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -230,8 +256,8 @@ pixbufFormatGetMimeTypes :: (MonadIO m) => - PixbufFormat -> -- _obj - m [T.Text] + PixbufFormat -- _obj + -> m [T.Text] -- result pixbufFormatGetMimeTypes _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_get_mime_types _obj' @@ -242,11 +268,14 @@ touchManagedPtr _obj return result' +data PixbufFormatGetMimeTypesMethodInfo +instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo PixbufFormatGetMimeTypesMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatGetMimeTypes + -- method PixbufFormat::get_name -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False @@ -258,8 +287,8 @@ pixbufFormatGetName :: (MonadIO m) => - PixbufFormat -> -- _obj - m T.Text + PixbufFormat -- _obj + -> m T.Text -- result pixbufFormatGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_get_name _obj' @@ -269,11 +298,14 @@ touchManagedPtr _obj return result' +data PixbufFormatGetNameMethodInfo +instance (signature ~ (m T.Text), MonadIO m) => MethodInfo PixbufFormatGetNameMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatGetName + -- method PixbufFormat::is_disabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -285,8 +317,8 @@ pixbufFormatIsDisabled :: (MonadIO m) => - PixbufFormat -> -- _obj - m Bool + PixbufFormat -- _obj + -> m Bool -- result pixbufFormatIsDisabled _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_is_disabled _obj' @@ -294,11 +326,14 @@ touchManagedPtr _obj return result' +data PixbufFormatIsDisabledMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo PixbufFormatIsDisabledMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatIsDisabled + -- method PixbufFormat::is_scalable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -310,8 +345,8 @@ pixbufFormatIsScalable :: (MonadIO m) => - PixbufFormat -> -- _obj - m Bool + PixbufFormat -- _obj + -> m Bool -- result pixbufFormatIsScalable _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_is_scalable _obj' @@ -319,11 +354,14 @@ touchManagedPtr _obj return result' +data PixbufFormatIsScalableMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo PixbufFormatIsScalableMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatIsScalable + -- method PixbufFormat::is_writable -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False @@ -335,8 +373,8 @@ pixbufFormatIsWritable :: (MonadIO m) => - PixbufFormat -> -- _obj - m Bool + PixbufFormat -- _obj + -> m Bool -- result pixbufFormatIsWritable _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_pixbuf_format_is_writable _obj' @@ -344,11 +382,14 @@ touchManagedPtr _obj return result' +data PixbufFormatIsWritableMethodInfo +instance (signature ~ (m Bool), MonadIO m) => MethodInfo PixbufFormatIsWritableMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatIsWritable + -- method PixbufFormat::set_disabled -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False @@ -361,14 +402,40 @@ pixbufFormatSetDisabled :: (MonadIO m) => - PixbufFormat -> -- _obj - Bool -> -- disabled - m () + PixbufFormat -- _obj + -> Bool -- disabled + -> m () -- result pixbufFormatSetDisabled _obj disabled = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj let disabled' = (fromIntegral . fromEnum) disabled gdk_pixbuf_format_set_disabled _obj' disabled' touchManagedPtr _obj return () + +data PixbufFormatSetDisabledMethodInfo +instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo PixbufFormatSetDisabledMethodInfo PixbufFormat signature where + overloadedMethod _ = pixbufFormatSetDisabled + +type family ResolvePixbufFormatMethod (t :: Symbol) (o :: *) :: * where + ResolvePixbufFormatMethod "copy" o = PixbufFormatCopyMethodInfo + ResolvePixbufFormatMethod "free" o = PixbufFormatFreeMethodInfo + ResolvePixbufFormatMethod "isDisabled" o = PixbufFormatIsDisabledMethodInfo + ResolvePixbufFormatMethod "isScalable" o = PixbufFormatIsScalableMethodInfo + ResolvePixbufFormatMethod "isWritable" o = PixbufFormatIsWritableMethodInfo + ResolvePixbufFormatMethod "getDescription" o = PixbufFormatGetDescriptionMethodInfo + ResolvePixbufFormatMethod "getExtensions" o = PixbufFormatGetExtensionsMethodInfo + ResolvePixbufFormatMethod "getLicense" o = PixbufFormatGetLicenseMethodInfo + ResolvePixbufFormatMethod "getMimeTypes" o = PixbufFormatGetMimeTypesMethodInfo + ResolvePixbufFormatMethod "getName" o = PixbufFormatGetNameMethodInfo + ResolvePixbufFormatMethod "setDisabled" o = PixbufFormatSetDisabledMethodInfo + ResolvePixbufFormatMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixbufFormatMethod t PixbufFormat, MethodInfo info PixbufFormat p) => IsLabelProxy t (PixbufFormat -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixbufFormatMethod t PixbufFormat, MethodInfo info PixbufFormat p) => IsLabel t (PixbufFormat -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot b/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot +++ b/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot @@ -9,3 +9,14 @@ newtype PixbufFormat = PixbufFormat (ForeignPtr PixbufFormat) instance BoxedObject PixbufFormat where +data PixbufFormatCopyMethodInfo +data PixbufFormatFreeMethodInfo +data PixbufFormatGetDescriptionMethodInfo +data PixbufFormatGetExtensionsMethodInfo +data PixbufFormatGetLicenseMethodInfo +data PixbufFormatGetMimeTypesMethodInfo +data PixbufFormatGetNameMethodInfo +data PixbufFormatIsDisabledMethodInfo +data PixbufFormatIsScalableMethodInfo +data PixbufFormatIsWritableMethodInfo +data PixbufFormatSetDisabledMethodInfo diff --git a/GI/GdkPixbuf/Structs/Pixdata.hs b/GI/GdkPixbuf/Structs/Pixdata.hs --- a/GI/GdkPixbuf/Structs/Pixdata.hs +++ b/GI/GdkPixbuf/Structs/Pixdata.hs @@ -1,4 +1,5 @@ + {- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 @@ -13,19 +14,23 @@ -- * Exported types Pixdata(..) , + newZeroPixdata , noPixdata , -- * Methods -- ** pixdataDeserialize + PixdataDeserializeMethodInfo , pixdataDeserialize , -- ** pixdataSerialize + PixdataSerializeMethodInfo , pixdataSerialize , -- ** pixdataToCsource + PixdataToCsourceMethodInfo , pixdataToCsource , @@ -76,6 +81,10 @@ import qualified GI.GLib as GLib newtype Pixdata = Pixdata (ForeignPtr Pixdata) +-- | Construct a `Pixdata` struct initialized to zero. +newZeroPixdata :: MonadIO m => m Pixdata +newZeroPixdata = liftIO $ callocBytes 32 >>= wrapPtr Pixdata + noPixdata :: Maybe Pixdata noPixdata = Nothing @@ -116,9 +125,8 @@ -- method Pixdata::deserialize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "stream_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Lengths : [Arg {argCName = "stream_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False @@ -133,15 +141,15 @@ {-# DEPRECATED pixdataDeserialize ["(Since version 2.32)","Use #GResource instead."]#-} pixdataDeserialize :: (MonadIO m) => - Pixdata -> -- _obj - ByteString -> -- stream - m () + Pixdata -- _obj + -> ByteString -- stream + -> m () -- result pixdataDeserialize _obj stream = liftIO $ do - let stream_length = fromIntegral $ B.length stream + let streamLength = fromIntegral $ B.length stream let _obj' = unsafeManagedPtrGetPtr _obj stream' <- packByteString stream onException (do - _ <- propagateGError $ gdk_pixdata_deserialize _obj' stream_length stream' + _ <- propagateGError $ gdk_pixdata_deserialize _obj' streamLength stream' touchManagedPtr _obj freeMem stream' return () @@ -149,11 +157,14 @@ freeMem stream' ) +data PixdataDeserializeMethodInfo +instance (signature ~ (ByteString -> m ()), MonadIO m) => MethodInfo PixdataDeserializeMethodInfo Pixdata signature where + overloadedMethod _ = pixdataDeserialize + -- method Pixdata::serialize -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream_length_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "stream_length_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream_length_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- Lengths : [Arg {argCName = "stream_length_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TBasicType TUInt8) -- throws : False -- Skip return : False @@ -166,25 +177,28 @@ {-# DEPRECATED pixdataSerialize ["(Since version 2.32)","Use #GResource instead."]#-} pixdataSerialize :: (MonadIO m) => - Pixdata -> -- _obj - m ByteString + Pixdata -- _obj + -> m ByteString -- result pixdataSerialize _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj - stream_length_p <- allocMem :: IO (Ptr Word32) - result <- gdk_pixdata_serialize _obj' stream_length_p - stream_length_p' <- peek stream_length_p + streamLengthP <- allocMem :: IO (Ptr Word32) + result <- gdk_pixdata_serialize _obj' streamLengthP + streamLengthP' <- peek streamLengthP checkUnexpectedReturnNULL "gdk_pixdata_serialize" result - result' <- (unpackByteStringWithLength stream_length_p') result + result' <- (unpackByteStringWithLength streamLengthP') result freeMem result touchManagedPtr _obj - freeMem stream_length_p + freeMem streamLengthP return result' +data PixdataSerializeMethodInfo +instance (signature ~ (m ByteString), MonadIO m) => MethodInfo PixdataSerializeMethodInfo Pixdata signature where + overloadedMethod _ = pixdataSerialize + -- method Pixdata::to_csource -- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dump_type", argType = TInterface "GdkPixbuf" "PixdataDumpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dump_type", argType = TInterface "GdkPixbuf" "PixdataDumpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dump_type", argType = TInterface "GdkPixbuf" "PixdataDumpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "String" -- throws : False -- Skip return : False @@ -198,19 +212,37 @@ {-# DEPRECATED pixdataToCsource ["(Since version 2.32)","Use #GResource instead."]#-} pixdataToCsource :: (MonadIO m) => - Pixdata -> -- _obj - T.Text -> -- name - [PixdataDumpType] -> -- dump_type - m GLib.String -pixdataToCsource _obj name dump_type = liftIO $ do + Pixdata -- _obj + -> T.Text -- name + -> [PixdataDumpType] -- dumpType + -> m GLib.String -- result +pixdataToCsource _obj name dumpType = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj name' <- textToCString name - let dump_type' = gflagsToWord dump_type - result <- gdk_pixdata_to_csource _obj' name' dump_type' + let dumpType' = gflagsToWord dumpType + result <- gdk_pixdata_to_csource _obj' name' dumpType' checkUnexpectedReturnNULL "gdk_pixdata_to_csource" result result' <- (wrapBoxed GLib.String) result touchManagedPtr _obj freeMem name' return result' + +data PixdataToCsourceMethodInfo +instance (signature ~ (T.Text -> [PixdataDumpType] -> m GLib.String), MonadIO m) => MethodInfo PixdataToCsourceMethodInfo Pixdata signature where + overloadedMethod _ = pixdataToCsource + +type family ResolvePixdataMethod (t :: Symbol) (o :: *) :: * where + ResolvePixdataMethod "deserialize" o = PixdataDeserializeMethodInfo + ResolvePixdataMethod "serialize" o = PixdataSerializeMethodInfo + ResolvePixdataMethod "toCsource" o = PixdataToCsourceMethodInfo + ResolvePixdataMethod l o = MethodResolutionFailed l o + +instance (info ~ ResolvePixdataMethod t Pixdata, MethodInfo info Pixdata p) => IsLabelProxy t (Pixdata -> p) where + fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) + +#if MIN_VERSION_base(4,9,0) +instance (info ~ ResolvePixdataMethod t Pixdata, MethodInfo info Pixdata p) => IsLabel t (Pixdata -> p) where + fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) +#endif diff --git a/GI/GdkPixbuf/Structs/Pixdata.hs-boot b/GI/GdkPixbuf/Structs/Pixdata.hs-boot --- a/GI/GdkPixbuf/Structs/Pixdata.hs-boot +++ b/GI/GdkPixbuf/Structs/Pixdata.hs-boot @@ -8,3 +8,6 @@ import qualified Data.Map as Map newtype Pixdata = Pixdata (ForeignPtr Pixdata) +data PixdataDeserializeMethodInfo +data PixdataSerializeMethodInfo +data PixdataToCsourceMethodInfo diff --git a/gi-gdkpixbuf.cabal b/gi-gdkpixbuf.cabal --- a/gi-gdkpixbuf.cabal +++ b/gi-gdkpixbuf.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gdkpixbuf -version: 0.2.32.12 +version: 0.2.32.13 synopsis: GdkPixbuf bindings description: Bindings for GdkPixbuf, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,8 +14,8 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns + default-extensions: ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations exposed-modules: GI.GdkPixbuf.Types GI.GdkPixbuf @@ -23,7 +23,6 @@ GI.GdkPixbuf.Constants GI.GdkPixbuf.Enums GI.GdkPixbuf.Flags - GI.GdkPixbuf.Functions GI.GdkPixbuf.Objects GI.GdkPixbuf.Objects.Pixbuf GI.GdkPixbuf.Objects.PixbufAnimation @@ -36,10 +35,10 @@ GI.GdkPixbuf.Structs.Pixdata pkgconfig-depends: gdk-pixbuf-2.0 >= 2.32 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-glib >= 0.2.46.12 && < 0.2.47, - gi-gobject >= 0.2.46.12 && < 0.2.47, - gi-gio >= 0.2.46.12 && < 0.2.47, + haskell-gi-base >= 0.13 && < 1, + gi-glib >= 0.2.46.13 && < 0.2.47, + gi-gobject >= 0.2.46.13 && < 0.2.47, + gi-gio >= 0.2.46.13 && < 0.2.47, bytestring >= 0.10, containers >= 0.5, text >= 1.0,