gi-gdkpixbuf 0.2.32.15 → 2.0.1
raw patch · 27 files changed
+39/−5944 lines, 27 filesdep ~gi-giodep ~gi-glibdep ~gi-gobjectbuild-type:Customsetup-changed
Dependency ranges changed: gi-gio, gi-glib, gi-gobject, transformers
Files
- GI/GdkPixbuf.hs +0/−42
- GI/GdkPixbuf/Callbacks.hs +0/−114
- GI/GdkPixbuf/Constants.hs +0/−53
- GI/GdkPixbuf/Enums.hs +0/−185
- GI/GdkPixbuf/Flags.hs +0/−102
- GI/GdkPixbuf/Objects.hs +0/−37
- GI/GdkPixbuf/Objects/Pixbuf.hs +0/−2502
- GI/GdkPixbuf/Objects/Pixbuf.hs-boot +0/−52
- GI/GdkPixbuf/Objects/PixbufAnimation.hs +0/−465
- GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot +0/−18
- GI/GdkPixbuf/Objects/PixbufAnimationIter.hs +0/−240
- GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot +0/−17
- GI/GdkPixbuf/Objects/PixbufLoader.hs +0/−697
- GI/GdkPixbuf/Objects/PixbufLoader.hs-boot +0/−24
- GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs +0/−279
- GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot +0/−17
- GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs +0/−96
- GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot +0/−13
- GI/GdkPixbuf/Structs.hs +0/−29
- GI/GdkPixbuf/Structs/PixbufFormat.hs +0/−445
- GI/GdkPixbuf/Structs/PixbufFormat.hs-boot +0/−22
- GI/GdkPixbuf/Structs/Pixdata.hs +0/−425
- GI/GdkPixbuf/Structs/Pixdata.hs-boot +0/−14
- GI/GdkPixbuf/Types.hs +0/−28
- GdkPixbuf.overrides +11/−0
- Setup.hs +12/−3
- gi-gdkpixbuf.cabal +16/−25
− GI/GdkPixbuf.hs
@@ -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-
− GI/GdkPixbuf/Callbacks.hs
@@ -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--
− GI/GdkPixbuf/Constants.hs
@@ -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--
− GI/GdkPixbuf/Enums.hs
@@ -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--
− GI/GdkPixbuf/Flags.hs
@@ -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--
− GI/GdkPixbuf/Objects.hs
@@ -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--
− GI/GdkPixbuf/Objects/Pixbuf.hs
@@ -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 ()- )--
− GI/GdkPixbuf/Objects/Pixbuf.hs-boot
@@ -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
− GI/GdkPixbuf/Objects/PixbufAnimation.hs
@@ -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 ()--
− GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot
@@ -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
− GI/GdkPixbuf/Objects/PixbufAnimationIter.hs
@@ -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--
− GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot
@@ -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
− GI/GdkPixbuf/Objects/PixbufLoader.hs
@@ -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--
− GI/GdkPixbuf/Objects/PixbufLoader.hs-boot
@@ -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
− GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs
@@ -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--
− GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot
@@ -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
− GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs
@@ -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, *)])--
− GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot
@@ -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
− GI/GdkPixbuf/Structs.hs
@@ -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--
− GI/GdkPixbuf/Structs/PixbufFormat.hs
@@ -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--
− GI/GdkPixbuf/Structs/PixbufFormat.hs-boot
@@ -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
− GI/GdkPixbuf/Structs/Pixdata.hs
@@ -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--
− GI/GdkPixbuf/Structs/Pixdata.hs-boot
@@ -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
− GI/GdkPixbuf/Types.hs
@@ -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-
+ GdkPixbuf.overrides view
@@ -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
Setup.hs view
@@ -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
gi-gdkpixbuf.cabal view
@@ -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