diff --git a/GI/GdkPixbuf.hs b/GI/GdkPixbuf.hs --- a/GI/GdkPixbuf.hs +++ b/GI/GdkPixbuf.hs @@ -28,9 +28,9 @@ import GI.GdkPixbuf.Objects import GI.GdkPixbuf.Structs -import Prelude () 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 diff --git a/GI/GdkPixbuf/Callbacks.hs b/GI/GdkPixbuf/Callbacks.hs --- a/GI/GdkPixbuf/Callbacks.hs +++ b/GI/GdkPixbuf/Callbacks.hs @@ -32,9 +32,9 @@ ) where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Constants.hs b/GI/GdkPixbuf/Constants.hs --- a/GI/GdkPixbuf/Constants.hs +++ b/GI/GdkPixbuf/Constants.hs @@ -19,9 +19,9 @@ ) where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Enums.hs b/GI/GdkPixbuf/Enums.hs --- a/GI/GdkPixbuf/Enums.hs +++ b/GI/GdkPixbuf/Enums.hs @@ -21,9 +21,9 @@ ) where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Flags.hs b/GI/GdkPixbuf/Flags.hs --- a/GI/GdkPixbuf/Flags.hs +++ b/GI/GdkPixbuf/Flags.hs @@ -16,9 +16,9 @@ ) where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects.hs b/GI/GdkPixbuf/Objects.hs --- a/GI/GdkPixbuf/Objects.hs +++ b/GI/GdkPixbuf/Objects.hs @@ -24,9 +24,9 @@ import GI.GdkPixbuf.Objects.PixbufSimpleAnim import GI.GdkPixbuf.Objects.PixbufSimpleAnimIter -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects/Pixbuf.hs b/GI/GdkPixbuf/Objects/Pixbuf.hs --- a/GI/GdkPixbuf/Objects/Pixbuf.hs +++ b/GI/GdkPixbuf/Objects/Pixbuf.hs @@ -257,63 +257,72 @@ 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 Prelude () 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 @@ -415,14 +424,15 @@ #endif -- VVV Prop "bits-per-sample" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getPixbufBitsPerSample :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufBitsPerSample obj = liftIO $ getObjectPropertyCInt obj "bits-per-sample" +getPixbufBitsPerSample obj = liftIO $ getObjectPropertyInt32 obj "bits-per-sample" constructPixbufBitsPerSample :: Int32 -> IO ([Char], GValue) -constructPixbufBitsPerSample val = constructObjectPropertyCInt "bits-per-sample" val +constructPixbufBitsPerSample val = constructObjectPropertyInt32 "bits-per-sample" val data PixbufBitsPerSamplePropertyInfo instance AttrInfo PixbufBitsPerSamplePropertyInfo where @@ -434,10 +444,12 @@ 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" @@ -455,10 +467,12 @@ 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" @@ -476,16 +490,18 @@ attrGet _ = getPixbufHasAlpha attrSet _ = undefined attrConstruct _ = constructPixbufHasAlpha + attrClear _ = undefined -- VVV Prop "height" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getPixbufHeight :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufHeight obj = liftIO $ getObjectPropertyCInt obj "height" +getPixbufHeight obj = liftIO $ getObjectPropertyInt32 obj "height" constructPixbufHeight :: Int32 -> IO ([Char], GValue) -constructPixbufHeight val = constructObjectPropertyCInt "height" val +constructPixbufHeight val = constructObjectPropertyInt32 "height" val data PixbufHeightPropertyInfo instance AttrInfo PixbufHeightPropertyInfo where @@ -497,16 +513,18 @@ attrGet _ = getPixbufHeight attrSet _ = undefined attrConstruct _ = constructPixbufHeight + attrClear _ = undefined -- VVV Prop "n-channels" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getPixbufNChannels :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufNChannels obj = liftIO $ getObjectPropertyCInt obj "n-channels" +getPixbufNChannels obj = liftIO $ getObjectPropertyInt32 obj "n-channels" constructPixbufNChannels :: Int32 -> IO ([Char], GValue) -constructPixbufNChannels val = constructObjectPropertyCInt "n-channels" val +constructPixbufNChannels val = constructObjectPropertyInt32 "n-channels" val data PixbufNChannelsPropertyInfo instance AttrInfo PixbufNChannelsPropertyInfo where @@ -518,36 +536,40 @@ 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 GLib.Bytes +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" val +constructPixbufPixelBytes val = constructObjectPropertyBoxed "pixel-bytes" (Just val) data PixbufPixelBytesPropertyInfo instance AttrInfo PixbufPixelBytesPropertyInfo where - type AttrAllowedOps PixbufPixelBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrAllowedOps PixbufPixelBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint PixbufPixelBytesPropertyInfo = (~) GLib.Bytes type AttrBaseTypeConstraint PixbufPixelBytesPropertyInfo = PixbufK - type AttrGetType PixbufPixelBytesPropertyInfo = GLib.Bytes + type AttrGetType PixbufPixelBytesPropertyInfo = (Maybe GLib.Bytes) type AttrLabel PixbufPixelBytesPropertyInfo = "pixel-bytes" attrGet _ = getPixbufPixelBytes attrSet _ = undefined attrConstruct _ = constructPixbufPixelBytes + attrClear _ = undefined -- VVV Prop "pixels" - -- Type: TBasicType TVoid + -- 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 :: Ptr () -> IO ([Char], GValue) constructPixbufPixels val = constructObjectPropertyPtr "pixels" val data PixbufPixelsPropertyInfo @@ -560,16 +582,18 @@ attrGet _ = getPixbufPixels attrSet _ = undefined attrConstruct _ = constructPixbufPixels + attrClear _ = undefined -- VVV Prop "rowstride" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getPixbufRowstride :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufRowstride obj = liftIO $ getObjectPropertyCInt obj "rowstride" +getPixbufRowstride obj = liftIO $ getObjectPropertyInt32 obj "rowstride" constructPixbufRowstride :: Int32 -> IO ([Char], GValue) -constructPixbufRowstride val = constructObjectPropertyCInt "rowstride" val +constructPixbufRowstride val = constructObjectPropertyInt32 "rowstride" val data PixbufRowstridePropertyInfo instance AttrInfo PixbufRowstridePropertyInfo where @@ -581,16 +605,18 @@ attrGet _ = getPixbufRowstride attrSet _ = undefined attrConstruct _ = constructPixbufRowstride + attrClear _ = undefined -- VVV Prop "width" - -- Type: TBasicType TInt32 + -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + -- Nullable: (Just False,Nothing) getPixbufWidth :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufWidth obj = liftIO $ getObjectPropertyCInt obj "width" +getPixbufWidth obj = liftIO $ getObjectPropertyInt32 obj "width" constructPixbufWidth :: Int32 -> IO ([Char], GValue) -constructPixbufWidth val = constructObjectPropertyCInt "width" val +constructPixbufWidth val = constructObjectPropertyInt32 "width" val data PixbufWidthPropertyInfo instance AttrInfo PixbufWidthPropertyInfo where @@ -602,27 +628,55 @@ 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- bits_per_sample : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO (Ptr Pixbuf) @@ -644,9 +698,9 @@ -- method Pixbuf::new_from_bytes -- method type : Constructor --- Args : [Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -654,10 +708,10 @@ Ptr GLib.Bytes -> -- data : TInterface "GLib" "Bytes" CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace" CInt -> -- has_alpha : TBasicType TBoolean - Int32 -> -- bits_per_sample : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - Int32 -> -- rowstride : TBasicType TInt32 + Int32 -> -- bits_per_sample : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt + Int32 -> -- rowstride : TBasicType TInt IO (Ptr Pixbuf) @@ -683,9 +737,9 @@ -- method Pixbuf::new_from_data -- method type : Constructor --- Args : [Arg {argCName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_fn_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -693,12 +747,12 @@ Ptr Word8 -> -- data : TCArray False (-1) (-1) (TBasicType TUInt8) CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace" CInt -> -- has_alpha : TBasicType TBoolean - Int32 -> -- bits_per_sample : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - Int32 -> -- rowstride : TBasicType TInt32 + 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 TVoid + Ptr () -> -- destroy_fn_data : TBasicType TPtr IO (Ptr Pixbuf) @@ -733,7 +787,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -761,16 +815,16 @@ -- method Pixbuf::new_from_file_at_scale -- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CInt -> -- preserve_aspect_ratio : TBasicType TBoolean Ptr (Ptr GError) -> -- error IO (Ptr Pixbuf) @@ -798,16 +852,16 @@ -- method Pixbuf::new_from_file_at_size -- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt Ptr (Ptr GError) -> -- error IO (Ptr Pixbuf) @@ -832,14 +886,14 @@ -- method Pixbuf::new_from_inline -- method type : Constructor --- Args : [Arg {argCName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 + Int32 -> -- data_length : TBasicType TInt Ptr Word8 -> -- data : TCArray False (-1) 0 (TBasicType TUInt8) CInt -> -- copy_pixels : TBasicType TBoolean Ptr (Ptr GError) -> -- error @@ -869,7 +923,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -897,16 +951,16 @@ -- method Pixbuf::new_from_resource_at_scale -- method type : Constructor --- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CInt -> -- preserve_aspect_ratio : TBasicType TBoolean Ptr (Ptr GError) -> -- error IO (Ptr Pixbuf) @@ -936,7 +990,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -972,16 +1026,16 @@ -- method Pixbuf::new_from_stream_at_scale -- method type : Constructor --- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- height : TBasicType TInt32 + 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 @@ -1019,7 +1073,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -1049,7 +1103,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1075,7 +1129,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1113,7 +1167,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1140,25 +1194,25 @@ -- method Pixbuf::composite -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- 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 TInt32 - Int32 -> -- dest_y : TBasicType TInt32 - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 + 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 TInt32 + Int32 -> -- overall_alpha : TBasicType TInt IO () @@ -1196,28 +1250,28 @@ -- method Pixbuf::composite_color -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- 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 TInt32 - Int32 -> -- dest_y : TBasicType TInt32 - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 + 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 TInt32 - Int32 -> -- check_x : TBasicType TInt32 - Int32 -> -- check_y : TBasicType TInt32 - Int32 -> -- check_size : TBasicType TInt32 + 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 () @@ -1262,19 +1316,19 @@ -- method Pixbuf::composite_color_simple -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- dest_height : TBasicType TInt32 + Int32 -> -- dest_width : TBasicType TInt + Int32 -> -- dest_height : TBasicType TInt CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" - Int32 -> -- overall_alpha : TBasicType TInt32 - Int32 -> -- check_size : TBasicType TInt32 + Int32 -> -- overall_alpha : TBasicType TInt + Int32 -> -- check_size : TBasicType TInt Word32 -> -- color1 : TBasicType TUInt32 Word32 -> -- color2 : TBasicType TUInt32 IO (Ptr Pixbuf) @@ -1308,7 +1362,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1335,21 +1389,21 @@ -- method Pixbuf::copy_area -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- 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 TInt32 - Int32 -> -- src_y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + 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 TInt32 - Int32 -> -- dest_y : TBasicType TInt32 + Int32 -> -- dest_x : TBasicType TInt + Int32 -> -- dest_y : TBasicType TInt IO () @@ -1380,7 +1434,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1409,7 +1463,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1423,25 +1477,26 @@ (MonadIO m, PixbufK a) => a -- _obj -> Bool -- horizontal - -> m Pixbuf -- result + -> m (Maybe Pixbuf) -- result pixbufFlip _obj horizontal = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let horizontal' = (fromIntegral . fromEnum) horizontal result <- gdk_pixbuf_flip _obj' horizontal' - checkUnexpectedReturnNULL "gdk_pixbuf_flip" result - result' <- (wrapObject Pixbuf) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject Pixbuf) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data PixbufFlipMethodInfo -instance (signature ~ (Bool -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufFlipMethodInfo a signature where +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 : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1468,7 +1523,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt64 +-- returnType : Just (TBasicType TUInt64) -- throws : False -- Skip return : False @@ -1495,7 +1550,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Colorspace" +-- returnType : Just (TInterface "GdkPixbuf" "Colorspace") -- throws : False -- Skip return : False @@ -1523,7 +1578,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1551,7 +1606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1578,7 +1633,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1605,7 +1660,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1643,15 +1698,15 @@ overloadedMethod _ = undefined -- method Pixbuf::get_pixels -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TBasicType TUInt8) +-- 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 TUInt32 + Ptr Word32 -> -- length : TBasicType TUInt IO (Ptr Word8) @@ -1678,7 +1733,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1705,7 +1760,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1730,18 +1785,18 @@ -- method Pixbuf::new_subpixbuf -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- src_y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- src_x : TBasicType TInt + Int32 -> -- src_y : TBasicType TInt + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO (Ptr Pixbuf) @@ -1769,7 +1824,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GLib" "Bytes" +-- returnType : Just (TInterface "GLib" "Bytes") -- throws : False -- Skip return : False @@ -1798,7 +1853,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TUInt8 +-- returnType : Just (TBasicType TUInt8) -- throws : False -- Skip return : False @@ -1825,7 +1880,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -1839,25 +1894,26 @@ (MonadIO m, PixbufK a) => a -- _obj -> PixbufRotation -- angle - -> m Pixbuf -- result + -> 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' - checkUnexpectedReturnNULL "gdk_pixbuf_rotate_simple" result - result' <- (wrapObject Pixbuf) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (wrapObject Pixbuf) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data PixbufRotateSimpleMethodInfo -instance (signature ~ (PixbufRotation -> m Pixbuf), MonadIO m, PixbufK a) => MethodInfo PixbufRotateSimpleMethodInfo a signature where +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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -1894,7 +1950,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -1954,16 +2010,16 @@ -- method Pixbuf::save_to_callbackv -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TBoolean +-- 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 TVoid + 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) @@ -2013,7 +2069,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -2066,19 +2122,19 @@ -- method Pixbuf::scale -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- 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 TInt32 - Int32 -> -- dest_y : TBasicType TInt32 - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 + 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 @@ -2120,16 +2176,16 @@ -- method Pixbuf::scale_simple -- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- 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 TInt32 - Int32 -> -- dest_height : TBasicType TInt32 + Int32 -> -- dest_width : TBasicType TInt + Int32 -> -- dest_height : TBasicType TInt CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" IO (Ptr Pixbuf) @@ -2158,7 +2214,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : True -- Skip return : False @@ -2189,42 +2245,43 @@ -- method Pixbuf::get_file_info -- method type : MemberFunction --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- 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 : TInterface "GdkPixbuf" "PixbufFormat" +-- 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 TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt IO (Ptr PixbufFormat) pixbufGetFileInfo :: (MonadIO m) => T.Text -- filename - -> m (PixbufFormat,Int32,Int32) -- result + -> 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 - checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info" result - result' <- (newBoxed PixbufFormat) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newBoxed PixbufFormat) result' + return result'' width' <- peek width height' <- peek height freeMem filename' freeMem width freeMem height - return (result', width', 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2232,7 +2289,7 @@ CString -> -- filename : TBasicType TUTF8 Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -2264,16 +2321,16 @@ -- method Pixbuf::get_file_info_finish -- method type : MemberFunction --- Args : [Arg {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] +-- 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 : TInterface "GdkPixbuf" "PixbufFormat" +-- 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 TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 + Ptr Int32 -> -- width : TBasicType TInt + Ptr Int32 -> -- height : TBasicType TInt Ptr (Ptr GError) -> -- error IO (Ptr PixbufFormat) @@ -2305,7 +2362,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : [] --- returnType : TGSList (TInterface "GdkPixbuf" "PixbufFormat") +-- returnType : Just (TGSList (TInterface "GdkPixbuf" "PixbufFormat")) -- throws : False -- Skip return : False @@ -2318,7 +2375,6 @@ m [PixbufFormat] -- result pixbufGetFormats = liftIO $ do result <- gdk_pixbuf_get_formats - checkUnexpectedReturnNULL "gdk_pixbuf_get_formats" result result' <- unpackGSList result result'' <- mapM (newBoxed PixbufFormat) result' g_slist_free result @@ -2326,9 +2382,9 @@ -- method Pixbuf::new_from_stream_async -- method type : MemberFunction --- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -2336,7 +2392,7 @@ Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -2368,20 +2424,20 @@ -- method Pixbuf::new_from_stream_at_scale_async -- method type : MemberFunction --- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- 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 TInt32 - Int32 -> -- height : TBasicType TInt32 + 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 TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () @@ -2419,7 +2475,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False diff --git a/GI/GdkPixbuf/Objects/Pixbuf.hs-boot b/GI/GdkPixbuf/Objects/Pixbuf.hs-boot --- a/GI/GdkPixbuf/Objects/Pixbuf.hs-boot +++ b/GI/GdkPixbuf/Objects/Pixbuf.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Objects.Pixbuf where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects/PixbufAnimation.hs b/GI/GdkPixbuf/Objects/PixbufAnimation.hs --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs +++ b/GI/GdkPixbuf/Objects/PixbufAnimation.hs @@ -66,9 +66,9 @@ ) where -import Prelude () 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 @@ -148,7 +148,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "PixbufAnimation" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") -- throws : True -- Skip return : False @@ -178,7 +178,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "PixbufAnimation" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") -- throws : True -- Skip return : False @@ -208,7 +208,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "PixbufAnimation" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") -- throws : True -- Skip return : False @@ -246,7 +246,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "PixbufAnimation" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") -- throws : True -- Skip return : False @@ -276,7 +276,7 @@ -- 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 : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -303,7 +303,7 @@ -- 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 : TInterface "GdkPixbuf" "PixbufAnimationIter" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimationIter") -- throws : False -- Skip return : False @@ -340,7 +340,7 @@ -- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -369,7 +369,7 @@ -- 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 : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -396,7 +396,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -422,9 +422,9 @@ -- 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 TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] --- returnType : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -432,7 +432,7 @@ Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid + Ptr () -> -- user_data : TBasicType TPtr IO () diff --git a/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot b/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Objects.PixbufAnimation where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs +++ b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs @@ -41,9 +41,9 @@ ) where -import Prelude () 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 @@ -121,7 +121,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -157,7 +157,7 @@ -- 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 : TBasicType TInt32 +-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -184,7 +184,7 @@ -- 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 : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -213,7 +213,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False diff --git a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Objects.PixbufAnimationIter where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects/PixbufLoader.hs b/GI/GdkPixbuf/Objects/PixbufLoader.hs --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs +++ b/GI/GdkPixbuf/Objects/PixbufLoader.hs @@ -119,9 +119,9 @@ ) where -import Prelude () 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 @@ -392,7 +392,7 @@ -- method type : Constructor -- Args : [] -- Lengths : [] --- returnType : TInterface "GdkPixbuf" "PixbufLoader" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufLoader") -- throws : False -- Skip return : False @@ -413,7 +413,7 @@ -- 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 : TInterface "GdkPixbuf" "PixbufLoader" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufLoader") -- throws : True -- Skip return : False @@ -443,7 +443,7 @@ -- 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 : TInterface "GdkPixbuf" "PixbufLoader" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufLoader") -- throws : True -- Skip return : False @@ -473,7 +473,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -505,7 +505,7 @@ -- 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 : TInterface "GdkPixbuf" "PixbufAnimation" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufAnimation") -- throws : False -- Skip return : False @@ -534,7 +534,7 @@ -- 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 : TInterface "GdkPixbuf" "PixbufFormat" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufFormat") -- throws : False -- Skip return : False @@ -546,24 +546,25 @@ pixbufLoaderGetFormat :: (MonadIO m, PixbufLoaderK a) => a -- _obj - -> m PixbufFormat -- result + -> m (Maybe PixbufFormat) -- result pixbufLoaderGetFormat _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_pixbuf_loader_get_format _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_format" result - result' <- (newBoxed PixbufFormat) result + maybeResult <- convertIfNonNull result $ \result' -> do + result'' <- (newBoxed PixbufFormat) result' + return result'' touchManagedPtr _obj - return result' + return maybeResult data PixbufLoaderGetFormatMethodInfo -instance (signature ~ (m PixbufFormat), MonadIO m, PixbufLoaderK a) => MethodInfo PixbufLoaderGetFormatMethodInfo a signature where +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 : TInterface "GdkPixbuf" "Pixbuf" +-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -590,16 +591,16 @@ -- 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TBasicType TVoid +-- 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 TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt IO () @@ -623,7 +624,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -661,7 +662,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False diff --git a/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot b/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Objects.PixbufLoader where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs +++ b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs @@ -43,6 +43,7 @@ PixbufSimpleAnimLoopPropertyInfo , constructPixbufSimpleAnimLoop , getPixbufSimpleAnimLoop , + pixbufSimpleAnimLoop , setPixbufSimpleAnimLoop , @@ -50,9 +51,9 @@ ) where -import Prelude () 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 @@ -126,6 +127,7 @@ -- 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" @@ -146,24 +148,28 @@ 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 TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rate", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] +-- 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 : TInterface "GdkPixbuf" "PixbufSimpleAnim" +-- 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 TInt32 - Int32 -> -- height : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt + Int32 -> -- height : TBasicType TInt CFloat -> -- rate : TBasicType TFloat IO (Ptr PixbufSimpleAnim) @@ -185,7 +191,7 @@ -- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -216,7 +222,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -244,7 +250,7 @@ -- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Objects.PixbufSimpleAnim where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs +++ b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs @@ -18,9 +18,9 @@ ) where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot +++ b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Structs.hs b/GI/GdkPixbuf/Structs.hs --- a/GI/GdkPixbuf/Structs.hs +++ b/GI/GdkPixbuf/Structs.hs @@ -16,9 +16,9 @@ import GI.GdkPixbuf.Structs.PixbufFormat import GI.GdkPixbuf.Structs.Pixdata -import Prelude () 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 diff --git a/GI/GdkPixbuf/Structs/PixbufFormat.hs b/GI/GdkPixbuf/Structs/PixbufFormat.hs --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs +++ b/GI/GdkPixbuf/Structs/PixbufFormat.hs @@ -74,9 +74,9 @@ ) where -import Prelude () 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 @@ -94,11 +94,15 @@ 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 : TInterface "GdkPixbuf" "PixbufFormat" +-- returnType : Just (TInterface "GdkPixbuf" "PixbufFormat") -- throws : False -- Skip return : False @@ -127,7 +131,7 @@ -- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False @@ -154,7 +158,7 @@ -- 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 : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -184,7 +188,7 @@ -- 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 : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -215,7 +219,7 @@ -- 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 : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -245,7 +249,7 @@ -- 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 : TCArray True (-1) (-1) (TBasicType TUTF8) +-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -276,7 +280,7 @@ -- 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 : TBasicType TUTF8 +-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -306,7 +310,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -334,7 +338,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -362,7 +366,7 @@ -- 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 : TBasicType TBoolean +-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -390,7 +394,7 @@ -- 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 : TBasicType TVoid +-- returnType : Nothing -- throws : False -- Skip return : False diff --git a/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot b/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot +++ b/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Structs.PixbufFormat where -import Prelude () 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 diff --git a/GI/GdkPixbuf/Structs/Pixdata.hs b/GI/GdkPixbuf/Structs/Pixdata.hs --- a/GI/GdkPixbuf/Structs/Pixdata.hs +++ b/GI/GdkPixbuf/Structs/Pixdata.hs @@ -38,40 +38,55 @@ -- * 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 Prelude () 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 @@ -85,55 +100,212 @@ newZeroPixdata :: MonadIO m => m Pixdata newZeroPixdata = liftIO $ callocBytes 32 >>= 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 :: Pixdata -> IO Word32 -pixdataReadMagic s = withManagedPtr s $ \ptr -> do +pixdataReadMagic :: MonadIO m => Pixdata -> m Word32 +pixdataReadMagic s = liftIO $ withManagedPtr s $ \ptr -> do val <- peek (ptr `plusPtr` 0) :: IO Word32 return val -pixdataReadLength :: Pixdata -> IO Int32 -pixdataReadLength s = withManagedPtr s $ \ptr -> do +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 -pixdataReadPixdataType :: Pixdata -> IO Word32 -pixdataReadPixdataType s = withManagedPtr s $ \ptr -> do +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 -pixdataReadRowstride :: Pixdata -> IO Word32 -pixdataReadRowstride s = withManagedPtr s $ \ptr -> do +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 -pixdataReadWidth :: Pixdata -> IO Word32 -pixdataReadWidth s = withManagedPtr s $ \ptr -> do +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 -pixdataReadHeight :: Pixdata -> IO Word32 -pixdataReadHeight s = withManagedPtr s $ \ptr -> do +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 -pixdataReadPixelData :: Pixdata -> IO (Ptr Word8) -pixdataReadPixelData s = withManagedPtr s $ \ptr -> do +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) - return val + 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 TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "stream_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : TBasicType TBoolean +-- 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 TUInt32 + Word32 -> -- stream_length : TBasicType TUInt Ptr Word8 -> -- stream : TCArray False (-1) 1 (TBasicType TUInt8) Ptr (Ptr GError) -> -- error IO CInt @@ -163,15 +335,15 @@ -- 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 TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "stream_length_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : TCArray False (-1) 1 (TBasicType TUInt8) +-- 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 TUInt32 + Ptr Word32 -> -- stream_length_p : TBasicType TUInt IO (Ptr Word8) {-# DEPRECATED pixdataSerialize ["(Since version 2.32)","Use #GResource instead."]#-} @@ -199,7 +371,7 @@ -- 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 : TInterface "GLib" "String" +-- returnType : Just (TInterface "GLib" "String") -- throws : False -- Skip return : False diff --git a/GI/GdkPixbuf/Structs/Pixdata.hs-boot b/GI/GdkPixbuf/Structs/Pixdata.hs-boot --- a/GI/GdkPixbuf/Structs/Pixdata.hs-boot +++ b/GI/GdkPixbuf/Structs/Pixdata.hs-boot @@ -1,8 +1,8 @@ module GI.GdkPixbuf.Structs.Pixdata where -import Prelude () 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 diff --git a/gi-gdkpixbuf.cabal b/gi-gdkpixbuf.cabal --- a/gi-gdkpixbuf.cabal +++ b/gi-gdkpixbuf.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gdkpixbuf -version: 0.2.32.13 +version: 0.2.32.14 synopsis: GdkPixbuf bindings description: Bindings for GdkPixbuf, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,7 +14,7 @@ library default-language: Haskell2010 - default-extensions: ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts + 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 @@ -35,10 +35,10 @@ GI.GdkPixbuf.Structs.Pixdata pkgconfig-depends: gdk-pixbuf-2.0 >= 2.32 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.13 && < 1, - gi-glib >= 0.2.46.13 && < 0.2.47, - gi-gobject >= 0.2.46.13 && < 0.2.47, - gi-gio >= 0.2.46.13 && < 0.2.47, + haskell-gi-base >= 0.14 && < 1, + gi-glib >= 0.2.46.14 && < 0.2.47, + gi-gobject >= 0.2.46.14 && < 0.2.47, + gi-gio >= 0.2.46.14 && < 0.2.47, bytestring >= 0.10, containers >= 0.5, text >= 1.0,