diff --git a/GI/GdkPixbuf.hs b/GI/GdkPixbuf.hs deleted file mode 100644 --- a/GI/GdkPixbuf.hs +++ /dev/null @@ -1,42 +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 - ( module GI.GdkPixbuf.Callbacks , - module GI.GdkPixbuf.Constants , - module GI.GdkPixbuf.Enums , - module GI.GdkPixbuf.Flags , - 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.Objects -import GI.GdkPixbuf.Structs - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Data.GI.Base - diff --git a/GI/GdkPixbuf/Callbacks.hs b/GI/GdkPixbuf/Callbacks.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Callbacks.hs +++ /dev/null @@ -1,114 +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.Callbacks - ( - - -- * Signals --- ** PixbufDestroyNotify - PixbufDestroyNotify , - PixbufDestroyNotifyC , - mkPixbufDestroyNotify , - noPixbufDestroyNotify , - pixbufDestroyNotifyClosure , - pixbufDestroyNotifyWrapper , - - --- ** PixbufSaveFunc - PixbufSaveFunc , - PixbufSaveFuncC , - mkPixbufSaveFunc , - noPixbufSaveFunc , - pixbufSaveFuncClosure , - pixbufSaveFuncWrapper , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types - - --- callback PixbufSaveFunc -pixbufSaveFuncClosure :: PixbufSaveFunc -> IO Closure -pixbufSaveFuncClosure cb = newCClosure =<< mkPixbufSaveFunc wrapped - where wrapped = pixbufSaveFuncWrapper Nothing cb - -type PixbufSaveFuncC = - Ptr Word8 -> - Word64 -> - Ptr (Ptr GError) -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkPixbufSaveFunc :: PixbufSaveFuncC -> IO (FunPtr PixbufSaveFuncC) - -type PixbufSaveFunc = - ByteString -> - IO (Bool,GError) - -noPixbufSaveFunc :: Maybe PixbufSaveFunc -noPixbufSaveFunc = Nothing - -pixbufSaveFuncWrapper :: - Maybe (Ptr (FunPtr (PixbufSaveFuncC))) -> - PixbufSaveFunc -> - Ptr Word8 -> - Word64 -> - Ptr (Ptr GError) -> - Ptr () -> - IO CInt -pixbufSaveFuncWrapper funptrptr _cb buf count error_ _ = do - buf' <- (unpackByteStringWithLength count) buf - (result, outerror_) <- _cb buf' - outerror_' <- copyBoxed outerror_ - poke error_ outerror_' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback PixbufDestroyNotify -pixbufDestroyNotifyClosure :: PixbufDestroyNotify -> IO Closure -pixbufDestroyNotifyClosure cb = newCClosure =<< mkPixbufDestroyNotify wrapped - where wrapped = pixbufDestroyNotifyWrapper Nothing cb - -type PixbufDestroyNotifyC = - Ptr Word8 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkPixbufDestroyNotify :: PixbufDestroyNotifyC -> IO (FunPtr PixbufDestroyNotifyC) - -type PixbufDestroyNotify = - Ptr Word8 -> - IO () - -noPixbufDestroyNotify :: Maybe PixbufDestroyNotify -noPixbufDestroyNotify = Nothing - -pixbufDestroyNotifyWrapper :: - Maybe (Ptr (FunPtr (PixbufDestroyNotifyC))) -> - PixbufDestroyNotify -> - Ptr Word8 -> - Ptr () -> - IO () -pixbufDestroyNotifyWrapper funptrptr _cb pixels _ = do - _cb pixels - maybeReleaseFunPtr funptrptr - - diff --git a/GI/GdkPixbuf/Constants.hs b/GI/GdkPixbuf/Constants.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Constants.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - - -{- | -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.Constants - ( - pattern PIXDATA_HEADER_LENGTH , - pattern PIXBUF_VERSION , - pattern PIXBUF_MINOR , - pattern PIXBUF_MICRO , - pattern PIXBUF_MAJOR , - pattern PIXBUF_MAGIC_NUMBER , - pattern PIXBUF_FEATURES_H , - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - -pattern PIXDATA_HEADER_LENGTH = 24 :: Int32 - - -pattern PIXBUF_VERSION = "2.32.3" :: T.Text - - -pattern PIXBUF_MINOR = 32 :: Int32 - - -pattern PIXBUF_MICRO = 3 :: Int32 - - -pattern PIXBUF_MAJOR = 2 :: Int32 - - -pattern PIXBUF_MAGIC_NUMBER = 1197763408 :: Int32 - - -pattern PIXBUF_FEATURES_H = 1 :: Int32 - - diff --git a/GI/GdkPixbuf/Enums.hs b/GI/GdkPixbuf/Enums.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Enums.hs +++ /dev/null @@ -1,185 +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.Enums - ( - catchPixbufError , - handlePixbufError , - --- * Exported types - PixbufRotation(..) , - PixbufError(..) , - PixbufAlphaMode(..) , - InterpType(..) , - Colorspace(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Enum PixbufRotation - -data PixbufRotation = - PixbufRotationNone - | PixbufRotationCounterclockwise - | PixbufRotationUpsidedown - | PixbufRotationClockwise - | AnotherPixbufRotation Int - deriving (Show, Eq) - -instance Enum PixbufRotation where - fromEnum PixbufRotationNone = 0 - fromEnum PixbufRotationCounterclockwise = 90 - fromEnum PixbufRotationUpsidedown = 180 - fromEnum PixbufRotationClockwise = 270 - fromEnum (AnotherPixbufRotation k) = k - - toEnum 0 = PixbufRotationNone - toEnum 90 = PixbufRotationCounterclockwise - toEnum 180 = PixbufRotationUpsidedown - toEnum 270 = PixbufRotationClockwise - toEnum k = AnotherPixbufRotation k - -foreign import ccall "gdk_pixbuf_rotation_get_type" c_gdk_pixbuf_rotation_get_type :: - IO GType - -instance BoxedEnum PixbufRotation where - boxedEnumType _ = c_gdk_pixbuf_rotation_get_type - --- Enum PixbufError - -data PixbufError = - PixbufErrorCorruptImage - | PixbufErrorInsufficientMemory - | PixbufErrorBadOption - | PixbufErrorUnknownType - | PixbufErrorUnsupportedOperation - | PixbufErrorFailed - | AnotherPixbufError Int - deriving (Show, Eq) - -instance Enum PixbufError where - fromEnum PixbufErrorCorruptImage = 0 - fromEnum PixbufErrorInsufficientMemory = 1 - fromEnum PixbufErrorBadOption = 2 - fromEnum PixbufErrorUnknownType = 3 - fromEnum PixbufErrorUnsupportedOperation = 4 - fromEnum PixbufErrorFailed = 5 - fromEnum (AnotherPixbufError k) = k - - toEnum 0 = PixbufErrorCorruptImage - toEnum 1 = PixbufErrorInsufficientMemory - toEnum 2 = PixbufErrorBadOption - toEnum 3 = PixbufErrorUnknownType - toEnum 4 = PixbufErrorUnsupportedOperation - toEnum 5 = PixbufErrorFailed - toEnum k = AnotherPixbufError k - -instance GErrorClass PixbufError where - gerrorClassDomain _ = "gdk-pixbuf-error-quark" - -catchPixbufError :: - IO a -> - (PixbufError -> GErrorMessage -> IO a) -> - IO a -catchPixbufError = catchGErrorJustDomain - -handlePixbufError :: - (PixbufError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handlePixbufError = handleGErrorJustDomain - -foreign import ccall "gdk_pixbuf_error_get_type" c_gdk_pixbuf_error_get_type :: - IO GType - -instance BoxedEnum PixbufError where - boxedEnumType _ = c_gdk_pixbuf_error_get_type - --- Enum PixbufAlphaMode - -data PixbufAlphaMode = - PixbufAlphaModeBilevel - | PixbufAlphaModeFull - | AnotherPixbufAlphaMode Int - deriving (Show, Eq) - -instance Enum PixbufAlphaMode where - fromEnum PixbufAlphaModeBilevel = 0 - fromEnum PixbufAlphaModeFull = 1 - fromEnum (AnotherPixbufAlphaMode k) = k - - toEnum 0 = PixbufAlphaModeBilevel - toEnum 1 = PixbufAlphaModeFull - toEnum k = AnotherPixbufAlphaMode k - -foreign import ccall "gdk_pixbuf_alpha_mode_get_type" c_gdk_pixbuf_alpha_mode_get_type :: - IO GType - -instance BoxedEnum PixbufAlphaMode where - boxedEnumType _ = c_gdk_pixbuf_alpha_mode_get_type - --- Enum InterpType - -data InterpType = - InterpTypeNearest - | InterpTypeTiles - | InterpTypeBilinear - | InterpTypeHyper - | AnotherInterpType Int - deriving (Show, Eq) - -instance Enum InterpType where - fromEnum InterpTypeNearest = 0 - fromEnum InterpTypeTiles = 1 - fromEnum InterpTypeBilinear = 2 - fromEnum InterpTypeHyper = 3 - fromEnum (AnotherInterpType k) = k - - toEnum 0 = InterpTypeNearest - toEnum 1 = InterpTypeTiles - toEnum 2 = InterpTypeBilinear - toEnum 3 = InterpTypeHyper - toEnum k = AnotherInterpType k - -foreign import ccall "gdk_interp_type_get_type" c_gdk_interp_type_get_type :: - IO GType - -instance BoxedEnum InterpType where - boxedEnumType _ = c_gdk_interp_type_get_type - --- Enum Colorspace - -data Colorspace = - ColorspaceRgb - | AnotherColorspace Int - deriving (Show, Eq) - -instance Enum Colorspace where - fromEnum ColorspaceRgb = 0 - fromEnum (AnotherColorspace k) = k - - toEnum 0 = ColorspaceRgb - toEnum k = AnotherColorspace k - -foreign import ccall "gdk_colorspace_get_type" c_gdk_colorspace_get_type :: - IO GType - -instance BoxedEnum Colorspace where - boxedEnumType _ = c_gdk_colorspace_get_type - - diff --git a/GI/GdkPixbuf/Flags.hs b/GI/GdkPixbuf/Flags.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Flags.hs +++ /dev/null @@ -1,102 +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.Flags - ( - --- * Exported types - PixdataType(..) , - PixdataDumpType(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Flags PixdataType - -data PixdataType = - PixdataTypeColorTypeRgb - | PixdataTypeColorTypeRgba - | PixdataTypeColorTypeMask - | PixdataTypeSampleWidth8 - | PixdataTypeSampleWidthMask - | PixdataTypeEncodingRaw - | PixdataTypeEncodingRle - | PixdataTypeEncodingMask - | AnotherPixdataType Int - deriving (Show, Eq) - -instance Enum PixdataType where - fromEnum PixdataTypeColorTypeRgb = 1 - fromEnum PixdataTypeColorTypeRgba = 2 - fromEnum PixdataTypeColorTypeMask = 255 - fromEnum PixdataTypeSampleWidth8 = 65536 - fromEnum PixdataTypeSampleWidthMask = 983040 - fromEnum PixdataTypeEncodingRaw = 16777216 - fromEnum PixdataTypeEncodingRle = 33554432 - fromEnum PixdataTypeEncodingMask = 251658240 - fromEnum (AnotherPixdataType k) = k - - toEnum 1 = PixdataTypeColorTypeRgb - toEnum 2 = PixdataTypeColorTypeRgba - toEnum 255 = PixdataTypeColorTypeMask - toEnum 65536 = PixdataTypeSampleWidth8 - toEnum 983040 = PixdataTypeSampleWidthMask - toEnum 16777216 = PixdataTypeEncodingRaw - toEnum 33554432 = PixdataTypeEncodingRle - toEnum 251658240 = PixdataTypeEncodingMask - toEnum k = AnotherPixdataType k - -instance IsGFlag PixdataType - --- Flags PixdataDumpType - -data PixdataDumpType = - PixdataDumpTypePixdataStream - | PixdataDumpTypePixdataStruct - | PixdataDumpTypeMacros - | PixdataDumpTypeGtypes - | PixdataDumpTypeCtypes - | PixdataDumpTypeStatic - | PixdataDumpTypeConst - | PixdataDumpTypeRleDecoder - | AnotherPixdataDumpType Int - deriving (Show, Eq) - -instance Enum PixdataDumpType where - fromEnum PixdataDumpTypePixdataStream = 0 - fromEnum PixdataDumpTypePixdataStruct = 1 - fromEnum PixdataDumpTypeMacros = 2 - fromEnum PixdataDumpTypeGtypes = 0 - fromEnum PixdataDumpTypeCtypes = 256 - fromEnum PixdataDumpTypeStatic = 512 - fromEnum PixdataDumpTypeConst = 1024 - fromEnum PixdataDumpTypeRleDecoder = 65536 - fromEnum (AnotherPixdataDumpType k) = k - - toEnum 0 = PixdataDumpTypePixdataStream - toEnum 1 = PixdataDumpTypePixdataStruct - toEnum 2 = PixdataDumpTypeMacros - toEnum 256 = PixdataDumpTypeCtypes - toEnum 512 = PixdataDumpTypeStatic - toEnum 1024 = PixdataDumpTypeConst - toEnum 65536 = PixdataDumpTypeRleDecoder - toEnum k = AnotherPixdataDumpType k - -instance IsGFlag PixdataDumpType - - diff --git a/GI/GdkPixbuf/Objects.hs b/GI/GdkPixbuf/Objects.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects.hs +++ /dev/null @@ -1,37 +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.Objects - ( module GI.GdkPixbuf.Objects.Pixbuf , - module GI.GdkPixbuf.Objects.PixbufAnimation, - module GI.GdkPixbuf.Objects.PixbufAnimationIter, - module GI.GdkPixbuf.Objects.PixbufLoader, - module GI.GdkPixbuf.Objects.PixbufSimpleAnim, - module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter, - - - ) where - -import GI.GdkPixbuf.Objects.Pixbuf -import GI.GdkPixbuf.Objects.PixbufAnimation -import GI.GdkPixbuf.Objects.PixbufAnimationIter -import GI.GdkPixbuf.Objects.PixbufLoader -import GI.GdkPixbuf.Objects.PixbufSimpleAnim -import GI.GdkPixbuf.Objects.PixbufSimpleAnimIter - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/GdkPixbuf/Objects/Pixbuf.hs b/GI/GdkPixbuf/Objects/Pixbuf.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/Pixbuf.hs +++ /dev/null @@ -1,2502 +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.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 , - pixbufBitsPerSample , - - --- ** Colorspace - PixbufColorspacePropertyInfo , - constructPixbufColorspace , - getPixbufColorspace , - pixbufColorspace , - - --- ** HasAlpha - PixbufHasAlphaPropertyInfo , - constructPixbufHasAlpha , - getPixbufHasAlpha , - pixbufHasAlpha , - - --- ** Height - PixbufHeightPropertyInfo , - constructPixbufHeight , - getPixbufHeight , - pixbufHeight , - - --- ** NChannels - PixbufNChannelsPropertyInfo , - constructPixbufNChannels , - getPixbufNChannels , - pixbufNChannels , - - --- ** PixelBytes - PixbufPixelBytesPropertyInfo , - constructPixbufPixelBytes , - getPixbufPixelBytes , - pixbufPixelBytes , - - --- ** Pixels - PixbufPixelsPropertyInfo , - constructPixbufPixels , - getPixbufPixels , - pixbufPixels , - - --- ** Rowstride - PixbufRowstridePropertyInfo , - constructPixbufRowstride , - getPixbufRowstride , - pixbufRowstride , - - --- ** Width - PixbufWidthPropertyInfo , - constructPixbufWidth , - getPixbufWidth , - pixbufWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getPixbufBitsPerSample :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufBitsPerSample obj = liftIO $ getObjectPropertyInt32 obj "bits-per-sample" - -constructPixbufBitsPerSample :: Int32 -> IO ([Char], GValue) -constructPixbufBitsPerSample val = constructObjectPropertyInt32 "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 - attrClear _ = undefined - --- VVV Prop "colorspace" - -- Type: TInterface "GdkPixbuf" "Colorspace" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 - attrClear _ = undefined - --- VVV Prop "has-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -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 - attrClear _ = undefined - --- VVV Prop "height" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getPixbufHeight :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufHeight obj = liftIO $ getObjectPropertyInt32 obj "height" - -constructPixbufHeight :: Int32 -> IO ([Char], GValue) -constructPixbufHeight val = constructObjectPropertyInt32 "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 - attrClear _ = undefined - --- VVV Prop "n-channels" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getPixbufNChannels :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufNChannels obj = liftIO $ getObjectPropertyInt32 obj "n-channels" - -constructPixbufNChannels :: Int32 -> IO ([Char], GValue) -constructPixbufNChannels val = constructObjectPropertyInt32 "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 - attrClear _ = undefined - --- VVV Prop "pixel-bytes" - -- Type: TInterface "GLib" "Bytes" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getPixbufPixelBytes :: (MonadIO m, PixbufK o) => o -> m (Maybe GLib.Bytes) -getPixbufPixelBytes obj = liftIO $ getObjectPropertyBoxed obj "pixel-bytes" GLib.Bytes - -constructPixbufPixelBytes :: GLib.Bytes -> IO ([Char], GValue) -constructPixbufPixelBytes val = constructObjectPropertyBoxed "pixel-bytes" (Just val) - -data PixbufPixelBytesPropertyInfo -instance AttrInfo PixbufPixelBytesPropertyInfo where - type AttrAllowedOps PixbufPixelBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PixbufPixelBytesPropertyInfo = (~) GLib.Bytes - type AttrBaseTypeConstraint PixbufPixelBytesPropertyInfo = PixbufK - type AttrGetType PixbufPixelBytesPropertyInfo = (Maybe GLib.Bytes) - type AttrLabel PixbufPixelBytesPropertyInfo = "pixel-bytes" - attrGet _ = getPixbufPixelBytes - attrSet _ = undefined - attrConstruct _ = constructPixbufPixelBytes - attrClear _ = undefined - --- VVV Prop "pixels" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 - attrClear _ = undefined - --- VVV Prop "rowstride" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getPixbufRowstride :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufRowstride obj = liftIO $ getObjectPropertyInt32 obj "rowstride" - -constructPixbufRowstride :: Int32 -> IO ([Char], GValue) -constructPixbufRowstride val = constructObjectPropertyInt32 "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 - attrClear _ = undefined - --- VVV Prop "width" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getPixbufWidth :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufWidth obj = liftIO $ getObjectPropertyInt32 obj "width" - -constructPixbufWidth :: Int32 -> IO ([Char], GValue) -constructPixbufWidth val = constructObjectPropertyInt32 "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 - attrClear _ = undefined - -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, *)]) - -pixbufBitsPerSample :: AttrLabelProxy "bitsPerSample" -pixbufBitsPerSample = AttrLabelProxy - -pixbufColorspace :: AttrLabelProxy "colorspace" -pixbufColorspace = AttrLabelProxy - -pixbufHasAlpha :: AttrLabelProxy "hasAlpha" -pixbufHasAlpha = AttrLabelProxy - -pixbufHeight :: AttrLabelProxy "height" -pixbufHeight = AttrLabelProxy - -pixbufNChannels :: AttrLabelProxy "nChannels" -pixbufNChannels = AttrLabelProxy - -pixbufPixelBytes :: AttrLabelProxy "pixelBytes" -pixbufPixelBytes = AttrLabelProxy - -pixbufPixels :: AttrLabelProxy "pixels" -pixbufPixels = AttrLabelProxy - -pixbufRowstride :: AttrLabelProxy "rowstride" -pixbufRowstride = AttrLabelProxy - -pixbufWidth :: AttrLabelProxy "width" -pixbufWidth = AttrLabelProxy - -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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rowstride", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - Int32 -> -- rowstride : TBasicType TInt - 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rowstride", argType = TBasicType TInt, 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - Int32 -> -- rowstride : TBasicType TInt - FunPtr PixbufDestroyNotifyC -> -- destroy_fn : TInterface "GdkPixbuf" "PixbufDestroyNotify" - Ptr () -> -- destroy_fn_data : TBasicType TPtr - 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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 : Just (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 TInt - Int32 -> -- height : TBasicType TInt - 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - Int32 -> -- height : TBasicType TInt - 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 TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TInt - 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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 : Just (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 TInt - Int32 -> -- height : TBasicType TInt - 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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 : Just (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 TInt - Int32 -> -- height : TBasicType TInt - 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 : Just (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 : Just (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 : Just (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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - Int32 -> -- dest_y : TBasicType TInt - Int32 -> -- dest_width : TBasicType TInt - Int32 -> -- dest_height : TBasicType TInt - 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 TInt - 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_size", argType = TBasicType TInt, 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 : Nothing --- 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 TInt - Int32 -> -- dest_y : TBasicType TInt - Int32 -> -- dest_width : TBasicType TInt - Int32 -> -- dest_height : TBasicType TInt - 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 TInt - Int32 -> -- check_x : TBasicType TInt - Int32 -> -- check_y : TBasicType TInt - Int32 -> -- check_size : TBasicType TInt - 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_size", argType = TBasicType TInt, 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 : Just (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 TInt - Int32 -> -- dest_height : TBasicType TInt - CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" - Int32 -> -- overall_alpha : TBasicType TInt - Int32 -> -- check_size : TBasicType TInt - 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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - Int32 -> -- src_y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - Ptr Pixbuf -> -- dest_pixbuf : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- dest_x : TBasicType TInt - Int32 -> -- dest_y : TBasicType TInt - 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 : Nothing --- 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 : Just (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 (Maybe Pixbuf) -- result -pixbufFlip _obj horizontal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let horizontal' = (fromIntegral . fromEnum) horizontal - result <- gdk_pixbuf_flip _obj' horizontal' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Pixbuf) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data PixbufFlipMethodInfo -instance (signature ~ (Bool -> m (Maybe 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 : Just (TBasicType TInt) --- 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 : Just (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 : Just (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 : Just (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 : Just (TBasicType TInt) --- 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 : Just (TBasicType TInt) --- 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 : Just (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 TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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 TUInt - 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 : Just (TBasicType TInt) --- 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 : Just (TBasicType TInt) --- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - Int32 -> -- src_y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - 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 : Just (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 : Just (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 : Just (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 (Maybe Pixbuf) -- result -pixbufRotateSimple _obj angle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let angle' = (fromIntegral . fromEnum) angle - result <- gdk_pixbuf_rotate_simple _obj' angle' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Pixbuf) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data PixbufRotateSimpleMethodInfo -instance (signature ~ (PixbufRotation -> m (Maybe 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 : Nothing --- 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 : Just (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 TPtr, 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 : Just (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 TPtr - 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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt, 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 : Nothing --- 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 TInt - Int32 -> -- dest_y : TBasicType TInt - Int32 -> -- dest_width : TBasicType TInt - Int32 -> -- dest_height : TBasicType TInt - 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt, 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 : Just (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 TInt - Int32 -> -- dest_height : TBasicType TInt - 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 : Just (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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 TInt - Ptr Int32 -> -- height : TBasicType TInt - IO (Ptr PixbufFormat) - - -pixbufGetFileInfo :: - (MonadIO m) => - T.Text -- filename - -> m ((Maybe 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 - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed PixbufFormat) result' - return result'' - width' <- peek width - height' <- peek height - freeMem filename' - freeMem width - freeMem height - return (maybeResult, 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 TInt - Ptr Int32 -> -- height : TBasicType TInt - 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 : Just (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 - 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - Int32 -> -- height : TBasicType TInt - CInt -> -- preserve_aspect_ratio : TBasicType TBoolean - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - 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 : Just (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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/Pixbuf.hs-boot +++ /dev/null @@ -1,52 +0,0 @@ -module GI.GdkPixbuf.Objects.Pixbuf where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Pixbuf = Pixbuf (ForeignPtr Pixbuf) -instance GObject Pixbuf where -class GObject o => PixbufK o -instance (GObject o, IsDescendantOf Pixbuf o) => PixbufK o -data PixbufBitsPerSamplePropertyInfo -data PixbufColorspacePropertyInfo -data PixbufHasAlphaPropertyInfo -data PixbufHeightPropertyInfo -data PixbufNChannelsPropertyInfo -data PixbufPixelBytesPropertyInfo -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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs +++ /dev/null @@ -1,465 +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.Objects.PixbufAnimation - ( - --- * Exported types - PixbufAnimation(..) , - PixbufAnimationK , - toPixbufAnimation , - noPixbufAnimation , - - - -- * Methods --- ** pixbufAnimationGetHeight - PixbufAnimationGetHeightMethodInfo , - pixbufAnimationGetHeight , - - --- ** pixbufAnimationGetIter - PixbufAnimationGetIterMethodInfo , - pixbufAnimationGetIter , - - --- ** pixbufAnimationGetStaticImage - PixbufAnimationGetStaticImageMethodInfo , - pixbufAnimationGetStaticImage , - - --- ** pixbufAnimationGetWidth - PixbufAnimationGetWidthMethodInfo , - pixbufAnimationGetWidth , - - --- ** pixbufAnimationIsStaticImage - PixbufAnimationIsStaticImageMethodInfo , - pixbufAnimationIsStaticImage , - - --- ** pixbufAnimationNewFromFile - pixbufAnimationNewFromFile , - - --- ** pixbufAnimationNewFromResource - pixbufAnimationNewFromResource , - - --- ** pixbufAnimationNewFromStream - pixbufAnimationNewFromStream , - - --- ** pixbufAnimationNewFromStreamAsync - pixbufAnimationNewFromStreamAsync , - - --- ** pixbufAnimationNewFromStreamFinish - pixbufAnimationNewFromStreamFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 PixbufAnimation = PixbufAnimation (ForeignPtr PixbufAnimation) -foreign import ccall "gdk_pixbuf_animation_get_type" - c_gdk_pixbuf_animation_get_type :: IO GType - -type instance ParentTypes PixbufAnimation = PixbufAnimationParentTypes -type PixbufAnimationParentTypes = '[GObject.Object] - -instance GObject PixbufAnimation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_animation_get_type - - -class GObject o => PixbufAnimationK o -instance (GObject o, IsDescendantOf PixbufAnimation o) => PixbufAnimationK o - -toPixbufAnimation :: PixbufAnimationK o => o -> IO PixbufAnimation -toPixbufAnimation = unsafeCastTo PixbufAnimation - -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)] :: [(Symbol, *)]) - --- method PixbufAnimation::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 : Just (TInterface "GdkPixbuf" "PixbufAnimation") --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_new_from_file" gdk_pixbuf_animation_new_from_file :: - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PixbufAnimation) - - -pixbufAnimationNewFromFile :: - (MonadIO m) => - T.Text -- filename - -> m PixbufAnimation -- result -pixbufAnimationNewFromFile filename = liftIO $ do - filename' <- textToCString filename - onException (do - result <- propagateGError $ gdk_pixbuf_animation_new_from_file filename' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_file" result - result' <- (wrapObject PixbufAnimation) result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - --- method PixbufAnimation::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 : Just (TInterface "GdkPixbuf" "PixbufAnimation") --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_new_from_resource" gdk_pixbuf_animation_new_from_resource :: - CString -> -- resource_path : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PixbufAnimation) - - -pixbufAnimationNewFromResource :: - (MonadIO m) => - T.Text -- resourcePath - -> m PixbufAnimation -- result -pixbufAnimationNewFromResource resourcePath = liftIO $ do - resourcePath' <- textToCString resourcePath - onException (do - result <- propagateGError $ gdk_pixbuf_animation_new_from_resource resourcePath' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_resource" result - result' <- (wrapObject PixbufAnimation) result - freeMem resourcePath' - return result' - ) (do - freeMem resourcePath' - ) - --- method PixbufAnimation::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 : Just (TInterface "GdkPixbuf" "PixbufAnimation") --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_new_from_stream" gdk_pixbuf_animation_new_from_stream :: - Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr PixbufAnimation) - - -pixbufAnimationNewFromStream :: - (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -- stream - -> Maybe (b) -- cancellable - -> m PixbufAnimation -- result -pixbufAnimationNewFromStream 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_animation_new_from_stream stream' maybeCancellable - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_stream" result - result' <- (wrapObject PixbufAnimation) result - touchManagedPtr stream - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - --- method PixbufAnimation::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 : Just (TInterface "GdkPixbuf" "PixbufAnimation") --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_new_from_stream_finish" gdk_pixbuf_animation_new_from_stream_finish :: - Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr PixbufAnimation) - - -pixbufAnimationNewFromStreamFinish :: - (MonadIO m, Gio.AsyncResultK a) => - a -- asyncResult - -> m PixbufAnimation -- result -pixbufAnimationNewFromStreamFinish asyncResult = liftIO $ do - let asyncResult' = unsafeManagedPtrCastPtr asyncResult - onException (do - result <- propagateGError $ gdk_pixbuf_animation_new_from_stream_finish asyncResult' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_stream_finish" result - result' <- (wrapObject PixbufAnimation) result - touchManagedPtr asyncResult - return result' - ) (do - return () - ) - --- method PixbufAnimation::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_get_height" gdk_pixbuf_animation_get_height :: - Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation" - IO Int32 - - -pixbufAnimationGetHeight :: - (MonadIO m, PixbufAnimationK a) => - 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 {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 : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimationIter") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_get_iter" gdk_pixbuf_animation_get_iter :: - Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation" - Ptr GLib.TimeVal -> -- start_time : TInterface "GLib" "TimeVal" - IO (Ptr PixbufAnimationIter) - - -pixbufAnimationGetIter :: - (MonadIO m, PixbufAnimationK a) => - a -- _obj - -> Maybe (GLib.TimeVal) -- startTime - -> m PixbufAnimationIter -- result -pixbufAnimationGetIter _obj startTime = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStartTime <- case startTime of - Nothing -> return nullPtr - 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 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_get_static_image" gdk_pixbuf_animation_get_static_image :: - Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation" - IO (Ptr Pixbuf) - - -pixbufAnimationGetStaticImage :: - (MonadIO m, PixbufAnimationK a) => - a -- _obj - -> m Pixbuf -- result -pixbufAnimationGetStaticImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_animation_get_static_image _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_get_static_image" result - result' <- (newObject Pixbuf) result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_get_width" gdk_pixbuf_animation_get_width :: - Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation" - IO Int32 - - -pixbufAnimationGetWidth :: - (MonadIO m, PixbufAnimationK a) => - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_is_static_image" gdk_pixbuf_animation_is_static_image :: - Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation" - IO CInt - - -pixbufAnimationIsStaticImage :: - (MonadIO m, PixbufAnimationK a) => - a -- _obj - -> m Bool -- result -pixbufAnimationIsStaticImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_animation_is_static_image _obj' - let result' = (/= 0) result - 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 {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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_new_from_stream_async" gdk_pixbuf_animation_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 TPtr - IO () - - -pixbufAnimationNewFromStreamAsync :: - (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - 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 - 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_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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufAnimation where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufAnimation = PixbufAnimation (ForeignPtr PixbufAnimation) -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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs +++ /dev/null @@ -1,240 +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.Objects.PixbufAnimationIter - ( - --- * Exported types - PixbufAnimationIter(..) , - PixbufAnimationIterK , - toPixbufAnimationIter , - noPixbufAnimationIter , - - - -- * Methods --- ** pixbufAnimationIterAdvance - PixbufAnimationIterAdvanceMethodInfo , - pixbufAnimationIterAdvance , - - --- ** pixbufAnimationIterGetDelayTime - PixbufAnimationIterGetDelayTimeMethodInfo, - pixbufAnimationIterGetDelayTime , - - --- ** pixbufAnimationIterGetPixbuf - PixbufAnimationIterGetPixbufMethodInfo , - pixbufAnimationIterGetPixbuf , - - --- ** pixbufAnimationIterOnCurrentlyLoadingFrame - PixbufAnimationIterOnCurrentlyLoadingFrameMethodInfo, - pixbufAnimationIterOnCurrentlyLoadingFrame, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype PixbufAnimationIter = PixbufAnimationIter (ForeignPtr PixbufAnimationIter) -foreign import ccall "gdk_pixbuf_animation_iter_get_type" - c_gdk_pixbuf_animation_iter_get_type :: IO GType - -type instance ParentTypes PixbufAnimationIter = PixbufAnimationIterParentTypes -type PixbufAnimationIterParentTypes = '[GObject.Object] - -instance GObject PixbufAnimationIter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_animation_iter_get_type - - -class GObject o => PixbufAnimationIterK o -instance (GObject o, IsDescendantOf PixbufAnimationIter o) => PixbufAnimationIterK o - -toPixbufAnimationIter :: PixbufAnimationIterK o => o -> IO PixbufAnimationIter -toPixbufAnimationIter = unsafeCastTo PixbufAnimationIter - -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)] :: [(Symbol, *)]) - --- method PixbufAnimationIter::advance --- method type : OrdinaryMethod --- 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 : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_iter_advance" gdk_pixbuf_animation_iter_advance :: - Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter" - Ptr GLib.TimeVal -> -- current_time : TInterface "GLib" "TimeVal" - IO CInt - - -pixbufAnimationIterAdvance :: - (MonadIO m, PixbufAnimationIterK a) => - a -- _obj - -> Maybe (GLib.TimeVal) -- currentTime - -> m Bool -- result -pixbufAnimationIterAdvance _obj currentTime = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCurrentTime <- case currentTime of - Nothing -> return nullPtr - Just jCurrentTime -> do - let jCurrentTime' = unsafeManagedPtrGetPtr jCurrentTime - return jCurrentTime' - result <- gdk_pixbuf_animation_iter_advance _obj' maybeCurrentTime - let result' = (/= 0) result - touchManagedPtr _obj - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_iter_get_delay_time" gdk_pixbuf_animation_iter_get_delay_time :: - Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter" - IO Int32 - - -pixbufAnimationIterGetDelayTime :: - (MonadIO m, PixbufAnimationIterK a) => - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_iter_get_pixbuf" gdk_pixbuf_animation_iter_get_pixbuf :: - Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter" - IO (Ptr Pixbuf) - - -pixbufAnimationIterGetPixbuf :: - (MonadIO m, PixbufAnimationIterK a) => - a -- _obj - -> m Pixbuf -- result -pixbufAnimationIterGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_animation_iter_get_pixbuf _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_iter_get_pixbuf" result - result' <- (newObject Pixbuf) result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_animation_iter_on_currently_loading_frame" gdk_pixbuf_animation_iter_on_currently_loading_frame :: - Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter" - IO CInt - - -pixbufAnimationIterOnCurrentlyLoadingFrame :: - (MonadIO m, PixbufAnimationIterK a) => - 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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufAnimationIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufAnimationIter = PixbufAnimationIter (ForeignPtr PixbufAnimationIter) -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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs +++ /dev/null @@ -1,697 +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.Objects.PixbufLoader - ( - --- * Exported types - PixbufLoader(..) , - PixbufLoaderK , - toPixbufLoader , - noPixbufLoader , - - - -- * Methods --- ** pixbufLoaderClose - PixbufLoaderCloseMethodInfo , - pixbufLoaderClose , - - --- ** pixbufLoaderGetAnimation - PixbufLoaderGetAnimationMethodInfo , - pixbufLoaderGetAnimation , - - --- ** pixbufLoaderGetFormat - PixbufLoaderGetFormatMethodInfo , - pixbufLoaderGetFormat , - - --- ** pixbufLoaderGetPixbuf - PixbufLoaderGetPixbufMethodInfo , - pixbufLoaderGetPixbuf , - - --- ** pixbufLoaderNew - pixbufLoaderNew , - - --- ** pixbufLoaderNewWithMimeType - pixbufLoaderNewWithMimeType , - - --- ** pixbufLoaderNewWithType - pixbufLoaderNewWithType , - - --- ** pixbufLoaderSetSize - PixbufLoaderSetSizeMethodInfo , - pixbufLoaderSetSize , - - --- ** pixbufLoaderWrite - PixbufLoaderWriteMethodInfo , - pixbufLoaderWrite , - - --- ** pixbufLoaderWriteBytes - PixbufLoaderWriteBytesMethodInfo , - pixbufLoaderWriteBytes , - - - - - -- * Signals --- ** AreaPrepared - PixbufLoaderAreaPreparedCallback , - PixbufLoaderAreaPreparedCallbackC , - PixbufLoaderAreaPreparedSignalInfo , - afterPixbufLoaderAreaPrepared , - mkPixbufLoaderAreaPreparedCallback , - noPixbufLoaderAreaPreparedCallback , - onPixbufLoaderAreaPrepared , - pixbufLoaderAreaPreparedCallbackWrapper , - pixbufLoaderAreaPreparedClosure , - - --- ** AreaUpdated - PixbufLoaderAreaUpdatedCallback , - PixbufLoaderAreaUpdatedCallbackC , - PixbufLoaderAreaUpdatedSignalInfo , - afterPixbufLoaderAreaUpdated , - mkPixbufLoaderAreaUpdatedCallback , - noPixbufLoaderAreaUpdatedCallback , - onPixbufLoaderAreaUpdated , - pixbufLoaderAreaUpdatedCallbackWrapper , - pixbufLoaderAreaUpdatedClosure , - - --- ** Closed - PixbufLoaderClosedCallback , - PixbufLoaderClosedCallbackC , - PixbufLoaderClosedSignalInfo , - afterPixbufLoaderClosed , - mkPixbufLoaderClosedCallback , - noPixbufLoaderClosedCallback , - onPixbufLoaderClosed , - pixbufLoaderClosedCallbackWrapper , - pixbufLoaderClosedClosure , - - --- ** SizePrepared - PixbufLoaderSizePreparedCallback , - PixbufLoaderSizePreparedCallbackC , - PixbufLoaderSizePreparedSignalInfo , - afterPixbufLoaderSizePrepared , - mkPixbufLoaderSizePreparedCallback , - noPixbufLoaderSizePreparedCallback , - onPixbufLoaderSizePrepared , - pixbufLoaderSizePreparedCallbackWrapper , - pixbufLoaderSizePreparedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype PixbufLoader = PixbufLoader (ForeignPtr PixbufLoader) -foreign import ccall "gdk_pixbuf_loader_get_type" - c_gdk_pixbuf_loader_get_type :: IO GType - -type instance ParentTypes PixbufLoader = PixbufLoaderParentTypes -type PixbufLoaderParentTypes = '[GObject.Object] - -instance GObject PixbufLoader where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_loader_get_type - - -class GObject o => PixbufLoaderK o -instance (GObject o, IsDescendantOf PixbufLoader o) => PixbufLoaderK o - -toPixbufLoader :: PixbufLoaderK o => o -> IO PixbufLoader -toPixbufLoader = unsafeCastTo PixbufLoader - -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 () - -noPixbufLoaderAreaPreparedCallback :: Maybe PixbufLoaderAreaPreparedCallback -noPixbufLoaderAreaPreparedCallback = Nothing - -type PixbufLoaderAreaPreparedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderAreaPreparedCallback :: PixbufLoaderAreaPreparedCallbackC -> IO (FunPtr PixbufLoaderAreaPreparedCallbackC) - -pixbufLoaderAreaPreparedClosure :: PixbufLoaderAreaPreparedCallback -> IO Closure -pixbufLoaderAreaPreparedClosure cb = newCClosure =<< mkPixbufLoaderAreaPreparedCallback wrapped - where wrapped = pixbufLoaderAreaPreparedCallbackWrapper cb - -pixbufLoaderAreaPreparedCallbackWrapper :: - PixbufLoaderAreaPreparedCallback -> - Ptr () -> - Ptr () -> - IO () -pixbufLoaderAreaPreparedCallbackWrapper _cb _ _ = do - _cb - -onPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaPreparedCallback -> m SignalHandlerId -onPixbufLoaderAreaPrepared obj cb = liftIO $ connectPixbufLoaderAreaPrepared obj cb SignalConnectBefore -afterPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaPreparedCallback -> m SignalHandlerId -afterPixbufLoaderAreaPrepared obj cb = connectPixbufLoaderAreaPrepared obj cb SignalConnectAfter - -connectPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => - a -> PixbufLoaderAreaPreparedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderAreaPrepared obj cb after = liftIO $ do - cb' <- mkPixbufLoaderAreaPreparedCallback (pixbufLoaderAreaPreparedCallbackWrapper cb) - connectSignalFunPtr obj "area-prepared" cb' after - --- signal PixbufLoader::area-updated -type PixbufLoaderAreaUpdatedCallback = - Int32 -> - Int32 -> - Int32 -> - Int32 -> - IO () - -noPixbufLoaderAreaUpdatedCallback :: Maybe PixbufLoaderAreaUpdatedCallback -noPixbufLoaderAreaUpdatedCallback = Nothing - -type PixbufLoaderAreaUpdatedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderAreaUpdatedCallback :: PixbufLoaderAreaUpdatedCallbackC -> IO (FunPtr PixbufLoaderAreaUpdatedCallbackC) - -pixbufLoaderAreaUpdatedClosure :: PixbufLoaderAreaUpdatedCallback -> IO Closure -pixbufLoaderAreaUpdatedClosure cb = newCClosure =<< mkPixbufLoaderAreaUpdatedCallback wrapped - where wrapped = pixbufLoaderAreaUpdatedCallbackWrapper cb - -pixbufLoaderAreaUpdatedCallbackWrapper :: - PixbufLoaderAreaUpdatedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Int32 -> - Int32 -> - Ptr () -> - IO () -pixbufLoaderAreaUpdatedCallbackWrapper _cb _ x y width height _ = do - _cb x y width height - -onPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaUpdatedCallback -> m SignalHandlerId -onPixbufLoaderAreaUpdated obj cb = liftIO $ connectPixbufLoaderAreaUpdated obj cb SignalConnectBefore -afterPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaUpdatedCallback -> m SignalHandlerId -afterPixbufLoaderAreaUpdated obj cb = connectPixbufLoaderAreaUpdated obj cb SignalConnectAfter - -connectPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => - a -> PixbufLoaderAreaUpdatedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderAreaUpdated obj cb after = liftIO $ do - cb' <- mkPixbufLoaderAreaUpdatedCallback (pixbufLoaderAreaUpdatedCallbackWrapper cb) - connectSignalFunPtr obj "area-updated" cb' after - --- signal PixbufLoader::closed -type PixbufLoaderClosedCallback = - IO () - -noPixbufLoaderClosedCallback :: Maybe PixbufLoaderClosedCallback -noPixbufLoaderClosedCallback = Nothing - -type PixbufLoaderClosedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderClosedCallback :: PixbufLoaderClosedCallbackC -> IO (FunPtr PixbufLoaderClosedCallbackC) - -pixbufLoaderClosedClosure :: PixbufLoaderClosedCallback -> IO Closure -pixbufLoaderClosedClosure cb = newCClosure =<< mkPixbufLoaderClosedCallback wrapped - where wrapped = pixbufLoaderClosedCallbackWrapper cb - -pixbufLoaderClosedCallbackWrapper :: - PixbufLoaderClosedCallback -> - Ptr () -> - Ptr () -> - IO () -pixbufLoaderClosedCallbackWrapper _cb _ _ = do - _cb - -onPixbufLoaderClosed :: (GObject a, MonadIO m) => a -> PixbufLoaderClosedCallback -> m SignalHandlerId -onPixbufLoaderClosed obj cb = liftIO $ connectPixbufLoaderClosed obj cb SignalConnectBefore -afterPixbufLoaderClosed :: (GObject a, MonadIO m) => a -> PixbufLoaderClosedCallback -> m SignalHandlerId -afterPixbufLoaderClosed obj cb = connectPixbufLoaderClosed obj cb SignalConnectAfter - -connectPixbufLoaderClosed :: (GObject a, MonadIO m) => - a -> PixbufLoaderClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderClosed obj cb after = liftIO $ do - cb' <- mkPixbufLoaderClosedCallback (pixbufLoaderClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- signal PixbufLoader::size-prepared -type PixbufLoaderSizePreparedCallback = - Int32 -> - Int32 -> - IO () - -noPixbufLoaderSizePreparedCallback :: Maybe PixbufLoaderSizePreparedCallback -noPixbufLoaderSizePreparedCallback = Nothing - -type PixbufLoaderSizePreparedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderSizePreparedCallback :: PixbufLoaderSizePreparedCallbackC -> IO (FunPtr PixbufLoaderSizePreparedCallbackC) - -pixbufLoaderSizePreparedClosure :: PixbufLoaderSizePreparedCallback -> IO Closure -pixbufLoaderSizePreparedClosure cb = newCClosure =<< mkPixbufLoaderSizePreparedCallback wrapped - where wrapped = pixbufLoaderSizePreparedCallbackWrapper cb - -pixbufLoaderSizePreparedCallbackWrapper :: - PixbufLoaderSizePreparedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -pixbufLoaderSizePreparedCallbackWrapper _cb _ width height _ = do - _cb width height - -onPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderSizePreparedCallback -> m SignalHandlerId -onPixbufLoaderSizePrepared obj cb = liftIO $ connectPixbufLoaderSizePrepared obj cb SignalConnectBefore -afterPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderSizePreparedCallback -> m SignalHandlerId -afterPixbufLoaderSizePrepared obj cb = connectPixbufLoaderSizePrepared obj cb SignalConnectAfter - -connectPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => - a -> PixbufLoaderSizePreparedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderSizePrepared obj cb after = liftIO $ do - cb' <- mkPixbufLoaderSizePreparedCallback (pixbufLoaderSizePreparedCallbackWrapper cb) - connectSignalFunPtr obj "size-prepared" cb' after - -type instance AttributeList PixbufLoader = PixbufLoaderAttributeList -type PixbufLoaderAttributeList = ('[ ] :: [(Symbol, *)]) - -data PixbufLoaderAreaPreparedSignalInfo -instance SignalInfo PixbufLoaderAreaPreparedSignalInfo where - type HaskellCallbackType PixbufLoaderAreaPreparedSignalInfo = PixbufLoaderAreaPreparedCallback - connectSignal _ = connectPixbufLoaderAreaPrepared - -data PixbufLoaderAreaUpdatedSignalInfo -instance SignalInfo PixbufLoaderAreaUpdatedSignalInfo where - type HaskellCallbackType PixbufLoaderAreaUpdatedSignalInfo = PixbufLoaderAreaUpdatedCallback - connectSignal _ = connectPixbufLoaderAreaUpdated - -data PixbufLoaderClosedSignalInfo -instance SignalInfo PixbufLoaderClosedSignalInfo where - type HaskellCallbackType PixbufLoaderClosedSignalInfo = PixbufLoaderClosedCallback - connectSignal _ = connectPixbufLoaderClosed - -data PixbufLoaderSizePreparedSignalInfo -instance SignalInfo PixbufLoaderSizePreparedSignalInfo where - type HaskellCallbackType PixbufLoaderSizePreparedSignalInfo = PixbufLoaderSizePreparedCallback - connectSignal _ = connectPixbufLoaderSizePrepared - -type instance SignalList PixbufLoader = PixbufLoaderSignalList -type PixbufLoaderSignalList = ('[ '("areaPrepared", PixbufLoaderAreaPreparedSignalInfo), '("areaUpdated", PixbufLoaderAreaUpdatedSignalInfo), '("closed", PixbufLoaderClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sizePrepared", PixbufLoaderSizePreparedSignalInfo)] :: [(Symbol, *)]) - --- method PixbufLoader::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufLoader") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_new" gdk_pixbuf_loader_new :: - IO (Ptr PixbufLoader) - - -pixbufLoaderNew :: - (MonadIO m) => - m PixbufLoader -- result -pixbufLoaderNew = liftIO $ do - result <- gdk_pixbuf_loader_new - checkUnexpectedReturnNULL "gdk_pixbuf_loader_new" result - result' <- (wrapObject PixbufLoader) result - return result' - --- method PixbufLoader::new_with_mime_type --- method type : Constructor --- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufLoader") --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_new_with_mime_type" gdk_pixbuf_loader_new_with_mime_type :: - CString -> -- mime_type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PixbufLoader) - - -pixbufLoaderNewWithMimeType :: - (MonadIO m) => - T.Text -- mimeType - -> m PixbufLoader -- result -pixbufLoaderNewWithMimeType mimeType = liftIO $ do - mimeType' <- textToCString mimeType - onException (do - result <- propagateGError $ gdk_pixbuf_loader_new_with_mime_type mimeType' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_mime_type" result - result' <- (wrapObject PixbufLoader) result - freeMem mimeType' - return result' - ) (do - freeMem mimeType' - ) - --- method PixbufLoader::new_with_type --- method type : Constructor --- Args : [Arg {argCName = "image_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufLoader") --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_new_with_type" gdk_pixbuf_loader_new_with_type :: - CString -> -- image_type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr PixbufLoader) - - -pixbufLoaderNewWithType :: - (MonadIO m) => - T.Text -- imageType - -> m PixbufLoader -- result -pixbufLoaderNewWithType imageType = liftIO $ do - imageType' <- textToCString imageType - onException (do - result <- propagateGError $ gdk_pixbuf_loader_new_with_type imageType' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_type" result - result' <- (wrapObject PixbufLoader) result - freeMem imageType' - return result' - ) (do - freeMem imageType' - ) - --- method PixbufLoader::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_close" gdk_pixbuf_loader_close :: - Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader" - Ptr (Ptr GError) -> -- error - IO CInt - - -pixbufLoaderClose :: - (MonadIO m, PixbufLoaderK a) => - a -- _obj - -> m () -- result -pixbufLoaderClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ gdk_pixbuf_loader_close _obj' - touchManagedPtr _obj - return () - ) (do - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_get_animation" gdk_pixbuf_loader_get_animation :: - Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader" - IO (Ptr PixbufAnimation) - - -pixbufLoaderGetAnimation :: - (MonadIO m, PixbufLoaderK a) => - a -- _obj - -> m PixbufAnimation -- result -pixbufLoaderGetAnimation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_loader_get_animation _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_animation" result - result' <- (newObject PixbufAnimation) result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufFormat") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_get_format" gdk_pixbuf_loader_get_format :: - Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader" - IO (Ptr PixbufFormat) - - -pixbufLoaderGetFormat :: - (MonadIO m, PixbufLoaderK a) => - a -- _obj - -> m (Maybe PixbufFormat) -- result -pixbufLoaderGetFormat _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_loader_get_format _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed PixbufFormat) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data PixbufLoaderGetFormatMethodInfo -instance (signature ~ (m (Maybe PixbufFormat)), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderGetFormatMethodInfo a signature where - overloadedMethod _ = pixbufLoaderGetFormat - --- method PixbufLoader::get_pixbuf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_get_pixbuf" gdk_pixbuf_loader_get_pixbuf :: - Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader" - IO (Ptr Pixbuf) - - -pixbufLoaderGetPixbuf :: - (MonadIO m, PixbufLoaderK a) => - a -- _obj - -> m Pixbuf -- result -pixbufLoaderGetPixbuf _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_loader_get_pixbuf _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_pixbuf" result - result' <- (newObject Pixbuf) result - 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 {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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_set_size" gdk_pixbuf_loader_set_size :: - Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -pixbufLoaderSetSize :: - (MonadIO m, PixbufLoaderK a) => - 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 {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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_write" gdk_pixbuf_loader_write :: - Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader" - Ptr Word8 -> -- buf : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -pixbufLoaderWrite :: - (MonadIO m, PixbufLoaderK a) => - a -- _obj - -> ByteString -- buf - -> m () -- result -pixbufLoaderWrite _obj buf = liftIO $ do - let count = fromIntegral $ B.length buf - let _obj' = unsafeManagedPtrCastPtr _obj - buf' <- packByteString buf - onException (do - _ <- propagateGError $ gdk_pixbuf_loader_write _obj' buf' count - touchManagedPtr _obj - freeMem buf' - return () - ) (do - 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 {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 : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_loader_write_bytes" gdk_pixbuf_loader_write_bytes :: - Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader" - Ptr GLib.Bytes -> -- buffer : TInterface "GLib" "Bytes" - Ptr (Ptr GError) -> -- error - IO CInt - - -pixbufLoaderWriteBytes :: - (MonadIO m, PixbufLoaderK a) => - a -- _obj - -> GLib.Bytes -- buffer - -> m () -- result -pixbufLoaderWriteBytes _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let buffer' = unsafeManagedPtrGetPtr buffer - onException (do - _ <- propagateGError $ gdk_pixbuf_loader_write_bytes _obj' buffer' - touchManagedPtr _obj - touchManagedPtr buffer - return () - ) (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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufLoader where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufLoader = PixbufLoader (ForeignPtr PixbufLoader) -instance GObject PixbufLoader where -class GObject o => PixbufLoaderK o -instance (GObject o, IsDescendantOf PixbufLoader o) => PixbufLoaderK o -data PixbufLoaderAreaPreparedSignalInfo -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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs +++ /dev/null @@ -1,279 +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.Objects.PixbufSimpleAnim - ( - --- * Exported types - PixbufSimpleAnim(..) , - PixbufSimpleAnimK , - toPixbufSimpleAnim , - noPixbufSimpleAnim , - - - -- * Methods --- ** pixbufSimpleAnimAddFrame - PixbufSimpleAnimAddFrameMethodInfo , - pixbufSimpleAnimAddFrame , - - --- ** pixbufSimpleAnimGetLoop - PixbufSimpleAnimGetLoopMethodInfo , - pixbufSimpleAnimGetLoop , - - --- ** pixbufSimpleAnimNew - pixbufSimpleAnimNew , - - --- ** pixbufSimpleAnimSetLoop - PixbufSimpleAnimSetLoopMethodInfo , - pixbufSimpleAnimSetLoop , - - - - - -- * Properties --- ** Loop - PixbufSimpleAnimLoopPropertyInfo , - constructPixbufSimpleAnimLoop , - getPixbufSimpleAnimLoop , - pixbufSimpleAnimLoop , - setPixbufSimpleAnimLoop , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype PixbufSimpleAnim = PixbufSimpleAnim (ForeignPtr PixbufSimpleAnim) -foreign import ccall "gdk_pixbuf_simple_anim_get_type" - c_gdk_pixbuf_simple_anim_get_type :: IO GType - -type instance ParentTypes PixbufSimpleAnim = PixbufSimpleAnimParentTypes -type PixbufSimpleAnimParentTypes = '[PixbufAnimation, GObject.Object] - -instance GObject PixbufSimpleAnim where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_simple_anim_get_type - - -class GObject o => PixbufSimpleAnimK o -instance (GObject o, IsDescendantOf PixbufSimpleAnim o) => PixbufSimpleAnimK o - -toPixbufSimpleAnim :: PixbufSimpleAnimK o => o -> IO PixbufSimpleAnim -toPixbufSimpleAnim = unsafeCastTo PixbufSimpleAnim - -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] - -- Nullable: (Just False,Just False) - -getPixbufSimpleAnimLoop :: (MonadIO m, PixbufSimpleAnimK o) => o -> m Bool -getPixbufSimpleAnimLoop obj = liftIO $ getObjectPropertyBool obj "loop" - -setPixbufSimpleAnimLoop :: (MonadIO m, PixbufSimpleAnimK o) => o -> Bool -> m () -setPixbufSimpleAnimLoop obj val = liftIO $ setObjectPropertyBool obj "loop" val - -constructPixbufSimpleAnimLoop :: Bool -> IO ([Char], GValue) -constructPixbufSimpleAnimLoop val = constructObjectPropertyBool "loop" val - -data PixbufSimpleAnimLoopPropertyInfo -instance AttrInfo PixbufSimpleAnimLoopPropertyInfo where - type AttrAllowedOps PixbufSimpleAnimLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufSimpleAnimLoopPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PixbufSimpleAnimLoopPropertyInfo = PixbufSimpleAnimK - type AttrGetType PixbufSimpleAnimLoopPropertyInfo = Bool - type AttrLabel PixbufSimpleAnimLoopPropertyInfo = "loop" - attrGet _ = getPixbufSimpleAnimLoop - attrSet _ = setPixbufSimpleAnimLoop - attrConstruct _ = constructPixbufSimpleAnimLoop - attrClear _ = undefined - -type instance AttributeList PixbufSimpleAnim = PixbufSimpleAnimAttributeList -type PixbufSimpleAnimAttributeList = ('[ '("loop", PixbufSimpleAnimLoopPropertyInfo)] :: [(Symbol, *)]) - -pixbufSimpleAnimLoop :: AttrLabelProxy "loop" -pixbufSimpleAnimLoop = AttrLabelProxy - -type instance SignalList PixbufSimpleAnim = PixbufSimpleAnimSignalList -type PixbufSimpleAnimSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PixbufSimpleAnim::new --- method type : Constructor --- Args : [Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, 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 : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufSimpleAnim") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_simple_anim_new" gdk_pixbuf_simple_anim_new :: - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - CFloat -> -- rate : TBasicType TFloat - IO (Ptr PixbufSimpleAnim) - - -pixbufSimpleAnimNew :: - (MonadIO m) => - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_simple_anim_new" result - result' <- (wrapObject PixbufSimpleAnim) result - return result' - --- method PixbufSimpleAnim::add_frame --- method type : OrdinaryMethod --- 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 : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_simple_anim_add_frame" gdk_pixbuf_simple_anim_add_frame :: - Ptr PixbufSimpleAnim -> -- _obj : TInterface "GdkPixbuf" "PixbufSimpleAnim" - Ptr Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - IO () - - -pixbufSimpleAnimAddFrame :: - (MonadIO m, PixbufSimpleAnimK a, PixbufK b) => - a -- _obj - -> b -- pixbuf - -> m () -- result -pixbufSimpleAnimAddFrame _obj pixbuf = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - gdk_pixbuf_simple_anim_add_frame _obj' pixbuf' - touchManagedPtr _obj - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_simple_anim_get_loop" gdk_pixbuf_simple_anim_get_loop :: - Ptr PixbufSimpleAnim -> -- _obj : TInterface "GdkPixbuf" "PixbufSimpleAnim" - IO CInt - - -pixbufSimpleAnimGetLoop :: - (MonadIO m, PixbufSimpleAnimK a) => - a -- _obj - -> m Bool -- result -pixbufSimpleAnimGetLoop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_simple_anim_get_loop _obj' - let result' = (/= 0) result - 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 {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 : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_simple_anim_set_loop" gdk_pixbuf_simple_anim_set_loop :: - Ptr PixbufSimpleAnim -> -- _obj : TInterface "GdkPixbuf" "PixbufSimpleAnim" - CInt -> -- loop : TBasicType TBoolean - IO () - - -pixbufSimpleAnimSetLoop :: - (MonadIO m, PixbufSimpleAnimK a) => - 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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufSimpleAnim where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufSimpleAnim = PixbufSimpleAnim (ForeignPtr PixbufSimpleAnim) -instance GObject PixbufSimpleAnim where -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 deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs +++ /dev/null @@ -1,96 +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.Objects.PixbufSimpleAnimIter - ( - --- * Exported types - PixbufSimpleAnimIter(..) , - PixbufSimpleAnimIterK , - toPixbufSimpleAnimIter , - noPixbufSimpleAnimIter , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype PixbufSimpleAnimIter = PixbufSimpleAnimIter (ForeignPtr PixbufSimpleAnimIter) -foreign import ccall "gdk_pixbuf_simple_anim_iter_get_type" - c_gdk_pixbuf_simple_anim_iter_get_type :: IO GType - -type instance ParentTypes PixbufSimpleAnimIter = PixbufSimpleAnimIterParentTypes -type PixbufSimpleAnimIterParentTypes = '[PixbufAnimationIter, GObject.Object] - -instance GObject PixbufSimpleAnimIter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_simple_anim_iter_get_type - - -class GObject o => PixbufSimpleAnimIterK o -instance (GObject o, IsDescendantOf PixbufSimpleAnimIter o) => PixbufSimpleAnimIterK o - -toPixbufSimpleAnimIter :: PixbufSimpleAnimIterK o => o -> IO PixbufSimpleAnimIter -toPixbufSimpleAnimIter = unsafeCastTo PixbufSimpleAnimIter - -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)] :: [(Symbol, *)]) - - diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufSimpleAnimIter = PixbufSimpleAnimIter (ForeignPtr PixbufSimpleAnimIter) -instance GObject PixbufSimpleAnimIter where -class GObject o => PixbufSimpleAnimIterK o -instance (GObject o, IsDescendantOf PixbufSimpleAnimIter o) => PixbufSimpleAnimIterK o diff --git a/GI/GdkPixbuf/Structs.hs b/GI/GdkPixbuf/Structs.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Structs.hs +++ /dev/null @@ -1,29 +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.Structs - ( module GI.GdkPixbuf.Structs.PixbufFormat, - module GI.GdkPixbuf.Structs.Pixdata , - - - ) where - -import GI.GdkPixbuf.Structs.PixbufFormat -import GI.GdkPixbuf.Structs.Pixdata - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/GdkPixbuf/Structs/PixbufFormat.hs b/GI/GdkPixbuf/Structs/PixbufFormat.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs +++ /dev/null @@ -1,445 +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.Structs.PixbufFormat - ( - --- * Exported types - PixbufFormat(..) , - noPixbufFormat , - - - -- * 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 , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype PixbufFormat = PixbufFormat (ForeignPtr PixbufFormat) -foreign import ccall "gdk_pixbuf_format_get_type" c_gdk_pixbuf_format_get_type :: - IO GType - -instance BoxedObject PixbufFormat where - boxedType _ = c_gdk_pixbuf_format_get_type - -noPixbufFormat :: Maybe PixbufFormat -noPixbufFormat = Nothing - - -type instance AttributeList PixbufFormat = PixbufFormatAttributeList -type PixbufFormatAttributeList = ('[ ] :: [(Symbol, *)]) - --- method PixbufFormat::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "PixbufFormat") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_copy" gdk_pixbuf_format_copy :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO (Ptr PixbufFormat) - - -pixbufFormatCopy :: - (MonadIO m) => - PixbufFormat -- _obj - -> m PixbufFormat -- result -pixbufFormatCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_copy _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_format_copy" result - result' <- (wrapBoxed PixbufFormat) result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_free" gdk_pixbuf_format_free :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO () - - -pixbufFormatFree :: - (MonadIO 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_get_description" gdk_pixbuf_format_get_description :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO CString - - -pixbufFormatGetDescription :: - (MonadIO m) => - PixbufFormat -- _obj - -> m T.Text -- result -pixbufFormatGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_get_description _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_description" result - result' <- cstringToText result - freeMem result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_get_extensions" gdk_pixbuf_format_get_extensions :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO (Ptr CString) - - -pixbufFormatGetExtensions :: - (MonadIO m) => - PixbufFormat -- _obj - -> m [T.Text] -- result -pixbufFormatGetExtensions _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_get_extensions _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_extensions" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_get_license" gdk_pixbuf_format_get_license :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO CString - - -pixbufFormatGetLicense :: - (MonadIO m) => - PixbufFormat -- _obj - -> m T.Text -- result -pixbufFormatGetLicense _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_get_license _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_license" result - result' <- cstringToText result - freeMem result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_get_mime_types" gdk_pixbuf_format_get_mime_types :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO (Ptr CString) - - -pixbufFormatGetMimeTypes :: - (MonadIO m) => - PixbufFormat -- _obj - -> m [T.Text] -- result -pixbufFormatGetMimeTypes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_get_mime_types _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_mime_types" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_get_name" gdk_pixbuf_format_get_name :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO CString - - -pixbufFormatGetName :: - (MonadIO m) => - PixbufFormat -- _obj - -> m T.Text -- result -pixbufFormatGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_get_name _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_name" result - result' <- cstringToText result - freeMem result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_is_disabled" gdk_pixbuf_format_is_disabled :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO CInt - - -pixbufFormatIsDisabled :: - (MonadIO m) => - PixbufFormat -- _obj - -> m Bool -- result -pixbufFormatIsDisabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_is_disabled _obj' - let result' = (/= 0) result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_is_scalable" gdk_pixbuf_format_is_scalable :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO CInt - - -pixbufFormatIsScalable :: - (MonadIO m) => - PixbufFormat -- _obj - -> m Bool -- result -pixbufFormatIsScalable _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_is_scalable _obj' - let result' = (/= 0) result - 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 {argCName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_is_writable" gdk_pixbuf_format_is_writable :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - IO CInt - - -pixbufFormatIsWritable :: - (MonadIO m) => - PixbufFormat -- _obj - -> m Bool -- result -pixbufFormatIsWritable _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_pixbuf_format_is_writable _obj' - let result' = (/= 0) result - 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 {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 : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_format_set_disabled" gdk_pixbuf_format_set_disabled :: - Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat" - CInt -> -- disabled : TBasicType TBoolean - IO () - - -pixbufFormatSetDisabled :: - (MonadIO 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 deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.GdkPixbuf.Structs.PixbufFormat where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -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 deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/Pixdata.hs +++ /dev/null @@ -1,425 +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) - -A #GdkPixdata contains pixbuf information in a form suitable for -serialization and streaming. --} - -module GI.GdkPixbuf.Structs.Pixdata - ( - --- * Exported types - Pixdata(..) , - newZeroPixdata , - noPixdata , - - - -- * Methods --- ** pixdataDeserialize - PixdataDeserializeMethodInfo , - pixdataDeserialize , - - --- ** pixdataSerialize - PixdataSerializeMethodInfo , - pixdataSerialize , - - --- ** pixdataToCsource - PixdataToCsourceMethodInfo , - pixdataToCsource , - - - - - -- * Properties --- ** Height - pixdataHeight , - pixdataReadHeight , - pixdataWriteHeight , - - --- ** Length - pixdataLength , - pixdataReadLength , - pixdataWriteLength , - - --- ** Magic - pixdataMagic , - pixdataReadMagic , - pixdataWriteMagic , - - --- ** PixdataType - pixdataPixdataType , - pixdataReadPixdataType , - pixdataWritePixdataType , - - --- ** PixelData - pixdataClearPixelData , - pixdataPixelData , - pixdataReadPixelData , - pixdataWritePixelData , - - --- ** Rowstride - pixdataReadRowstride , - pixdataRowstride , - pixdataWriteRowstride , - - --- ** Width - pixdataReadWidth , - pixdataWidth , - pixdataWriteWidth , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Pixdata = Pixdata (ForeignPtr Pixdata) -instance WrappedPtr Pixdata where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Pixdata` struct initialized to zero. -newZeroPixdata :: MonadIO m => m Pixdata -newZeroPixdata = liftIO $ wrappedPtrCalloc >>= wrapPtr Pixdata - -instance tag ~ 'AttrSet => Constructible Pixdata tag where - new _ attrs = do - o <- newZeroPixdata - GI.Attributes.set o attrs - return o - - -noPixdata :: Maybe Pixdata -noPixdata = Nothing - -pixdataReadMagic :: MonadIO m => Pixdata -> m Word32 -pixdataReadMagic s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -pixdataWriteMagic :: MonadIO m => Pixdata -> Word32 -> m () -pixdataWriteMagic s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data PixdataMagicFieldInfo -instance AttrInfo PixdataMagicFieldInfo where - type AttrAllowedOps PixdataMagicFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PixdataMagicFieldInfo = (~) Word32 - type AttrBaseTypeConstraint PixdataMagicFieldInfo = (~) Pixdata - type AttrGetType PixdataMagicFieldInfo = Word32 - type AttrLabel PixdataMagicFieldInfo = "magic" - attrGet _ = pixdataReadMagic - attrSet _ = pixdataWriteMagic - attrConstruct = undefined - attrClear _ = undefined - -pixdataMagic :: AttrLabelProxy "magic" -pixdataMagic = AttrLabelProxy - - -pixdataReadLength :: MonadIO m => Pixdata -> m Int32 -pixdataReadLength s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -pixdataWriteLength :: MonadIO m => Pixdata -> Int32 -> m () -pixdataWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data PixdataLengthFieldInfo -instance AttrInfo PixdataLengthFieldInfo where - type AttrAllowedOps PixdataLengthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PixdataLengthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PixdataLengthFieldInfo = (~) Pixdata - type AttrGetType PixdataLengthFieldInfo = Int32 - type AttrLabel PixdataLengthFieldInfo = "length" - attrGet _ = pixdataReadLength - attrSet _ = pixdataWriteLength - attrConstruct = undefined - attrClear _ = undefined - -pixdataLength :: AttrLabelProxy "length" -pixdataLength = AttrLabelProxy - - -pixdataReadPixdataType :: MonadIO m => Pixdata -> m Word32 -pixdataReadPixdataType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -pixdataWritePixdataType :: MonadIO m => Pixdata -> Word32 -> m () -pixdataWritePixdataType s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data PixdataPixdataTypeFieldInfo -instance AttrInfo PixdataPixdataTypeFieldInfo where - type AttrAllowedOps PixdataPixdataTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PixdataPixdataTypeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint PixdataPixdataTypeFieldInfo = (~) Pixdata - type AttrGetType PixdataPixdataTypeFieldInfo = Word32 - type AttrLabel PixdataPixdataTypeFieldInfo = "pixdata_type" - attrGet _ = pixdataReadPixdataType - attrSet _ = pixdataWritePixdataType - attrConstruct = undefined - attrClear _ = undefined - -pixdataPixdataType :: AttrLabelProxy "pixdataType" -pixdataPixdataType = AttrLabelProxy - - -pixdataReadRowstride :: MonadIO m => Pixdata -> m Word32 -pixdataReadRowstride s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -pixdataWriteRowstride :: MonadIO m => Pixdata -> Word32 -> m () -pixdataWriteRowstride s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word32) - -data PixdataRowstrideFieldInfo -instance AttrInfo PixdataRowstrideFieldInfo where - type AttrAllowedOps PixdataRowstrideFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PixdataRowstrideFieldInfo = (~) Word32 - type AttrBaseTypeConstraint PixdataRowstrideFieldInfo = (~) Pixdata - type AttrGetType PixdataRowstrideFieldInfo = Word32 - type AttrLabel PixdataRowstrideFieldInfo = "rowstride" - attrGet _ = pixdataReadRowstride - attrSet _ = pixdataWriteRowstride - attrConstruct = undefined - attrClear _ = undefined - -pixdataRowstride :: AttrLabelProxy "rowstride" -pixdataRowstride = AttrLabelProxy - - -pixdataReadWidth :: MonadIO m => Pixdata -> m Word32 -pixdataReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -pixdataWriteWidth :: MonadIO m => Pixdata -> Word32 -> m () -pixdataWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data PixdataWidthFieldInfo -instance AttrInfo PixdataWidthFieldInfo where - type AttrAllowedOps PixdataWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PixdataWidthFieldInfo = (~) Word32 - type AttrBaseTypeConstraint PixdataWidthFieldInfo = (~) Pixdata - type AttrGetType PixdataWidthFieldInfo = Word32 - type AttrLabel PixdataWidthFieldInfo = "width" - attrGet _ = pixdataReadWidth - attrSet _ = pixdataWriteWidth - attrConstruct = undefined - attrClear _ = undefined - -pixdataWidth :: AttrLabelProxy "width" -pixdataWidth = AttrLabelProxy - - -pixdataReadHeight :: MonadIO m => Pixdata -> m Word32 -pixdataReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -pixdataWriteHeight :: MonadIO m => Pixdata -> Word32 -> m () -pixdataWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data PixdataHeightFieldInfo -instance AttrInfo PixdataHeightFieldInfo where - type AttrAllowedOps PixdataHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PixdataHeightFieldInfo = (~) Word32 - type AttrBaseTypeConstraint PixdataHeightFieldInfo = (~) Pixdata - type AttrGetType PixdataHeightFieldInfo = Word32 - type AttrLabel PixdataHeightFieldInfo = "height" - attrGet _ = pixdataReadHeight - attrSet _ = pixdataWriteHeight - attrConstruct = undefined - attrClear _ = undefined - -pixdataHeight :: AttrLabelProxy "height" -pixdataHeight = AttrLabelProxy - - -pixdataReadPixelData :: MonadIO m => Pixdata -> m (Maybe (Ptr Word8)) -pixdataReadPixelData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Word8) - result <- convertIfNonNull val $ \val' -> do - return val' - return result - -pixdataWritePixelData :: MonadIO m => Pixdata -> Ptr Word8 -> m () -pixdataWritePixelData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Word8) - -pixdataClearPixelData :: MonadIO m => Pixdata -> m () -pixdataClearPixelData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Word8) - -data PixdataPixelDataFieldInfo -instance AttrInfo PixdataPixelDataFieldInfo where - type AttrAllowedOps PixdataPixelDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PixdataPixelDataFieldInfo = (~) (Ptr Word8) - type AttrBaseTypeConstraint PixdataPixelDataFieldInfo = (~) Pixdata - type AttrGetType PixdataPixelDataFieldInfo = Maybe (Ptr Word8) - type AttrLabel PixdataPixelDataFieldInfo = "pixel_data" - attrGet _ = pixdataReadPixelData - attrSet _ = pixdataWritePixelData - attrConstruct = undefined - attrClear _ = pixdataClearPixelData - -pixdataPixelData :: AttrLabelProxy "pixelData" -pixdataPixelData = AttrLabelProxy - - - -type instance AttributeList Pixdata = PixdataAttributeList -type PixdataAttributeList = ('[ '("magic", PixdataMagicFieldInfo), '("length", PixdataLengthFieldInfo), '("pixdataType", PixdataPixdataTypeFieldInfo), '("rowstride", PixdataRowstrideFieldInfo), '("width", PixdataWidthFieldInfo), '("height", PixdataHeightFieldInfo), '("pixelData", PixdataPixelDataFieldInfo)] :: [(Symbol, *)]) - --- method Pixdata::deserialize --- method type : OrdinaryMethod --- 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 TUInt, 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 TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixdata_deserialize" gdk_pixdata_deserialize :: - Ptr Pixdata -> -- _obj : TInterface "GdkPixbuf" "Pixdata" - Word32 -> -- stream_length : TBasicType TUInt - Ptr Word8 -> -- stream : TCArray False (-1) 1 (TBasicType TUInt8) - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED pixdataDeserialize ["(Since version 2.32)","Use #GResource instead."]#-} -pixdataDeserialize :: - (MonadIO m) => - Pixdata -- _obj - -> ByteString -- stream - -> m () -- result -pixdataDeserialize _obj stream = liftIO $ do - let streamLength = fromIntegral $ B.length stream - let _obj' = unsafeManagedPtrGetPtr _obj - stream' <- packByteString stream - onException (do - _ <- propagateGError $ gdk_pixdata_deserialize _obj' streamLength stream' - touchManagedPtr _obj - freeMem stream' - return () - ) (do - 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 {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 TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "stream_length_p", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8)) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixdata_serialize" gdk_pixdata_serialize :: - Ptr Pixdata -> -- _obj : TInterface "GdkPixbuf" "Pixdata" - Ptr Word32 -> -- stream_length_p : TBasicType TUInt - IO (Ptr Word8) - -{-# DEPRECATED pixdataSerialize ["(Since version 2.32)","Use #GResource instead."]#-} -pixdataSerialize :: - (MonadIO m) => - Pixdata -- _obj - -> m ByteString -- result -pixdataSerialize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - streamLengthP <- allocMem :: IO (Ptr Word32) - result <- gdk_pixdata_serialize _obj' streamLengthP - streamLengthP' <- peek streamLengthP - checkUnexpectedReturnNULL "gdk_pixdata_serialize" result - result' <- (unpackByteStringWithLength streamLengthP') result - freeMem result - touchManagedPtr _obj - 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 {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 : [] --- returnType : Just (TInterface "GLib" "String") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixdata_to_csource" gdk_pixdata_to_csource :: - Ptr Pixdata -> -- _obj : TInterface "GdkPixbuf" "Pixdata" - CString -> -- name : TBasicType TUTF8 - CUInt -> -- dump_type : TInterface "GdkPixbuf" "PixdataDumpType" - IO (Ptr GLib.String) - -{-# DEPRECATED pixdataToCsource ["(Since version 2.32)","Use #GResource instead."]#-} -pixdataToCsource :: - (MonadIO m) => - 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 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 deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/Pixdata.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.GdkPixbuf.Structs.Pixdata where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Pixdata = Pixdata (ForeignPtr Pixdata) -instance WrappedPtr Pixdata where -data PixdataDeserializeMethodInfo -data PixdataSerializeMethodInfo -data PixdataToCsourceMethodInfo diff --git a/GI/GdkPixbuf/Types.hs b/GI/GdkPixbuf/Types.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Types.hs +++ /dev/null @@ -1,28 +0,0 @@ -module GI.GdkPixbuf.Types - ( module GI.GdkPixbuf.Objects.Pixbuf , - module GI.GdkPixbuf.Objects.PixbufAnimation, - module GI.GdkPixbuf.Objects.PixbufAnimationIter, - module GI.GdkPixbuf.Objects.PixbufLoader, - module GI.GdkPixbuf.Objects.PixbufSimpleAnim, - module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter, - module GI.GdkPixbuf.Structs.PixbufFormat, - module GI.GdkPixbuf.Structs.Pixdata , - module GI.GdkPixbuf.Enums , - module GI.GdkPixbuf.Flags , - - - ) where - - -import {-# SOURCE #-} GI.GdkPixbuf.Objects.Pixbuf -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufAnimation -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufAnimationIter -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufLoader -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufSimpleAnim -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufSimpleAnimIter -import {-# SOURCE #-} GI.GdkPixbuf.Structs.PixbufFormat -import {-# SOURCE #-} GI.GdkPixbuf.Structs.Pixdata - -import GI.GdkPixbuf.Enums -import GI.GdkPixbuf.Flags - diff --git a/GdkPixbuf.overrides b/GdkPixbuf.overrides new file mode 100644 --- /dev/null +++ b/GdkPixbuf.overrides @@ -0,0 +1,11 @@ +namespace GdkPixbuf + +# Not supported on Windows. +if windows + set-attr GdkPixbuf/Pixbuf/new_from_file c:identifier gdk_pixbuf_new_from_file_utf8 + set-attr GdkPixbuf/Pixbuf/new_from_file_at_scale c:identifier gdk_pixbuf_new_from_file_at_scale_utf8 + set-attr GdkPixbuf/Pixbuf/new_from_file_at_size c:identifier gdk_pixbuf_new_from_file_at_size_utf8 + set-attr GdkPixbuf/Pixbuf/save c:identifier gdk_pixbuf_save_utf8 + set-attr GdkPixbuf/Pixbuf/savev c:identifier gdk_pixbuf_savev_utf8 + set-attr GdkPixbuf/PixbufAnimation/new_from_file c:identifier gdk_pixbuf_animation_new_from_file_utf8 +endif diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "GdkPixbuf" + version = "2.0" + verbose = False + overridesFile = Just "GdkPixbuf.overrides" + outputDir = Nothing diff --git a/gi-gdkpixbuf.cabal b/gi-gdkpixbuf.cabal --- a/gi-gdkpixbuf.cabal +++ b/gi-gdkpixbuf.cabal @@ -1,6 +1,5 @@ --- Autogenerated, do not edit. name: gi-gdkpixbuf -version: 0.2.32.15 +version: 2.0.1 synopsis: GdkPixbuf bindings description: Bindings for GdkPixbuf, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -9,37 +8,29 @@ author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings -build-type: Simple -cabal-version: >=1.10 +build-type: Custom +cabal-version: >= 1.24 +extra-source-files: GdkPixbuf.overrides + +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, 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 - GI.GdkPixbuf.Callbacks - GI.GdkPixbuf.Constants - GI.GdkPixbuf.Enums - GI.GdkPixbuf.Flags - GI.GdkPixbuf.Objects - GI.GdkPixbuf.Objects.Pixbuf - GI.GdkPixbuf.Objects.PixbufAnimation - GI.GdkPixbuf.Objects.PixbufAnimationIter - GI.GdkPixbuf.Objects.PixbufLoader - GI.GdkPixbuf.Objects.PixbufSimpleAnim - GI.GdkPixbuf.Objects.PixbufSimpleAnimIter - GI.GdkPixbuf.Structs - GI.GdkPixbuf.Structs.PixbufFormat - GI.GdkPixbuf.Structs.Pixdata - pkgconfig-depends: gdk-pixbuf-2.0 >= 2.32 + + pkgconfig-depends: gdk-pixbuf-2.0 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-glib >= 0.2.46.15 && < 0.2.47, - gi-gobject >= 0.2.46.15 && < 0.2.47, - gi-gio >= 0.2.46.15 && < 0.2.47, + gi-glib == 2.0.*, + gi-gobject == 2.0.*, + gi-gio == 2.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5