gi-gdkpixbuf (empty) → 0.2.31.8
raw patch · 6 files changed
+4507/−0 lines, 6 filesdep +basedep +bytestringdep +containerssetup-changed
Dependencies added: base, bytestring, containers, gi-gio, gi-glib, gi-gobject, haskell-gi-base, text, transformers
Files
- GI/GdkPixbuf.hs +3651/−0
- GI/GdkPixbufAttributes.hs +275/−0
- GI/GdkPixbufSignals.hs +49/−0
- LICENSE +502/−0
- Setup.hs +3/−0
- gi-gdkpixbuf.cabal +27/−0
+ GI/GdkPixbuf.hs view
@@ -0,0 +1,3651 @@+-- Generated code.++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,+ TypeFamilies, MultiParamTypeClasses, KindSignatures,+ FlexibleInstances, UndecidableInstances, DataKinds,+ OverloadedStrings, NegativeLiterals, FlexibleContexts #-}++module GI.GdkPixbuf where++import Prelude ()+import Data.GI.Base.ShortPrelude+import Data.Char+import Data.Int+import Data.Word+import qualified Data.ByteString.Char8 as B+import Data.ByteString.Char8 (ByteString)+import qualified Data.Map as Map+import Foreign.C+import Foreign.Ptr+import Foreign.ForeignPtr+import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)+import Foreign.Storable (peek, poke, sizeOf)+import Control.Applicative ((<$>))+import Control.Exception (onException)+import Control.Monad.IO.Class+import qualified Data.Text as T++import Data.GI.Base.Attributes hiding (get, set)+import Data.GI.Base.BasicTypes+import Data.GI.Base.BasicConversions+import Data.GI.Base.Closure+import Data.GI.Base.GError+import Data.GI.Base.GHashTable+import Data.GI.Base.GParamSpec+import Data.GI.Base.GVariant+import Data.GI.Base.GValue+import Data.GI.Base.ManagedPtr+import Data.GI.Base.Overloading+import Data.GI.Base.Properties hiding (new)+import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)+import Data.GI.Base.Utils++import qualified GI.GLib as GLib+import qualified GI.GLibAttributes as GLibA+import qualified GI.GObject as GObject+import qualified GI.GObjectAttributes as GObjectA+import qualified GI.Gio as Gio+import qualified GI.GioAttributes as GioA++-- Enum Colorspace++data Colorspace = + ColorspaceRgb+ | AnotherColorspace Int+ deriving (Show, Eq)++instance Enum Colorspace where+ fromEnum ColorspaceRgb = 0+ fromEnum (AnotherColorspace k) = k++ toEnum 0 = ColorspaceRgb+ toEnum k = AnotherColorspace k++foreign import ccall "gdk_colorspace_get_type" c_gdk_colorspace_get_type :: + IO GType++instance BoxedEnum Colorspace where+ boxedEnumType _ = c_gdk_colorspace_get_type++-- Enum InterpType++data InterpType = + InterpTypeNearest+ | InterpTypeTiles+ | InterpTypeBilinear+ | InterpTypeHyper+ | AnotherInterpType Int+ deriving (Show, Eq)++instance Enum InterpType where+ fromEnum InterpTypeNearest = 0+ fromEnum InterpTypeTiles = 1+ fromEnum InterpTypeBilinear = 2+ fromEnum InterpTypeHyper = 3+ fromEnum (AnotherInterpType k) = k++ toEnum 0 = InterpTypeNearest+ toEnum 1 = InterpTypeTiles+ toEnum 2 = InterpTypeBilinear+ toEnum 3 = InterpTypeHyper+ toEnum k = AnotherInterpType k++foreign import ccall "gdk_interp_type_get_type" c_gdk_interp_type_get_type :: + IO GType++instance BoxedEnum InterpType where+ boxedEnumType _ = c_gdk_interp_type_get_type++-- object Pixbuf +newtype Pixbuf = Pixbuf (ForeignPtr Pixbuf)+noPixbuf :: Maybe Pixbuf+noPixbuf = Nothing++foreign import ccall "gdk_pixbuf_get_type"+ c_gdk_pixbuf_get_type :: IO GType++type instance ParentTypes Pixbuf = '[GObject.Object, Gio.Icon, Gio.LoadableIcon]++instance GObject Pixbuf where+ gobjectIsInitiallyUnowned _ = False+ gobjectType _ = c_gdk_pixbuf_get_type+ ++class GObject o => PixbufK o+instance (GObject o, IsDescendantOf Pixbuf o) => PixbufK o++toPixbuf :: PixbufK o => o -> IO Pixbuf+toPixbuf = unsafeCastTo Pixbuf++-- method Pixbuf::new+-- method type : Constructor+-- Args : [Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_new" gdk_pixbuf_new :: + CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace"+ CInt -> -- has_alpha : TBasicType TBoolean+ Int32 -> -- bits_per_sample : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ IO (Ptr Pixbuf)+++pixbufNew ::+ (MonadIO m) =>+ Colorspace -> -- colorspace+ Bool -> -- has_alpha+ Int32 -> -- bits_per_sample+ Int32 -> -- width+ Int32 -> -- height+ m Pixbuf+pixbufNew colorspace has_alpha bits_per_sample width height = liftIO $ do+ let colorspace' = (fromIntegral . fromEnum) colorspace+ let has_alpha' = (fromIntegral . fromEnum) has_alpha+ result <- gdk_pixbuf_new colorspace' has_alpha' bits_per_sample width height+ result' <- (wrapObject Pixbuf) result+ return result'++-- method Pixbuf::new_from_bytes+-- method type : Constructor+-- Args : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_bytes" gdk_pixbuf_new_from_bytes :: + Ptr GLib.Bytes -> -- data : TInterface "GLib" "Bytes"+ CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace"+ CInt -> -- has_alpha : TBasicType TBoolean+ Int32 -> -- bits_per_sample : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ Int32 -> -- rowstride : TBasicType TInt32+ IO (Ptr Pixbuf)+++pixbufNewFromBytes ::+ (MonadIO m) =>+ GLib.Bytes -> -- data+ Colorspace -> -- colorspace+ Bool -> -- has_alpha+ Int32 -> -- bits_per_sample+ Int32 -> -- width+ Int32 -> -- height+ Int32 -> -- rowstride+ m Pixbuf+pixbufNewFromBytes data_ colorspace has_alpha bits_per_sample width height rowstride = liftIO $ do+ let data_' = unsafeManagedPtrGetPtr data_+ let colorspace' = (fromIntegral . fromEnum) colorspace+ let has_alpha' = (fromIntegral . fromEnum) has_alpha+ result <- gdk_pixbuf_new_from_bytes data_' colorspace' has_alpha' bits_per_sample width height rowstride+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr data_+ return result'++-- method Pixbuf::new_from_data+-- method type : Constructor+-- Args : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_data" gdk_pixbuf_new_from_data :: + Ptr Word8 -> -- data : TCArray False (-1) (-1) (TBasicType TUInt8)+ CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace"+ CInt -> -- has_alpha : TBasicType TBoolean+ Int32 -> -- bits_per_sample : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ Int32 -> -- rowstride : TBasicType TInt32+ FunPtr PixbufDestroyNotifyC -> -- destroy_fn : TInterface "GdkPixbuf" "PixbufDestroyNotify"+ Ptr () -> -- destroy_fn_data : TBasicType TVoid+ IO (Ptr Pixbuf)+++pixbufNewFromData ::+ (MonadIO m) =>+ Ptr Word8 -> -- data+ Colorspace -> -- colorspace+ Bool -> -- has_alpha+ Int32 -> -- bits_per_sample+ Int32 -> -- width+ Int32 -> -- height+ Int32 -> -- rowstride+ Maybe (PixbufDestroyNotify) -> -- destroy_fn+ m Pixbuf+pixbufNewFromData data_ colorspace has_alpha bits_per_sample width height rowstride destroy_fn = liftIO $ do+ let colorspace' = (fromIntegral . fromEnum) colorspace+ let has_alpha' = (fromIntegral . fromEnum) has_alpha+ ptrdestroy_fn <- callocBytes $ sizeOf (undefined :: FunPtr PixbufDestroyNotifyC)+ maybeDestroy_fn <- case destroy_fn of+ Nothing -> return (castPtrToFunPtr nullPtr)+ Just jDestroy_fn -> do+ jDestroy_fn' <- mkPixbufDestroyNotify (pixbufDestroyNotifyWrapper (Just ptrdestroy_fn) jDestroy_fn)+ poke ptrdestroy_fn jDestroy_fn'+ return jDestroy_fn'+ let destroy_fn_data = nullPtr+ result <- gdk_pixbuf_new_from_data data_ colorspace' has_alpha' bits_per_sample width height rowstride maybeDestroy_fn destroy_fn_data+ result' <- (wrapObject Pixbuf) result+ return result'++-- method Pixbuf::new_from_file+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_file" gdk_pixbuf_new_from_file :: + CString -> -- filename : TBasicType TUTF8+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromFile ::+ (MonadIO m) =>+ T.Text -> -- filename+ m Pixbuf+pixbufNewFromFile filename = liftIO $ do+ filename' <- textToCString filename+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_file filename'+ result' <- (wrapObject Pixbuf) result+ freeMem filename'+ return result'+ ) (do+ freeMem filename'+ )++-- method Pixbuf::new_from_file_at_scale+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_file_at_scale" gdk_pixbuf_new_from_file_at_scale :: + CString -> -- filename : TBasicType TUTF8+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ CInt -> -- preserve_aspect_ratio : TBasicType TBoolean+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromFileAtScale ::+ (MonadIO m) =>+ T.Text -> -- filename+ Int32 -> -- width+ Int32 -> -- height+ Bool -> -- preserve_aspect_ratio+ m Pixbuf+pixbufNewFromFileAtScale filename width height preserve_aspect_ratio = liftIO $ do+ filename' <- textToCString filename+ let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_file_at_scale filename' width height preserve_aspect_ratio'+ result' <- (wrapObject Pixbuf) result+ freeMem filename'+ return result'+ ) (do+ freeMem filename'+ )++-- method Pixbuf::new_from_file_at_size+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_file_at_size" gdk_pixbuf_new_from_file_at_size :: + CString -> -- filename : TBasicType TUTF8+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromFileAtSize ::+ (MonadIO m) =>+ T.Text -> -- filename+ Int32 -> -- width+ Int32 -> -- height+ m Pixbuf+pixbufNewFromFileAtSize filename width height = liftIO $ do+ filename' <- textToCString filename+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_file_at_size filename' width height+ result' <- (wrapObject Pixbuf) result+ freeMem filename'+ return result'+ ) (do+ freeMem filename'+ )++-- method Pixbuf::new_from_inline+-- method type : Constructor+-- Args : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_inline" gdk_pixbuf_new_from_inline :: + Int32 -> -- data_length : TBasicType TInt32+ Ptr Word8 -> -- data : TCArray False (-1) 0 (TBasicType TUInt8)+ CInt -> -- copy_pixels : TBasicType TBoolean+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)++{-# DEPRECATED pixbufNewFromInline ["(Since version 2.32)","Use #GResource instead."]#-}+pixbufNewFromInline ::+ (MonadIO m) =>+ ByteString -> -- data+ Bool -> -- copy_pixels+ m Pixbuf+pixbufNewFromInline data_ copy_pixels = liftIO $ do+ let data_length = fromIntegral $ B.length data_+ data_' <- packByteString data_+ let copy_pixels' = (fromIntegral . fromEnum) copy_pixels+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_inline data_length data_' copy_pixels'+ result' <- (wrapObject Pixbuf) result+ freeMem data_'+ return result'+ ) (do+ freeMem data_'+ )++-- method Pixbuf::new_from_resource+-- method type : Constructor+-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_resource" gdk_pixbuf_new_from_resource :: + CString -> -- resource_path : TBasicType TUTF8+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromResource ::+ (MonadIO m) =>+ T.Text -> -- resource_path+ m Pixbuf+pixbufNewFromResource resource_path = liftIO $ do+ resource_path' <- textToCString resource_path+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_resource resource_path'+ result' <- (wrapObject Pixbuf) result+ freeMem resource_path'+ return result'+ ) (do+ freeMem resource_path'+ )++-- method Pixbuf::new_from_resource_at_scale+-- method type : Constructor+-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_resource_at_scale" gdk_pixbuf_new_from_resource_at_scale :: + CString -> -- resource_path : TBasicType TUTF8+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ CInt -> -- preserve_aspect_ratio : TBasicType TBoolean+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromResourceAtScale ::+ (MonadIO m) =>+ T.Text -> -- resource_path+ Int32 -> -- width+ Int32 -> -- height+ Bool -> -- preserve_aspect_ratio+ m Pixbuf+pixbufNewFromResourceAtScale resource_path width height preserve_aspect_ratio = liftIO $ do+ resource_path' <- textToCString resource_path+ let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_resource_at_scale resource_path' width height preserve_aspect_ratio'+ result' <- (wrapObject Pixbuf) result+ freeMem resource_path'+ return result'+ ) (do+ freeMem resource_path'+ )++-- method Pixbuf::new_from_stream+-- method type : Constructor+-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_stream" gdk_pixbuf_new_from_stream :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"+ Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromStream ::+ (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>+ a -> -- stream+ Maybe (b) -> -- cancellable+ m Pixbuf+pixbufNewFromStream stream cancellable = liftIO $ do+ let stream' = unsafeManagedPtrCastPtr stream+ maybeCancellable <- case cancellable of+ Nothing -> return nullPtr+ Just jCancellable -> do+ let jCancellable' = unsafeManagedPtrCastPtr jCancellable+ return jCancellable'+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_stream stream' maybeCancellable+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr stream+ whenJust cancellable touchManagedPtr+ return result'+ ) (do+ return ()+ )++-- method Pixbuf::new_from_stream_at_scale+-- method type : Constructor+-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_stream_at_scale" gdk_pixbuf_new_from_stream_at_scale :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ CInt -> -- preserve_aspect_ratio : TBasicType TBoolean+ Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromStreamAtScale ::+ (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>+ a -> -- stream+ Int32 -> -- width+ Int32 -> -- height+ Bool -> -- preserve_aspect_ratio+ Maybe (b) -> -- cancellable+ m Pixbuf+pixbufNewFromStreamAtScale stream width height preserve_aspect_ratio cancellable = liftIO $ do+ let stream' = unsafeManagedPtrCastPtr stream+ let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio+ maybeCancellable <- case cancellable of+ Nothing -> return nullPtr+ Just jCancellable -> do+ let jCancellable' = unsafeManagedPtrCastPtr jCancellable+ return jCancellable'+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_stream_at_scale stream' width height preserve_aspect_ratio' maybeCancellable+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr stream+ whenJust cancellable touchManagedPtr+ return result'+ ) (do+ return ()+ )++-- method Pixbuf::new_from_stream_finish+-- method type : Constructor+-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_stream_finish" gdk_pixbuf_new_from_stream_finish :: + Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult"+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)+++pixbufNewFromStreamFinish ::+ (MonadIO m, Gio.AsyncResultK a) =>+ a -> -- async_result+ m Pixbuf+pixbufNewFromStreamFinish async_result = liftIO $ do+ let async_result' = unsafeManagedPtrCastPtr async_result+ onException (do+ result <- propagateGError $ gdk_pixbuf_new_from_stream_finish async_result'+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr async_result+ return result'+ ) (do+ return ()+ )++-- method Pixbuf::new_from_xpm_data+-- method type : Constructor+-- Args : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_xpm_data" gdk_pixbuf_new_from_xpm_data :: + Ptr CString -> -- data : TCArray True (-1) (-1) (TBasicType TUTF8)+ IO (Ptr Pixbuf)+++pixbufNewFromXpmData ::+ (MonadIO m) =>+ [T.Text] -> -- data+ m Pixbuf+pixbufNewFromXpmData data_ = liftIO $ do+ data_' <- packZeroTerminatedUTF8CArray data_+ result <- gdk_pixbuf_new_from_xpm_data data_'+ result' <- (wrapObject Pixbuf) result+ mapZeroTerminatedCArray freeMem data_'+ freeMem data_'+ return result'++-- method Pixbuf::add_alpha+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_add_alpha" gdk_pixbuf_add_alpha :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ CInt -> -- substitute_color : TBasicType TBoolean+ Word8 -> -- r : TBasicType TUInt8+ Word8 -> -- g : TBasicType TUInt8+ Word8 -> -- b : TBasicType TUInt8+ IO (Ptr Pixbuf)+++pixbufAddAlpha ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ Bool -> -- substitute_color+ Word8 -> -- r+ Word8 -> -- g+ Word8 -> -- b+ m Pixbuf+pixbufAddAlpha _obj substitute_color r g b = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let substitute_color' = (fromIntegral . fromEnum) substitute_color+ result <- gdk_pixbuf_add_alpha _obj' substitute_color' r g b+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::apply_embedded_orientation+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_apply_embedded_orientation" gdk_pixbuf_apply_embedded_orientation :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO (Ptr Pixbuf)+++pixbufApplyEmbeddedOrientation ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Pixbuf+pixbufApplyEmbeddedOrientation _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_apply_embedded_orientation _obj'+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::composite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_composite" gdk_pixbuf_composite :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- dest_x : TBasicType TInt32+ Int32 -> -- dest_y : TBasicType TInt32+ Int32 -> -- dest_width : TBasicType TInt32+ Int32 -> -- dest_height : TBasicType TInt32+ CDouble -> -- offset_x : TBasicType TDouble+ CDouble -> -- offset_y : TBasicType TDouble+ CDouble -> -- scale_x : TBasicType TDouble+ CDouble -> -- scale_y : TBasicType TDouble+ CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"+ Int32 -> -- overall_alpha : TBasicType TInt32+ IO ()+++pixbufComposite ::+ (MonadIO m, PixbufK a, PixbufK b) =>+ a -> -- _obj+ b -> -- dest+ Int32 -> -- dest_x+ Int32 -> -- dest_y+ Int32 -> -- dest_width+ Int32 -> -- dest_height+ Double -> -- offset_x+ Double -> -- offset_y+ Double -> -- scale_x+ Double -> -- scale_y+ InterpType -> -- interp_type+ Int32 -> -- overall_alpha+ m ()+pixbufComposite _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let dest' = unsafeManagedPtrCastPtr dest+ let offset_x' = realToFrac offset_x+ let offset_y' = realToFrac offset_y+ let scale_x' = realToFrac scale_x+ let scale_y' = realToFrac scale_y+ let interp_type' = (fromIntegral . fromEnum) interp_type+ gdk_pixbuf_composite _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha+ touchManagedPtr _obj+ touchManagedPtr dest+ return ()++-- method Pixbuf::composite_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_composite_color" gdk_pixbuf_composite_color :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- dest_x : TBasicType TInt32+ Int32 -> -- dest_y : TBasicType TInt32+ Int32 -> -- dest_width : TBasicType TInt32+ Int32 -> -- dest_height : TBasicType TInt32+ CDouble -> -- offset_x : TBasicType TDouble+ CDouble -> -- offset_y : TBasicType TDouble+ CDouble -> -- scale_x : TBasicType TDouble+ CDouble -> -- scale_y : TBasicType TDouble+ CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"+ Int32 -> -- overall_alpha : TBasicType TInt32+ Int32 -> -- check_x : TBasicType TInt32+ Int32 -> -- check_y : TBasicType TInt32+ Int32 -> -- check_size : TBasicType TInt32+ Word32 -> -- color1 : TBasicType TUInt32+ Word32 -> -- color2 : TBasicType TUInt32+ IO ()+++pixbufCompositeColor ::+ (MonadIO m, PixbufK a, PixbufK b) =>+ a -> -- _obj+ b -> -- dest+ Int32 -> -- dest_x+ Int32 -> -- dest_y+ Int32 -> -- dest_width+ Int32 -> -- dest_height+ Double -> -- offset_x+ Double -> -- offset_y+ Double -> -- scale_x+ Double -> -- scale_y+ InterpType -> -- interp_type+ Int32 -> -- overall_alpha+ Int32 -> -- check_x+ Int32 -> -- check_y+ Int32 -> -- check_size+ Word32 -> -- color1+ Word32 -> -- color2+ m ()+pixbufCompositeColor _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha check_x check_y check_size color1 color2 = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let dest' = unsafeManagedPtrCastPtr dest+ let offset_x' = realToFrac offset_x+ let offset_y' = realToFrac offset_y+ let scale_x' = realToFrac scale_x+ let scale_y' = realToFrac scale_y+ let interp_type' = (fromIntegral . fromEnum) interp_type+ gdk_pixbuf_composite_color _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha check_x check_y check_size color1 color2+ touchManagedPtr _obj+ touchManagedPtr dest+ return ()++-- method Pixbuf::composite_color_simple+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_composite_color_simple" gdk_pixbuf_composite_color_simple :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- dest_width : TBasicType TInt32+ Int32 -> -- dest_height : TBasicType TInt32+ CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"+ Int32 -> -- overall_alpha : TBasicType TInt32+ Int32 -> -- check_size : TBasicType TInt32+ Word32 -> -- color1 : TBasicType TUInt32+ Word32 -> -- color2 : TBasicType TUInt32+ IO (Ptr Pixbuf)+++pixbufCompositeColorSimple ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ Int32 -> -- dest_width+ Int32 -> -- dest_height+ InterpType -> -- interp_type+ Int32 -> -- overall_alpha+ Int32 -> -- check_size+ Word32 -> -- color1+ Word32 -> -- color2+ m Pixbuf+pixbufCompositeColorSimple _obj dest_width dest_height interp_type overall_alpha check_size color1 color2 = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let interp_type' = (fromIntegral . fromEnum) interp_type+ result <- gdk_pixbuf_composite_color_simple _obj' dest_width dest_height interp_type' overall_alpha check_size color1 color2+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_copy" gdk_pixbuf_copy :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO (Ptr Pixbuf)+++pixbufCopy ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Pixbuf+pixbufCopy _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_copy _obj'+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::copy_area+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_copy_area" gdk_pixbuf_copy_area :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- src_x : TBasicType TInt32+ Int32 -> -- src_y : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ Ptr Pixbuf -> -- dest_pixbuf : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- dest_x : TBasicType TInt32+ Int32 -> -- dest_y : TBasicType TInt32+ IO ()+++pixbufCopyArea ::+ (MonadIO m, PixbufK a, PixbufK b) =>+ a -> -- _obj+ Int32 -> -- src_x+ Int32 -> -- src_y+ Int32 -> -- width+ Int32 -> -- height+ b -> -- dest_pixbuf+ Int32 -> -- dest_x+ Int32 -> -- dest_y+ m ()+pixbufCopyArea _obj src_x src_y width height dest_pixbuf dest_x dest_y = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let dest_pixbuf' = unsafeManagedPtrCastPtr dest_pixbuf+ gdk_pixbuf_copy_area _obj' src_x src_y width height dest_pixbuf' dest_x dest_y+ touchManagedPtr _obj+ touchManagedPtr dest_pixbuf+ return ()++-- method Pixbuf::fill+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_fill" gdk_pixbuf_fill :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Word32 -> -- pixel : TBasicType TUInt32+ IO ()+++pixbufFill ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ Word32 -> -- pixel+ m ()+pixbufFill _obj pixel = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ gdk_pixbuf_fill _obj' pixel+ touchManagedPtr _obj+ return ()++-- method Pixbuf::flip+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_flip" gdk_pixbuf_flip :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ CInt -> -- horizontal : TBasicType TBoolean+ IO (Ptr Pixbuf)+++pixbufFlip ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ Bool -> -- horizontal+ m Pixbuf+pixbufFlip _obj horizontal = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let horizontal' = (fromIntegral . fromEnum) horizontal+ result <- gdk_pixbuf_flip _obj' horizontal'+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::get_bits_per_sample+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_bits_per_sample" gdk_pixbuf_get_bits_per_sample :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO Int32+++pixbufGetBitsPerSample ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Int32+pixbufGetBitsPerSample _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_bits_per_sample _obj'+ touchManagedPtr _obj+ return result++-- method Pixbuf::get_byte_length+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt64+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_byte_length" gdk_pixbuf_get_byte_length :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO Word64+++pixbufGetByteLength ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Word64+pixbufGetByteLength _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_byte_length _obj'+ touchManagedPtr _obj+ return result++-- method Pixbuf::get_colorspace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Colorspace"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_colorspace" gdk_pixbuf_get_colorspace :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO CUInt+++pixbufGetColorspace ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Colorspace+pixbufGetColorspace _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_colorspace _obj'+ let result' = (toEnum . fromIntegral) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::get_has_alpha+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_has_alpha" gdk_pixbuf_get_has_alpha :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO CInt+++pixbufGetHasAlpha ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Bool+pixbufGetHasAlpha _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_has_alpha _obj'+ let result' = (/= 0) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_height" gdk_pixbuf_get_height :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO Int32+++pixbufGetHeight ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Int32+pixbufGetHeight _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_height _obj'+ touchManagedPtr _obj+ return result++-- method Pixbuf::get_n_channels+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_n_channels" gdk_pixbuf_get_n_channels :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO Int32+++pixbufGetNChannels ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Int32+pixbufGetNChannels _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_n_channels _obj'+ touchManagedPtr _obj+ return result++-- method Pixbuf::get_option+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_option" gdk_pixbuf_get_option :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ CString -> -- key : TBasicType TUTF8+ IO CString+++pixbufGetOption ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ T.Text -> -- key+ m T.Text+pixbufGetOption _obj key = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ key' <- textToCString key+ result <- gdk_pixbuf_get_option _obj' key'+ result' <- cstringToText result+ touchManagedPtr _obj+ freeMem key'+ return result'++-- XXX Could not generate method Pixbuf::get_options+-- Error was : Not implemented: "Hash table argument with transfer = Container? result"+-- method Pixbuf::get_pixels+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 1 (TBasicType TUInt8)+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_pixels_with_length" gdk_pixbuf_get_pixels_with_length :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Ptr Word32 -> -- length : TBasicType TUInt32+ IO (Ptr Word8)+++pixbufGetPixels ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m ByteString+pixbufGetPixels _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ length_ <- allocMem :: IO (Ptr Word32)+ result <- gdk_pixbuf_get_pixels_with_length _obj' length_+ length_' <- peek length_+ result' <- (unpackByteStringWithLength length_') result+ touchManagedPtr _obj+ freeMem length_+ return result'++-- method Pixbuf::get_rowstride+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_rowstride" gdk_pixbuf_get_rowstride :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO Int32+++pixbufGetRowstride ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Int32+pixbufGetRowstride _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_rowstride _obj'+ touchManagedPtr _obj+ return result++-- method Pixbuf::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_width" gdk_pixbuf_get_width :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO Int32+++pixbufGetWidth ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Int32+pixbufGetWidth _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_get_width _obj'+ touchManagedPtr _obj+ return result++-- method Pixbuf::new_subpixbuf+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_subpixbuf" gdk_pixbuf_new_subpixbuf :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- src_x : TBasicType TInt32+ Int32 -> -- src_y : TBasicType TInt32+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ IO (Ptr Pixbuf)+++pixbufNewSubpixbuf ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ Int32 -> -- src_x+ Int32 -> -- src_y+ Int32 -> -- width+ Int32 -> -- height+ m Pixbuf+pixbufNewSubpixbuf _obj src_x src_y width height = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_new_subpixbuf _obj' src_x src_y width height+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::read_pixel_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "Bytes"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_read_pixel_bytes" gdk_pixbuf_read_pixel_bytes :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO (Ptr GLib.Bytes)+++pixbufReadPixelBytes ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m GLib.Bytes+pixbufReadPixelBytes _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_read_pixel_bytes _obj'+ result' <- (wrapBoxed GLib.Bytes) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::read_pixels+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_read_pixels" gdk_pixbuf_read_pixels :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ IO Word8+++pixbufReadPixels ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ m Word8+pixbufReadPixels _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_read_pixels _obj'+ touchManagedPtr _obj+ return result++-- method Pixbuf::rotate_simple+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_rotate_simple" gdk_pixbuf_rotate_simple :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ CUInt -> -- angle : TInterface "GdkPixbuf" "PixbufRotation"+ IO (Ptr Pixbuf)+++pixbufRotateSimple ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ PixbufRotation -> -- angle+ m Pixbuf+pixbufRotateSimple _obj angle = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let angle' = (fromIntegral . fromEnum) angle+ result <- gdk_pixbuf_rotate_simple _obj' angle'+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::saturate_and_pixelate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_saturate_and_pixelate" gdk_pixbuf_saturate_and_pixelate :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"+ CFloat -> -- saturation : TBasicType TFloat+ CInt -> -- pixelate : TBasicType TBoolean+ IO ()+++pixbufSaturateAndPixelate ::+ (MonadIO m, PixbufK a, PixbufK b) =>+ a -> -- _obj+ b -> -- dest+ Float -> -- saturation+ Bool -> -- pixelate+ m ()+pixbufSaturateAndPixelate _obj dest saturation pixelate = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let dest' = unsafeManagedPtrCastPtr dest+ let saturation' = realToFrac saturation+ let pixelate' = (fromIntegral . fromEnum) pixelate+ gdk_pixbuf_saturate_and_pixelate _obj' dest' saturation' pixelate'+ touchManagedPtr _obj+ touchManagedPtr dest+ return ()++-- method Pixbuf::save_to_bufferv+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_save_to_bufferv" gdk_pixbuf_save_to_bufferv :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Ptr (Ptr Word8) -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)+ Ptr Word64 -> -- buffer_size : TBasicType TUInt64+ CString -> -- type : TBasicType TUTF8+ Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8)+ Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8)+ Ptr (Ptr GError) -> -- error+ IO CInt+++pixbufSaveToBufferv ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ T.Text -> -- type+ [T.Text] -> -- option_keys+ [T.Text] -> -- option_values+ m (ByteString)+pixbufSaveToBufferv _obj type_ option_keys option_values = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ buffer <- allocMem :: IO (Ptr (Ptr Word8))+ buffer_size <- allocMem :: IO (Ptr Word64)+ type_' <- textToCString type_+ option_keys' <- packZeroTerminatedUTF8CArray option_keys+ option_values' <- packZeroTerminatedUTF8CArray option_values+ onException (do+ _ <- propagateGError $ gdk_pixbuf_save_to_bufferv _obj' buffer buffer_size type_' option_keys' option_values'+ buffer_size' <- peek buffer_size+ buffer' <- peek buffer+ buffer'' <- (unpackByteStringWithLength buffer_size') buffer'+ freeMem buffer'+ touchManagedPtr _obj+ freeMem buffer+ freeMem buffer_size+ freeMem type_'+ mapZeroTerminatedCArray freeMem option_keys'+ freeMem option_keys'+ mapZeroTerminatedCArray freeMem option_values'+ freeMem option_values'+ return buffer''+ ) (do+ freeMem buffer+ freeMem buffer_size+ freeMem type_'+ mapZeroTerminatedCArray freeMem option_keys'+ freeMem option_keys'+ mapZeroTerminatedCArray freeMem option_values'+ freeMem option_values'+ )++-- method Pixbuf::save_to_callbackv+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_save_to_callbackv" gdk_pixbuf_save_to_callbackv :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ FunPtr PixbufSaveFuncC -> -- save_func : TInterface "GdkPixbuf" "PixbufSaveFunc"+ Ptr () -> -- user_data : TBasicType TVoid+ CString -> -- type : TBasicType TUTF8+ Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8)+ Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8)+ Ptr (Ptr GError) -> -- error+ IO CInt+++pixbufSaveToCallbackv ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ PixbufSaveFunc -> -- save_func+ T.Text -> -- type+ [T.Text] -> -- option_keys+ [T.Text] -> -- option_values+ m ()+pixbufSaveToCallbackv _obj save_func type_ option_keys option_values = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ save_func' <- mkPixbufSaveFunc (pixbufSaveFuncWrapper Nothing save_func)+ type_' <- textToCString type_+ option_keys' <- packZeroTerminatedUTF8CArray option_keys+ option_values' <- packZeroTerminatedUTF8CArray option_values+ let user_data = nullPtr+ onException (do+ _ <- propagateGError $ gdk_pixbuf_save_to_callbackv _obj' save_func' user_data type_' option_keys' option_values'+ safeFreeFunPtr $ castFunPtrToPtr save_func'+ touchManagedPtr _obj+ freeMem type_'+ mapZeroTerminatedCArray freeMem option_keys'+ freeMem option_keys'+ mapZeroTerminatedCArray freeMem option_values'+ freeMem option_values'+ return ()+ ) (do+ safeFreeFunPtr $ castFunPtrToPtr save_func'+ freeMem type_'+ mapZeroTerminatedCArray freeMem option_keys'+ freeMem option_keys'+ mapZeroTerminatedCArray freeMem option_values'+ freeMem option_values'+ )++-- method Pixbuf::savev+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_savev" gdk_pixbuf_savev :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ CString -> -- filename : TBasicType TUTF8+ CString -> -- type : TBasicType TUTF8+ Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8)+ Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8)+ Ptr (Ptr GError) -> -- error+ IO CInt+++pixbufSavev ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ T.Text -> -- filename+ T.Text -> -- type+ [T.Text] -> -- option_keys+ [T.Text] -> -- option_values+ m ()+pixbufSavev _obj filename type_ option_keys option_values = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ filename' <- textToCString filename+ type_' <- textToCString type_+ option_keys' <- packZeroTerminatedUTF8CArray option_keys+ option_values' <- packZeroTerminatedUTF8CArray option_values+ onException (do+ _ <- propagateGError $ gdk_pixbuf_savev _obj' filename' type_' option_keys' option_values'+ touchManagedPtr _obj+ freeMem filename'+ freeMem type_'+ mapZeroTerminatedCArray freeMem option_keys'+ freeMem option_keys'+ mapZeroTerminatedCArray freeMem option_values'+ freeMem option_values'+ return ()+ ) (do+ freeMem filename'+ freeMem type_'+ mapZeroTerminatedCArray freeMem option_keys'+ freeMem option_keys'+ mapZeroTerminatedCArray freeMem option_values'+ freeMem option_values'+ )++-- method Pixbuf::scale+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_scale" gdk_pixbuf_scale :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- dest_x : TBasicType TInt32+ Int32 -> -- dest_y : TBasicType TInt32+ Int32 -> -- dest_width : TBasicType TInt32+ Int32 -> -- dest_height : TBasicType TInt32+ CDouble -> -- offset_x : TBasicType TDouble+ CDouble -> -- offset_y : TBasicType TDouble+ CDouble -> -- scale_x : TBasicType TDouble+ CDouble -> -- scale_y : TBasicType TDouble+ CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"+ IO ()+++pixbufScale ::+ (MonadIO m, PixbufK a, PixbufK b) =>+ a -> -- _obj+ b -> -- dest+ Int32 -> -- dest_x+ Int32 -> -- dest_y+ Int32 -> -- dest_width+ Int32 -> -- dest_height+ Double -> -- offset_x+ Double -> -- offset_y+ Double -> -- scale_x+ Double -> -- scale_y+ InterpType -> -- interp_type+ m ()+pixbufScale _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let dest' = unsafeManagedPtrCastPtr dest+ let offset_x' = realToFrac offset_x+ let offset_y' = realToFrac offset_y+ let scale_x' = realToFrac scale_x+ let scale_y' = realToFrac scale_y+ let interp_type' = (fromIntegral . fromEnum) interp_type+ gdk_pixbuf_scale _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type'+ touchManagedPtr _obj+ touchManagedPtr dest+ return ()++-- method Pixbuf::scale_simple+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_scale_simple" gdk_pixbuf_scale_simple :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf"+ Int32 -> -- dest_width : TBasicType TInt32+ Int32 -> -- dest_height : TBasicType TInt32+ CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType"+ IO (Ptr Pixbuf)+++pixbufScaleSimple ::+ (MonadIO m, PixbufK a) =>+ a -> -- _obj+ Int32 -> -- dest_width+ Int32 -> -- dest_height+ InterpType -> -- interp_type+ m Pixbuf+pixbufScaleSimple _obj dest_width dest_height interp_type = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let interp_type' = (fromIntegral . fromEnum) interp_type+ result <- gdk_pixbuf_scale_simple _obj' dest_width dest_height interp_type'+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method Pixbuf::from_pixdata+-- method type : MemberFunction+-- Args : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_from_pixdata" gdk_pixbuf_from_pixdata :: + Ptr Pixdata -> -- pixdata : TInterface "GdkPixbuf" "Pixdata"+ CInt -> -- copy_pixels : TBasicType TBoolean+ Ptr (Ptr GError) -> -- error+ IO (Ptr Pixbuf)++{-# DEPRECATED pixbufFromPixdata ["(Since version 2.32)","Use #GResource instead."]#-}+pixbufFromPixdata ::+ (MonadIO m) =>+ Pixdata -> -- pixdata+ Bool -> -- copy_pixels+ m Pixbuf+pixbufFromPixdata pixdata copy_pixels = liftIO $ do+ let pixdata' = unsafeManagedPtrGetPtr pixdata+ let copy_pixels' = (fromIntegral . fromEnum) copy_pixels+ onException (do+ result <- propagateGError $ gdk_pixbuf_from_pixdata pixdata' copy_pixels'+ result' <- (wrapObject Pixbuf) result+ touchManagedPtr pixdata+ return result'+ ) (do+ return ()+ )++-- method Pixbuf::get_file_info+-- method type : MemberFunction+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufFormat"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_file_info" gdk_pixbuf_get_file_info :: + CString -> -- filename : TBasicType TUTF8+ Ptr Int32 -> -- width : TBasicType TInt32+ Ptr Int32 -> -- height : TBasicType TInt32+ IO (Ptr PixbufFormat)+++pixbufGetFileInfo ::+ (MonadIO m) =>+ T.Text -> -- filename+ m (PixbufFormat,Int32,Int32)+pixbufGetFileInfo filename = liftIO $ do+ filename' <- textToCString filename+ width <- allocMem :: IO (Ptr Int32)+ height <- allocMem :: IO (Ptr Int32)+ result <- gdk_pixbuf_get_file_info filename' width height+ result' <- (newBoxed PixbufFormat) result+ width' <- peek width+ height' <- peek height+ freeMem filename'+ freeMem width+ freeMem height+ return (result', width', height')++-- method Pixbuf::get_file_info_async+-- method type : MemberFunction+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_file_info_async" gdk_pixbuf_get_file_info_async :: + CString -> -- filename : TBasicType TUTF8+ Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"+ FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"+ Ptr () -> -- user_data : TBasicType TVoid+ IO ()+++pixbufGetFileInfoAsync ::+ (MonadIO m, Gio.CancellableK a) =>+ T.Text -> -- filename+ Maybe (a) -> -- cancellable+ Maybe (Gio.AsyncReadyCallback) -> -- callback+ m ()+pixbufGetFileInfoAsync filename cancellable callback = liftIO $ do+ filename' <- textToCString filename+ maybeCancellable <- case cancellable of+ Nothing -> return nullPtr+ Just jCancellable -> do+ let jCancellable' = unsafeManagedPtrCastPtr jCancellable+ return jCancellable'+ ptrcallback <- callocBytes $ sizeOf (undefined :: FunPtr Gio.AsyncReadyCallbackC)+ maybeCallback <- case callback of+ Nothing -> return (castPtrToFunPtr nullPtr)+ Just jCallback -> do+ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+ poke ptrcallback jCallback'+ return jCallback'+ let user_data = nullPtr+ gdk_pixbuf_get_file_info_async filename' maybeCancellable maybeCallback user_data+ whenJust cancellable touchManagedPtr+ freeMem filename'+ return ()++-- method Pixbuf::get_file_info_finish+-- method type : MemberFunction+-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufFormat"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_file_info_finish" gdk_pixbuf_get_file_info_finish :: + Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult"+ Ptr Int32 -> -- width : TBasicType TInt32+ Ptr Int32 -> -- height : TBasicType TInt32+ Ptr (Ptr GError) -> -- error+ IO (Ptr PixbufFormat)+++pixbufGetFileInfoFinish ::+ (MonadIO m, Gio.AsyncResultK a) =>+ a -> -- async_result+ m (PixbufFormat,Int32,Int32)+pixbufGetFileInfoFinish async_result = liftIO $ do+ let async_result' = unsafeManagedPtrCastPtr async_result+ width <- allocMem :: IO (Ptr Int32)+ height <- allocMem :: IO (Ptr Int32)+ onException (do+ result <- propagateGError $ gdk_pixbuf_get_file_info_finish async_result' width height+ result' <- (newBoxed PixbufFormat) result+ width' <- peek width+ height' <- peek height+ touchManagedPtr async_result+ freeMem width+ freeMem height+ return (result', width', height')+ ) (do+ freeMem width+ freeMem height+ )++-- method Pixbuf::get_formats+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TGSList (TInterface "GdkPixbuf" "PixbufFormat")+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_get_formats" gdk_pixbuf_get_formats :: + IO (Ptr (GSList (Ptr PixbufFormat)))+++pixbufGetFormats ::+ (MonadIO m) =>+ m [PixbufFormat]+pixbufGetFormats = liftIO $ do+ result <- gdk_pixbuf_get_formats+ result' <- unpackGSList result+ result'' <- mapM (newBoxed PixbufFormat) result'+ g_slist_free result+ return result''++-- method Pixbuf::new_from_stream_async+-- method type : MemberFunction+-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_stream_async" gdk_pixbuf_new_from_stream_async :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"+ Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"+ FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"+ Ptr () -> -- user_data : TBasicType TVoid+ IO ()+++pixbufNewFromStreamAsync ::+ (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>+ a -> -- stream+ Maybe (b) -> -- cancellable+ Maybe (Gio.AsyncReadyCallback) -> -- callback+ m ()+pixbufNewFromStreamAsync stream cancellable callback = liftIO $ do+ let stream' = unsafeManagedPtrCastPtr stream+ maybeCancellable <- case cancellable of+ Nothing -> return nullPtr+ Just jCancellable -> do+ let jCancellable' = unsafeManagedPtrCastPtr jCancellable+ return jCancellable'+ ptrcallback <- callocBytes $ sizeOf (undefined :: FunPtr Gio.AsyncReadyCallbackC)+ maybeCallback <- case callback of+ Nothing -> return (castPtrToFunPtr nullPtr)+ Just jCallback -> do+ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+ poke ptrcallback jCallback'+ return jCallback'+ let user_data = nullPtr+ gdk_pixbuf_new_from_stream_async stream' maybeCancellable maybeCallback user_data+ touchManagedPtr stream+ whenJust cancellable touchManagedPtr+ return ()++-- method Pixbuf::new_from_stream_at_scale_async+-- method type : MemberFunction+-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_new_from_stream_at_scale_async" gdk_pixbuf_new_from_stream_at_scale_async :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"+ Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ CInt -> -- preserve_aspect_ratio : TBasicType TBoolean+ Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"+ FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"+ Ptr () -> -- user_data : TBasicType TVoid+ IO ()+++pixbufNewFromStreamAtScaleAsync ::+ (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>+ a -> -- stream+ Int32 -> -- width+ Int32 -> -- height+ Bool -> -- preserve_aspect_ratio+ Maybe (b) -> -- cancellable+ Maybe (Gio.AsyncReadyCallback) -> -- callback+ m ()+pixbufNewFromStreamAtScaleAsync stream width height preserve_aspect_ratio cancellable callback = liftIO $ do+ let stream' = unsafeManagedPtrCastPtr stream+ let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio+ maybeCancellable <- case cancellable of+ Nothing -> return nullPtr+ Just jCancellable -> do+ let jCancellable' = unsafeManagedPtrCastPtr jCancellable+ return jCancellable'+ ptrcallback <- callocBytes $ sizeOf (undefined :: FunPtr Gio.AsyncReadyCallbackC)+ maybeCallback <- case callback of+ Nothing -> return (castPtrToFunPtr nullPtr)+ Just jCallback -> do+ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+ poke ptrcallback jCallback'+ return jCallback'+ let user_data = nullPtr+ gdk_pixbuf_new_from_stream_at_scale_async stream' width height preserve_aspect_ratio' maybeCancellable maybeCallback user_data+ touchManagedPtr stream+ whenJust cancellable touchManagedPtr+ return ()++-- method Pixbuf::save_to_stream_finish+-- method type : MemberFunction+-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_save_to_stream_finish" gdk_pixbuf_save_to_stream_finish :: + Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult"+ Ptr (Ptr GError) -> -- error+ IO CInt+++pixbufSaveToStreamFinish ::+ (MonadIO m, Gio.AsyncResultK a) =>+ a -> -- async_result+ m ()+pixbufSaveToStreamFinish async_result = liftIO $ do+ let async_result' = unsafeManagedPtrCastPtr async_result+ onException (do+ _ <- propagateGError $ gdk_pixbuf_save_to_stream_finish async_result'+ touchManagedPtr async_result+ return ()+ ) (do+ return ()+ )++-- Enum PixbufAlphaMode++data PixbufAlphaMode = + PixbufAlphaModeBilevel+ | PixbufAlphaModeFull+ | AnotherPixbufAlphaMode Int+ deriving (Show, Eq)++instance Enum PixbufAlphaMode where+ fromEnum PixbufAlphaModeBilevel = 0+ fromEnum PixbufAlphaModeFull = 1+ fromEnum (AnotherPixbufAlphaMode k) = k++ toEnum 0 = PixbufAlphaModeBilevel+ toEnum 1 = PixbufAlphaModeFull+ toEnum k = AnotherPixbufAlphaMode k++foreign import ccall "gdk_pixbuf_alpha_mode_get_type" c_gdk_pixbuf_alpha_mode_get_type :: + IO GType++instance BoxedEnum PixbufAlphaMode where+ boxedEnumType _ = c_gdk_pixbuf_alpha_mode_get_type++-- object PixbufAnimation +newtype PixbufAnimation = PixbufAnimation (ForeignPtr PixbufAnimation)+noPixbufAnimation :: Maybe PixbufAnimation+noPixbufAnimation = Nothing++foreign import ccall "gdk_pixbuf_animation_get_type"+ c_gdk_pixbuf_animation_get_type :: IO GType++type instance ParentTypes PixbufAnimation = '[GObject.Object]++instance GObject PixbufAnimation where+ gobjectIsInitiallyUnowned _ = False+ gobjectType _ = c_gdk_pixbuf_animation_get_type+ ++class GObject o => PixbufAnimationK o+instance (GObject o, IsDescendantOf PixbufAnimation o) => PixbufAnimationK o++toPixbufAnimation :: PixbufAnimationK o => o -> IO PixbufAnimation+toPixbufAnimation = unsafeCastTo PixbufAnimation++-- method PixbufAnimation::new_from_file+-- method type : Constructor+-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufAnimation"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_new_from_file" gdk_pixbuf_animation_new_from_file :: + CString -> -- filename : TBasicType TUTF8+ Ptr (Ptr GError) -> -- error+ IO (Ptr PixbufAnimation)+++pixbufAnimationNewFromFile ::+ (MonadIO m) =>+ T.Text -> -- filename+ m PixbufAnimation+pixbufAnimationNewFromFile filename = liftIO $ do+ filename' <- textToCString filename+ onException (do+ result <- propagateGError $ gdk_pixbuf_animation_new_from_file filename'+ result' <- (wrapObject PixbufAnimation) result+ freeMem filename'+ return result'+ ) (do+ freeMem filename'+ )++-- method PixbufAnimation::new_from_resource+-- method type : Constructor+-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufAnimation"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_new_from_resource" gdk_pixbuf_animation_new_from_resource :: + CString -> -- resource_path : TBasicType TUTF8+ Ptr (Ptr GError) -> -- error+ IO (Ptr PixbufAnimation)+++pixbufAnimationNewFromResource ::+ (MonadIO m) =>+ T.Text -> -- resource_path+ m PixbufAnimation+pixbufAnimationNewFromResource resource_path = liftIO $ do+ resource_path' <- textToCString resource_path+ onException (do+ result <- propagateGError $ gdk_pixbuf_animation_new_from_resource resource_path'+ result' <- (wrapObject PixbufAnimation) result+ freeMem resource_path'+ return result'+ ) (do+ freeMem resource_path'+ )++-- method PixbufAnimation::new_from_stream+-- method type : Constructor+-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufAnimation"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_new_from_stream" gdk_pixbuf_animation_new_from_stream :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"+ Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"+ Ptr (Ptr GError) -> -- error+ IO (Ptr PixbufAnimation)+++pixbufAnimationNewFromStream ::+ (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>+ a -> -- stream+ Maybe (b) -> -- cancellable+ m PixbufAnimation+pixbufAnimationNewFromStream stream cancellable = liftIO $ do+ let stream' = unsafeManagedPtrCastPtr stream+ maybeCancellable <- case cancellable of+ Nothing -> return nullPtr+ Just jCancellable -> do+ let jCancellable' = unsafeManagedPtrCastPtr jCancellable+ return jCancellable'+ onException (do+ result <- propagateGError $ gdk_pixbuf_animation_new_from_stream stream' maybeCancellable+ result' <- (wrapObject PixbufAnimation) result+ touchManagedPtr stream+ whenJust cancellable touchManagedPtr+ return result'+ ) (do+ return ()+ )++-- method PixbufAnimation::new_from_stream_finish+-- method type : Constructor+-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufAnimation"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_new_from_stream_finish" gdk_pixbuf_animation_new_from_stream_finish :: + Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult"+ Ptr (Ptr GError) -> -- error+ IO (Ptr PixbufAnimation)+++pixbufAnimationNewFromStreamFinish ::+ (MonadIO m, Gio.AsyncResultK a) =>+ a -> -- async_result+ m PixbufAnimation+pixbufAnimationNewFromStreamFinish async_result = liftIO $ do+ let async_result' = unsafeManagedPtrCastPtr async_result+ onException (do+ result <- propagateGError $ gdk_pixbuf_animation_new_from_stream_finish async_result'+ result' <- (wrapObject PixbufAnimation) result+ touchManagedPtr async_result+ return result'+ ) (do+ return ()+ )++-- method PixbufAnimation::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_get_height" gdk_pixbuf_animation_get_height :: + Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation"+ IO Int32+++pixbufAnimationGetHeight ::+ (MonadIO m, PixbufAnimationK a) =>+ a -> -- _obj+ m Int32+pixbufAnimationGetHeight _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_animation_get_height _obj'+ touchManagedPtr _obj+ return result++-- method PixbufAnimation::get_iter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufAnimationIter"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_get_iter" gdk_pixbuf_animation_get_iter :: + Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation"+ Ptr GLib.TimeVal -> -- start_time : TInterface "GLib" "TimeVal"+ IO (Ptr PixbufAnimationIter)+++pixbufAnimationGetIter ::+ (MonadIO m, PixbufAnimationK a) =>+ a -> -- _obj+ Maybe (GLib.TimeVal) -> -- start_time+ m PixbufAnimationIter+pixbufAnimationGetIter _obj start_time = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ maybeStart_time <- case start_time of+ Nothing -> return nullPtr+ Just jStart_time -> do+ let jStart_time' = unsafeManagedPtrGetPtr jStart_time+ return jStart_time'+ result <- gdk_pixbuf_animation_get_iter _obj' maybeStart_time+ result' <- (wrapObject PixbufAnimationIter) result+ touchManagedPtr _obj+ whenJust start_time touchManagedPtr+ return result'++-- method PixbufAnimation::get_static_image+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_get_static_image" gdk_pixbuf_animation_get_static_image :: + Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation"+ IO (Ptr Pixbuf)+++pixbufAnimationGetStaticImage ::+ (MonadIO m, PixbufAnimationK a) =>+ a -> -- _obj+ m Pixbuf+pixbufAnimationGetStaticImage _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_animation_get_static_image _obj'+ result' <- (newObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method PixbufAnimation::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_get_width" gdk_pixbuf_animation_get_width :: + Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation"+ IO Int32+++pixbufAnimationGetWidth ::+ (MonadIO m, PixbufAnimationK a) =>+ a -> -- _obj+ m Int32+pixbufAnimationGetWidth _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_animation_get_width _obj'+ touchManagedPtr _obj+ return result++-- method PixbufAnimation::is_static_image+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_is_static_image" gdk_pixbuf_animation_is_static_image :: + Ptr PixbufAnimation -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimation"+ IO CInt+++pixbufAnimationIsStaticImage ::+ (MonadIO m, PixbufAnimationK a) =>+ a -> -- _obj+ m Bool+pixbufAnimationIsStaticImage _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_animation_is_static_image _obj'+ let result' = (/= 0) result+ touchManagedPtr _obj+ return result'++-- method PixbufAnimation::new_from_stream_async+-- method type : MemberFunction+-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_new_from_stream_async" gdk_pixbuf_animation_new_from_stream_async :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream"+ Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"+ FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"+ Ptr () -> -- user_data : TBasicType TVoid+ IO ()+++pixbufAnimationNewFromStreamAsync ::+ (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>+ a -> -- stream+ Maybe (b) -> -- cancellable+ Maybe (Gio.AsyncReadyCallback) -> -- callback+ m ()+pixbufAnimationNewFromStreamAsync stream cancellable callback = liftIO $ do+ let stream' = unsafeManagedPtrCastPtr stream+ maybeCancellable <- case cancellable of+ Nothing -> return nullPtr+ Just jCancellable -> do+ let jCancellable' = unsafeManagedPtrCastPtr jCancellable+ return jCancellable'+ ptrcallback <- callocBytes $ sizeOf (undefined :: FunPtr Gio.AsyncReadyCallbackC)+ maybeCallback <- case callback of+ Nothing -> return (castPtrToFunPtr nullPtr)+ Just jCallback -> do+ jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)+ poke ptrcallback jCallback'+ return jCallback'+ let user_data = nullPtr+ gdk_pixbuf_animation_new_from_stream_async stream' maybeCancellable maybeCallback user_data+ touchManagedPtr stream+ whenJust cancellable touchManagedPtr+ return ()++-- object PixbufAnimationIter +newtype PixbufAnimationIter = PixbufAnimationIter (ForeignPtr PixbufAnimationIter)+noPixbufAnimationIter :: Maybe PixbufAnimationIter+noPixbufAnimationIter = Nothing++foreign import ccall "gdk_pixbuf_animation_iter_get_type"+ c_gdk_pixbuf_animation_iter_get_type :: IO GType++type instance ParentTypes PixbufAnimationIter = '[GObject.Object]++instance GObject PixbufAnimationIter where+ gobjectIsInitiallyUnowned _ = False+ gobjectType _ = c_gdk_pixbuf_animation_iter_get_type+ ++class GObject o => PixbufAnimationIterK o+instance (GObject o, IsDescendantOf PixbufAnimationIter o) => PixbufAnimationIterK o++toPixbufAnimationIter :: PixbufAnimationIterK o => o -> IO PixbufAnimationIter+toPixbufAnimationIter = unsafeCastTo PixbufAnimationIter++-- method PixbufAnimationIter::advance+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_iter_advance" gdk_pixbuf_animation_iter_advance :: + Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter"+ Ptr GLib.TimeVal -> -- current_time : TInterface "GLib" "TimeVal"+ IO CInt+++pixbufAnimationIterAdvance ::+ (MonadIO m, PixbufAnimationIterK a) =>+ a -> -- _obj+ Maybe (GLib.TimeVal) -> -- current_time+ m Bool+pixbufAnimationIterAdvance _obj current_time = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ maybeCurrent_time <- case current_time of+ Nothing -> return nullPtr+ Just jCurrent_time -> do+ let jCurrent_time' = unsafeManagedPtrGetPtr jCurrent_time+ return jCurrent_time'+ result <- gdk_pixbuf_animation_iter_advance _obj' maybeCurrent_time+ let result' = (/= 0) result+ touchManagedPtr _obj+ whenJust current_time touchManagedPtr+ return result'++-- method PixbufAnimationIter::get_delay_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_iter_get_delay_time" gdk_pixbuf_animation_iter_get_delay_time :: + Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter"+ IO Int32+++pixbufAnimationIterGetDelayTime ::+ (MonadIO m, PixbufAnimationIterK a) =>+ a -> -- _obj+ m Int32+pixbufAnimationIterGetDelayTime _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_animation_iter_get_delay_time _obj'+ touchManagedPtr _obj+ return result++-- method PixbufAnimationIter::get_pixbuf+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_iter_get_pixbuf" gdk_pixbuf_animation_iter_get_pixbuf :: + Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter"+ IO (Ptr Pixbuf)+++pixbufAnimationIterGetPixbuf ::+ (MonadIO m, PixbufAnimationIterK a) =>+ a -> -- _obj+ m Pixbuf+pixbufAnimationIterGetPixbuf _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_animation_iter_get_pixbuf _obj'+ result' <- (newObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method PixbufAnimationIter::on_currently_loading_frame+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_animation_iter_on_currently_loading_frame" gdk_pixbuf_animation_iter_on_currently_loading_frame :: + Ptr PixbufAnimationIter -> -- _obj : TInterface "GdkPixbuf" "PixbufAnimationIter"+ IO CInt+++pixbufAnimationIterOnCurrentlyLoadingFrame ::+ (MonadIO m, PixbufAnimationIterK a) =>+ a -> -- _obj+ m Bool+pixbufAnimationIterOnCurrentlyLoadingFrame _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_animation_iter_on_currently_loading_frame _obj'+ let result' = (/= 0) result+ touchManagedPtr _obj+ return result'++-- callback PixbufDestroyNotify+pixbufDestroyNotifyClosure :: PixbufDestroyNotify -> IO Closure+pixbufDestroyNotifyClosure cb = newCClosure =<< mkPixbufDestroyNotify wrapped+ where wrapped = pixbufDestroyNotifyWrapper Nothing cb++type PixbufDestroyNotifyC =+ Ptr Word8 ->+ Ptr () ->+ IO ()++foreign import ccall "wrapper"+ mkPixbufDestroyNotify :: PixbufDestroyNotifyC -> IO (FunPtr PixbufDestroyNotifyC)++type PixbufDestroyNotify =+ Ptr Word8 ->+ IO ()++noPixbufDestroyNotify :: Maybe PixbufDestroyNotify+noPixbufDestroyNotify = Nothing++pixbufDestroyNotifyWrapper ::+ Maybe (Ptr (FunPtr (PixbufDestroyNotifyC))) ->+ PixbufDestroyNotify ->+ Ptr Word8 ->+ Ptr () ->+ IO ()+pixbufDestroyNotifyWrapper funptrptr _cb pixels _ = do+ _cb pixels+ maybeReleaseFunPtr funptrptr++-- Enum PixbufError++data PixbufError = + PixbufErrorCorruptImage+ | PixbufErrorInsufficientMemory+ | PixbufErrorBadOption+ | PixbufErrorUnknownType+ | PixbufErrorUnsupportedOperation+ | PixbufErrorFailed+ | AnotherPixbufError Int+ deriving (Show, Eq)++instance Enum PixbufError where+ fromEnum PixbufErrorCorruptImage = 0+ fromEnum PixbufErrorInsufficientMemory = 1+ fromEnum PixbufErrorBadOption = 2+ fromEnum PixbufErrorUnknownType = 3+ fromEnum PixbufErrorUnsupportedOperation = 4+ fromEnum PixbufErrorFailed = 5+ fromEnum (AnotherPixbufError k) = k++ toEnum 0 = PixbufErrorCorruptImage+ toEnum 1 = PixbufErrorInsufficientMemory+ toEnum 2 = PixbufErrorBadOption+ toEnum 3 = PixbufErrorUnknownType+ toEnum 4 = PixbufErrorUnsupportedOperation+ toEnum 5 = PixbufErrorFailed+ toEnum k = AnotherPixbufError k++instance GErrorClass PixbufError where+ gerrorClassDomain _ = "gdk-pixbuf-error-quark"++catchPixbufError ::+ IO a ->+ (PixbufError -> GErrorMessage -> IO a) ->+ IO a+catchPixbufError = catchGErrorJustDomain++handlePixbufError ::+ (PixbufError -> GErrorMessage -> IO a) ->+ IO a ->+ IO a+handlePixbufError = handleGErrorJustDomain++foreign import ccall "gdk_pixbuf_error_get_type" c_gdk_pixbuf_error_get_type :: + IO GType++instance BoxedEnum PixbufError where+ boxedEnumType _ = c_gdk_pixbuf_error_get_type++-- struct PixbufFormat+newtype PixbufFormat = PixbufFormat (ForeignPtr PixbufFormat)+noPixbufFormat :: Maybe PixbufFormat+noPixbufFormat = Nothing++foreign import ccall "gdk_pixbuf_format_get_type" c_gdk_pixbuf_format_get_type :: + IO GType++instance BoxedObject PixbufFormat where+ boxedType _ = c_gdk_pixbuf_format_get_type++-- method PixbufFormat::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufFormat"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_copy" gdk_pixbuf_format_copy :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO (Ptr PixbufFormat)+++pixbufFormatCopy ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m PixbufFormat+pixbufFormatCopy _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_copy _obj'+ result' <- (wrapBoxed PixbufFormat) result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_free" gdk_pixbuf_format_free :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO ()+++pixbufFormatFree ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m ()+pixbufFormatFree _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ gdk_pixbuf_format_free _obj'+ touchManagedPtr _obj+ return ()++-- method PixbufFormat::get_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_get_description" gdk_pixbuf_format_get_description :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO CString+++pixbufFormatGetDescription ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m T.Text+pixbufFormatGetDescription _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_get_description _obj'+ result' <- cstringToText result+ freeMem result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::get_extensions+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_get_extensions" gdk_pixbuf_format_get_extensions :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO (Ptr CString)+++pixbufFormatGetExtensions ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m [T.Text]+pixbufFormatGetExtensions _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_get_extensions _obj'+ result' <- unpackZeroTerminatedUTF8CArray result+ mapZeroTerminatedCArray freeMem result+ freeMem result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::get_license+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_get_license" gdk_pixbuf_format_get_license :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO CString+++pixbufFormatGetLicense ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m T.Text+pixbufFormatGetLicense _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_get_license _obj'+ result' <- cstringToText result+ freeMem result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::get_mime_types+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_get_mime_types" gdk_pixbuf_format_get_mime_types :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO (Ptr CString)+++pixbufFormatGetMimeTypes ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m [T.Text]+pixbufFormatGetMimeTypes _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_get_mime_types _obj'+ result' <- unpackZeroTerminatedUTF8CArray result+ mapZeroTerminatedCArray freeMem result+ freeMem result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_get_name" gdk_pixbuf_format_get_name :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO CString+++pixbufFormatGetName ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m T.Text+pixbufFormatGetName _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_get_name _obj'+ result' <- cstringToText result+ freeMem result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::is_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_is_disabled" gdk_pixbuf_format_is_disabled :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO CInt+++pixbufFormatIsDisabled ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m Bool+pixbufFormatIsDisabled _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_is_disabled _obj'+ let result' = (/= 0) result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::is_scalable+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_is_scalable" gdk_pixbuf_format_is_scalable :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO CInt+++pixbufFormatIsScalable ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m Bool+pixbufFormatIsScalable _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_is_scalable _obj'+ let result' = (/= 0) result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::is_writable+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_is_writable" gdk_pixbuf_format_is_writable :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ IO CInt+++pixbufFormatIsWritable ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ m Bool+pixbufFormatIsWritable _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ result <- gdk_pixbuf_format_is_writable _obj'+ let result' = (/= 0) result+ touchManagedPtr _obj+ return result'++-- method PixbufFormat::set_disabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_format_set_disabled" gdk_pixbuf_format_set_disabled :: + Ptr PixbufFormat -> -- _obj : TInterface "GdkPixbuf" "PixbufFormat"+ CInt -> -- disabled : TBasicType TBoolean+ IO ()+++pixbufFormatSetDisabled ::+ (MonadIO m) =>+ PixbufFormat -> -- _obj+ Bool -> -- disabled+ m ()+pixbufFormatSetDisabled _obj disabled = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ let disabled' = (fromIntegral . fromEnum) disabled+ gdk_pixbuf_format_set_disabled _obj' disabled'+ touchManagedPtr _obj+ return ()++-- object PixbufLoader +newtype PixbufLoader = PixbufLoader (ForeignPtr PixbufLoader)+noPixbufLoader :: Maybe PixbufLoader+noPixbufLoader = Nothing++foreign import ccall "gdk_pixbuf_loader_get_type"+ c_gdk_pixbuf_loader_get_type :: IO GType++type instance ParentTypes PixbufLoader = '[GObject.Object]++instance GObject PixbufLoader where+ gobjectIsInitiallyUnowned _ = False+ gobjectType _ = c_gdk_pixbuf_loader_get_type+ ++class GObject o => PixbufLoaderK o+instance (GObject o, IsDescendantOf PixbufLoader o) => PixbufLoaderK o++toPixbufLoader :: PixbufLoaderK o => o -> IO PixbufLoader+toPixbufLoader = unsafeCastTo PixbufLoader++-- method PixbufLoader::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "GdkPixbuf" "PixbufLoader"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_new" gdk_pixbuf_loader_new :: + IO (Ptr PixbufLoader)+++pixbufLoaderNew ::+ (MonadIO m) =>+ m PixbufLoader+pixbufLoaderNew = liftIO $ do+ result <- gdk_pixbuf_loader_new+ result' <- (wrapObject PixbufLoader) result+ return result'++-- method PixbufLoader::new_with_mime_type+-- method type : Constructor+-- Args : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufLoader"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_new_with_mime_type" gdk_pixbuf_loader_new_with_mime_type :: + CString -> -- mime_type : TBasicType TUTF8+ Ptr (Ptr GError) -> -- error+ IO (Ptr PixbufLoader)+++pixbufLoaderNewWithMimeType ::+ (MonadIO m) =>+ T.Text -> -- mime_type+ m PixbufLoader+pixbufLoaderNewWithMimeType mime_type = liftIO $ do+ mime_type' <- textToCString mime_type+ onException (do+ result <- propagateGError $ gdk_pixbuf_loader_new_with_mime_type mime_type'+ result' <- (wrapObject PixbufLoader) result+ freeMem mime_type'+ return result'+ ) (do+ freeMem mime_type'+ )++-- method PixbufLoader::new_with_type+-- method type : Constructor+-- Args : [Arg {argName = "image_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "image_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufLoader"+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_new_with_type" gdk_pixbuf_loader_new_with_type :: + CString -> -- image_type : TBasicType TUTF8+ Ptr (Ptr GError) -> -- error+ IO (Ptr PixbufLoader)+++pixbufLoaderNewWithType ::+ (MonadIO m) =>+ T.Text -> -- image_type+ m PixbufLoader+pixbufLoaderNewWithType image_type = liftIO $ do+ image_type' <- textToCString image_type+ onException (do+ result <- propagateGError $ gdk_pixbuf_loader_new_with_type image_type'+ result' <- (wrapObject PixbufLoader) result+ freeMem image_type'+ return result'+ ) (do+ freeMem image_type'+ )++-- method PixbufLoader::close+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_close" gdk_pixbuf_loader_close :: + Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader"+ Ptr (Ptr GError) -> -- error+ IO CInt+++pixbufLoaderClose ::+ (MonadIO m, PixbufLoaderK a) =>+ a -> -- _obj+ m ()+pixbufLoaderClose _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ onException (do+ _ <- propagateGError $ gdk_pixbuf_loader_close _obj'+ touchManagedPtr _obj+ return ()+ ) (do+ return ()+ )++-- method PixbufLoader::get_animation+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufAnimation"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_get_animation" gdk_pixbuf_loader_get_animation :: + Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader"+ IO (Ptr PixbufAnimation)+++pixbufLoaderGetAnimation ::+ (MonadIO m, PixbufLoaderK a) =>+ a -> -- _obj+ m PixbufAnimation+pixbufLoaderGetAnimation _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_loader_get_animation _obj'+ result' <- (newObject PixbufAnimation) result+ touchManagedPtr _obj+ return result'++-- method PixbufLoader::get_format+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufFormat"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_get_format" gdk_pixbuf_loader_get_format :: + Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader"+ IO (Ptr PixbufFormat)+++pixbufLoaderGetFormat ::+ (MonadIO m, PixbufLoaderK a) =>+ a -> -- _obj+ m PixbufFormat+pixbufLoaderGetFormat _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_loader_get_format _obj'+ result' <- (newBoxed PixbufFormat) result+ touchManagedPtr _obj+ return result'++-- method PixbufLoader::get_pixbuf+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_get_pixbuf" gdk_pixbuf_loader_get_pixbuf :: + Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader"+ IO (Ptr Pixbuf)+++pixbufLoaderGetPixbuf ::+ (MonadIO m, PixbufLoaderK a) =>+ a -> -- _obj+ m Pixbuf+pixbufLoaderGetPixbuf _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_loader_get_pixbuf _obj'+ result' <- (newObject Pixbuf) result+ touchManagedPtr _obj+ return result'++-- method PixbufLoader::set_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++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+ IO ()+++pixbufLoaderSetSize ::+ (MonadIO m, PixbufLoaderK a) =>+ a -> -- _obj+ Int32 -> -- width+ Int32 -> -- height+ m ()+pixbufLoaderSetSize _obj width height = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ gdk_pixbuf_loader_set_size _obj' width height+ touchManagedPtr _obj+ return ()++-- method PixbufLoader::write+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_write" gdk_pixbuf_loader_write :: + Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader"+ Ptr Word8 -> -- buf : TCArray False (-1) 2 (TBasicType TUInt8)+ Word64 -> -- count : TBasicType TUInt64+ Ptr (Ptr GError) -> -- error+ IO CInt+++pixbufLoaderWrite ::+ (MonadIO m, PixbufLoaderK a) =>+ a -> -- _obj+ ByteString -> -- buf+ m ()+pixbufLoaderWrite _obj buf = liftIO $ do+ let count = fromIntegral $ B.length buf+ let _obj' = unsafeManagedPtrCastPtr _obj+ buf' <- packByteString buf+ onException (do+ _ <- propagateGError $ gdk_pixbuf_loader_write _obj' buf' count+ touchManagedPtr _obj+ freeMem buf'+ return ()+ ) (do+ freeMem buf'+ )++-- method PixbufLoader::write_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufLoader", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "gdk_pixbuf_loader_write_bytes" gdk_pixbuf_loader_write_bytes :: + Ptr PixbufLoader -> -- _obj : TInterface "GdkPixbuf" "PixbufLoader"+ Ptr GLib.Bytes -> -- buffer : TInterface "GLib" "Bytes"+ Ptr (Ptr GError) -> -- error+ IO CInt+++pixbufLoaderWriteBytes ::+ (MonadIO m, PixbufLoaderK a) =>+ a -> -- _obj+ GLib.Bytes -> -- buffer+ m ()+pixbufLoaderWriteBytes _obj buffer = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let buffer' = unsafeManagedPtrGetPtr buffer+ onException (do+ _ <- propagateGError $ gdk_pixbuf_loader_write_bytes _obj' buffer'+ touchManagedPtr _obj+ touchManagedPtr buffer+ return ()+ ) (do+ return ()+ )++-- signal PixbufLoader::area-prepared+type PixbufLoaderAreaPreparedCallback =+ IO ()++noPixbufLoaderAreaPreparedCallback :: Maybe PixbufLoaderAreaPreparedCallback+noPixbufLoaderAreaPreparedCallback = Nothing++type PixbufLoaderAreaPreparedCallbackC =+ Ptr () -> -- object+ Ptr () -> -- user_data+ IO ()++foreign import ccall "wrapper"+ mkPixbufLoaderAreaPreparedCallback :: PixbufLoaderAreaPreparedCallbackC -> IO (FunPtr PixbufLoaderAreaPreparedCallbackC)++pixbufLoaderAreaPreparedClosure :: PixbufLoaderAreaPreparedCallback -> IO Closure+pixbufLoaderAreaPreparedClosure cb = newCClosure =<< mkPixbufLoaderAreaPreparedCallback wrapped+ where wrapped = pixbufLoaderAreaPreparedCallbackWrapper cb++pixbufLoaderAreaPreparedCallbackWrapper ::+ PixbufLoaderAreaPreparedCallback ->+ Ptr () ->+ Ptr () ->+ IO ()+pixbufLoaderAreaPreparedCallbackWrapper _cb _ _ = do+ _cb ++onPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaPreparedCallback -> m SignalHandlerId+onPixbufLoaderAreaPrepared obj cb = liftIO $ connectPixbufLoaderAreaPrepared obj cb SignalConnectBefore+afterPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaPreparedCallback -> m SignalHandlerId+afterPixbufLoaderAreaPrepared obj cb = connectPixbufLoaderAreaPrepared obj cb SignalConnectAfter++connectPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) =>+ a -> PixbufLoaderAreaPreparedCallback -> SignalConnectMode -> m SignalHandlerId+connectPixbufLoaderAreaPrepared obj cb after = liftIO $ do+ cb' <- mkPixbufLoaderAreaPreparedCallback (pixbufLoaderAreaPreparedCallbackWrapper cb)+ connectSignalFunPtr obj "area-prepared" cb' after++-- signal PixbufLoader::area-updated+type PixbufLoaderAreaUpdatedCallback =+ Int32 ->+ Int32 ->+ Int32 ->+ Int32 ->+ IO ()++noPixbufLoaderAreaUpdatedCallback :: Maybe PixbufLoaderAreaUpdatedCallback+noPixbufLoaderAreaUpdatedCallback = Nothing++type PixbufLoaderAreaUpdatedCallbackC =+ Ptr () -> -- object+ Int32 ->+ Int32 ->+ Int32 ->+ Int32 ->+ Ptr () -> -- user_data+ IO ()++foreign import ccall "wrapper"+ mkPixbufLoaderAreaUpdatedCallback :: PixbufLoaderAreaUpdatedCallbackC -> IO (FunPtr PixbufLoaderAreaUpdatedCallbackC)++pixbufLoaderAreaUpdatedClosure :: PixbufLoaderAreaUpdatedCallback -> IO Closure+pixbufLoaderAreaUpdatedClosure cb = newCClosure =<< mkPixbufLoaderAreaUpdatedCallback wrapped+ where wrapped = pixbufLoaderAreaUpdatedCallbackWrapper cb++pixbufLoaderAreaUpdatedCallbackWrapper ::+ PixbufLoaderAreaUpdatedCallback ->+ Ptr () ->+ Int32 ->+ Int32 ->+ Int32 ->+ Int32 ->+ Ptr () ->+ IO ()+pixbufLoaderAreaUpdatedCallbackWrapper _cb _ x y width height _ = do+ _cb x y width height++onPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaUpdatedCallback -> m SignalHandlerId+onPixbufLoaderAreaUpdated obj cb = liftIO $ connectPixbufLoaderAreaUpdated obj cb SignalConnectBefore+afterPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaUpdatedCallback -> m SignalHandlerId+afterPixbufLoaderAreaUpdated obj cb = connectPixbufLoaderAreaUpdated obj cb SignalConnectAfter++connectPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) =>+ a -> PixbufLoaderAreaUpdatedCallback -> SignalConnectMode -> m SignalHandlerId+connectPixbufLoaderAreaUpdated obj cb after = liftIO $ do+ cb' <- mkPixbufLoaderAreaUpdatedCallback (pixbufLoaderAreaUpdatedCallbackWrapper cb)+ connectSignalFunPtr obj "area-updated" cb' after++-- signal PixbufLoader::closed+type PixbufLoaderClosedCallback =+ IO ()++noPixbufLoaderClosedCallback :: Maybe PixbufLoaderClosedCallback+noPixbufLoaderClosedCallback = Nothing++type PixbufLoaderClosedCallbackC =+ Ptr () -> -- object+ Ptr () -> -- user_data+ IO ()++foreign import ccall "wrapper"+ mkPixbufLoaderClosedCallback :: PixbufLoaderClosedCallbackC -> IO (FunPtr PixbufLoaderClosedCallbackC)++pixbufLoaderClosedClosure :: PixbufLoaderClosedCallback -> IO Closure+pixbufLoaderClosedClosure cb = newCClosure =<< mkPixbufLoaderClosedCallback wrapped+ where wrapped = pixbufLoaderClosedCallbackWrapper cb++pixbufLoaderClosedCallbackWrapper ::+ PixbufLoaderClosedCallback ->+ Ptr () ->+ Ptr () ->+ IO ()+pixbufLoaderClosedCallbackWrapper _cb _ _ = do+ _cb ++onPixbufLoaderClosed :: (GObject a, MonadIO m) => a -> PixbufLoaderClosedCallback -> m SignalHandlerId+onPixbufLoaderClosed obj cb = liftIO $ connectPixbufLoaderClosed obj cb SignalConnectBefore+afterPixbufLoaderClosed :: (GObject a, MonadIO m) => a -> PixbufLoaderClosedCallback -> m SignalHandlerId+afterPixbufLoaderClosed obj cb = connectPixbufLoaderClosed obj cb SignalConnectAfter++connectPixbufLoaderClosed :: (GObject a, MonadIO m) =>+ a -> PixbufLoaderClosedCallback -> SignalConnectMode -> m SignalHandlerId+connectPixbufLoaderClosed obj cb after = liftIO $ do+ cb' <- mkPixbufLoaderClosedCallback (pixbufLoaderClosedCallbackWrapper cb)+ connectSignalFunPtr obj "closed" cb' after++-- signal PixbufLoader::size-prepared+type PixbufLoaderSizePreparedCallback =+ Int32 ->+ Int32 ->+ IO ()++noPixbufLoaderSizePreparedCallback :: Maybe PixbufLoaderSizePreparedCallback+noPixbufLoaderSizePreparedCallback = Nothing++type PixbufLoaderSizePreparedCallbackC =+ Ptr () -> -- object+ Int32 ->+ Int32 ->+ Ptr () -> -- user_data+ IO ()++foreign import ccall "wrapper"+ mkPixbufLoaderSizePreparedCallback :: PixbufLoaderSizePreparedCallbackC -> IO (FunPtr PixbufLoaderSizePreparedCallbackC)++pixbufLoaderSizePreparedClosure :: PixbufLoaderSizePreparedCallback -> IO Closure+pixbufLoaderSizePreparedClosure cb = newCClosure =<< mkPixbufLoaderSizePreparedCallback wrapped+ where wrapped = pixbufLoaderSizePreparedCallbackWrapper cb++pixbufLoaderSizePreparedCallbackWrapper ::+ PixbufLoaderSizePreparedCallback ->+ Ptr () ->+ Int32 ->+ Int32 ->+ Ptr () ->+ IO ()+pixbufLoaderSizePreparedCallbackWrapper _cb _ width height _ = do+ _cb width height++onPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderSizePreparedCallback -> m SignalHandlerId+onPixbufLoaderSizePrepared obj cb = liftIO $ connectPixbufLoaderSizePrepared obj cb SignalConnectBefore+afterPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderSizePreparedCallback -> m SignalHandlerId+afterPixbufLoaderSizePrepared obj cb = connectPixbufLoaderSizePrepared obj cb SignalConnectAfter++connectPixbufLoaderSizePrepared :: (GObject a, MonadIO m) =>+ a -> PixbufLoaderSizePreparedCallback -> SignalConnectMode -> m SignalHandlerId+connectPixbufLoaderSizePrepared obj cb after = liftIO $ do+ cb' <- mkPixbufLoaderSizePreparedCallback (pixbufLoaderSizePreparedCallbackWrapper cb)+ connectSignalFunPtr obj "size-prepared" cb' after++-- Enum PixbufRotation++data PixbufRotation = + PixbufRotationNone+ | PixbufRotationCounterclockwise+ | PixbufRotationUpsidedown+ | PixbufRotationClockwise+ | AnotherPixbufRotation Int+ deriving (Show, Eq)++instance Enum PixbufRotation where+ fromEnum PixbufRotationNone = 0+ fromEnum PixbufRotationCounterclockwise = 90+ fromEnum PixbufRotationUpsidedown = 180+ fromEnum PixbufRotationClockwise = 270+ fromEnum (AnotherPixbufRotation k) = k++ toEnum 0 = PixbufRotationNone+ toEnum 90 = PixbufRotationCounterclockwise+ toEnum 180 = PixbufRotationUpsidedown+ toEnum 270 = PixbufRotationClockwise+ toEnum k = AnotherPixbufRotation k++foreign import ccall "gdk_pixbuf_rotation_get_type" c_gdk_pixbuf_rotation_get_type :: + IO GType++instance BoxedEnum PixbufRotation where+ boxedEnumType _ = c_gdk_pixbuf_rotation_get_type++-- callback PixbufSaveFunc+pixbufSaveFuncClosure :: PixbufSaveFunc -> IO Closure+pixbufSaveFuncClosure cb = newCClosure =<< mkPixbufSaveFunc wrapped+ where wrapped = pixbufSaveFuncWrapper Nothing cb++type PixbufSaveFuncC =+ Ptr Word8 ->+ Word64 ->+ Ptr (Ptr GError) ->+ Ptr () ->+ IO CInt++foreign import ccall "wrapper"+ mkPixbufSaveFunc :: PixbufSaveFuncC -> IO (FunPtr PixbufSaveFuncC)++type PixbufSaveFunc =+ ByteString ->+ IO (Bool,GError)++noPixbufSaveFunc :: Maybe PixbufSaveFunc+noPixbufSaveFunc = Nothing++pixbufSaveFuncWrapper ::+ Maybe (Ptr (FunPtr (PixbufSaveFuncC))) ->+ PixbufSaveFunc ->+ Ptr Word8 ->+ Word64 ->+ Ptr (Ptr GError) ->+ Ptr () ->+ IO CInt+pixbufSaveFuncWrapper funptrptr _cb buf count error_ _ = do+ buf' <- (unpackByteStringWithLength count) buf+ (result, outerror_) <- _cb buf'+ outerror_' <- copyBoxed outerror_+ poke error_ outerror_'+ maybeReleaseFunPtr funptrptr+ let result' = (fromIntegral . fromEnum) result+ return result'++-- object PixbufSimpleAnim +newtype PixbufSimpleAnim = PixbufSimpleAnim (ForeignPtr PixbufSimpleAnim)+noPixbufSimpleAnim :: Maybe PixbufSimpleAnim+noPixbufSimpleAnim = Nothing++foreign import ccall "gdk_pixbuf_simple_anim_get_type"+ c_gdk_pixbuf_simple_anim_get_type :: IO GType++type instance ParentTypes PixbufSimpleAnim = '[PixbufAnimation, GObject.Object]++instance GObject PixbufSimpleAnim where+ gobjectIsInitiallyUnowned _ = False+ gobjectType _ = c_gdk_pixbuf_simple_anim_get_type+ ++class GObject o => PixbufSimpleAnimK o+instance (GObject o, IsDescendantOf PixbufSimpleAnim o) => PixbufSimpleAnimK o++toPixbufSimpleAnim :: PixbufSimpleAnimK o => o -> IO PixbufSimpleAnim+toPixbufSimpleAnim = unsafeCastTo PixbufSimpleAnim++-- method PixbufSimpleAnim::new+-- method type : Constructor+-- Args : [Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rate", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rate", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GdkPixbuf" "PixbufSimpleAnim"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_simple_anim_new" gdk_pixbuf_simple_anim_new :: + Int32 -> -- width : TBasicType TInt32+ Int32 -> -- height : TBasicType TInt32+ CFloat -> -- rate : TBasicType TFloat+ IO (Ptr PixbufSimpleAnim)+++pixbufSimpleAnimNew ::+ (MonadIO m) =>+ Int32 -> -- width+ Int32 -> -- height+ Float -> -- rate+ m PixbufSimpleAnim+pixbufSimpleAnimNew width height rate = liftIO $ do+ let rate' = realToFrac rate+ result <- gdk_pixbuf_simple_anim_new width height rate'+ result' <- (wrapObject PixbufSimpleAnim) result+ return result'++-- method PixbufSimpleAnim::add_frame+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_simple_anim_add_frame" gdk_pixbuf_simple_anim_add_frame :: + Ptr PixbufSimpleAnim -> -- _obj : TInterface "GdkPixbuf" "PixbufSimpleAnim"+ Ptr Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"+ IO ()+++pixbufSimpleAnimAddFrame ::+ (MonadIO m, PixbufSimpleAnimK a, PixbufK b) =>+ a -> -- _obj+ b -> -- pixbuf+ m ()+pixbufSimpleAnimAddFrame _obj pixbuf = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let pixbuf' = unsafeManagedPtrCastPtr pixbuf+ gdk_pixbuf_simple_anim_add_frame _obj' pixbuf'+ touchManagedPtr _obj+ touchManagedPtr pixbuf+ return ()++-- method PixbufSimpleAnim::get_loop+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_simple_anim_get_loop" gdk_pixbuf_simple_anim_get_loop :: + Ptr PixbufSimpleAnim -> -- _obj : TInterface "GdkPixbuf" "PixbufSimpleAnim"+ IO CInt+++pixbufSimpleAnimGetLoop ::+ (MonadIO m, PixbufSimpleAnimK a) =>+ a -> -- _obj+ m Bool+pixbufSimpleAnimGetLoop _obj = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ result <- gdk_pixbuf_simple_anim_get_loop _obj'+ let result' = (/= 0) result+ touchManagedPtr _obj+ return result'++-- method PixbufSimpleAnim::set_loop+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "loop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufSimpleAnim", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "loop", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_simple_anim_set_loop" gdk_pixbuf_simple_anim_set_loop :: + Ptr PixbufSimpleAnim -> -- _obj : TInterface "GdkPixbuf" "PixbufSimpleAnim"+ CInt -> -- loop : TBasicType TBoolean+ IO ()+++pixbufSimpleAnimSetLoop ::+ (MonadIO m, PixbufSimpleAnimK a) =>+ a -> -- _obj+ Bool -> -- loop+ m ()+pixbufSimpleAnimSetLoop _obj loop = liftIO $ do+ let _obj' = unsafeManagedPtrCastPtr _obj+ let loop' = (fromIntegral . fromEnum) loop+ gdk_pixbuf_simple_anim_set_loop _obj' loop'+ touchManagedPtr _obj+ return ()++-- object PixbufSimpleAnimIter +newtype PixbufSimpleAnimIter = PixbufSimpleAnimIter (ForeignPtr PixbufSimpleAnimIter)+noPixbufSimpleAnimIter :: Maybe PixbufSimpleAnimIter+noPixbufSimpleAnimIter = Nothing++foreign import ccall "gdk_pixbuf_simple_anim_iter_get_type"+ c_gdk_pixbuf_simple_anim_iter_get_type :: IO GType++type instance ParentTypes PixbufSimpleAnimIter = '[PixbufAnimationIter, GObject.Object]++instance GObject PixbufSimpleAnimIter where+ gobjectIsInitiallyUnowned _ = False+ gobjectType _ = c_gdk_pixbuf_simple_anim_iter_get_type+ ++class GObject o => PixbufSimpleAnimIterK o+instance (GObject o, IsDescendantOf PixbufSimpleAnimIter o) => PixbufSimpleAnimIterK o++toPixbufSimpleAnimIter :: PixbufSimpleAnimIterK o => o -> IO PixbufSimpleAnimIter+toPixbufSimpleAnimIter = unsafeCastTo PixbufSimpleAnimIter++-- struct Pixdata+newtype Pixdata = Pixdata (ForeignPtr Pixdata)+noPixdata :: Maybe Pixdata+noPixdata = Nothing++pixdataReadMagic :: Pixdata -> IO Word32+pixdataReadMagic s = withManagedPtr s $ \ptr -> do+ val <- peek (ptr `plusPtr` 0) :: IO Word32+ return val++pixdataReadLength :: Pixdata -> IO Int32+pixdataReadLength s = withManagedPtr s $ \ptr -> do+ val <- peek (ptr `plusPtr` 4) :: IO Int32+ return val++pixdataReadPixdataType :: Pixdata -> IO Word32+pixdataReadPixdataType s = withManagedPtr s $ \ptr -> do+ val <- peek (ptr `plusPtr` 8) :: IO Word32+ return val++pixdataReadRowstride :: Pixdata -> IO Word32+pixdataReadRowstride s = withManagedPtr s $ \ptr -> do+ val <- peek (ptr `plusPtr` 12) :: IO Word32+ return val++pixdataReadWidth :: Pixdata -> IO Word32+pixdataReadWidth s = withManagedPtr s $ \ptr -> do+ val <- peek (ptr `plusPtr` 16) :: IO Word32+ return val++pixdataReadHeight :: Pixdata -> IO Word32+pixdataReadHeight s = withManagedPtr s $ \ptr -> do+ val <- peek (ptr `plusPtr` 20) :: IO Word32+ return val++pixdataReadPixelData :: Pixdata -> IO (Ptr Word8)+pixdataReadPixelData s = withManagedPtr s $ \ptr -> do+ val <- peek (ptr `plusPtr` 24) :: IO (Ptr Word8)+ return val++-- method Pixdata::deserialize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "stream_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+ Ptr Word8 -> -- stream : TCArray False (-1) 1 (TBasicType TUInt8)+ Ptr (Ptr GError) -> -- error+ IO CInt++{-# DEPRECATED pixdataDeserialize ["(Since version 2.32)","Use #GResource instead."]#-}+pixdataDeserialize ::+ (MonadIO m) =>+ Pixdata -> -- _obj+ ByteString -> -- stream+ m ()+pixdataDeserialize _obj stream = liftIO $ do+ let stream_length = fromIntegral $ B.length stream+ let _obj' = unsafeManagedPtrGetPtr _obj+ stream' <- packByteString stream+ onException (do+ _ <- propagateGError $ gdk_pixdata_deserialize _obj' stream_length stream'+ touchManagedPtr _obj+ freeMem stream'+ return ()+ ) (do+ freeMem stream'+ )++-- method Pixdata::serialize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream_length_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "stream_length_p", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+ IO (Ptr Word8)++{-# DEPRECATED pixdataSerialize ["(Since version 2.32)","Use #GResource instead."]#-}+pixdataSerialize ::+ (MonadIO m) =>+ Pixdata -> -- _obj+ m ByteString+pixdataSerialize _obj = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ stream_length_p <- allocMem :: IO (Ptr Word32)+ result <- gdk_pixdata_serialize _obj' stream_length_p+ stream_length_p' <- peek stream_length_p+ result' <- (unpackByteStringWithLength stream_length_p') result+ freeMem result+ touchManagedPtr _obj+ freeMem stream_length_p+ return result'++-- method Pixdata::to_csource+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dump_type", argType = TInterface "GdkPixbuf" "PixdataDumpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dump_type", argType = TInterface "GdkPixbuf" "PixdataDumpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "String"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixdata_to_csource" gdk_pixdata_to_csource :: + Ptr Pixdata -> -- _obj : TInterface "GdkPixbuf" "Pixdata"+ CString -> -- name : TBasicType TUTF8+ CUInt -> -- dump_type : TInterface "GdkPixbuf" "PixdataDumpType"+ IO (Ptr GLib.String)++{-# DEPRECATED pixdataToCsource ["(Since version 2.32)","Use #GResource instead."]#-}+pixdataToCsource ::+ (MonadIO m) =>+ Pixdata -> -- _obj+ T.Text -> -- name+ [PixdataDumpType] -> -- dump_type+ m GLib.String+pixdataToCsource _obj name dump_type = liftIO $ do+ let _obj' = unsafeManagedPtrGetPtr _obj+ name' <- textToCString name+ let dump_type' = gflagsToWord dump_type+ result <- gdk_pixdata_to_csource _obj' name' dump_type'+ result' <- (wrapBoxed GLib.String) result+ touchManagedPtr _obj+ freeMem name'+ return result'++-- Flags PixdataDumpType++data PixdataDumpType = + PixdataDumpTypePixdataStream+ | PixdataDumpTypePixdataStruct+ | PixdataDumpTypeMacros+ | PixdataDumpTypeGtypes+ | PixdataDumpTypeCtypes+ | PixdataDumpTypeStatic+ | PixdataDumpTypeConst+ | PixdataDumpTypeRleDecoder+ | AnotherPixdataDumpType Int+ deriving (Show, Eq)++instance Enum PixdataDumpType where+ fromEnum PixdataDumpTypePixdataStream = 0+ fromEnum PixdataDumpTypePixdataStruct = 1+ fromEnum PixdataDumpTypeMacros = 2+ fromEnum PixdataDumpTypeGtypes = 0+ fromEnum PixdataDumpTypeCtypes = 256+ fromEnum PixdataDumpTypeStatic = 512+ fromEnum PixdataDumpTypeConst = 1024+ fromEnum PixdataDumpTypeRleDecoder = 65536+ fromEnum (AnotherPixdataDumpType k) = k++ toEnum 0 = PixdataDumpTypePixdataStream+ toEnum 1 = PixdataDumpTypePixdataStruct+ toEnum 2 = PixdataDumpTypeMacros+ toEnum 256 = PixdataDumpTypeCtypes+ toEnum 512 = PixdataDumpTypeStatic+ toEnum 1024 = PixdataDumpTypeConst+ toEnum 65536 = PixdataDumpTypeRleDecoder+ toEnum k = AnotherPixdataDumpType k++instance IsGFlag PixdataDumpType++-- Flags PixdataType++data PixdataType = + PixdataTypeColorTypeRgb+ | PixdataTypeColorTypeRgba+ | PixdataTypeColorTypeMask+ | PixdataTypeSampleWidth8+ | PixdataTypeSampleWidthMask+ | PixdataTypeEncodingRaw+ | PixdataTypeEncodingRle+ | PixdataTypeEncodingMask+ | AnotherPixdataType Int+ deriving (Show, Eq)++instance Enum PixdataType where+ fromEnum PixdataTypeColorTypeRgb = 1+ fromEnum PixdataTypeColorTypeRgba = 2+ fromEnum PixdataTypeColorTypeMask = 255+ fromEnum PixdataTypeSampleWidth8 = 65536+ fromEnum PixdataTypeSampleWidthMask = 983040+ fromEnum PixdataTypeEncodingRaw = 16777216+ fromEnum PixdataTypeEncodingRle = 33554432+ fromEnum PixdataTypeEncodingMask = 251658240+ fromEnum (AnotherPixdataType k) = k++ toEnum 1 = PixdataTypeColorTypeRgb+ toEnum 2 = PixdataTypeColorTypeRgba+ toEnum 255 = PixdataTypeColorTypeMask+ toEnum 65536 = PixdataTypeSampleWidth8+ toEnum 983040 = PixdataTypeSampleWidthMask+ toEnum 16777216 = PixdataTypeEncodingRaw+ toEnum 33554432 = PixdataTypeEncodingRle+ toEnum 251658240 = PixdataTypeEncodingMask+ toEnum k = AnotherPixdataType k++instance IsGFlag PixdataType++-- constant _PIXBUF_FEATURES_H++_PIXBUF_FEATURES_H :: Int32+_PIXBUF_FEATURES_H = 1+-- constant _PIXBUF_MAGIC_NUMBER++_PIXBUF_MAGIC_NUMBER :: Int32+_PIXBUF_MAGIC_NUMBER = 1197763408+-- constant _PIXBUF_MAJOR++_PIXBUF_MAJOR :: Int32+_PIXBUF_MAJOR = 2+-- constant _PIXBUF_MICRO++_PIXBUF_MICRO :: Int32+_PIXBUF_MICRO = 6+-- constant _PIXBUF_MINOR++_PIXBUF_MINOR :: Int32+_PIXBUF_MINOR = 31+-- constant _PIXBUF_VERSION++_PIXBUF_VERSION :: T.Text+_PIXBUF_VERSION = "2.31.6"+-- constant _PIXDATA_HEADER_LENGTH++_PIXDATA_HEADER_LENGTH :: Int32+_PIXDATA_HEADER_LENGTH = 24+-- function gdk_pixbuf_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pixbuf_error_quark" gdk_pixbuf_error_quark :: + IO Word32+++pixbufErrorQuark ::+ (MonadIO m) =>+ m Word32+pixbufErrorQuark = liftIO $ do+ result <- gdk_pixbuf_error_quark+ return result+
+ GI/GdkPixbufAttributes.hs view
@@ -0,0 +1,275 @@+{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-}++-- Generated code.++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,+ TypeFamilies, MultiParamTypeClasses, KindSignatures,+ FlexibleInstances, UndecidableInstances, DataKinds,+ OverloadedStrings, NegativeLiterals, FlexibleContexts #-}++module GI.GdkPixbufAttributes where++import Prelude ()+import Data.GI.Base.ShortPrelude+import Data.Char+import Data.Int+import Data.Word+import qualified Data.ByteString.Char8 as B+import Data.ByteString.Char8 (ByteString)+import qualified Data.Map as Map+import Foreign.C+import Foreign.Ptr+import Foreign.ForeignPtr+import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)+import Foreign.Storable (peek, poke, sizeOf)+import Control.Applicative ((<$>))+import Control.Exception (onException)+import Control.Monad.IO.Class+import qualified Data.Text as T++import Data.GI.Base.Attributes hiding (get, set)+import Data.GI.Base.BasicTypes+import Data.GI.Base.BasicConversions+import Data.GI.Base.Closure+import Data.GI.Base.GError+import Data.GI.Base.GHashTable+import Data.GI.Base.GParamSpec+import Data.GI.Base.GVariant+import Data.GI.Base.GValue+import Data.GI.Base.ManagedPtr+import Data.GI.Base.Overloading+import Data.GI.Base.Properties hiding (new)+import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)+import Data.GI.Base.Utils++import qualified GI.GLib as GLib+import qualified GI.GLibAttributes as GLibA+import GI.GdkPixbuf++-- VVV Prop "bits-per-sample"+ -- Type: TBasicType TInt32+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufBitsPerSample :: (MonadIO m, PixbufK o) => o -> m Int32+getPixbufBitsPerSample obj = liftIO $ getObjectPropertyCInt obj "bits-per-sample"++constructPixbufBitsPerSample :: Int32 -> IO ([Char], GValue)+constructPixbufBitsPerSample val = constructObjectPropertyCInt "bits-per-sample" val++data PixbufBitsPerSamplePropertyInfo+instance AttrInfo PixbufBitsPerSamplePropertyInfo where+ type AttrAllowedOps PixbufBitsPerSamplePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufBitsPerSamplePropertyInfo = (~) Int32+ type AttrBaseTypeConstraint PixbufBitsPerSamplePropertyInfo = PixbufK+ type AttrGetType PixbufBitsPerSamplePropertyInfo = Int32+ type AttrLabel PixbufBitsPerSamplePropertyInfo = "Pixbuf::bits-per-sample"+ attrGet _ = getPixbufBitsPerSample+ attrSet _ = undefined+ attrConstruct _ = constructPixbufBitsPerSample++-- VVV Prop "colorspace"+ -- Type: TInterface "GdkPixbuf" "Colorspace"+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufColorspace :: (MonadIO m, PixbufK o) => o -> m Colorspace+getPixbufColorspace obj = liftIO $ getObjectPropertyEnum obj "colorspace"++constructPixbufColorspace :: Colorspace -> IO ([Char], GValue)+constructPixbufColorspace val = constructObjectPropertyEnum "colorspace" val++data PixbufColorspacePropertyInfo+instance AttrInfo PixbufColorspacePropertyInfo where+ type AttrAllowedOps PixbufColorspacePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufColorspacePropertyInfo = (~) Colorspace+ type AttrBaseTypeConstraint PixbufColorspacePropertyInfo = PixbufK+ type AttrGetType PixbufColorspacePropertyInfo = Colorspace+ type AttrLabel PixbufColorspacePropertyInfo = "Pixbuf::colorspace"+ attrGet _ = getPixbufColorspace+ attrSet _ = undefined+ attrConstruct _ = constructPixbufColorspace++-- VVV Prop "has-alpha"+ -- Type: TBasicType TBoolean+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufHasAlpha :: (MonadIO m, PixbufK o) => o -> m Bool+getPixbufHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha"++constructPixbufHasAlpha :: Bool -> IO ([Char], GValue)+constructPixbufHasAlpha val = constructObjectPropertyBool "has-alpha" val++data PixbufHasAlphaPropertyInfo+instance AttrInfo PixbufHasAlphaPropertyInfo where+ type AttrAllowedOps PixbufHasAlphaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufHasAlphaPropertyInfo = (~) Bool+ type AttrBaseTypeConstraint PixbufHasAlphaPropertyInfo = PixbufK+ type AttrGetType PixbufHasAlphaPropertyInfo = Bool+ type AttrLabel PixbufHasAlphaPropertyInfo = "Pixbuf::has-alpha"+ attrGet _ = getPixbufHasAlpha+ attrSet _ = undefined+ attrConstruct _ = constructPixbufHasAlpha++-- VVV Prop "height"+ -- Type: TBasicType TInt32+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufHeight :: (MonadIO m, PixbufK o) => o -> m Int32+getPixbufHeight obj = liftIO $ getObjectPropertyCInt obj "height"++constructPixbufHeight :: Int32 -> IO ([Char], GValue)+constructPixbufHeight val = constructObjectPropertyCInt "height" val++data PixbufHeightPropertyInfo+instance AttrInfo PixbufHeightPropertyInfo where+ type AttrAllowedOps PixbufHeightPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufHeightPropertyInfo = (~) Int32+ type AttrBaseTypeConstraint PixbufHeightPropertyInfo = PixbufK+ type AttrGetType PixbufHeightPropertyInfo = Int32+ type AttrLabel PixbufHeightPropertyInfo = "Pixbuf::height"+ attrGet _ = getPixbufHeight+ attrSet _ = undefined+ attrConstruct _ = constructPixbufHeight++-- VVV Prop "n-channels"+ -- Type: TBasicType TInt32+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufNChannels :: (MonadIO m, PixbufK o) => o -> m Int32+getPixbufNChannels obj = liftIO $ getObjectPropertyCInt obj "n-channels"++constructPixbufNChannels :: Int32 -> IO ([Char], GValue)+constructPixbufNChannels val = constructObjectPropertyCInt "n-channels" val++data PixbufNChannelsPropertyInfo+instance AttrInfo PixbufNChannelsPropertyInfo where+ type AttrAllowedOps PixbufNChannelsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufNChannelsPropertyInfo = (~) Int32+ type AttrBaseTypeConstraint PixbufNChannelsPropertyInfo = PixbufK+ type AttrGetType PixbufNChannelsPropertyInfo = Int32+ type AttrLabel PixbufNChannelsPropertyInfo = "Pixbuf::n-channels"+ attrGet _ = getPixbufNChannels+ attrSet _ = undefined+ attrConstruct _ = constructPixbufNChannels++-- VVV Prop "pixel-bytes"+ -- Type: TInterface "GLib" "Bytes"+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufPixelBytes :: (MonadIO m, PixbufK o) => o -> m GLib.Bytes+getPixbufPixelBytes obj = liftIO $ getObjectPropertyBoxed obj "pixel-bytes" GLib.Bytes++constructPixbufPixelBytes :: GLib.Bytes -> IO ([Char], GValue)+constructPixbufPixelBytes val = constructObjectPropertyBoxed "pixel-bytes" val++data PixbufPixelBytesPropertyInfo+instance AttrInfo PixbufPixelBytesPropertyInfo where+ type AttrAllowedOps PixbufPixelBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufPixelBytesPropertyInfo = (~) GLib.Bytes+ type AttrBaseTypeConstraint PixbufPixelBytesPropertyInfo = PixbufK+ type AttrGetType PixbufPixelBytesPropertyInfo = GLib.Bytes+ type AttrLabel PixbufPixelBytesPropertyInfo = "Pixbuf::pixel-bytes"+ attrGet _ = getPixbufPixelBytes+ attrSet _ = undefined+ attrConstruct _ = constructPixbufPixelBytes++-- VVV Prop "pixels"+ -- Type: TBasicType TVoid+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufPixels :: (MonadIO m, PixbufK o) => o -> m (Ptr ())+getPixbufPixels obj = liftIO $ getObjectPropertyPtr obj "pixels"++constructPixbufPixels :: (Ptr ()) -> IO ([Char], GValue)+constructPixbufPixels val = constructObjectPropertyPtr "pixels" val++data PixbufPixelsPropertyInfo+instance AttrInfo PixbufPixelsPropertyInfo where+ type AttrAllowedOps PixbufPixelsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufPixelsPropertyInfo = (~) (Ptr ())+ type AttrBaseTypeConstraint PixbufPixelsPropertyInfo = PixbufK+ type AttrGetType PixbufPixelsPropertyInfo = (Ptr ())+ type AttrLabel PixbufPixelsPropertyInfo = "Pixbuf::pixels"+ attrGet _ = getPixbufPixels+ attrSet _ = undefined+ attrConstruct _ = constructPixbufPixels++-- VVV Prop "rowstride"+ -- Type: TBasicType TInt32+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufRowstride :: (MonadIO m, PixbufK o) => o -> m Int32+getPixbufRowstride obj = liftIO $ getObjectPropertyCInt obj "rowstride"++constructPixbufRowstride :: Int32 -> IO ([Char], GValue)+constructPixbufRowstride val = constructObjectPropertyCInt "rowstride" val++data PixbufRowstridePropertyInfo+instance AttrInfo PixbufRowstridePropertyInfo where+ type AttrAllowedOps PixbufRowstridePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufRowstridePropertyInfo = (~) Int32+ type AttrBaseTypeConstraint PixbufRowstridePropertyInfo = PixbufK+ type AttrGetType PixbufRowstridePropertyInfo = Int32+ type AttrLabel PixbufRowstridePropertyInfo = "Pixbuf::rowstride"+ attrGet _ = getPixbufRowstride+ attrSet _ = undefined+ attrConstruct _ = constructPixbufRowstride++-- VVV Prop "width"+ -- Type: TBasicType TInt32+ -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getPixbufWidth :: (MonadIO m, PixbufK o) => o -> m Int32+getPixbufWidth obj = liftIO $ getObjectPropertyCInt obj "width"++constructPixbufWidth :: Int32 -> IO ([Char], GValue)+constructPixbufWidth val = constructObjectPropertyCInt "width" val++data PixbufWidthPropertyInfo+instance AttrInfo PixbufWidthPropertyInfo where+ type AttrAllowedOps PixbufWidthPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufWidthPropertyInfo = (~) Int32+ type AttrBaseTypeConstraint PixbufWidthPropertyInfo = PixbufK+ type AttrGetType PixbufWidthPropertyInfo = Int32+ type AttrLabel PixbufWidthPropertyInfo = "Pixbuf::width"+ attrGet _ = getPixbufWidth+ attrSet _ = undefined+ attrConstruct _ = constructPixbufWidth++type instance AttributeList Pixbuf = '[ '("bits-per-sample", PixbufBitsPerSamplePropertyInfo), '("colorspace", PixbufColorspacePropertyInfo), '("has-alpha", PixbufHasAlphaPropertyInfo), '("height", PixbufHeightPropertyInfo), '("n-channels", PixbufNChannelsPropertyInfo), '("pixel-bytes", PixbufPixelBytesPropertyInfo), '("pixels", PixbufPixelsPropertyInfo), '("rowstride", PixbufRowstridePropertyInfo), '("width", PixbufWidthPropertyInfo)]++type instance AttributeList PixbufAnimation = '[ ]++type instance AttributeList PixbufAnimationIter = '[ ]++type instance AttributeList PixbufLoader = '[ ]++-- VVV Prop "loop"+ -- Type: TBasicType TBoolean+ -- Flags: [PropertyReadable,PropertyWritable]++getPixbufSimpleAnimLoop :: (MonadIO m, PixbufSimpleAnimK o) => o -> m Bool+getPixbufSimpleAnimLoop obj = liftIO $ getObjectPropertyBool obj "loop"++setPixbufSimpleAnimLoop :: (MonadIO m, PixbufSimpleAnimK o) => o -> Bool -> m ()+setPixbufSimpleAnimLoop obj val = liftIO $ setObjectPropertyBool obj "loop" val++constructPixbufSimpleAnimLoop :: Bool -> IO ([Char], GValue)+constructPixbufSimpleAnimLoop val = constructObjectPropertyBool "loop" val++data PixbufSimpleAnimLoopPropertyInfo+instance AttrInfo PixbufSimpleAnimLoopPropertyInfo where+ type AttrAllowedOps PixbufSimpleAnimLoopPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+ type AttrSetTypeConstraint PixbufSimpleAnimLoopPropertyInfo = (~) Bool+ type AttrBaseTypeConstraint PixbufSimpleAnimLoopPropertyInfo = PixbufSimpleAnimK+ type AttrGetType PixbufSimpleAnimLoopPropertyInfo = Bool+ type AttrLabel PixbufSimpleAnimLoopPropertyInfo = "PixbufSimpleAnim::loop"+ attrGet _ = getPixbufSimpleAnimLoop+ attrSet _ = setPixbufSimpleAnimLoop+ attrConstruct _ = constructPixbufSimpleAnimLoop++type instance AttributeList PixbufSimpleAnim = '[ '("loop", PixbufSimpleAnimLoopPropertyInfo)]++type instance AttributeList PixbufSimpleAnimIter = '[ ]+
+ GI/GdkPixbufSignals.hs view
@@ -0,0 +1,49 @@+-- Generated code.++{-# OPTIONS_GHC -fno-warn-orphans #-}++{-# LANGUAGE DataKinds, FlexibleInstances,+ TypeFamilies, MultiParamTypeClasses,+ TypeOperators #-}++module GI.GdkPixbufSignals where++import Data.GI.Base.Properties (GObjectNotifySignalInfo)+import Data.GI.Base.Signals+import Data.GI.Base.Overloading++import qualified GI.GObjectSignals as GObject+import GI.GdkPixbuf++type instance SignalList Pixbuf = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList PixbufAnimation = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList PixbufAnimationIter = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++data PixbufLoaderAreaPreparedSignalInfo+instance SignalInfo PixbufLoaderAreaPreparedSignalInfo where+ type HaskellCallbackType PixbufLoaderAreaPreparedSignalInfo = PixbufLoaderAreaPreparedCallback+ connectSignal _ = connectPixbufLoaderAreaPrepared++data PixbufLoaderAreaUpdatedSignalInfo+instance SignalInfo PixbufLoaderAreaUpdatedSignalInfo where+ type HaskellCallbackType PixbufLoaderAreaUpdatedSignalInfo = PixbufLoaderAreaUpdatedCallback+ connectSignal _ = connectPixbufLoaderAreaUpdated++data PixbufLoaderClosedSignalInfo+instance SignalInfo PixbufLoaderClosedSignalInfo where+ type HaskellCallbackType PixbufLoaderClosedSignalInfo = PixbufLoaderClosedCallback+ connectSignal _ = connectPixbufLoaderClosed++data PixbufLoaderSizePreparedSignalInfo+instance SignalInfo PixbufLoaderSizePreparedSignalInfo where+ type HaskellCallbackType PixbufLoaderSizePreparedSignalInfo = PixbufLoaderSizePreparedCallback+ connectSignal _ = connectPixbufLoaderSizePrepared++type instance SignalList PixbufLoader = '[ '("area-prepared", PixbufLoaderAreaPreparedSignalInfo), '("area-updated", PixbufLoaderAreaUpdatedSignalInfo), '("closed", PixbufLoaderClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("size-prepared", PixbufLoaderSizePreparedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList PixbufSimpleAnim = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList PixbufSimpleAnimIter = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]+
+ LICENSE view
@@ -0,0 +1,502 @@+ GNU LESSER GENERAL PUBLIC LICENSE+ Version 2.1, February 1999++ Copyright (C) 1991, 1999 Free Software Foundation, Inc.+ 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA+ Everyone is permitted to copy and distribute verbatim copies+ of this license document, but changing it is not allowed.++[This is the first released version of the Lesser GPL. It also counts+ as the successor of the GNU Library Public License, version 2, hence+ the version number 2.1.]++ Preamble++ The licenses for most software are designed to take away your+freedom to share and change it. By contrast, the GNU General Public+Licenses are intended to guarantee your freedom to share and change+free software--to make sure the software is free for all its users.++ This license, the Lesser General Public License, applies to some+specially designated software packages--typically libraries--of the+Free Software Foundation and other authors who decide to use it. You+can use it too, but we suggest you first think carefully about whether+this license or the ordinary General Public License is the better+strategy to use in any particular case, based on the explanations below.++ When we speak of free software, we are referring to freedom of use,+not price. Our General Public Licenses are designed to make sure that+you have the freedom to distribute copies of free software (and charge+for this service if you wish); that you receive source code or can get+it if you want it; that you can change the software and use pieces of+it in new free programs; and that you are informed that you can do+these things.++ To protect your rights, we need to make restrictions that forbid+distributors to deny you these rights or to ask you to surrender these+rights. These restrictions translate to certain responsibilities for+you if you distribute copies of the library or if you modify it.++ For example, if you distribute copies of the library, whether gratis+or for a fee, you must give the recipients all the rights that we gave+you. You must make sure that they, too, receive or can get the source+code. If you link other code with the library, you must provide+complete object files to the recipients, so that they can relink them+with the library after making changes to the library and recompiling+it. And you must show them these terms so they know their rights.++ We protect your rights with a two-step method: (1) we copyright the+library, and (2) we offer you this license, which gives you legal+permission to copy, distribute and/or modify the library.++ To protect each distributor, we want to make it very clear that+there is no warranty for the free library. Also, if the library is+modified by someone else and passed on, the recipients should know+that what they have is not the original version, so that the original+author's reputation will not be affected by problems that might be+introduced by others.++ Finally, software patents pose a constant threat to the existence of+any free program. We wish to make sure that a company cannot+effectively restrict the users of a free program by obtaining a+restrictive license from a patent holder. Therefore, we insist that+any patent license obtained for a version of the library must be+consistent with the full freedom of use specified in this license.++ Most GNU software, including some libraries, is covered by the+ordinary GNU General Public License. This license, the GNU Lesser+General Public License, applies to certain designated libraries, and+is quite different from the ordinary General Public License. We use+this license for certain libraries in order to permit linking those+libraries into non-free programs.++ When a program is linked with a library, whether statically or using+a shared library, the combination of the two is legally speaking a+combined work, a derivative of the original library. The ordinary+General Public License therefore permits such linking only if the+entire combination fits its criteria of freedom. The Lesser General+Public License permits more lax criteria for linking other code with+the library.++ We call this license the "Lesser" General Public License because it+does Less to protect the user's freedom than the ordinary General+Public License. It also provides other free software developers Less+of an advantage over competing non-free programs. These disadvantages+are the reason we use the ordinary General Public License for many+libraries. However, the Lesser license provides advantages in certain+special circumstances.++ For example, on rare occasions, there may be a special need to+encourage the widest possible use of a certain library, so that it becomes+a de-facto standard. To achieve this, non-free programs must be+allowed to use the library. A more frequent case is that a free+library does the same job as widely used non-free libraries. In this+case, there is little to gain by limiting the free library to free+software only, so we use the Lesser General Public License.++ In other cases, permission to use a particular library in non-free+programs enables a greater number of people to use a large body of+free software. For example, permission to use the GNU C Library in+non-free programs enables many more people to use the whole GNU+operating system, as well as its variant, the GNU/Linux operating+system.++ Although the Lesser General Public License is Less protective of the+users' freedom, it does ensure that the user of a program that is+linked with the Library has the freedom and the wherewithal to run+that program using a modified version of the Library.++ The precise terms and conditions for copying, distribution and+modification follow. Pay close attention to the difference between a+"work based on the library" and a "work that uses the library". The+former contains code derived from the library, whereas the latter must+be combined with the library in order to run.++ GNU LESSER GENERAL PUBLIC LICENSE+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION++ 0. This License Agreement applies to any software library or other+program which contains a notice placed by the copyright holder or+other authorized party saying it may be distributed under the terms of+this Lesser General Public License (also called "this License").+Each licensee is addressed as "you".++ A "library" means a collection of software functions and/or data+prepared so as to be conveniently linked with application programs+(which use some of those functions and data) to form executables.++ The "Library", below, refers to any such software library or work+which has been distributed under these terms. A "work based on the+Library" means either the Library or any derivative work under+copyright law: that is to say, a work containing the Library or a+portion of it, either verbatim or with modifications and/or translated+straightforwardly into another language. (Hereinafter, translation is+included without limitation in the term "modification".)++ "Source code" for a work means the preferred form of the work for+making modifications to it. For a library, complete source code means+all the source code for all modules it contains, plus any associated+interface definition files, plus the scripts used to control compilation+and installation of the library.++ Activities other than copying, distribution and modification are not+covered by this License; they are outside its scope. The act of+running a program using the Library is not restricted, and output from+such a program is covered only if its contents constitute a work based+on the Library (independent of the use of the Library in a tool for+writing it). Whether that is true depends on what the Library does+and what the program that uses the Library does.++ 1. You may copy and distribute verbatim copies of the Library's+complete source code as you receive it, in any medium, provided that+you conspicuously and appropriately publish on each copy an+appropriate copyright notice and disclaimer of warranty; keep intact+all the notices that refer to this License and to the absence of any+warranty; and distribute a copy of this License along with the+Library.++ You may charge a fee for the physical act of transferring a copy,+and you may at your option offer warranty protection in exchange for a+fee.++ 2. You may modify your copy or copies of the Library or any portion+of it, thus forming a work based on the Library, and copy and+distribute such modifications or work under the terms of Section 1+above, provided that you also meet all of these conditions:++ a) The modified work must itself be a software library.++ b) You must cause the files modified to carry prominent notices+ stating that you changed the files and the date of any change.++ c) You must cause the whole of the work to be licensed at no+ charge to all third parties under the terms of this License.++ d) If a facility in the modified Library refers to a function or a+ table of data to be supplied by an application program that uses+ the facility, other than as an argument passed when the facility+ is invoked, then you must make a good faith effort to ensure that,+ in the event an application does not supply such function or+ table, the facility still operates, and performs whatever part of+ its purpose remains meaningful.++ (For example, a function in a library to compute square roots has+ a purpose that is entirely well-defined independent of the+ application. Therefore, Subsection 2d requires that any+ application-supplied function or table used by this function must+ be optional: if the application does not supply it, the square+ root function must still compute square roots.)++These requirements apply to the modified work as a whole. If+identifiable sections of that work are not derived from the Library,+and can be reasonably considered independent and separate works in+themselves, then this License, and its terms, do not apply to those+sections when you distribute them as separate works. But when you+distribute the same sections as part of a whole which is a work based+on the Library, the distribution of the whole must be on the terms of+this License, whose permissions for other licensees extend to the+entire whole, and thus to each and every part regardless of who wrote+it.++Thus, it is not the intent of this section to claim rights or contest+your rights to work written entirely by you; rather, the intent is to+exercise the right to control the distribution of derivative or+collective works based on the Library.++In addition, mere aggregation of another work not based on the Library+with the Library (or with a work based on the Library) on a volume of+a storage or distribution medium does not bring the other work under+the scope of this License.++ 3. You may opt to apply the terms of the ordinary GNU General Public+License instead of this License to a given copy of the Library. To do+this, you must alter all the notices that refer to this License, so+that they refer to the ordinary GNU General Public License, version 2,+instead of to this License. (If a newer version than version 2 of the+ordinary GNU General Public License has appeared, then you can specify+that version instead if you wish.) Do not make any other change in+these notices.++ Once this change is made in a given copy, it is irreversible for+that copy, so the ordinary GNU General Public License applies to all+subsequent copies and derivative works made from that copy.++ This option is useful when you wish to copy part of the code of+the Library into a program that is not a library.++ 4. You may copy and distribute the Library (or a portion or+derivative of it, under Section 2) in object code or executable form+under the terms of Sections 1 and 2 above provided that you accompany+it with the complete corresponding machine-readable source code, which+must be distributed under the terms of Sections 1 and 2 above on a+medium customarily used for software interchange.++ If distribution of object code is made by offering access to copy+from a designated place, then offering equivalent access to copy the+source code from the same place satisfies the requirement to+distribute the source code, even though third parties are not+compelled to copy the source along with the object code.++ 5. A program that contains no derivative of any portion of the+Library, but is designed to work with the Library by being compiled or+linked with it, is called a "work that uses the Library". Such a+work, in isolation, is not a derivative work of the Library, and+therefore falls outside the scope of this License.++ However, linking a "work that uses the Library" with the Library+creates an executable that is a derivative of the Library (because it+contains portions of the Library), rather than a "work that uses the+library". The executable is therefore covered by this License.+Section 6 states terms for distribution of such executables.++ When a "work that uses the Library" uses material from a header file+that is part of the Library, the object code for the work may be a+derivative work of the Library even though the source code is not.+Whether this is true is especially significant if the work can be+linked without the Library, or if the work is itself a library. The+threshold for this to be true is not precisely defined by law.++ If such an object file uses only numerical parameters, data+structure layouts and accessors, and small macros and small inline+functions (ten lines or less in length), then the use of the object+file is unrestricted, regardless of whether it is legally a derivative+work. (Executables containing this object code plus portions of the+Library will still fall under Section 6.)++ Otherwise, if the work is a derivative of the Library, you may+distribute the object code for the work under the terms of Section 6.+Any executables containing that work also fall under Section 6,+whether or not they are linked directly with the Library itself.++ 6. As an exception to the Sections above, you may also combine or+link a "work that uses the Library" with the Library to produce a+work containing portions of the Library, and distribute that work+under terms of your choice, provided that the terms permit+modification of the work for the customer's own use and reverse+engineering for debugging such modifications.++ You must give prominent notice with each copy of the work that the+Library is used in it and that the Library and its use are covered by+this License. You must supply a copy of this License. If the work+during execution displays copyright notices, you must include the+copyright notice for the Library among them, as well as a reference+directing the user to the copy of this License. Also, you must do one+of these things:++ a) Accompany the work with the complete corresponding+ machine-readable source code for the Library including whatever+ changes were used in the work (which must be distributed under+ Sections 1 and 2 above); and, if the work is an executable linked+ with the Library, with the complete machine-readable "work that+ uses the Library", as object code and/or source code, so that the+ user can modify the Library and then relink to produce a modified+ executable containing the modified Library. (It is understood+ that the user who changes the contents of definitions files in the+ Library will not necessarily be able to recompile the application+ to use the modified definitions.)++ b) Use a suitable shared library mechanism for linking with the+ Library. A suitable mechanism is one that (1) uses at run time a+ copy of the library already present on the user's computer system,+ rather than copying library functions into the executable, and (2)+ will operate properly with a modified version of the library, if+ the user installs one, as long as the modified version is+ interface-compatible with the version that the work was made with.++ c) Accompany the work with a written offer, valid for at+ least three years, to give the same user the materials+ specified in Subsection 6a, above, for a charge no more+ than the cost of performing this distribution.++ d) If distribution of the work is made by offering access to copy+ from a designated place, offer equivalent access to copy the above+ specified materials from the same place.++ e) Verify that the user has already received a copy of these+ materials or that you have already sent this user a copy.++ For an executable, the required form of the "work that uses the+Library" must include any data and utility programs needed for+reproducing the executable from it. However, as a special exception,+the materials to be distributed need not include anything that is+normally distributed (in either source or binary form) with the major+components (compiler, kernel, and so on) of the operating system on+which the executable runs, unless that component itself accompanies+the executable.++ It may happen that this requirement contradicts the license+restrictions of other proprietary libraries that do not normally+accompany the operating system. Such a contradiction means you cannot+use both them and the Library together in an executable that you+distribute.++ 7. You may place library facilities that are a work based on the+Library side-by-side in a single library together with other library+facilities not covered by this License, and distribute such a combined+library, provided that the separate distribution of the work based on+the Library and of the other library facilities is otherwise+permitted, and provided that you do these two things:++ a) Accompany the combined library with a copy of the same work+ based on the Library, uncombined with any other library+ facilities. This must be distributed under the terms of the+ Sections above.++ b) Give prominent notice with the combined library of the fact+ that part of it is a work based on the Library, and explaining+ where to find the accompanying uncombined form of the same work.++ 8. You may not copy, modify, sublicense, link with, or distribute+the Library except as expressly provided under this License. Any+attempt otherwise to copy, modify, sublicense, link with, or+distribute the Library is void, and will automatically terminate your+rights under this License. However, parties who have received copies,+or rights, from you under this License will not have their licenses+terminated so long as such parties remain in full compliance.++ 9. You are not required to accept this License, since you have not+signed it. However, nothing else grants you permission to modify or+distribute the Library or its derivative works. These actions are+prohibited by law if you do not accept this License. Therefore, by+modifying or distributing the Library (or any work based on the+Library), you indicate your acceptance of this License to do so, and+all its terms and conditions for copying, distributing or modifying+the Library or works based on it.++ 10. Each time you redistribute the Library (or any work based on the+Library), the recipient automatically receives a license from the+original licensor to copy, distribute, link with or modify the Library+subject to these terms and conditions. You may not impose any further+restrictions on the recipients' exercise of the rights granted herein.+You are not responsible for enforcing compliance by third parties with+this License.++ 11. If, as a consequence of a court judgment or allegation of patent+infringement or for any other reason (not limited to patent issues),+conditions are imposed on you (whether by court order, agreement or+otherwise) that contradict the conditions of this License, they do not+excuse you from the conditions of this License. If you cannot+distribute so as to satisfy simultaneously your obligations under this+License and any other pertinent obligations, then as a consequence you+may not distribute the Library at all. For example, if a patent+license would not permit royalty-free redistribution of the Library by+all those who receive copies directly or indirectly through you, then+the only way you could satisfy both it and this License would be to+refrain entirely from distribution of the Library.++If any portion of this section is held invalid or unenforceable under any+particular circumstance, the balance of the section is intended to apply,+and the section as a whole is intended to apply in other circumstances.++It is not the purpose of this section to induce you to infringe any+patents or other property right claims or to contest validity of any+such claims; this section has the sole purpose of protecting the+integrity of the free software distribution system which is+implemented by public license practices. Many people have made+generous contributions to the wide range of software distributed+through that system in reliance on consistent application of that+system; it is up to the author/donor to decide if he or she is willing+to distribute software through any other system and a licensee cannot+impose that choice.++This section is intended to make thoroughly clear what is believed to+be a consequence of the rest of this License.++ 12. If the distribution and/or use of the Library is restricted in+certain countries either by patents or by copyrighted interfaces, the+original copyright holder who places the Library under this License may add+an explicit geographical distribution limitation excluding those countries,+so that distribution is permitted only in or among countries not thus+excluded. In such case, this License incorporates the limitation as if+written in the body of this License.++ 13. The Free Software Foundation may publish revised and/or new+versions of the Lesser General Public License from time to time.+Such new versions will be similar in spirit to the present version,+but may differ in detail to address new problems or concerns.++Each version is given a distinguishing version number. If the Library+specifies a version number of this License which applies to it and+"any later version", you have the option of following the terms and+conditions either of that version or of any later version published by+the Free Software Foundation. If the Library does not specify a+license version number, you may choose any version ever published by+the Free Software Foundation.++ 14. If you wish to incorporate parts of the Library into other free+programs whose distribution conditions are incompatible with these,+write to the author to ask for permission. For software which is+copyrighted by the Free Software Foundation, write to the Free+Software Foundation; we sometimes make exceptions for this. Our+decision will be guided by the two goals of preserving the free status+of all derivatives of our free software and of promoting the sharing+and reuse of software generally.++ NO WARRANTY++ 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE+LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.++ 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH+DAMAGES.++ END OF TERMS AND CONDITIONS++ How to Apply These Terms to Your New Libraries++ If you develop a new library, and you want it to be of the greatest+possible use to the public, we recommend making it free software that+everyone can redistribute and change. You can do so by permitting+redistribution under these terms (or, alternatively, under the terms of the+ordinary General Public License).++ To apply these terms, attach the following notices to the library. It is+safest to attach them to the start of each source file to most effectively+convey the exclusion of warranty; and each file should have at least the+"copyright" line and a pointer to where the full notice is found.++ <one line to give the library's name and a brief idea of what it does.>+ Copyright (C) <year> <name of author>++ This library is free software; you can redistribute it and/or+ modify it under the terms of the GNU Lesser General Public+ License as published by the Free Software Foundation; either+ version 2.1 of the License, or (at your option) any later version.++ This library is distributed in the hope that it will be useful,+ but WITHOUT ANY WARRANTY; without even the implied warranty of+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU+ Lesser General Public License for more details.++ You should have received a copy of the GNU Lesser General Public+ License along with this library; if not, write to the Free Software+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA++Also add information on how to contact you by electronic and paper mail.++You should also get your employer (if you work as a programmer) or your+school, if any, to sign a "copyright disclaimer" for the library, if+necessary. Here is a sample; alter the names:++ Yoyodyne, Inc., hereby disclaims all copyright interest in the+ library `Frob' (a library for tweaking knobs) written by James Random Hacker.++ <signature of Ty Coon>, 1 April 1990+ Ty Coon, President of Vice++That's all there is to it!
+ Setup.hs view
@@ -0,0 +1,3 @@+#!/usr/bin/env runhaskell+import Distribution.Simple+main = defaultMain
+ gi-gdkpixbuf.cabal view
@@ -0,0 +1,27 @@+-- Autogenerated, do not edit.+name: gi-gdkpixbuf+version: 0.2.31.8+synopsis: GdkPixbuf bindings+description: Bindings for GdkPixbuf, autogenerated by haskell-gi.+homepage: https://github.com/haskell-gi/haskell-gi+license: LGPL-2.1+license-file: LICENSE+author: Will Thompson, Iñaki García Etxebarria and Jonas Platte+maintainer: Iñaki García Etxebarria (garetxe@gmail.com)+category: Bindings+build-type: Simple+cabal-version: >=1.10++library+ default-language: Haskell2010+ exposed-modules: GI.GdkPixbuf, GI.GdkPixbufAttributes, GI.GdkPixbufSignals+ pkgconfig-depends: gdk-pixbuf-2.0 >= 2.31+ build-depends: base >= 4.6 && <4.9,+ haskell-gi-base >= 0.8 && < 1,+ gi-glib >= 0.2.44.8 && < 0.3,+ gi-gobject >= 0.2.44.8 && < 0.3,+ gi-gio >= 0.2.44.8 && < 0.3,+ bytestring >= 0.10,+ containers >= 0.5,+ text >= 1.0,+ transformers >= 0.3