diff --git a/GI/GdkPixbuf.hs b/GI/GdkPixbuf.hs --- a/GI/GdkPixbuf.hs +++ b/GI/GdkPixbuf.hs @@ -1,38 +1,3701 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf - ( module GI.GdkPixbuf.Callbacks , - module GI.GdkPixbuf.Constants , - module GI.GdkPixbuf.Enums , - module GI.GdkPixbuf.Flags , - module GI.GdkPixbuf.Functions , - module GI.GdkPixbuf.Objects , - module GI.GdkPixbuf.Structs , - - - ) where - -import GI.GdkPixbuf.Callbacks -import GI.GdkPixbuf.Constants -import GI.GdkPixbuf.Enums -import GI.GdkPixbuf.Flags -import GI.GdkPixbuf.Functions -import GI.GdkPixbuf.Objects -import GI.GdkPixbuf.Structs - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks - +-- 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 + checkUnexpectedReturnNULL "gdk_pixbuf_new" result + result' <- (wrapObject Pixbuf) result + return result' + +-- method Pixbuf::new_from_bytes +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_bytes" gdk_pixbuf_new_from_bytes :: + Ptr GLib.Bytes -> -- data : TInterface "GLib" "Bytes" + CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace" + CInt -> -- has_alpha : TBasicType TBoolean + Int32 -> -- bits_per_sample : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + Int32 -> -- rowstride : TBasicType TInt32 + IO (Ptr Pixbuf) + + +pixbufNewFromBytes :: + (MonadIO m) => + GLib.Bytes -> -- data + Colorspace -> -- colorspace + Bool -> -- has_alpha + Int32 -> -- bits_per_sample + Int32 -> -- width + Int32 -> -- height + Int32 -> -- rowstride + m Pixbuf +pixbufNewFromBytes data_ colorspace has_alpha bits_per_sample width height rowstride = liftIO $ do + let data_' = unsafeManagedPtrGetPtr data_ + let colorspace' = (fromIntegral . fromEnum) colorspace + let has_alpha' = (fromIntegral . fromEnum) has_alpha + result <- gdk_pixbuf_new_from_bytes data_' colorspace' has_alpha' bits_per_sample width height rowstride + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_bytes" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr data_ + return result' + +-- method Pixbuf::new_from_data +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_data" gdk_pixbuf_new_from_data :: + Ptr Word8 -> -- data : TCArray False (-1) (-1) (TBasicType TUInt8) + CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace" + CInt -> -- has_alpha : TBasicType TBoolean + Int32 -> -- bits_per_sample : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + Int32 -> -- rowstride : TBasicType TInt32 + FunPtr PixbufDestroyNotifyC -> -- destroy_fn : TInterface "GdkPixbuf" "PixbufDestroyNotify" + Ptr () -> -- destroy_fn_data : TBasicType TVoid + IO (Ptr Pixbuf) + + +pixbufNewFromData :: + (MonadIO m) => + Ptr Word8 -> -- data + Colorspace -> -- colorspace + Bool -> -- has_alpha + Int32 -> -- bits_per_sample + Int32 -> -- width + Int32 -> -- height + Int32 -> -- rowstride + Maybe (PixbufDestroyNotify) -> -- destroy_fn + m Pixbuf +pixbufNewFromData data_ colorspace has_alpha bits_per_sample width height rowstride destroy_fn = liftIO $ do + let colorspace' = (fromIntegral . fromEnum) colorspace + let has_alpha' = (fromIntegral . fromEnum) has_alpha + ptrdestroy_fn <- callocMem :: IO (Ptr (FunPtr PixbufDestroyNotifyC)) + maybeDestroy_fn <- case destroy_fn of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jDestroy_fn -> do + jDestroy_fn' <- mkPixbufDestroyNotify (pixbufDestroyNotifyWrapper (Just ptrdestroy_fn) jDestroy_fn) + poke ptrdestroy_fn jDestroy_fn' + return jDestroy_fn' + let destroy_fn_data = nullPtr + result <- gdk_pixbuf_new_from_data data_ colorspace' has_alpha' bits_per_sample width height rowstride maybeDestroy_fn destroy_fn_data + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_data" result + result' <- (wrapObject Pixbuf) result + return result' + +-- method Pixbuf::new_from_file +-- method type : Constructor +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_file" gdk_pixbuf_new_from_file :: + CString -> -- filename : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromFile :: + (MonadIO m) => + T.Text -> -- filename + m Pixbuf +pixbufNewFromFile filename = liftIO $ do + filename' <- textToCString filename + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_file filename' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file" result + result' <- (wrapObject Pixbuf) result + freeMem filename' + return result' + ) (do + freeMem filename' + ) + +-- method Pixbuf::new_from_file_at_scale +-- method type : Constructor +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_file_at_scale" gdk_pixbuf_new_from_file_at_scale :: + CString -> -- filename : TBasicType TUTF8 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + CInt -> -- preserve_aspect_ratio : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromFileAtScale :: + (MonadIO m) => + T.Text -> -- filename + Int32 -> -- width + Int32 -> -- height + Bool -> -- preserve_aspect_ratio + m Pixbuf +pixbufNewFromFileAtScale filename width height preserve_aspect_ratio = liftIO $ do + filename' <- textToCString filename + let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_file_at_scale filename' width height preserve_aspect_ratio' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file_at_scale" result + result' <- (wrapObject Pixbuf) result + freeMem filename' + return result' + ) (do + freeMem filename' + ) + +-- method Pixbuf::new_from_file_at_size +-- method type : Constructor +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_file_at_size" gdk_pixbuf_new_from_file_at_size :: + CString -> -- filename : TBasicType TUTF8 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromFileAtSize :: + (MonadIO m) => + T.Text -> -- filename + Int32 -> -- width + Int32 -> -- height + m Pixbuf +pixbufNewFromFileAtSize filename width height = liftIO $ do + filename' <- textToCString filename + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_file_at_size filename' width height + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file_at_size" result + result' <- (wrapObject Pixbuf) result + freeMem filename' + return result' + ) (do + freeMem filename' + ) + +-- method Pixbuf::new_from_inline +-- method type : Constructor +-- Args : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_inline" gdk_pixbuf_new_from_inline :: + Int32 -> -- data_length : TBasicType TInt32 + Ptr Word8 -> -- data : TCArray False (-1) 0 (TBasicType TUInt8) + CInt -> -- copy_pixels : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + +{-# DEPRECATED pixbufNewFromInline ["(Since version 2.32)","Use #GResource instead."]#-} +pixbufNewFromInline :: + (MonadIO m) => + ByteString -> -- data + Bool -> -- copy_pixels + m Pixbuf +pixbufNewFromInline data_ copy_pixels = liftIO $ do + let data_length = fromIntegral $ B.length data_ + data_' <- packByteString data_ + let copy_pixels' = (fromIntegral . fromEnum) copy_pixels + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_inline data_length data_' copy_pixels' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_inline" result + result' <- (wrapObject Pixbuf) result + freeMem data_' + return result' + ) (do + freeMem data_' + ) + +-- method Pixbuf::new_from_resource +-- method type : Constructor +-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_resource" gdk_pixbuf_new_from_resource :: + CString -> -- resource_path : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromResource :: + (MonadIO m) => + T.Text -> -- resource_path + m Pixbuf +pixbufNewFromResource resource_path = liftIO $ do + resource_path' <- textToCString resource_path + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_resource resource_path' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource" result + result' <- (wrapObject Pixbuf) result + freeMem resource_path' + return result' + ) (do + freeMem resource_path' + ) + +-- method Pixbuf::new_from_resource_at_scale +-- method type : Constructor +-- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_resource_at_scale" gdk_pixbuf_new_from_resource_at_scale :: + CString -> -- resource_path : TBasicType TUTF8 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + CInt -> -- preserve_aspect_ratio : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromResourceAtScale :: + (MonadIO m) => + T.Text -> -- resource_path + Int32 -> -- width + Int32 -> -- height + Bool -> -- preserve_aspect_ratio + m Pixbuf +pixbufNewFromResourceAtScale resource_path width height preserve_aspect_ratio = liftIO $ do + resource_path' <- textToCString resource_path + let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_resource_at_scale resource_path' width height preserve_aspect_ratio' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource_at_scale" result + result' <- (wrapObject Pixbuf) result + freeMem resource_path' + return result' + ) (do + freeMem resource_path' + ) + +-- method Pixbuf::new_from_stream +-- method type : Constructor +-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_stream" gdk_pixbuf_new_from_stream :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromStream :: + (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => + a -> -- stream + Maybe (b) -> -- cancellable + m Pixbuf +pixbufNewFromStream stream cancellable = liftIO $ do + let stream' = unsafeManagedPtrCastPtr stream + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_stream stream' maybeCancellable + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr stream + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + +-- method Pixbuf::new_from_stream_at_scale +-- method type : Constructor +-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_stream_at_scale" gdk_pixbuf_new_from_stream_at_scale :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + CInt -> -- preserve_aspect_ratio : TBasicType TBoolean + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromStreamAtScale :: + (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => + a -> -- stream + Int32 -> -- width + Int32 -> -- height + Bool -> -- preserve_aspect_ratio + Maybe (b) -> -- cancellable + m Pixbuf +pixbufNewFromStreamAtScale stream width height preserve_aspect_ratio cancellable = liftIO $ do + let stream' = unsafeManagedPtrCastPtr stream + let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_stream_at_scale stream' width height preserve_aspect_ratio' maybeCancellable + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream_at_scale" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr stream + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + +-- method Pixbuf::new_from_stream_finish +-- method type : Constructor +-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_stream_finish" gdk_pixbuf_new_from_stream_finish :: + Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + + +pixbufNewFromStreamFinish :: + (MonadIO m, Gio.AsyncResultK a) => + a -> -- async_result + m Pixbuf +pixbufNewFromStreamFinish async_result = liftIO $ do + let async_result' = unsafeManagedPtrCastPtr async_result + onException (do + result <- propagateGError $ gdk_pixbuf_new_from_stream_finish async_result' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream_finish" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr async_result + return result' + ) (do + return () + ) + +-- method Pixbuf::new_from_xpm_data +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_xpm_data" gdk_pixbuf_new_from_xpm_data :: + Ptr CString -> -- data : TCArray True (-1) (-1) (TBasicType TUTF8) + IO (Ptr Pixbuf) + + +pixbufNewFromXpmData :: + (MonadIO m) => + [T.Text] -> -- data + m Pixbuf +pixbufNewFromXpmData data_ = liftIO $ do + data_' <- packZeroTerminatedUTF8CArray data_ + result <- gdk_pixbuf_new_from_xpm_data data_' + checkUnexpectedReturnNULL "gdk_pixbuf_new_from_xpm_data" result + result' <- (wrapObject Pixbuf) result + mapZeroTerminatedCArray freeMem data_' + freeMem data_' + return result' + +-- method Pixbuf::add_alpha +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_add_alpha" gdk_pixbuf_add_alpha :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + CInt -> -- substitute_color : TBasicType TBoolean + Word8 -> -- r : TBasicType TUInt8 + Word8 -> -- g : TBasicType TUInt8 + Word8 -> -- b : TBasicType TUInt8 + IO (Ptr Pixbuf) + + +pixbufAddAlpha :: + (MonadIO m, PixbufK a) => + a -> -- _obj + Bool -> -- substitute_color + Word8 -> -- r + Word8 -> -- g + Word8 -> -- b + m Pixbuf +pixbufAddAlpha _obj substitute_color r g b = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let substitute_color' = (fromIntegral . fromEnum) substitute_color + result <- gdk_pixbuf_add_alpha _obj' substitute_color' r g b + checkUnexpectedReturnNULL "gdk_pixbuf_add_alpha" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::apply_embedded_orientation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_apply_embedded_orientation" gdk_pixbuf_apply_embedded_orientation :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO (Ptr Pixbuf) + + +pixbufApplyEmbeddedOrientation :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Pixbuf +pixbufApplyEmbeddedOrientation _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_apply_embedded_orientation _obj' + checkUnexpectedReturnNULL "gdk_pixbuf_apply_embedded_orientation" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::composite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_composite" gdk_pixbuf_composite :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- dest_x : TBasicType TInt32 + Int32 -> -- dest_y : TBasicType TInt32 + Int32 -> -- dest_width : TBasicType TInt32 + Int32 -> -- dest_height : TBasicType TInt32 + CDouble -> -- offset_x : TBasicType TDouble + CDouble -> -- offset_y : TBasicType TDouble + CDouble -> -- scale_x : TBasicType TDouble + CDouble -> -- scale_y : TBasicType TDouble + CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" + Int32 -> -- overall_alpha : TBasicType TInt32 + IO () + + +pixbufComposite :: + (MonadIO m, PixbufK a, PixbufK b) => + a -> -- _obj + b -> -- dest + Int32 -> -- dest_x + Int32 -> -- dest_y + Int32 -> -- dest_width + Int32 -> -- dest_height + Double -> -- offset_x + Double -> -- offset_y + Double -> -- scale_x + Double -> -- scale_y + InterpType -> -- interp_type + Int32 -> -- overall_alpha + m () +pixbufComposite _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest' = unsafeManagedPtrCastPtr dest + let offset_x' = realToFrac offset_x + let offset_y' = realToFrac offset_y + let scale_x' = realToFrac scale_x + let scale_y' = realToFrac scale_y + let interp_type' = (fromIntegral . fromEnum) interp_type + gdk_pixbuf_composite _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha + touchManagedPtr _obj + touchManagedPtr dest + return () + +-- method Pixbuf::composite_color +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_composite_color" gdk_pixbuf_composite_color :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- dest_x : TBasicType TInt32 + Int32 -> -- dest_y : TBasicType TInt32 + Int32 -> -- dest_width : TBasicType TInt32 + Int32 -> -- dest_height : TBasicType TInt32 + CDouble -> -- offset_x : TBasicType TDouble + CDouble -> -- offset_y : TBasicType TDouble + CDouble -> -- scale_x : TBasicType TDouble + CDouble -> -- scale_y : TBasicType TDouble + CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" + Int32 -> -- overall_alpha : TBasicType TInt32 + Int32 -> -- check_x : TBasicType TInt32 + Int32 -> -- check_y : TBasicType TInt32 + Int32 -> -- check_size : TBasicType TInt32 + Word32 -> -- color1 : TBasicType TUInt32 + Word32 -> -- color2 : TBasicType TUInt32 + IO () + + +pixbufCompositeColor :: + (MonadIO m, PixbufK a, PixbufK b) => + a -> -- _obj + b -> -- dest + Int32 -> -- dest_x + Int32 -> -- dest_y + Int32 -> -- dest_width + Int32 -> -- dest_height + Double -> -- offset_x + Double -> -- offset_y + Double -> -- scale_x + Double -> -- scale_y + InterpType -> -- interp_type + Int32 -> -- overall_alpha + Int32 -> -- check_x + Int32 -> -- check_y + Int32 -> -- check_size + Word32 -> -- color1 + Word32 -> -- color2 + m () +pixbufCompositeColor _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha check_x check_y check_size color1 color2 = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest' = unsafeManagedPtrCastPtr dest + let offset_x' = realToFrac offset_x + let offset_y' = realToFrac offset_y + let scale_x' = realToFrac scale_x + let scale_y' = realToFrac scale_y + let interp_type' = (fromIntegral . fromEnum) interp_type + gdk_pixbuf_composite_color _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha check_x check_y check_size color1 color2 + touchManagedPtr _obj + touchManagedPtr dest + return () + +-- method Pixbuf::composite_color_simple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_composite_color_simple" gdk_pixbuf_composite_color_simple :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- dest_width : TBasicType TInt32 + Int32 -> -- dest_height : TBasicType TInt32 + CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" + Int32 -> -- overall_alpha : TBasicType TInt32 + Int32 -> -- check_size : TBasicType TInt32 + Word32 -> -- color1 : TBasicType TUInt32 + Word32 -> -- color2 : TBasicType TUInt32 + IO (Ptr Pixbuf) + + +pixbufCompositeColorSimple :: + (MonadIO m, PixbufK a) => + a -> -- _obj + Int32 -> -- dest_width + Int32 -> -- dest_height + InterpType -> -- interp_type + Int32 -> -- overall_alpha + Int32 -> -- check_size + Word32 -> -- color1 + Word32 -> -- color2 + m Pixbuf +pixbufCompositeColorSimple _obj dest_width dest_height interp_type overall_alpha check_size color1 color2 = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let interp_type' = (fromIntegral . fromEnum) interp_type + result <- gdk_pixbuf_composite_color_simple _obj' dest_width dest_height interp_type' overall_alpha check_size color1 color2 + checkUnexpectedReturnNULL "gdk_pixbuf_composite_color_simple" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_copy" gdk_pixbuf_copy :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO (Ptr Pixbuf) + + +pixbufCopy :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Pixbuf +pixbufCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_copy _obj' + checkUnexpectedReturnNULL "gdk_pixbuf_copy" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::copy_area +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_copy_area" gdk_pixbuf_copy_area :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- src_x : TBasicType TInt32 + Int32 -> -- src_y : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + Ptr Pixbuf -> -- dest_pixbuf : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- dest_x : TBasicType TInt32 + Int32 -> -- dest_y : TBasicType TInt32 + IO () + + +pixbufCopyArea :: + (MonadIO m, PixbufK a, PixbufK b) => + a -> -- _obj + Int32 -> -- src_x + Int32 -> -- src_y + Int32 -> -- width + Int32 -> -- height + b -> -- dest_pixbuf + Int32 -> -- dest_x + Int32 -> -- dest_y + m () +pixbufCopyArea _obj src_x src_y width height dest_pixbuf dest_x dest_y = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest_pixbuf' = unsafeManagedPtrCastPtr dest_pixbuf + gdk_pixbuf_copy_area _obj' src_x src_y width height dest_pixbuf' dest_x dest_y + touchManagedPtr _obj + touchManagedPtr dest_pixbuf + return () + +-- method Pixbuf::fill +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_fill" gdk_pixbuf_fill :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Word32 -> -- pixel : TBasicType TUInt32 + IO () + + +pixbufFill :: + (MonadIO m, PixbufK a) => + a -> -- _obj + Word32 -> -- pixel + m () +pixbufFill _obj pixel = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + gdk_pixbuf_fill _obj' pixel + touchManagedPtr _obj + return () + +-- method Pixbuf::flip +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_flip" gdk_pixbuf_flip :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + CInt -> -- horizontal : TBasicType TBoolean + IO (Ptr Pixbuf) + + +pixbufFlip :: + (MonadIO m, PixbufK a) => + a -> -- _obj + Bool -> -- horizontal + m Pixbuf +pixbufFlip _obj horizontal = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let horizontal' = (fromIntegral . fromEnum) horizontal + result <- gdk_pixbuf_flip _obj' horizontal' + checkUnexpectedReturnNULL "gdk_pixbuf_flip" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::get_bits_per_sample +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_bits_per_sample" gdk_pixbuf_get_bits_per_sample :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO Int32 + + +pixbufGetBitsPerSample :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Int32 +pixbufGetBitsPerSample _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_bits_per_sample _obj' + touchManagedPtr _obj + return result + +-- method Pixbuf::get_byte_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_byte_length" gdk_pixbuf_get_byte_length :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO Word64 + + +pixbufGetByteLength :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Word64 +pixbufGetByteLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_byte_length _obj' + touchManagedPtr _obj + return result + +-- method Pixbuf::get_colorspace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Colorspace" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_colorspace" gdk_pixbuf_get_colorspace :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO CUInt + + +pixbufGetColorspace :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Colorspace +pixbufGetColorspace _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_colorspace _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::get_has_alpha +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_has_alpha" gdk_pixbuf_get_has_alpha :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO CInt + + +pixbufGetHasAlpha :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Bool +pixbufGetHasAlpha _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_has_alpha _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::get_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_height" gdk_pixbuf_get_height :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO Int32 + + +pixbufGetHeight :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Int32 +pixbufGetHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_height _obj' + touchManagedPtr _obj + return result + +-- method Pixbuf::get_n_channels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_n_channels" gdk_pixbuf_get_n_channels :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO Int32 + + +pixbufGetNChannels :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Int32 +pixbufGetNChannels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_n_channels _obj' + touchManagedPtr _obj + return result + +-- method Pixbuf::get_option +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_option" gdk_pixbuf_get_option :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + CString -> -- key : TBasicType TUTF8 + IO CString + + +pixbufGetOption :: + (MonadIO m, PixbufK a) => + a -> -- _obj + T.Text -> -- key + m T.Text +pixbufGetOption _obj key = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + key' <- textToCString key + result <- gdk_pixbuf_get_option _obj' key' + checkUnexpectedReturnNULL "gdk_pixbuf_get_option" result + result' <- cstringToText result + touchManagedPtr _obj + freeMem key' + return result' + +-- XXX Could not generate method Pixbuf::get_options +-- Error was : Not implemented: "Hash table argument with transfer = Container? result" +-- method Pixbuf::get_pixels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray False (-1) 1 (TBasicType TUInt8) +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_pixels_with_length" gdk_pixbuf_get_pixels_with_length :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Ptr Word32 -> -- length : TBasicType TUInt32 + IO (Ptr Word8) + + +pixbufGetPixels :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m ByteString +pixbufGetPixels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + length_ <- allocMem :: IO (Ptr Word32) + result <- gdk_pixbuf_get_pixels_with_length _obj' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "gdk_pixbuf_get_pixels_with_length" result + result' <- (unpackByteStringWithLength length_') result + touchManagedPtr _obj + freeMem length_ + return result' + +-- method Pixbuf::get_rowstride +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_rowstride" gdk_pixbuf_get_rowstride :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO Int32 + + +pixbufGetRowstride :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Int32 +pixbufGetRowstride _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_rowstride _obj' + touchManagedPtr _obj + return result + +-- method Pixbuf::get_width +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_width" gdk_pixbuf_get_width :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO Int32 + + +pixbufGetWidth :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Int32 +pixbufGetWidth _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_get_width _obj' + touchManagedPtr _obj + return result + +-- method Pixbuf::new_subpixbuf +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_subpixbuf" gdk_pixbuf_new_subpixbuf :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- src_x : TBasicType TInt32 + Int32 -> -- src_y : TBasicType TInt32 + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + IO (Ptr Pixbuf) + + +pixbufNewSubpixbuf :: + (MonadIO m, PixbufK a) => + a -> -- _obj + Int32 -> -- src_x + Int32 -> -- src_y + Int32 -> -- width + Int32 -> -- height + m Pixbuf +pixbufNewSubpixbuf _obj src_x src_y width height = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_new_subpixbuf _obj' src_x src_y width height + checkUnexpectedReturnNULL "gdk_pixbuf_new_subpixbuf" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::read_pixel_bytes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_read_pixel_bytes" gdk_pixbuf_read_pixel_bytes :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO (Ptr GLib.Bytes) + + +pixbufReadPixelBytes :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m GLib.Bytes +pixbufReadPixelBytes _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_read_pixel_bytes _obj' + checkUnexpectedReturnNULL "gdk_pixbuf_read_pixel_bytes" result + result' <- (wrapBoxed GLib.Bytes) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::read_pixels +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_read_pixels" gdk_pixbuf_read_pixels :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + IO Word8 + + +pixbufReadPixels :: + (MonadIO m, PixbufK a) => + a -> -- _obj + m Word8 +pixbufReadPixels _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- gdk_pixbuf_read_pixels _obj' + touchManagedPtr _obj + return result + +-- method Pixbuf::rotate_simple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_rotate_simple" gdk_pixbuf_rotate_simple :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + CUInt -> -- angle : TInterface "GdkPixbuf" "PixbufRotation" + IO (Ptr Pixbuf) + + +pixbufRotateSimple :: + (MonadIO m, PixbufK a) => + a -> -- _obj + PixbufRotation -> -- angle + m Pixbuf +pixbufRotateSimple _obj angle = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let angle' = (fromIntegral . fromEnum) angle + result <- gdk_pixbuf_rotate_simple _obj' angle' + checkUnexpectedReturnNULL "gdk_pixbuf_rotate_simple" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::saturate_and_pixelate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_saturate_and_pixelate" gdk_pixbuf_saturate_and_pixelate :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" + CFloat -> -- saturation : TBasicType TFloat + CInt -> -- pixelate : TBasicType TBoolean + IO () + + +pixbufSaturateAndPixelate :: + (MonadIO m, PixbufK a, PixbufK b) => + a -> -- _obj + b -> -- dest + Float -> -- saturation + Bool -> -- pixelate + m () +pixbufSaturateAndPixelate _obj dest saturation pixelate = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest' = unsafeManagedPtrCastPtr dest + let saturation' = realToFrac saturation + let pixelate' = (fromIntegral . fromEnum) pixelate + gdk_pixbuf_saturate_and_pixelate _obj' dest' saturation' pixelate' + touchManagedPtr _obj + touchManagedPtr dest + return () + +-- method Pixbuf::save_to_bufferv +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_save_to_bufferv" gdk_pixbuf_save_to_bufferv :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Ptr (Ptr Word8) -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) + Ptr Word64 -> -- buffer_size : TBasicType TUInt64 + CString -> -- type : TBasicType TUTF8 + Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr (Ptr GError) -> -- error + IO CInt + + +pixbufSaveToBufferv :: + (MonadIO m, PixbufK a) => + a -> -- _obj + T.Text -> -- type + [T.Text] -> -- option_keys + [T.Text] -> -- option_values + m (ByteString) +pixbufSaveToBufferv _obj type_ option_keys option_values = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + buffer <- allocMem :: IO (Ptr (Ptr Word8)) + buffer_size <- allocMem :: IO (Ptr Word64) + type_' <- textToCString type_ + option_keys' <- packZeroTerminatedUTF8CArray option_keys + option_values' <- packZeroTerminatedUTF8CArray option_values + onException (do + _ <- propagateGError $ gdk_pixbuf_save_to_bufferv _obj' buffer buffer_size type_' option_keys' option_values' + buffer_size' <- peek buffer_size + buffer' <- peek buffer + buffer'' <- (unpackByteStringWithLength buffer_size') buffer' + freeMem buffer' + touchManagedPtr _obj + freeMem buffer + freeMem buffer_size + freeMem type_' + mapZeroTerminatedCArray freeMem option_keys' + freeMem option_keys' + mapZeroTerminatedCArray freeMem option_values' + freeMem option_values' + return buffer'' + ) (do + freeMem buffer + freeMem buffer_size + freeMem type_' + mapZeroTerminatedCArray freeMem option_keys' + freeMem option_keys' + mapZeroTerminatedCArray freeMem option_values' + freeMem option_values' + ) + +-- method Pixbuf::save_to_callbackv +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_save_to_callbackv" gdk_pixbuf_save_to_callbackv :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + FunPtr PixbufSaveFuncC -> -- save_func : TInterface "GdkPixbuf" "PixbufSaveFunc" + Ptr () -> -- user_data : TBasicType TVoid + CString -> -- type : TBasicType TUTF8 + Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr (Ptr GError) -> -- error + IO CInt + + +pixbufSaveToCallbackv :: + (MonadIO m, PixbufK a) => + a -> -- _obj + PixbufSaveFunc -> -- save_func + T.Text -> -- type + [T.Text] -> -- option_keys + [T.Text] -> -- option_values + m () +pixbufSaveToCallbackv _obj save_func type_ option_keys option_values = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + save_func' <- mkPixbufSaveFunc (pixbufSaveFuncWrapper Nothing save_func) + type_' <- textToCString type_ + option_keys' <- packZeroTerminatedUTF8CArray option_keys + option_values' <- packZeroTerminatedUTF8CArray option_values + let user_data = nullPtr + onException (do + _ <- propagateGError $ gdk_pixbuf_save_to_callbackv _obj' save_func' user_data type_' option_keys' option_values' + safeFreeFunPtr $ castFunPtrToPtr save_func' + touchManagedPtr _obj + freeMem type_' + mapZeroTerminatedCArray freeMem option_keys' + freeMem option_keys' + mapZeroTerminatedCArray freeMem option_values' + freeMem option_values' + return () + ) (do + safeFreeFunPtr $ castFunPtrToPtr save_func' + freeMem type_' + mapZeroTerminatedCArray freeMem option_keys' + freeMem option_keys' + mapZeroTerminatedCArray freeMem option_values' + freeMem option_values' + ) + +-- method Pixbuf::savev +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_savev" gdk_pixbuf_savev :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + CString -> -- filename : TBasicType TUTF8 + CString -> -- type : TBasicType TUTF8 + Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr (Ptr GError) -> -- error + IO CInt + + +pixbufSavev :: + (MonadIO m, PixbufK a) => + a -> -- _obj + T.Text -> -- filename + T.Text -> -- type + [T.Text] -> -- option_keys + [T.Text] -> -- option_values + m () +pixbufSavev _obj filename type_ option_keys option_values = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filename' <- textToCString filename + type_' <- textToCString type_ + option_keys' <- packZeroTerminatedUTF8CArray option_keys + option_values' <- packZeroTerminatedUTF8CArray option_values + onException (do + _ <- propagateGError $ gdk_pixbuf_savev _obj' filename' type_' option_keys' option_values' + touchManagedPtr _obj + freeMem filename' + freeMem type_' + mapZeroTerminatedCArray freeMem option_keys' + freeMem option_keys' + mapZeroTerminatedCArray freeMem option_values' + freeMem option_values' + return () + ) (do + freeMem filename' + freeMem type_' + mapZeroTerminatedCArray freeMem option_keys' + freeMem option_keys' + mapZeroTerminatedCArray freeMem option_values' + freeMem option_values' + ) + +-- method Pixbuf::scale +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_scale" gdk_pixbuf_scale :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- dest_x : TBasicType TInt32 + Int32 -> -- dest_y : TBasicType TInt32 + Int32 -> -- dest_width : TBasicType TInt32 + Int32 -> -- dest_height : TBasicType TInt32 + CDouble -> -- offset_x : TBasicType TDouble + CDouble -> -- offset_y : TBasicType TDouble + CDouble -> -- scale_x : TBasicType TDouble + CDouble -> -- scale_y : TBasicType TDouble + CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" + IO () + + +pixbufScale :: + (MonadIO m, PixbufK a, PixbufK b) => + a -> -- _obj + b -> -- dest + Int32 -> -- dest_x + Int32 -> -- dest_y + Int32 -> -- dest_width + Int32 -> -- dest_height + Double -> -- offset_x + Double -> -- offset_y + Double -> -- scale_x + Double -> -- scale_y + InterpType -> -- interp_type + m () +pixbufScale _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let dest' = unsafeManagedPtrCastPtr dest + let offset_x' = realToFrac offset_x + let offset_y' = realToFrac offset_y + let scale_x' = realToFrac scale_x + let scale_y' = realToFrac scale_y + let interp_type' = (fromIntegral . fromEnum) interp_type + gdk_pixbuf_scale _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' + touchManagedPtr _obj + touchManagedPtr dest + return () + +-- method Pixbuf::scale_simple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_scale_simple" gdk_pixbuf_scale_simple :: + Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" + Int32 -> -- dest_width : TBasicType TInt32 + Int32 -> -- dest_height : TBasicType TInt32 + CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" + IO (Ptr Pixbuf) + + +pixbufScaleSimple :: + (MonadIO m, PixbufK a) => + a -> -- _obj + Int32 -> -- dest_width + Int32 -> -- dest_height + InterpType -> -- interp_type + m Pixbuf +pixbufScaleSimple _obj dest_width dest_height interp_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let interp_type' = (fromIntegral . fromEnum) interp_type + result <- gdk_pixbuf_scale_simple _obj' dest_width dest_height interp_type' + checkUnexpectedReturnNULL "gdk_pixbuf_scale_simple" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr _obj + return result' + +-- method Pixbuf::from_pixdata +-- method type : MemberFunction +-- Args : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "Pixbuf" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_from_pixdata" gdk_pixbuf_from_pixdata :: + Ptr Pixdata -> -- pixdata : TInterface "GdkPixbuf" "Pixdata" + CInt -> -- copy_pixels : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr Pixbuf) + +{-# DEPRECATED pixbufFromPixdata ["(Since version 2.32)","Use #GResource instead."]#-} +pixbufFromPixdata :: + (MonadIO m) => + Pixdata -> -- pixdata + Bool -> -- copy_pixels + m Pixbuf +pixbufFromPixdata pixdata copy_pixels = liftIO $ do + let pixdata' = unsafeManagedPtrGetPtr pixdata + let copy_pixels' = (fromIntegral . fromEnum) copy_pixels + onException (do + result <- propagateGError $ gdk_pixbuf_from_pixdata pixdata' copy_pixels' + checkUnexpectedReturnNULL "gdk_pixbuf_from_pixdata" result + result' <- (wrapObject Pixbuf) result + touchManagedPtr pixdata + return result' + ) (do + return () + ) + +-- method Pixbuf::get_file_info +-- method type : MemberFunction +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "PixbufFormat" +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_file_info" gdk_pixbuf_get_file_info :: + CString -> -- filename : TBasicType TUTF8 + Ptr Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- height : TBasicType TInt32 + IO (Ptr PixbufFormat) + + +pixbufGetFileInfo :: + (MonadIO m) => + T.Text -> -- filename + m (PixbufFormat,Int32,Int32) +pixbufGetFileInfo filename = liftIO $ do + filename' <- textToCString filename + width <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + result <- gdk_pixbuf_get_file_info filename' width height + checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info" result + result' <- (newBoxed PixbufFormat) result + width' <- peek width + height' <- peek height + freeMem filename' + freeMem width + freeMem height + return (result', width', height') + +-- method Pixbuf::get_file_info_async +-- method type : MemberFunction +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_file_info_async" gdk_pixbuf_get_file_info_async :: + CString -> -- filename : TBasicType TUTF8 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +pixbufGetFileInfoAsync :: + (MonadIO m, Gio.CancellableK a) => + T.Text -> -- filename + Maybe (a) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +pixbufGetFileInfoAsync filename cancellable callback = liftIO $ do + filename' <- textToCString filename + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + gdk_pixbuf_get_file_info_async filename' maybeCancellable maybeCallback user_data + whenJust cancellable touchManagedPtr + freeMem filename' + return () + +-- method Pixbuf::get_file_info_finish +-- method type : MemberFunction +-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GdkPixbuf" "PixbufFormat" +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_file_info_finish" gdk_pixbuf_get_file_info_finish :: + Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult" + Ptr Int32 -> -- width : TBasicType TInt32 + Ptr Int32 -> -- height : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO (Ptr PixbufFormat) + + +pixbufGetFileInfoFinish :: + (MonadIO m, Gio.AsyncResultK a) => + a -> -- async_result + m (PixbufFormat,Int32,Int32) +pixbufGetFileInfoFinish async_result = liftIO $ do + let async_result' = unsafeManagedPtrCastPtr async_result + width <- allocMem :: IO (Ptr Int32) + height <- allocMem :: IO (Ptr Int32) + onException (do + result <- propagateGError $ gdk_pixbuf_get_file_info_finish async_result' width height + checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info_finish" result + result' <- (newBoxed PixbufFormat) result + width' <- peek width + height' <- peek height + touchManagedPtr async_result + freeMem width + freeMem height + return (result', width', height') + ) (do + freeMem width + freeMem height + ) + +-- method Pixbuf::get_formats +-- method type : MemberFunction +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TGSList (TInterface "GdkPixbuf" "PixbufFormat") +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_get_formats" gdk_pixbuf_get_formats :: + IO (Ptr (GSList (Ptr PixbufFormat))) + + +pixbufGetFormats :: + (MonadIO m) => + m [PixbufFormat] +pixbufGetFormats = liftIO $ do + result <- gdk_pixbuf_get_formats + checkUnexpectedReturnNULL "gdk_pixbuf_get_formats" result + result' <- unpackGSList result + result'' <- mapM (newBoxed PixbufFormat) result' + g_slist_free result + return result'' + +-- method Pixbuf::new_from_stream_async +-- method type : MemberFunction +-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_stream_async" gdk_pixbuf_new_from_stream_async :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +pixbufNewFromStreamAsync :: + (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => + a -> -- stream + Maybe (b) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +pixbufNewFromStreamAsync stream cancellable callback = liftIO $ do + let stream' = unsafeManagedPtrCastPtr stream + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + gdk_pixbuf_new_from_stream_async stream' maybeCancellable maybeCallback user_data + touchManagedPtr stream + whenJust cancellable touchManagedPtr + return () + +-- method Pixbuf::new_from_stream_at_scale_async +-- method type : MemberFunction +-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "gdk_pixbuf_new_from_stream_at_scale_async" gdk_pixbuf_new_from_stream_at_scale_async :: + Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" + Int32 -> -- width : TBasicType TInt32 + Int32 -> -- height : TBasicType TInt32 + CInt -> -- preserve_aspect_ratio : TBasicType TBoolean + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +pixbufNewFromStreamAtScaleAsync :: + (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => + a -> -- stream + Int32 -> -- width + Int32 -> -- height + Bool -> -- preserve_aspect_ratio + Maybe (b) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +pixbufNewFromStreamAtScaleAsync stream width height preserve_aspect_ratio cancellable callback = liftIO $ do + let stream' = unsafeManagedPtrCastPtr stream + let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + gdk_pixbuf_new_from_stream_at_scale_async stream' width height preserve_aspect_ratio' maybeCancellable maybeCallback user_data + touchManagedPtr stream + whenJust cancellable touchManagedPtr + return () + +-- method Pixbuf::save_to_stream_finish +-- method type : MemberFunction +-- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "gdk_pixbuf_save_to_stream_finish" gdk_pixbuf_save_to_stream_finish :: + Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO CInt + + +pixbufSaveToStreamFinish :: + (MonadIO m, Gio.AsyncResultK a) => + a -> -- async_result + m () +pixbufSaveToStreamFinish async_result = liftIO $ do + let async_result' = unsafeManagedPtrCastPtr async_result + onException (do + _ <- propagateGError $ gdk_pixbuf_save_to_stream_finish async_result' + touchManagedPtr async_result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_file" result + result' <- (wrapObject PixbufAnimation) result + freeMem filename' + return result' + ) (do + freeMem filename' + ) + +-- method PixbufAnimation::new_from_resource +-- method type : Constructor +-- Args : [Arg {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' + checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_resource" result + 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 + checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_stream" result + result' <- (wrapObject PixbufAnimation) result + touchManagedPtr stream + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + +-- method PixbufAnimation::new_from_stream_finish +-- method type : Constructor +-- Args : [Arg {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' + checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_stream_finish" 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 + checkUnexpectedReturnNULL "gdk_pixbuf_animation_get_iter" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_animation_get_static_image" result + 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 <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + gdk_pixbuf_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' + checkUnexpectedReturnNULL "gdk_pixbuf_animation_iter_get_pixbuf" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_format_copy" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_format_get_description" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_format_get_extensions" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_format_get_license" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_format_get_mime_types" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_format_get_name" result + 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 + checkUnexpectedReturnNULL "gdk_pixbuf_loader_new" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_mime_type" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_type" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_animation" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_format" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_pixbuf" result + 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' + checkUnexpectedReturnNULL "gdk_pixbuf_simple_anim_new" result + 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 + checkUnexpectedReturnNULL "gdk_pixdata_serialize" result + 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' + checkUnexpectedReturnNULL "gdk_pixdata_to_csource" result + 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 = 3 +-- constant _PIXBUF_MINOR + +_PIXBUF_MINOR :: Int32 +_PIXBUF_MINOR = 32 +-- constant _PIXBUF_VERSION + +_PIXBUF_VERSION :: T.Text +_PIXBUF_VERSION = "2.32.3" +-- 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 diff --git a/GI/GdkPixbuf/Callbacks.hs b/GI/GdkPixbuf/Callbacks.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Callbacks.hs +++ /dev/null @@ -1,113 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Callbacks - ( - - -- * Signals --- ** PixbufDestroyNotify - PixbufDestroyNotify , - PixbufDestroyNotifyC , - mkPixbufDestroyNotify , - noPixbufDestroyNotify , - pixbufDestroyNotifyClosure , - pixbufDestroyNotifyWrapper , - - --- ** PixbufSaveFunc - PixbufSaveFunc , - PixbufSaveFuncC , - mkPixbufSaveFunc , - noPixbufSaveFunc , - pixbufSaveFuncClosure , - pixbufSaveFuncWrapper , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types - - --- callback PixbufSaveFunc -pixbufSaveFuncClosure :: PixbufSaveFunc -> IO Closure -pixbufSaveFuncClosure cb = newCClosure =<< mkPixbufSaveFunc wrapped - where wrapped = pixbufSaveFuncWrapper Nothing cb - -type PixbufSaveFuncC = - Ptr Word8 -> - Word64 -> - Ptr (Ptr GError) -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkPixbufSaveFunc :: PixbufSaveFuncC -> IO (FunPtr PixbufSaveFuncC) - -type PixbufSaveFunc = - ByteString -> - IO (Bool,GError) - -noPixbufSaveFunc :: Maybe PixbufSaveFunc -noPixbufSaveFunc = Nothing - -pixbufSaveFuncWrapper :: - Maybe (Ptr (FunPtr (PixbufSaveFuncC))) -> - PixbufSaveFunc -> - Ptr Word8 -> - Word64 -> - Ptr (Ptr GError) -> - Ptr () -> - IO CInt -pixbufSaveFuncWrapper funptrptr _cb buf count error_ _ = do - buf' <- (unpackByteStringWithLength count) buf - (result, outerror_) <- _cb buf' - outerror_' <- copyBoxed outerror_ - poke error_ outerror_' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback PixbufDestroyNotify -pixbufDestroyNotifyClosure :: PixbufDestroyNotify -> IO Closure -pixbufDestroyNotifyClosure cb = newCClosure =<< mkPixbufDestroyNotify wrapped - where wrapped = pixbufDestroyNotifyWrapper Nothing cb - -type PixbufDestroyNotifyC = - Ptr Word8 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkPixbufDestroyNotify :: PixbufDestroyNotifyC -> IO (FunPtr PixbufDestroyNotifyC) - -type PixbufDestroyNotify = - Ptr Word8 -> - IO () - -noPixbufDestroyNotify :: Maybe PixbufDestroyNotify -noPixbufDestroyNotify = Nothing - -pixbufDestroyNotifyWrapper :: - Maybe (Ptr (FunPtr (PixbufDestroyNotifyC))) -> - PixbufDestroyNotify -> - Ptr Word8 -> - Ptr () -> - IO () -pixbufDestroyNotifyWrapper funptrptr _cb pixels _ = do - _cb pixels - maybeReleaseFunPtr funptrptr - - diff --git a/GI/GdkPixbuf/Constants.hs b/GI/GdkPixbuf/Constants.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Constants.hs +++ /dev/null @@ -1,52 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Constants - ( - pattern PIXDATA_HEADER_LENGTH , - pattern PIXBUF_VERSION , - pattern PIXBUF_MINOR , - pattern PIXBUF_MICRO , - pattern PIXBUF_MAJOR , - pattern PIXBUF_MAGIC_NUMBER , - pattern PIXBUF_FEATURES_H , - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks - - -pattern PIXDATA_HEADER_LENGTH = 24 :: Int32 - - -pattern PIXBUF_VERSION = "2.31.6" :: T.Text - - -pattern PIXBUF_MINOR = 31 :: Int32 - - -pattern PIXBUF_MICRO = 6 :: Int32 - - -pattern PIXBUF_MAJOR = 2 :: Int32 - - -pattern PIXBUF_MAGIC_NUMBER = 1197763408 :: Int32 - - -pattern PIXBUF_FEATURES_H = 1 :: Int32 - - diff --git a/GI/GdkPixbuf/Enums.hs b/GI/GdkPixbuf/Enums.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Enums.hs +++ /dev/null @@ -1,184 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Enums - ( - catchPixbufError , - handlePixbufError , - --- * Exported types - PixbufRotation(..) , - PixbufError(..) , - PixbufAlphaMode(..) , - InterpType(..) , - Colorspace(..) , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Enum PixbufRotation - -data PixbufRotation = - PixbufRotationNone - | PixbufRotationCounterclockwise - | PixbufRotationUpsidedown - | PixbufRotationClockwise - | AnotherPixbufRotation Int - deriving (Show, Eq) - -instance Enum PixbufRotation where - fromEnum PixbufRotationNone = 0 - fromEnum PixbufRotationCounterclockwise = 90 - fromEnum PixbufRotationUpsidedown = 180 - fromEnum PixbufRotationClockwise = 270 - fromEnum (AnotherPixbufRotation k) = k - - toEnum 0 = PixbufRotationNone - toEnum 90 = PixbufRotationCounterclockwise - toEnum 180 = PixbufRotationUpsidedown - toEnum 270 = PixbufRotationClockwise - toEnum k = AnotherPixbufRotation k - -foreign import ccall "gdk_pixbuf_rotation_get_type" c_gdk_pixbuf_rotation_get_type :: - IO GType - -instance BoxedEnum PixbufRotation where - boxedEnumType _ = c_gdk_pixbuf_rotation_get_type - --- Enum PixbufError - -data PixbufError = - PixbufErrorCorruptImage - | PixbufErrorInsufficientMemory - | PixbufErrorBadOption - | PixbufErrorUnknownType - | PixbufErrorUnsupportedOperation - | PixbufErrorFailed - | AnotherPixbufError Int - deriving (Show, Eq) - -instance Enum PixbufError where - fromEnum PixbufErrorCorruptImage = 0 - fromEnum PixbufErrorInsufficientMemory = 1 - fromEnum PixbufErrorBadOption = 2 - fromEnum PixbufErrorUnknownType = 3 - fromEnum PixbufErrorUnsupportedOperation = 4 - fromEnum PixbufErrorFailed = 5 - fromEnum (AnotherPixbufError k) = k - - toEnum 0 = PixbufErrorCorruptImage - toEnum 1 = PixbufErrorInsufficientMemory - toEnum 2 = PixbufErrorBadOption - toEnum 3 = PixbufErrorUnknownType - toEnum 4 = PixbufErrorUnsupportedOperation - toEnum 5 = PixbufErrorFailed - toEnum k = AnotherPixbufError k - -instance GErrorClass PixbufError where - gerrorClassDomain _ = "gdk-pixbuf-error-quark" - -catchPixbufError :: - IO a -> - (PixbufError -> GErrorMessage -> IO a) -> - IO a -catchPixbufError = catchGErrorJustDomain - -handlePixbufError :: - (PixbufError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handlePixbufError = handleGErrorJustDomain - -foreign import ccall "gdk_pixbuf_error_get_type" c_gdk_pixbuf_error_get_type :: - IO GType - -instance BoxedEnum PixbufError where - boxedEnumType _ = c_gdk_pixbuf_error_get_type - --- Enum PixbufAlphaMode - -data PixbufAlphaMode = - PixbufAlphaModeBilevel - | PixbufAlphaModeFull - | AnotherPixbufAlphaMode Int - deriving (Show, Eq) - -instance Enum PixbufAlphaMode where - fromEnum PixbufAlphaModeBilevel = 0 - fromEnum PixbufAlphaModeFull = 1 - fromEnum (AnotherPixbufAlphaMode k) = k - - toEnum 0 = PixbufAlphaModeBilevel - toEnum 1 = PixbufAlphaModeFull - toEnum k = AnotherPixbufAlphaMode k - -foreign import ccall "gdk_pixbuf_alpha_mode_get_type" c_gdk_pixbuf_alpha_mode_get_type :: - IO GType - -instance BoxedEnum PixbufAlphaMode where - boxedEnumType _ = c_gdk_pixbuf_alpha_mode_get_type - --- Enum InterpType - -data InterpType = - InterpTypeNearest - | InterpTypeTiles - | InterpTypeBilinear - | InterpTypeHyper - | AnotherInterpType Int - deriving (Show, Eq) - -instance Enum InterpType where - fromEnum InterpTypeNearest = 0 - fromEnum InterpTypeTiles = 1 - fromEnum InterpTypeBilinear = 2 - fromEnum InterpTypeHyper = 3 - fromEnum (AnotherInterpType k) = k - - toEnum 0 = InterpTypeNearest - toEnum 1 = InterpTypeTiles - toEnum 2 = InterpTypeBilinear - toEnum 3 = InterpTypeHyper - toEnum k = AnotherInterpType k - -foreign import ccall "gdk_interp_type_get_type" c_gdk_interp_type_get_type :: - IO GType - -instance BoxedEnum InterpType where - boxedEnumType _ = c_gdk_interp_type_get_type - --- Enum Colorspace - -data Colorspace = - ColorspaceRgb - | AnotherColorspace Int - deriving (Show, Eq) - -instance Enum Colorspace where - fromEnum ColorspaceRgb = 0 - fromEnum (AnotherColorspace k) = k - - toEnum 0 = ColorspaceRgb - toEnum k = AnotherColorspace k - -foreign import ccall "gdk_colorspace_get_type" c_gdk_colorspace_get_type :: - IO GType - -instance BoxedEnum Colorspace where - boxedEnumType _ = c_gdk_colorspace_get_type - - diff --git a/GI/GdkPixbuf/Flags.hs b/GI/GdkPixbuf/Flags.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Flags.hs +++ /dev/null @@ -1,101 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Flags - ( - --- * Exported types - PixdataType(..) , - PixdataDumpType(..) , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Flags PixdataType - -data PixdataType = - PixdataTypeColorTypeRgb - | PixdataTypeColorTypeRgba - | PixdataTypeColorTypeMask - | PixdataTypeSampleWidth8 - | PixdataTypeSampleWidthMask - | PixdataTypeEncodingRaw - | PixdataTypeEncodingRle - | PixdataTypeEncodingMask - | AnotherPixdataType Int - deriving (Show, Eq) - -instance Enum PixdataType where - fromEnum PixdataTypeColorTypeRgb = 1 - fromEnum PixdataTypeColorTypeRgba = 2 - fromEnum PixdataTypeColorTypeMask = 255 - fromEnum PixdataTypeSampleWidth8 = 65536 - fromEnum PixdataTypeSampleWidthMask = 983040 - fromEnum PixdataTypeEncodingRaw = 16777216 - fromEnum PixdataTypeEncodingRle = 33554432 - fromEnum PixdataTypeEncodingMask = 251658240 - fromEnum (AnotherPixdataType k) = k - - toEnum 1 = PixdataTypeColorTypeRgb - toEnum 2 = PixdataTypeColorTypeRgba - toEnum 255 = PixdataTypeColorTypeMask - toEnum 65536 = PixdataTypeSampleWidth8 - toEnum 983040 = PixdataTypeSampleWidthMask - toEnum 16777216 = PixdataTypeEncodingRaw - toEnum 33554432 = PixdataTypeEncodingRle - toEnum 251658240 = PixdataTypeEncodingMask - toEnum k = AnotherPixdataType k - -instance IsGFlag PixdataType - --- Flags PixdataDumpType - -data PixdataDumpType = - PixdataDumpTypePixdataStream - | PixdataDumpTypePixdataStruct - | PixdataDumpTypeMacros - | PixdataDumpTypeGtypes - | PixdataDumpTypeCtypes - | PixdataDumpTypeStatic - | PixdataDumpTypeConst - | PixdataDumpTypeRleDecoder - | AnotherPixdataDumpType Int - deriving (Show, Eq) - -instance Enum PixdataDumpType where - fromEnum PixdataDumpTypePixdataStream = 0 - fromEnum PixdataDumpTypePixdataStruct = 1 - fromEnum PixdataDumpTypeMacros = 2 - fromEnum PixdataDumpTypeGtypes = 0 - fromEnum PixdataDumpTypeCtypes = 256 - fromEnum PixdataDumpTypeStatic = 512 - fromEnum PixdataDumpTypeConst = 1024 - fromEnum PixdataDumpTypeRleDecoder = 65536 - fromEnum (AnotherPixdataDumpType k) = k - - toEnum 0 = PixdataDumpTypePixdataStream - toEnum 1 = PixdataDumpTypePixdataStruct - toEnum 2 = PixdataDumpTypeMacros - toEnum 256 = PixdataDumpTypeCtypes - toEnum 512 = PixdataDumpTypeStatic - toEnum 1024 = PixdataDumpTypeConst - toEnum 65536 = PixdataDumpTypeRleDecoder - toEnum k = AnotherPixdataDumpType k - -instance IsGFlag PixdataDumpType - - diff --git a/GI/GdkPixbuf/Functions.hs b/GI/GdkPixbuf/Functions.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Functions.hs +++ /dev/null @@ -1,50 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Functions - ( - - -- * Methods --- ** pixbufErrorQuark - pixbufErrorQuark , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks - --- function gdk_pixbuf_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_error_quark" gdk_pixbuf_error_quark :: - IO Word32 - - -pixbufErrorQuark :: - (MonadIO m) => - m Word32 -pixbufErrorQuark = liftIO $ do - result <- gdk_pixbuf_error_quark - return result - - - diff --git a/GI/GdkPixbuf/Objects.hs b/GI/GdkPixbuf/Objects.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects.hs +++ /dev/null @@ -1,36 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Objects - ( module GI.GdkPixbuf.Objects.Pixbuf , - module GI.GdkPixbuf.Objects.PixbufAnimation, - module GI.GdkPixbuf.Objects.PixbufAnimationIter, - module GI.GdkPixbuf.Objects.PixbufLoader, - module GI.GdkPixbuf.Objects.PixbufSimpleAnim, - module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter, - - - ) where - -import GI.GdkPixbuf.Objects.Pixbuf -import GI.GdkPixbuf.Objects.PixbufAnimation -import GI.GdkPixbuf.Objects.PixbufAnimationIter -import GI.GdkPixbuf.Objects.PixbufLoader -import GI.GdkPixbuf.Objects.PixbufSimpleAnim -import GI.GdkPixbuf.Objects.PixbufSimpleAnimIter - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks - - diff --git a/GI/GdkPixbuf/Objects/Pixbuf.hs b/GI/GdkPixbuf/Objects/Pixbuf.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/Pixbuf.hs +++ /dev/null @@ -1,2272 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Objects.Pixbuf - ( - --- * Exported types - Pixbuf(..) , - PixbufK , - toPixbuf , - noPixbuf , - - - -- * Methods --- ** pixbufAddAlpha - pixbufAddAlpha , - - --- ** pixbufApplyEmbeddedOrientation - pixbufApplyEmbeddedOrientation , - - --- ** pixbufComposite - pixbufComposite , - - --- ** pixbufCompositeColor - pixbufCompositeColor , - - --- ** pixbufCompositeColorSimple - pixbufCompositeColorSimple , - - --- ** pixbufCopy - pixbufCopy , - - --- ** pixbufCopyArea - pixbufCopyArea , - - --- ** pixbufFill - pixbufFill , - - --- ** pixbufFlip - pixbufFlip , - - --- ** pixbufFromPixdata - pixbufFromPixdata , - - --- ** pixbufGetBitsPerSample - pixbufGetBitsPerSample , - - --- ** pixbufGetByteLength - pixbufGetByteLength , - - --- ** pixbufGetColorspace - pixbufGetColorspace , - - --- ** pixbufGetFileInfo - pixbufGetFileInfo , - - --- ** pixbufGetFileInfoAsync - pixbufGetFileInfoAsync , - - --- ** pixbufGetFileInfoFinish - pixbufGetFileInfoFinish , - - --- ** pixbufGetFormats - pixbufGetFormats , - - --- ** pixbufGetHasAlpha - pixbufGetHasAlpha , - - --- ** pixbufGetHeight - pixbufGetHeight , - - --- ** pixbufGetNChannels - pixbufGetNChannels , - - --- ** pixbufGetOption - pixbufGetOption , - - --- ** pixbufGetPixels - pixbufGetPixels , - - --- ** pixbufGetRowstride - pixbufGetRowstride , - - --- ** pixbufGetWidth - pixbufGetWidth , - - --- ** pixbufNew - pixbufNew , - - --- ** pixbufNewFromBytes - pixbufNewFromBytes , - - --- ** pixbufNewFromData - pixbufNewFromData , - - --- ** pixbufNewFromFile - pixbufNewFromFile , - - --- ** pixbufNewFromFileAtScale - pixbufNewFromFileAtScale , - - --- ** pixbufNewFromFileAtSize - pixbufNewFromFileAtSize , - - --- ** pixbufNewFromInline - pixbufNewFromInline , - - --- ** pixbufNewFromResource - pixbufNewFromResource , - - --- ** pixbufNewFromResourceAtScale - pixbufNewFromResourceAtScale , - - --- ** pixbufNewFromStream - pixbufNewFromStream , - - --- ** pixbufNewFromStreamAsync - pixbufNewFromStreamAsync , - - --- ** pixbufNewFromStreamAtScale - pixbufNewFromStreamAtScale , - - --- ** pixbufNewFromStreamAtScaleAsync - pixbufNewFromStreamAtScaleAsync , - - --- ** pixbufNewFromStreamFinish - pixbufNewFromStreamFinish , - - --- ** pixbufNewFromXpmData - pixbufNewFromXpmData , - - --- ** pixbufNewSubpixbuf - pixbufNewSubpixbuf , - - --- ** pixbufReadPixelBytes - pixbufReadPixelBytes , - - --- ** pixbufReadPixels - pixbufReadPixels , - - --- ** pixbufRotateSimple - pixbufRotateSimple , - - --- ** pixbufSaturateAndPixelate - pixbufSaturateAndPixelate , - - --- ** pixbufSaveToBufferv - pixbufSaveToBufferv , - - --- ** pixbufSaveToCallbackv - pixbufSaveToCallbackv , - - --- ** pixbufSaveToStreamFinish - pixbufSaveToStreamFinish , - - --- ** pixbufSavev - pixbufSavev , - - --- ** pixbufScale - pixbufScale , - - --- ** pixbufScaleSimple - pixbufScaleSimple , - - - - - -- * Properties --- ** BitsPerSample - PixbufBitsPerSamplePropertyInfo , - constructPixbufBitsPerSample , - getPixbufBitsPerSample , - - --- ** Colorspace - PixbufColorspacePropertyInfo , - constructPixbufColorspace , - getPixbufColorspace , - - --- ** HasAlpha - PixbufHasAlphaPropertyInfo , - constructPixbufHasAlpha , - getPixbufHasAlpha , - - --- ** Height - PixbufHeightPropertyInfo , - constructPixbufHeight , - getPixbufHeight , - - --- ** NChannels - PixbufNChannelsPropertyInfo , - constructPixbufNChannels , - getPixbufNChannels , - - --- ** PixelBytes - PixbufPixelBytesPropertyInfo , - constructPixbufPixelBytes , - getPixbufPixelBytes , - - --- ** Pixels - PixbufPixelsPropertyInfo , - constructPixbufPixels , - getPixbufPixels , - - --- ** Rowstride - PixbufRowstridePropertyInfo , - constructPixbufRowstride , - getPixbufRowstride , - - --- ** Width - PixbufWidthPropertyInfo , - constructPixbufWidth , - getPixbufWidth , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Pixbuf = Pixbuf (ForeignPtr Pixbuf) -foreign import ccall "gdk_pixbuf_get_type" - c_gdk_pixbuf_get_type :: IO GType - -type instance ParentTypes Pixbuf = PixbufParentTypes -type PixbufParentTypes = '[GObject.Object, Gio.Icon, Gio.LoadableIcon] - -instance GObject Pixbuf where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_get_type - - -class GObject o => PixbufK o -instance (GObject o, IsDescendantOf Pixbuf o) => PixbufK o - -toPixbuf :: PixbufK o => o -> IO Pixbuf -toPixbuf = unsafeCastTo Pixbuf - -noPixbuf :: Maybe Pixbuf -noPixbuf = Nothing - --- VVV Prop "bits-per-sample" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufBitsPerSample :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufBitsPerSample obj = liftIO $ getObjectPropertyCInt obj "bits-per-sample" - -constructPixbufBitsPerSample :: Int32 -> IO ([Char], GValue) -constructPixbufBitsPerSample val = constructObjectPropertyCInt "bits-per-sample" val - -data PixbufBitsPerSamplePropertyInfo -instance AttrInfo PixbufBitsPerSamplePropertyInfo where - type AttrAllowedOps PixbufBitsPerSamplePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufBitsPerSamplePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PixbufBitsPerSamplePropertyInfo = PixbufK - type AttrGetType PixbufBitsPerSamplePropertyInfo = Int32 - type AttrLabel PixbufBitsPerSamplePropertyInfo = "Pixbuf::bits-per-sample" - attrGet _ = getPixbufBitsPerSample - attrSet _ = undefined - attrConstruct _ = constructPixbufBitsPerSample - --- VVV Prop "colorspace" - -- Type: TInterface "GdkPixbuf" "Colorspace" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufColorspace :: (MonadIO m, PixbufK o) => o -> m Colorspace -getPixbufColorspace obj = liftIO $ getObjectPropertyEnum obj "colorspace" - -constructPixbufColorspace :: Colorspace -> IO ([Char], GValue) -constructPixbufColorspace val = constructObjectPropertyEnum "colorspace" val - -data PixbufColorspacePropertyInfo -instance AttrInfo PixbufColorspacePropertyInfo where - type AttrAllowedOps PixbufColorspacePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufColorspacePropertyInfo = (~) Colorspace - type AttrBaseTypeConstraint PixbufColorspacePropertyInfo = PixbufK - type AttrGetType PixbufColorspacePropertyInfo = Colorspace - type AttrLabel PixbufColorspacePropertyInfo = "Pixbuf::colorspace" - attrGet _ = getPixbufColorspace - attrSet _ = undefined - attrConstruct _ = constructPixbufColorspace - --- VVV Prop "has-alpha" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufHasAlpha :: (MonadIO m, PixbufK o) => o -> m Bool -getPixbufHasAlpha obj = liftIO $ getObjectPropertyBool obj "has-alpha" - -constructPixbufHasAlpha :: Bool -> IO ([Char], GValue) -constructPixbufHasAlpha val = constructObjectPropertyBool "has-alpha" val - -data PixbufHasAlphaPropertyInfo -instance AttrInfo PixbufHasAlphaPropertyInfo where - type AttrAllowedOps PixbufHasAlphaPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufHasAlphaPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PixbufHasAlphaPropertyInfo = PixbufK - type AttrGetType PixbufHasAlphaPropertyInfo = Bool - type AttrLabel PixbufHasAlphaPropertyInfo = "Pixbuf::has-alpha" - attrGet _ = getPixbufHasAlpha - attrSet _ = undefined - attrConstruct _ = constructPixbufHasAlpha - --- VVV Prop "height" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufHeight :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufHeight obj = liftIO $ getObjectPropertyCInt obj "height" - -constructPixbufHeight :: Int32 -> IO ([Char], GValue) -constructPixbufHeight val = constructObjectPropertyCInt "height" val - -data PixbufHeightPropertyInfo -instance AttrInfo PixbufHeightPropertyInfo where - type AttrAllowedOps PixbufHeightPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufHeightPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PixbufHeightPropertyInfo = PixbufK - type AttrGetType PixbufHeightPropertyInfo = Int32 - type AttrLabel PixbufHeightPropertyInfo = "Pixbuf::height" - attrGet _ = getPixbufHeight - attrSet _ = undefined - attrConstruct _ = constructPixbufHeight - --- VVV Prop "n-channels" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufNChannels :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufNChannels obj = liftIO $ getObjectPropertyCInt obj "n-channels" - -constructPixbufNChannels :: Int32 -> IO ([Char], GValue) -constructPixbufNChannels val = constructObjectPropertyCInt "n-channels" val - -data PixbufNChannelsPropertyInfo -instance AttrInfo PixbufNChannelsPropertyInfo where - type AttrAllowedOps PixbufNChannelsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufNChannelsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PixbufNChannelsPropertyInfo = PixbufK - type AttrGetType PixbufNChannelsPropertyInfo = Int32 - type AttrLabel PixbufNChannelsPropertyInfo = "Pixbuf::n-channels" - attrGet _ = getPixbufNChannels - attrSet _ = undefined - attrConstruct _ = constructPixbufNChannels - --- VVV Prop "pixel-bytes" - -- Type: TInterface "GLib" "Bytes" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufPixelBytes :: (MonadIO m, PixbufK o) => o -> m GLib.Bytes -getPixbufPixelBytes obj = liftIO $ getObjectPropertyBoxed obj "pixel-bytes" GLib.Bytes - -constructPixbufPixelBytes :: GLib.Bytes -> IO ([Char], GValue) -constructPixbufPixelBytes val = constructObjectPropertyBoxed "pixel-bytes" val - -data PixbufPixelBytesPropertyInfo -instance AttrInfo PixbufPixelBytesPropertyInfo where - type AttrAllowedOps PixbufPixelBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufPixelBytesPropertyInfo = (~) GLib.Bytes - type AttrBaseTypeConstraint PixbufPixelBytesPropertyInfo = PixbufK - type AttrGetType PixbufPixelBytesPropertyInfo = GLib.Bytes - type AttrLabel PixbufPixelBytesPropertyInfo = "Pixbuf::pixel-bytes" - attrGet _ = getPixbufPixelBytes - attrSet _ = undefined - attrConstruct _ = constructPixbufPixelBytes - --- VVV Prop "pixels" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufPixels :: (MonadIO m, PixbufK o) => o -> m (Ptr ()) -getPixbufPixels obj = liftIO $ getObjectPropertyPtr obj "pixels" - -constructPixbufPixels :: (Ptr ()) -> IO ([Char], GValue) -constructPixbufPixels val = constructObjectPropertyPtr "pixels" val - -data PixbufPixelsPropertyInfo -instance AttrInfo PixbufPixelsPropertyInfo where - type AttrAllowedOps PixbufPixelsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufPixelsPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint PixbufPixelsPropertyInfo = PixbufK - type AttrGetType PixbufPixelsPropertyInfo = (Ptr ()) - type AttrLabel PixbufPixelsPropertyInfo = "Pixbuf::pixels" - attrGet _ = getPixbufPixels - attrSet _ = undefined - attrConstruct _ = constructPixbufPixels - --- VVV Prop "rowstride" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufRowstride :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufRowstride obj = liftIO $ getObjectPropertyCInt obj "rowstride" - -constructPixbufRowstride :: Int32 -> IO ([Char], GValue) -constructPixbufRowstride val = constructObjectPropertyCInt "rowstride" val - -data PixbufRowstridePropertyInfo -instance AttrInfo PixbufRowstridePropertyInfo where - type AttrAllowedOps PixbufRowstridePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufRowstridePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PixbufRowstridePropertyInfo = PixbufK - type AttrGetType PixbufRowstridePropertyInfo = Int32 - type AttrLabel PixbufRowstridePropertyInfo = "Pixbuf::rowstride" - attrGet _ = getPixbufRowstride - attrSet _ = undefined - attrConstruct _ = constructPixbufRowstride - --- VVV Prop "width" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getPixbufWidth :: (MonadIO m, PixbufK o) => o -> m Int32 -getPixbufWidth obj = liftIO $ getObjectPropertyCInt obj "width" - -constructPixbufWidth :: Int32 -> IO ([Char], GValue) -constructPixbufWidth val = constructObjectPropertyCInt "width" val - -data PixbufWidthPropertyInfo -instance AttrInfo PixbufWidthPropertyInfo where - type AttrAllowedOps PixbufWidthPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PixbufWidthPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint PixbufWidthPropertyInfo = PixbufK - type AttrGetType PixbufWidthPropertyInfo = Int32 - type AttrLabel PixbufWidthPropertyInfo = "Pixbuf::width" - attrGet _ = getPixbufWidth - attrSet _ = undefined - attrConstruct _ = constructPixbufWidth - -type instance AttributeList Pixbuf = PixbufAttributeList -type PixbufAttributeList = ('[ '("bits-per-sample", PixbufBitsPerSamplePropertyInfo), '("colorspace", PixbufColorspacePropertyInfo), '("has-alpha", PixbufHasAlphaPropertyInfo), '("height", PixbufHeightPropertyInfo), '("n-channels", PixbufNChannelsPropertyInfo), '("pixel-bytes", PixbufPixelBytesPropertyInfo), '("pixels", PixbufPixelsPropertyInfo), '("rowstride", PixbufRowstridePropertyInfo), '("width", PixbufWidthPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Pixbuf = PixbufSignalList -type PixbufSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Pixbuf::new --- method type : Constructor --- Args : [Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_new" gdk_pixbuf_new :: - CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace" - CInt -> -- has_alpha : TBasicType TBoolean - Int32 -> -- bits_per_sample : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO (Ptr Pixbuf) - - -pixbufNew :: - (MonadIO m) => - Colorspace -> -- colorspace - Bool -> -- has_alpha - Int32 -> -- bits_per_sample - Int32 -> -- width - Int32 -> -- height - m Pixbuf -pixbufNew colorspace has_alpha bits_per_sample width height = liftIO $ do - let colorspace' = (fromIntegral . fromEnum) colorspace - let has_alpha' = (fromIntegral . fromEnum) has_alpha - result <- gdk_pixbuf_new colorspace' has_alpha' bits_per_sample width height - checkUnexpectedReturnNULL "gdk_pixbuf_new" result - result' <- (wrapObject Pixbuf) result - return result' - --- method Pixbuf::new_from_bytes --- method type : Constructor --- Args : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_bytes" gdk_pixbuf_new_from_bytes :: - Ptr GLib.Bytes -> -- data : TInterface "GLib" "Bytes" - CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace" - CInt -> -- has_alpha : TBasicType TBoolean - Int32 -> -- bits_per_sample : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - Int32 -> -- rowstride : TBasicType TInt32 - IO (Ptr Pixbuf) - - -pixbufNewFromBytes :: - (MonadIO m) => - GLib.Bytes -> -- data - Colorspace -> -- colorspace - Bool -> -- has_alpha - Int32 -> -- bits_per_sample - Int32 -> -- width - Int32 -> -- height - Int32 -> -- rowstride - m Pixbuf -pixbufNewFromBytes data_ colorspace has_alpha bits_per_sample width height rowstride = liftIO $ do - let data_' = unsafeManagedPtrGetPtr data_ - let colorspace' = (fromIntegral . fromEnum) colorspace - let has_alpha' = (fromIntegral . fromEnum) has_alpha - result <- gdk_pixbuf_new_from_bytes data_' colorspace' has_alpha' bits_per_sample width height rowstride - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_bytes" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr data_ - return result' - --- method Pixbuf::new_from_data --- method type : Constructor --- Args : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorspace", argType = TInterface "GdkPixbuf" "Colorspace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_alpha", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bits_per_sample", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rowstride", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_fn", argType = TInterface "GdkPixbuf" "PixbufDestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_data" gdk_pixbuf_new_from_data :: - Ptr Word8 -> -- data : TCArray False (-1) (-1) (TBasicType TUInt8) - CUInt -> -- colorspace : TInterface "GdkPixbuf" "Colorspace" - CInt -> -- has_alpha : TBasicType TBoolean - Int32 -> -- bits_per_sample : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - Int32 -> -- rowstride : TBasicType TInt32 - FunPtr PixbufDestroyNotifyC -> -- destroy_fn : TInterface "GdkPixbuf" "PixbufDestroyNotify" - Ptr () -> -- destroy_fn_data : TBasicType TVoid - IO (Ptr Pixbuf) - - -pixbufNewFromData :: - (MonadIO m) => - Ptr Word8 -> -- data - Colorspace -> -- colorspace - Bool -> -- has_alpha - Int32 -> -- bits_per_sample - Int32 -> -- width - Int32 -> -- height - Int32 -> -- rowstride - Maybe (PixbufDestroyNotify) -> -- destroy_fn - m Pixbuf -pixbufNewFromData data_ colorspace has_alpha bits_per_sample width height rowstride destroy_fn = liftIO $ do - let colorspace' = (fromIntegral . fromEnum) colorspace - let has_alpha' = (fromIntegral . fromEnum) has_alpha - ptrdestroy_fn <- callocMem :: IO (Ptr (FunPtr PixbufDestroyNotifyC)) - maybeDestroy_fn <- case destroy_fn of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy_fn -> do - jDestroy_fn' <- mkPixbufDestroyNotify (pixbufDestroyNotifyWrapper (Just ptrdestroy_fn) jDestroy_fn) - poke ptrdestroy_fn jDestroy_fn' - return jDestroy_fn' - let destroy_fn_data = nullPtr - result <- gdk_pixbuf_new_from_data data_ colorspace' has_alpha' bits_per_sample width height rowstride maybeDestroy_fn destroy_fn_data - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_data" result - result' <- (wrapObject Pixbuf) result - return result' - --- method Pixbuf::new_from_file --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_file" gdk_pixbuf_new_from_file :: - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromFile :: - (MonadIO m) => - T.Text -> -- filename - m Pixbuf -pixbufNewFromFile filename = liftIO $ do - filename' <- textToCString filename - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_file filename' - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file" result - result' <- (wrapObject Pixbuf) result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - --- method Pixbuf::new_from_file_at_scale --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_file_at_scale" gdk_pixbuf_new_from_file_at_scale :: - CString -> -- filename : TBasicType TUTF8 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CInt -> -- preserve_aspect_ratio : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromFileAtScale :: - (MonadIO m) => - T.Text -> -- filename - Int32 -> -- width - Int32 -> -- height - Bool -> -- preserve_aspect_ratio - m Pixbuf -pixbufNewFromFileAtScale filename width height preserve_aspect_ratio = liftIO $ do - filename' <- textToCString filename - let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_file_at_scale filename' width height preserve_aspect_ratio' - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file_at_scale" result - result' <- (wrapObject Pixbuf) result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - --- method Pixbuf::new_from_file_at_size --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_file_at_size" gdk_pixbuf_new_from_file_at_size :: - CString -> -- filename : TBasicType TUTF8 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromFileAtSize :: - (MonadIO m) => - T.Text -> -- filename - Int32 -> -- width - Int32 -> -- height - m Pixbuf -pixbufNewFromFileAtSize filename width height = liftIO $ do - filename' <- textToCString filename - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_file_at_size filename' width height - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_file_at_size" result - result' <- (wrapObject Pixbuf) result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - --- method Pixbuf::new_from_inline --- method type : Constructor --- Args : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "data_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 0 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_inline" gdk_pixbuf_new_from_inline :: - Int32 -> -- data_length : TBasicType TInt32 - Ptr Word8 -> -- data : TCArray False (-1) 0 (TBasicType TUInt8) - CInt -> -- copy_pixels : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - -{-# DEPRECATED pixbufNewFromInline ["(Since version 2.32)","Use #GResource instead."]#-} -pixbufNewFromInline :: - (MonadIO m) => - ByteString -> -- data - Bool -> -- copy_pixels - m Pixbuf -pixbufNewFromInline data_ copy_pixels = liftIO $ do - let data_length = fromIntegral $ B.length data_ - data_' <- packByteString data_ - let copy_pixels' = (fromIntegral . fromEnum) copy_pixels - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_inline data_length data_' copy_pixels' - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_inline" result - result' <- (wrapObject Pixbuf) result - freeMem data_' - return result' - ) (do - freeMem data_' - ) - --- method Pixbuf::new_from_resource --- method type : Constructor --- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_resource" gdk_pixbuf_new_from_resource :: - CString -> -- resource_path : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromResource :: - (MonadIO m) => - T.Text -> -- resource_path - m Pixbuf -pixbufNewFromResource resource_path = liftIO $ do - resource_path' <- textToCString resource_path - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_resource resource_path' - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource" result - result' <- (wrapObject Pixbuf) result - freeMem resource_path' - return result' - ) (do - freeMem resource_path' - ) - --- method Pixbuf::new_from_resource_at_scale --- method type : Constructor --- Args : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_resource_at_scale" gdk_pixbuf_new_from_resource_at_scale :: - CString -> -- resource_path : TBasicType TUTF8 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CInt -> -- preserve_aspect_ratio : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromResourceAtScale :: - (MonadIO m) => - T.Text -> -- resource_path - Int32 -> -- width - Int32 -> -- height - Bool -> -- preserve_aspect_ratio - m Pixbuf -pixbufNewFromResourceAtScale resource_path width height preserve_aspect_ratio = liftIO $ do - resource_path' <- textToCString resource_path - let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_resource_at_scale resource_path' width height preserve_aspect_ratio' - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_resource_at_scale" result - result' <- (wrapObject Pixbuf) result - freeMem resource_path' - return result' - ) (do - freeMem resource_path' - ) - --- method Pixbuf::new_from_stream --- method type : Constructor --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_stream" gdk_pixbuf_new_from_stream :: - Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromStream :: - (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -> -- stream - Maybe (b) -> -- cancellable - m Pixbuf -pixbufNewFromStream stream cancellable = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_stream stream' maybeCancellable - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr stream - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - --- method Pixbuf::new_from_stream_at_scale --- method type : Constructor --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_stream_at_scale" gdk_pixbuf_new_from_stream_at_scale :: - Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CInt -> -- preserve_aspect_ratio : TBasicType TBoolean - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromStreamAtScale :: - (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -> -- stream - Int32 -> -- width - Int32 -> -- height - Bool -> -- preserve_aspect_ratio - Maybe (b) -> -- cancellable - m Pixbuf -pixbufNewFromStreamAtScale stream width height preserve_aspect_ratio cancellable = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_stream_at_scale stream' width height preserve_aspect_ratio' maybeCancellable - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream_at_scale" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr stream - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - --- method Pixbuf::new_from_stream_finish --- method type : Constructor --- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_stream_finish" gdk_pixbuf_new_from_stream_finish :: - Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - - -pixbufNewFromStreamFinish :: - (MonadIO m, Gio.AsyncResultK a) => - a -> -- async_result - m Pixbuf -pixbufNewFromStreamFinish async_result = liftIO $ do - let async_result' = unsafeManagedPtrCastPtr async_result - onException (do - result <- propagateGError $ gdk_pixbuf_new_from_stream_finish async_result' - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_stream_finish" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr async_result - return result' - ) (do - return () - ) - --- method Pixbuf::new_from_xpm_data --- method type : Constructor --- Args : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_xpm_data" gdk_pixbuf_new_from_xpm_data :: - Ptr CString -> -- data : TCArray True (-1) (-1) (TBasicType TUTF8) - IO (Ptr Pixbuf) - - -pixbufNewFromXpmData :: - (MonadIO m) => - [T.Text] -> -- data - m Pixbuf -pixbufNewFromXpmData data_ = liftIO $ do - data_' <- packZeroTerminatedUTF8CArray data_ - result <- gdk_pixbuf_new_from_xpm_data data_' - checkUnexpectedReturnNULL "gdk_pixbuf_new_from_xpm_data" result - result' <- (wrapObject Pixbuf) result - mapZeroTerminatedCArray freeMem data_' - freeMem data_' - return result' - --- method Pixbuf::add_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitute_color", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "r", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "g", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_add_alpha" gdk_pixbuf_add_alpha :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - CInt -> -- substitute_color : TBasicType TBoolean - Word8 -> -- r : TBasicType TUInt8 - Word8 -> -- g : TBasicType TUInt8 - Word8 -> -- b : TBasicType TUInt8 - IO (Ptr Pixbuf) - - -pixbufAddAlpha :: - (MonadIO m, PixbufK a) => - a -> -- _obj - Bool -> -- substitute_color - Word8 -> -- r - Word8 -> -- g - Word8 -> -- b - m Pixbuf -pixbufAddAlpha _obj substitute_color r g b = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let substitute_color' = (fromIntegral . fromEnum) substitute_color - result <- gdk_pixbuf_add_alpha _obj' substitute_color' r g b - checkUnexpectedReturnNULL "gdk_pixbuf_add_alpha" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::apply_embedded_orientation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_apply_embedded_orientation" gdk_pixbuf_apply_embedded_orientation :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr Pixbuf) - - -pixbufApplyEmbeddedOrientation :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Pixbuf -pixbufApplyEmbeddedOrientation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_apply_embedded_orientation _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_apply_embedded_orientation" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::composite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_composite" gdk_pixbuf_composite :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- dest_x : TBasicType TInt32 - Int32 -> -- dest_y : TBasicType TInt32 - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 - CDouble -> -- offset_x : TBasicType TDouble - CDouble -> -- offset_y : TBasicType TDouble - CDouble -> -- scale_x : TBasicType TDouble - CDouble -> -- scale_y : TBasicType TDouble - CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" - Int32 -> -- overall_alpha : TBasicType TInt32 - IO () - - -pixbufComposite :: - (MonadIO m, PixbufK a, PixbufK b) => - a -> -- _obj - b -> -- dest - Int32 -> -- dest_x - Int32 -> -- dest_y - Int32 -> -- dest_width - Int32 -> -- dest_height - Double -> -- offset_x - Double -> -- offset_y - Double -> -- scale_x - Double -> -- scale_y - InterpType -> -- interp_type - Int32 -> -- overall_alpha - m () -pixbufComposite _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest' = unsafeManagedPtrCastPtr dest - let offset_x' = realToFrac offset_x - let offset_y' = realToFrac offset_y - let scale_x' = realToFrac scale_x - let scale_y' = realToFrac scale_y - let interp_type' = (fromIntegral . fromEnum) interp_type - gdk_pixbuf_composite _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha - touchManagedPtr _obj - touchManagedPtr dest - return () - --- method Pixbuf::composite_color --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_composite_color" gdk_pixbuf_composite_color :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- dest_x : TBasicType TInt32 - Int32 -> -- dest_y : TBasicType TInt32 - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 - CDouble -> -- offset_x : TBasicType TDouble - CDouble -> -- offset_y : TBasicType TDouble - CDouble -> -- scale_x : TBasicType TDouble - CDouble -> -- scale_y : TBasicType TDouble - CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" - Int32 -> -- overall_alpha : TBasicType TInt32 - Int32 -> -- check_x : TBasicType TInt32 - Int32 -> -- check_y : TBasicType TInt32 - Int32 -> -- check_size : TBasicType TInt32 - Word32 -> -- color1 : TBasicType TUInt32 - Word32 -> -- color2 : TBasicType TUInt32 - IO () - - -pixbufCompositeColor :: - (MonadIO m, PixbufK a, PixbufK b) => - a -> -- _obj - b -> -- dest - Int32 -> -- dest_x - Int32 -> -- dest_y - Int32 -> -- dest_width - Int32 -> -- dest_height - Double -> -- offset_x - Double -> -- offset_y - Double -> -- scale_x - Double -> -- scale_y - InterpType -> -- interp_type - Int32 -> -- overall_alpha - Int32 -> -- check_x - Int32 -> -- check_y - Int32 -> -- check_size - Word32 -> -- color1 - Word32 -> -- color2 - m () -pixbufCompositeColor _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type overall_alpha check_x check_y check_size color1 color2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest' = unsafeManagedPtrCastPtr dest - let offset_x' = realToFrac offset_x - let offset_y' = realToFrac offset_y - let scale_x' = realToFrac scale_x - let scale_y' = realToFrac scale_y - let interp_type' = (fromIntegral . fromEnum) interp_type - gdk_pixbuf_composite_color _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' overall_alpha check_x check_y check_size color1 color2 - touchManagedPtr _obj - touchManagedPtr dest - return () - --- method Pixbuf::composite_color_simple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "overall_alpha", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "check_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color1", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color2", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_composite_color_simple" gdk_pixbuf_composite_color_simple :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 - CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" - Int32 -> -- overall_alpha : TBasicType TInt32 - Int32 -> -- check_size : TBasicType TInt32 - Word32 -> -- color1 : TBasicType TUInt32 - Word32 -> -- color2 : TBasicType TUInt32 - IO (Ptr Pixbuf) - - -pixbufCompositeColorSimple :: - (MonadIO m, PixbufK a) => - a -> -- _obj - Int32 -> -- dest_width - Int32 -> -- dest_height - InterpType -> -- interp_type - Int32 -> -- overall_alpha - Int32 -> -- check_size - Word32 -> -- color1 - Word32 -> -- color2 - m Pixbuf -pixbufCompositeColorSimple _obj dest_width dest_height interp_type overall_alpha check_size color1 color2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interp_type' = (fromIntegral . fromEnum) interp_type - result <- gdk_pixbuf_composite_color_simple _obj' dest_width dest_height interp_type' overall_alpha check_size color1 color2 - checkUnexpectedReturnNULL "gdk_pixbuf_composite_color_simple" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_copy" gdk_pixbuf_copy :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr Pixbuf) - - -pixbufCopy :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Pixbuf -pixbufCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_copy _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_copy" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::copy_area --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_copy_area" gdk_pixbuf_copy_area :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- src_x : TBasicType TInt32 - Int32 -> -- src_y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - Ptr Pixbuf -> -- dest_pixbuf : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- dest_x : TBasicType TInt32 - Int32 -> -- dest_y : TBasicType TInt32 - IO () - - -pixbufCopyArea :: - (MonadIO m, PixbufK a, PixbufK b) => - a -> -- _obj - Int32 -> -- src_x - Int32 -> -- src_y - Int32 -> -- width - Int32 -> -- height - b -> -- dest_pixbuf - Int32 -> -- dest_x - Int32 -> -- dest_y - m () -pixbufCopyArea _obj src_x src_y width height dest_pixbuf dest_x dest_y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest_pixbuf' = unsafeManagedPtrCastPtr dest_pixbuf - gdk_pixbuf_copy_area _obj' src_x src_y width height dest_pixbuf' dest_x dest_y - touchManagedPtr _obj - touchManagedPtr dest_pixbuf - return () - --- method Pixbuf::fill --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixel", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_fill" gdk_pixbuf_fill :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Word32 -> -- pixel : TBasicType TUInt32 - IO () - - -pixbufFill :: - (MonadIO m, PixbufK a) => - a -> -- _obj - Word32 -> -- pixel - m () -pixbufFill _obj pixel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_pixbuf_fill _obj' pixel - touchManagedPtr _obj - return () - --- method Pixbuf::flip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "horizontal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_flip" gdk_pixbuf_flip :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - CInt -> -- horizontal : TBasicType TBoolean - IO (Ptr Pixbuf) - - -pixbufFlip :: - (MonadIO m, PixbufK a) => - a -> -- _obj - Bool -> -- horizontal - m Pixbuf -pixbufFlip _obj horizontal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let horizontal' = (fromIntegral . fromEnum) horizontal - result <- gdk_pixbuf_flip _obj' horizontal' - checkUnexpectedReturnNULL "gdk_pixbuf_flip" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::get_bits_per_sample --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_bits_per_sample" gdk_pixbuf_get_bits_per_sample :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO Int32 - - -pixbufGetBitsPerSample :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Int32 -pixbufGetBitsPerSample _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_bits_per_sample _obj' - touchManagedPtr _obj - return result - --- method Pixbuf::get_byte_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_byte_length" gdk_pixbuf_get_byte_length :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO Word64 - - -pixbufGetByteLength :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Word64 -pixbufGetByteLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_byte_length _obj' - touchManagedPtr _obj - return result - --- method Pixbuf::get_colorspace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Colorspace" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_colorspace" gdk_pixbuf_get_colorspace :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO CUInt - - -pixbufGetColorspace :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Colorspace -pixbufGetColorspace _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_colorspace _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Pixbuf::get_has_alpha --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_has_alpha" gdk_pixbuf_get_has_alpha :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO CInt - - -pixbufGetHasAlpha :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Bool -pixbufGetHasAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_has_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Pixbuf::get_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_height" gdk_pixbuf_get_height :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO Int32 - - -pixbufGetHeight :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Int32 -pixbufGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_height _obj' - touchManagedPtr _obj - return result - --- method Pixbuf::get_n_channels --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_n_channels" gdk_pixbuf_get_n_channels :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO Int32 - - -pixbufGetNChannels :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Int32 -pixbufGetNChannels _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_n_channels _obj' - touchManagedPtr _obj - return result - --- method Pixbuf::get_option --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_option" gdk_pixbuf_get_option :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - CString -> -- key : TBasicType TUTF8 - IO CString - - -pixbufGetOption :: - (MonadIO m, PixbufK a) => - a -> -- _obj - T.Text -> -- key - m T.Text -pixbufGetOption _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- gdk_pixbuf_get_option _obj' key' - checkUnexpectedReturnNULL "gdk_pixbuf_get_option" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem key' - return result' - --- XXX Could not generate method Pixbuf::get_options --- Error was : Not implemented: "Hash table argument with transfer = Container? result" --- method Pixbuf::get_pixels --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TBasicType TUInt8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_pixels_with_length" gdk_pixbuf_get_pixels_with_length :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Ptr Word32 -> -- length : TBasicType TUInt32 - IO (Ptr Word8) - - -pixbufGetPixels :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m ByteString -pixbufGetPixels _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - length_ <- allocMem :: IO (Ptr Word32) - result <- gdk_pixbuf_get_pixels_with_length _obj' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "gdk_pixbuf_get_pixels_with_length" result - result' <- (unpackByteStringWithLength length_') result - touchManagedPtr _obj - freeMem length_ - return result' - --- method Pixbuf::get_rowstride --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_rowstride" gdk_pixbuf_get_rowstride :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO Int32 - - -pixbufGetRowstride :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Int32 -pixbufGetRowstride _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_rowstride _obj' - touchManagedPtr _obj - return result - --- method Pixbuf::get_width --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_width" gdk_pixbuf_get_width :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO Int32 - - -pixbufGetWidth :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Int32 -pixbufGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_get_width _obj' - touchManagedPtr _obj - return result - --- method Pixbuf::new_subpixbuf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_subpixbuf" gdk_pixbuf_new_subpixbuf :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- src_x : TBasicType TInt32 - Int32 -> -- src_y : TBasicType TInt32 - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - IO (Ptr Pixbuf) - - -pixbufNewSubpixbuf :: - (MonadIO m, PixbufK a) => - a -> -- _obj - Int32 -> -- src_x - Int32 -> -- src_y - Int32 -> -- width - Int32 -> -- height - m Pixbuf -pixbufNewSubpixbuf _obj src_x src_y width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_new_subpixbuf _obj' src_x src_y width height - checkUnexpectedReturnNULL "gdk_pixbuf_new_subpixbuf" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::read_pixel_bytes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_read_pixel_bytes" gdk_pixbuf_read_pixel_bytes :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO (Ptr GLib.Bytes) - - -pixbufReadPixelBytes :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m GLib.Bytes -pixbufReadPixelBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_read_pixel_bytes _obj' - checkUnexpectedReturnNULL "gdk_pixbuf_read_pixel_bytes" result - result' <- (wrapBoxed GLib.Bytes) result - touchManagedPtr _obj - return result' - --- method Pixbuf::read_pixels --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt8 --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_read_pixels" gdk_pixbuf_read_pixels :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - IO Word8 - - -pixbufReadPixels :: - (MonadIO m, PixbufK a) => - a -> -- _obj - m Word8 -pixbufReadPixels _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_pixbuf_read_pixels _obj' - touchManagedPtr _obj - return result - --- method Pixbuf::rotate_simple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TInterface "GdkPixbuf" "PixbufRotation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_rotate_simple" gdk_pixbuf_rotate_simple :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - CUInt -> -- angle : TInterface "GdkPixbuf" "PixbufRotation" - IO (Ptr Pixbuf) - - -pixbufRotateSimple :: - (MonadIO m, PixbufK a) => - a -> -- _obj - PixbufRotation -> -- angle - m Pixbuf -pixbufRotateSimple _obj angle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let angle' = (fromIntegral . fromEnum) angle - result <- gdk_pixbuf_rotate_simple _obj' angle' - checkUnexpectedReturnNULL "gdk_pixbuf_rotate_simple" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::saturate_and_pixelate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "saturation", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixelate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_saturate_and_pixelate" gdk_pixbuf_saturate_and_pixelate :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" - CFloat -> -- saturation : TBasicType TFloat - CInt -> -- pixelate : TBasicType TBoolean - IO () - - -pixbufSaturateAndPixelate :: - (MonadIO m, PixbufK a, PixbufK b) => - a -> -- _obj - b -> -- dest - Float -> -- saturation - Bool -> -- pixelate - m () -pixbufSaturateAndPixelate _obj dest saturation pixelate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest' = unsafeManagedPtrCastPtr dest - let saturation' = realToFrac saturation - let pixelate' = (fromIntegral . fromEnum) pixelate - gdk_pixbuf_saturate_and_pixelate _obj' dest' saturation' pixelate' - touchManagedPtr _obj - touchManagedPtr dest - return () - --- method Pixbuf::save_to_bufferv --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "buffer_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_save_to_bufferv" gdk_pixbuf_save_to_bufferv :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Ptr (Ptr Word8) -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Ptr Word64 -> -- buffer_size : TBasicType TUInt64 - CString -> -- type : TBasicType TUTF8 - Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -pixbufSaveToBufferv :: - (MonadIO m, PixbufK a) => - a -> -- _obj - T.Text -> -- type - [T.Text] -> -- option_keys - [T.Text] -> -- option_values - m (ByteString) -pixbufSaveToBufferv _obj type_ option_keys option_values = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - buffer <- allocMem :: IO (Ptr (Ptr Word8)) - buffer_size <- allocMem :: IO (Ptr Word64) - type_' <- textToCString type_ - option_keys' <- packZeroTerminatedUTF8CArray option_keys - option_values' <- packZeroTerminatedUTF8CArray option_values - onException (do - _ <- propagateGError $ gdk_pixbuf_save_to_bufferv _obj' buffer buffer_size type_' option_keys' option_values' - buffer_size' <- peek buffer_size - buffer' <- peek buffer - buffer'' <- (unpackByteStringWithLength buffer_size') buffer' - freeMem buffer' - touchManagedPtr _obj - freeMem buffer - freeMem buffer_size - freeMem type_' - mapZeroTerminatedCArray freeMem option_keys' - freeMem option_keys' - mapZeroTerminatedCArray freeMem option_values' - freeMem option_values' - return buffer'' - ) (do - freeMem buffer - freeMem buffer_size - freeMem type_' - mapZeroTerminatedCArray freeMem option_keys' - freeMem option_keys' - mapZeroTerminatedCArray freeMem option_values' - freeMem option_values' - ) - --- method Pixbuf::save_to_callbackv --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "GdkPixbuf" "PixbufSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_save_to_callbackv" gdk_pixbuf_save_to_callbackv :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - FunPtr PixbufSaveFuncC -> -- save_func : TInterface "GdkPixbuf" "PixbufSaveFunc" - Ptr () -> -- user_data : TBasicType TVoid - CString -> -- type : TBasicType TUTF8 - Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -pixbufSaveToCallbackv :: - (MonadIO m, PixbufK a) => - a -> -- _obj - PixbufSaveFunc -> -- save_func - T.Text -> -- type - [T.Text] -> -- option_keys - [T.Text] -> -- option_values - m () -pixbufSaveToCallbackv _obj save_func type_ option_keys option_values = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - save_func' <- mkPixbufSaveFunc (pixbufSaveFuncWrapper Nothing save_func) - type_' <- textToCString type_ - option_keys' <- packZeroTerminatedUTF8CArray option_keys - option_values' <- packZeroTerminatedUTF8CArray option_values - let user_data = nullPtr - onException (do - _ <- propagateGError $ gdk_pixbuf_save_to_callbackv _obj' save_func' user_data type_' option_keys' option_values' - safeFreeFunPtr $ castFunPtrToPtr save_func' - touchManagedPtr _obj - freeMem type_' - mapZeroTerminatedCArray freeMem option_keys' - freeMem option_keys' - mapZeroTerminatedCArray freeMem option_values' - freeMem option_values' - return () - ) (do - safeFreeFunPtr $ castFunPtrToPtr save_func' - freeMem type_' - mapZeroTerminatedCArray freeMem option_keys' - freeMem option_keys' - mapZeroTerminatedCArray freeMem option_values' - freeMem option_values' - ) - --- method Pixbuf::savev --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_keys", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "option_values", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_savev" gdk_pixbuf_savev :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - CString -> -- filename : TBasicType TUTF8 - CString -> -- type : TBasicType TUTF8 - Ptr CString -> -- option_keys : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr CString -> -- option_values : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -pixbufSavev :: - (MonadIO m, PixbufK a) => - a -> -- _obj - T.Text -> -- filename - T.Text -> -- type - [T.Text] -> -- option_keys - [T.Text] -> -- option_values - m () -pixbufSavev _obj filename type_ option_keys option_values = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- textToCString filename - type_' <- textToCString type_ - option_keys' <- packZeroTerminatedUTF8CArray option_keys - option_values' <- packZeroTerminatedUTF8CArray option_values - onException (do - _ <- propagateGError $ gdk_pixbuf_savev _obj' filename' type_' option_keys' option_values' - touchManagedPtr _obj - freeMem filename' - freeMem type_' - mapZeroTerminatedCArray freeMem option_keys' - freeMem option_keys' - mapZeroTerminatedCArray freeMem option_values' - freeMem option_values' - return () - ) (do - freeMem filename' - freeMem type_' - mapZeroTerminatedCArray freeMem option_keys' - freeMem option_keys' - mapZeroTerminatedCArray freeMem option_values' - freeMem option_values' - ) - --- method Pixbuf::scale --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_scale" gdk_pixbuf_scale :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Ptr Pixbuf -> -- dest : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- dest_x : TBasicType TInt32 - Int32 -> -- dest_y : TBasicType TInt32 - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 - CDouble -> -- offset_x : TBasicType TDouble - CDouble -> -- offset_y : TBasicType TDouble - CDouble -> -- scale_x : TBasicType TDouble - CDouble -> -- scale_y : TBasicType TDouble - CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" - IO () - - -pixbufScale :: - (MonadIO m, PixbufK a, PixbufK b) => - a -> -- _obj - b -> -- dest - Int32 -> -- dest_x - Int32 -> -- dest_y - Int32 -> -- dest_width - Int32 -> -- dest_height - Double -> -- offset_x - Double -> -- offset_y - Double -> -- scale_x - Double -> -- scale_y - InterpType -> -- interp_type - m () -pixbufScale _obj dest dest_x dest_y dest_width dest_height offset_x offset_y scale_x scale_y interp_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dest' = unsafeManagedPtrCastPtr dest - let offset_x' = realToFrac offset_x - let offset_y' = realToFrac offset_y - let scale_x' = realToFrac scale_x - let scale_y' = realToFrac scale_y - let interp_type' = (fromIntegral . fromEnum) interp_type - gdk_pixbuf_scale _obj' dest' dest_x dest_y dest_width dest_height offset_x' offset_y' scale_x' scale_y' interp_type' - touchManagedPtr _obj - touchManagedPtr dest - return () - --- method Pixbuf::scale_simple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interp_type", argType = TInterface "GdkPixbuf" "InterpType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_scale_simple" gdk_pixbuf_scale_simple :: - Ptr Pixbuf -> -- _obj : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- dest_width : TBasicType TInt32 - Int32 -> -- dest_height : TBasicType TInt32 - CUInt -> -- interp_type : TInterface "GdkPixbuf" "InterpType" - IO (Ptr Pixbuf) - - -pixbufScaleSimple :: - (MonadIO m, PixbufK a) => - a -> -- _obj - Int32 -> -- dest_width - Int32 -> -- dest_height - InterpType -> -- interp_type - m Pixbuf -pixbufScaleSimple _obj dest_width dest_height interp_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interp_type' = (fromIntegral . fromEnum) interp_type - result <- gdk_pixbuf_scale_simple _obj' dest_width dest_height interp_type' - checkUnexpectedReturnNULL "gdk_pixbuf_scale_simple" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr _obj - return result' - --- method Pixbuf::from_pixdata --- method type : MemberFunction --- Args : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pixdata", argType = TInterface "GdkPixbuf" "Pixdata", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "copy_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "Pixbuf" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_from_pixdata" gdk_pixbuf_from_pixdata :: - Ptr Pixdata -> -- pixdata : TInterface "GdkPixbuf" "Pixdata" - CInt -> -- copy_pixels : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr Pixbuf) - -{-# DEPRECATED pixbufFromPixdata ["(Since version 2.32)","Use #GResource instead."]#-} -pixbufFromPixdata :: - (MonadIO m) => - Pixdata -> -- pixdata - Bool -> -- copy_pixels - m Pixbuf -pixbufFromPixdata pixdata copy_pixels = liftIO $ do - let pixdata' = unsafeManagedPtrGetPtr pixdata - let copy_pixels' = (fromIntegral . fromEnum) copy_pixels - onException (do - result <- propagateGError $ gdk_pixbuf_from_pixdata pixdata' copy_pixels' - checkUnexpectedReturnNULL "gdk_pixbuf_from_pixdata" result - result' <- (wrapObject Pixbuf) result - touchManagedPtr pixdata - return result' - ) (do - return () - ) - --- method Pixbuf::get_file_info --- method type : MemberFunction --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "PixbufFormat" --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_file_info" gdk_pixbuf_get_file_info :: - CString -> -- filename : TBasicType TUTF8 - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - IO (Ptr PixbufFormat) - - -pixbufGetFileInfo :: - (MonadIO m) => - T.Text -> -- filename - m (PixbufFormat,Int32,Int32) -pixbufGetFileInfo filename = liftIO $ do - filename' <- textToCString filename - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - result <- gdk_pixbuf_get_file_info filename' width height - checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info" result - result' <- (newBoxed PixbufFormat) result - width' <- peek width - height' <- peek height - freeMem filename' - freeMem width - freeMem height - return (result', width', height') - --- method Pixbuf::get_file_info_async --- method type : MemberFunction --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_file_info_async" gdk_pixbuf_get_file_info_async :: - CString -> -- filename : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -pixbufGetFileInfoAsync :: - (MonadIO m, Gio.CancellableK a) => - T.Text -> -- filename - Maybe (a) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -pixbufGetFileInfoAsync filename cancellable callback = liftIO $ do - filename' <- textToCString filename - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - gdk_pixbuf_get_file_info_async filename' maybeCancellable maybeCallback user_data - whenJust cancellable touchManagedPtr - freeMem filename' - return () - --- method Pixbuf::get_file_info_finish --- method type : MemberFunction --- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GdkPixbuf" "PixbufFormat" --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_file_info_finish" gdk_pixbuf_get_file_info_finish :: - Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult" - Ptr Int32 -> -- width : TBasicType TInt32 - Ptr Int32 -> -- height : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO (Ptr PixbufFormat) - - -pixbufGetFileInfoFinish :: - (MonadIO m, Gio.AsyncResultK a) => - a -> -- async_result - m (PixbufFormat,Int32,Int32) -pixbufGetFileInfoFinish async_result = liftIO $ do - let async_result' = unsafeManagedPtrCastPtr async_result - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - onException (do - result <- propagateGError $ gdk_pixbuf_get_file_info_finish async_result' width height - checkUnexpectedReturnNULL "gdk_pixbuf_get_file_info_finish" result - result' <- (newBoxed PixbufFormat) result - width' <- peek width - height' <- peek height - touchManagedPtr async_result - freeMem width - freeMem height - return (result', width', height') - ) (do - freeMem width - freeMem height - ) - --- method Pixbuf::get_formats --- method type : MemberFunction --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TGSList (TInterface "GdkPixbuf" "PixbufFormat") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_formats" gdk_pixbuf_get_formats :: - IO (Ptr (GSList (Ptr PixbufFormat))) - - -pixbufGetFormats :: - (MonadIO m) => - m [PixbufFormat] -pixbufGetFormats = liftIO $ do - result <- gdk_pixbuf_get_formats - checkUnexpectedReturnNULL "gdk_pixbuf_get_formats" result - result' <- unpackGSList result - result'' <- mapM (newBoxed PixbufFormat) result' - g_slist_free result - return result'' - --- method Pixbuf::new_from_stream_async --- method type : MemberFunction --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_stream_async" gdk_pixbuf_new_from_stream_async :: - Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -pixbufNewFromStreamAsync :: - (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -> -- stream - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -pixbufNewFromStreamAsync stream cancellable callback = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - gdk_pixbuf_new_from_stream_async stream' maybeCancellable maybeCallback user_data - touchManagedPtr stream - whenJust cancellable touchManagedPtr - return () - --- method Pixbuf::new_from_stream_at_scale_async --- method type : MemberFunction --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "preserve_aspect_ratio", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_new_from_stream_at_scale_async" gdk_pixbuf_new_from_stream_at_scale_async :: - Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" - Int32 -> -- width : TBasicType TInt32 - Int32 -> -- height : TBasicType TInt32 - CInt -> -- preserve_aspect_ratio : TBasicType TBoolean - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -pixbufNewFromStreamAtScaleAsync :: - (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -> -- stream - Int32 -> -- width - Int32 -> -- height - Bool -> -- preserve_aspect_ratio - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -pixbufNewFromStreamAtScaleAsync stream width height preserve_aspect_ratio cancellable callback = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - let preserve_aspect_ratio' = (fromIntegral . fromEnum) preserve_aspect_ratio - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - gdk_pixbuf_new_from_stream_at_scale_async stream' width height preserve_aspect_ratio' maybeCancellable maybeCallback user_data - touchManagedPtr stream - whenJust cancellable touchManagedPtr - return () - --- method Pixbuf::save_to_stream_finish --- method type : MemberFunction --- Args : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "async_result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "gdk_pixbuf_save_to_stream_finish" gdk_pixbuf_save_to_stream_finish :: - Ptr Gio.AsyncResult -> -- async_result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -pixbufSaveToStreamFinish :: - (MonadIO m, Gio.AsyncResultK a) => - a -> -- async_result - m () -pixbufSaveToStreamFinish async_result = liftIO $ do - let async_result' = unsafeManagedPtrCastPtr async_result - onException (do - _ <- propagateGError $ gdk_pixbuf_save_to_stream_finish async_result' - touchManagedPtr async_result - return () - ) (do - return () - ) - - diff --git a/GI/GdkPixbuf/Objects/Pixbuf.hs-boot b/GI/GdkPixbuf/Objects/Pixbuf.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/Pixbuf.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.GdkPixbuf.Objects.Pixbuf where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Pixbuf = Pixbuf (ForeignPtr Pixbuf) -instance GObject Pixbuf where -class GObject o => PixbufK o -instance (GObject o, IsDescendantOf Pixbuf o) => PixbufK o -data PixbufBitsPerSamplePropertyInfo -data PixbufColorspacePropertyInfo -data PixbufHasAlphaPropertyInfo -data PixbufHeightPropertyInfo -data PixbufNChannelsPropertyInfo -data PixbufPixelBytesPropertyInfo -data PixbufPixelsPropertyInfo -data PixbufRowstridePropertyInfo -data PixbufWidthPropertyInfo diff --git a/GI/GdkPixbuf/Objects/PixbufAnimation.hs b/GI/GdkPixbuf/Objects/PixbufAnimation.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs +++ /dev/null @@ -1,411 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Objects.PixbufAnimation - ( - --- * Exported types - PixbufAnimation(..) , - PixbufAnimationK , - toPixbufAnimation , - noPixbufAnimation , - - - -- * Methods --- ** pixbufAnimationGetHeight - pixbufAnimationGetHeight , - - --- ** pixbufAnimationGetIter - pixbufAnimationGetIter , - - --- ** pixbufAnimationGetStaticImage - pixbufAnimationGetStaticImage , - - --- ** pixbufAnimationGetWidth - pixbufAnimationGetWidth , - - --- ** pixbufAnimationIsStaticImage - pixbufAnimationIsStaticImage , - - --- ** pixbufAnimationNewFromFile - pixbufAnimationNewFromFile , - - --- ** pixbufAnimationNewFromResource - pixbufAnimationNewFromResource , - - --- ** pixbufAnimationNewFromStream - pixbufAnimationNewFromStream , - - --- ** pixbufAnimationNewFromStreamAsync - pixbufAnimationNewFromStreamAsync , - - --- ** pixbufAnimationNewFromStreamFinish - pixbufAnimationNewFromStreamFinish , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype PixbufAnimation = PixbufAnimation (ForeignPtr PixbufAnimation) -foreign import ccall "gdk_pixbuf_animation_get_type" - c_gdk_pixbuf_animation_get_type :: IO GType - -type instance ParentTypes PixbufAnimation = PixbufAnimationParentTypes -type PixbufAnimationParentTypes = '[GObject.Object] - -instance GObject PixbufAnimation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_animation_get_type - - -class GObject o => PixbufAnimationK o -instance (GObject o, IsDescendantOf PixbufAnimation o) => PixbufAnimationK o - -toPixbufAnimation :: PixbufAnimationK o => o -> IO PixbufAnimation -toPixbufAnimation = unsafeCastTo PixbufAnimation - -noPixbufAnimation :: Maybe PixbufAnimation -noPixbufAnimation = Nothing - -type instance AttributeList PixbufAnimation = PixbufAnimationAttributeList -type PixbufAnimationAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PixbufAnimation = PixbufAnimationSignalList -type PixbufAnimationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PixbufAnimation::new_from_file --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- 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' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_file" result - result' <- (wrapObject PixbufAnimation) result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - --- method PixbufAnimation::new_from_resource --- method type : Constructor --- Args : [Arg {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' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_resource" result - 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 - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_stream" result - result' <- (wrapObject PixbufAnimation) result - touchManagedPtr stream - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - --- method PixbufAnimation::new_from_stream_finish --- method type : Constructor --- Args : [Arg {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' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_new_from_stream_finish" 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 - checkUnexpectedReturnNULL "gdk_pixbuf_animation_get_iter" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_get_static_image" result - 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 <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - gdk_pixbuf_animation_new_from_stream_async stream' maybeCancellable maybeCallback user_data - touchManagedPtr stream - whenJust cancellable touchManagedPtr - return () - - diff --git a/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot b/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimation.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufAnimation where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufAnimation = PixbufAnimation (ForeignPtr PixbufAnimation) -instance GObject PixbufAnimation where -class GObject o => PixbufAnimationK o -instance (GObject o, IsDescendantOf PixbufAnimation o) => PixbufAnimationK o diff --git a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs +++ /dev/null @@ -1,186 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Objects.PixbufAnimationIter - ( - --- * Exported types - PixbufAnimationIter(..) , - PixbufAnimationIterK , - toPixbufAnimationIter , - noPixbufAnimationIter , - - - -- * Methods --- ** pixbufAnimationIterAdvance - pixbufAnimationIterAdvance , - - --- ** pixbufAnimationIterGetDelayTime - pixbufAnimationIterGetDelayTime , - - --- ** pixbufAnimationIterGetPixbuf - pixbufAnimationIterGetPixbuf , - - --- ** pixbufAnimationIterOnCurrentlyLoadingFrame - pixbufAnimationIterOnCurrentlyLoadingFrame, - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype PixbufAnimationIter = PixbufAnimationIter (ForeignPtr PixbufAnimationIter) -foreign import ccall "gdk_pixbuf_animation_iter_get_type" - c_gdk_pixbuf_animation_iter_get_type :: IO GType - -type instance ParentTypes PixbufAnimationIter = PixbufAnimationIterParentTypes -type PixbufAnimationIterParentTypes = '[GObject.Object] - -instance GObject PixbufAnimationIter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_animation_iter_get_type - - -class GObject o => PixbufAnimationIterK o -instance (GObject o, IsDescendantOf PixbufAnimationIter o) => PixbufAnimationIterK o - -toPixbufAnimationIter :: PixbufAnimationIterK o => o -> IO PixbufAnimationIter -toPixbufAnimationIter = unsafeCastTo PixbufAnimationIter - -noPixbufAnimationIter :: Maybe PixbufAnimationIter -noPixbufAnimationIter = Nothing - -type instance AttributeList PixbufAnimationIter = PixbufAnimationIterAttributeList -type PixbufAnimationIterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PixbufAnimationIter = PixbufAnimationIterSignalList -type PixbufAnimationIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PixbufAnimationIter::advance --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GdkPixbuf" "PixbufAnimationIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "current_time", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- 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' - checkUnexpectedReturnNULL "gdk_pixbuf_animation_iter_get_pixbuf" result - 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' - - diff --git a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot b/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufAnimationIter.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufAnimationIter where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufAnimationIter = PixbufAnimationIter (ForeignPtr PixbufAnimationIter) -instance GObject PixbufAnimationIter where -class GObject o => PixbufAnimationIterK o -instance (GObject o, IsDescendantOf PixbufAnimationIter o) => PixbufAnimationIterK o diff --git a/GI/GdkPixbuf/Objects/PixbufLoader.hs b/GI/GdkPixbuf/Objects/PixbufLoader.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs +++ /dev/null @@ -1,630 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Objects.PixbufLoader - ( - --- * Exported types - PixbufLoader(..) , - PixbufLoaderK , - toPixbufLoader , - noPixbufLoader , - - - -- * Methods --- ** pixbufLoaderClose - pixbufLoaderClose , - - --- ** pixbufLoaderGetAnimation - pixbufLoaderGetAnimation , - - --- ** pixbufLoaderGetFormat - pixbufLoaderGetFormat , - - --- ** pixbufLoaderGetPixbuf - pixbufLoaderGetPixbuf , - - --- ** pixbufLoaderNew - pixbufLoaderNew , - - --- ** pixbufLoaderNewWithMimeType - pixbufLoaderNewWithMimeType , - - --- ** pixbufLoaderNewWithType - pixbufLoaderNewWithType , - - --- ** pixbufLoaderSetSize - pixbufLoaderSetSize , - - --- ** pixbufLoaderWrite - pixbufLoaderWrite , - - --- ** pixbufLoaderWriteBytes - pixbufLoaderWriteBytes , - - - - - -- * Signals --- ** AreaPrepared - PixbufLoaderAreaPreparedCallback , - PixbufLoaderAreaPreparedCallbackC , - PixbufLoaderAreaPreparedSignalInfo , - afterPixbufLoaderAreaPrepared , - mkPixbufLoaderAreaPreparedCallback , - noPixbufLoaderAreaPreparedCallback , - onPixbufLoaderAreaPrepared , - pixbufLoaderAreaPreparedCallbackWrapper , - pixbufLoaderAreaPreparedClosure , - - --- ** AreaUpdated - PixbufLoaderAreaUpdatedCallback , - PixbufLoaderAreaUpdatedCallbackC , - PixbufLoaderAreaUpdatedSignalInfo , - afterPixbufLoaderAreaUpdated , - mkPixbufLoaderAreaUpdatedCallback , - noPixbufLoaderAreaUpdatedCallback , - onPixbufLoaderAreaUpdated , - pixbufLoaderAreaUpdatedCallbackWrapper , - pixbufLoaderAreaUpdatedClosure , - - --- ** Closed - PixbufLoaderClosedCallback , - PixbufLoaderClosedCallbackC , - PixbufLoaderClosedSignalInfo , - afterPixbufLoaderClosed , - mkPixbufLoaderClosedCallback , - noPixbufLoaderClosedCallback , - onPixbufLoaderClosed , - pixbufLoaderClosedCallbackWrapper , - pixbufLoaderClosedClosure , - - --- ** SizePrepared - PixbufLoaderSizePreparedCallback , - PixbufLoaderSizePreparedCallbackC , - PixbufLoaderSizePreparedSignalInfo , - afterPixbufLoaderSizePrepared , - mkPixbufLoaderSizePreparedCallback , - noPixbufLoaderSizePreparedCallback , - onPixbufLoaderSizePrepared , - pixbufLoaderSizePreparedCallbackWrapper , - pixbufLoaderSizePreparedClosure , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype PixbufLoader = PixbufLoader (ForeignPtr PixbufLoader) -foreign import ccall "gdk_pixbuf_loader_get_type" - c_gdk_pixbuf_loader_get_type :: IO GType - -type instance ParentTypes PixbufLoader = PixbufLoaderParentTypes -type PixbufLoaderParentTypes = '[GObject.Object] - -instance GObject PixbufLoader where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_loader_get_type - - -class GObject o => PixbufLoaderK o -instance (GObject o, IsDescendantOf PixbufLoader o) => PixbufLoaderK o - -toPixbufLoader :: PixbufLoaderK o => o -> IO PixbufLoader -toPixbufLoader = unsafeCastTo PixbufLoader - -noPixbufLoader :: Maybe PixbufLoader -noPixbufLoader = Nothing - --- signal PixbufLoader::area-prepared -type PixbufLoaderAreaPreparedCallback = - IO () - -noPixbufLoaderAreaPreparedCallback :: Maybe PixbufLoaderAreaPreparedCallback -noPixbufLoaderAreaPreparedCallback = Nothing - -type PixbufLoaderAreaPreparedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderAreaPreparedCallback :: PixbufLoaderAreaPreparedCallbackC -> IO (FunPtr PixbufLoaderAreaPreparedCallbackC) - -pixbufLoaderAreaPreparedClosure :: PixbufLoaderAreaPreparedCallback -> IO Closure -pixbufLoaderAreaPreparedClosure cb = newCClosure =<< mkPixbufLoaderAreaPreparedCallback wrapped - where wrapped = pixbufLoaderAreaPreparedCallbackWrapper cb - -pixbufLoaderAreaPreparedCallbackWrapper :: - PixbufLoaderAreaPreparedCallback -> - Ptr () -> - Ptr () -> - IO () -pixbufLoaderAreaPreparedCallbackWrapper _cb _ _ = do - _cb - -onPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaPreparedCallback -> m SignalHandlerId -onPixbufLoaderAreaPrepared obj cb = liftIO $ connectPixbufLoaderAreaPrepared obj cb SignalConnectBefore -afterPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaPreparedCallback -> m SignalHandlerId -afterPixbufLoaderAreaPrepared obj cb = connectPixbufLoaderAreaPrepared obj cb SignalConnectAfter - -connectPixbufLoaderAreaPrepared :: (GObject a, MonadIO m) => - a -> PixbufLoaderAreaPreparedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderAreaPrepared obj cb after = liftIO $ do - cb' <- mkPixbufLoaderAreaPreparedCallback (pixbufLoaderAreaPreparedCallbackWrapper cb) - connectSignalFunPtr obj "area-prepared" cb' after - --- signal PixbufLoader::area-updated -type PixbufLoaderAreaUpdatedCallback = - Int32 -> - Int32 -> - Int32 -> - Int32 -> - IO () - -noPixbufLoaderAreaUpdatedCallback :: Maybe PixbufLoaderAreaUpdatedCallback -noPixbufLoaderAreaUpdatedCallback = Nothing - -type PixbufLoaderAreaUpdatedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderAreaUpdatedCallback :: PixbufLoaderAreaUpdatedCallbackC -> IO (FunPtr PixbufLoaderAreaUpdatedCallbackC) - -pixbufLoaderAreaUpdatedClosure :: PixbufLoaderAreaUpdatedCallback -> IO Closure -pixbufLoaderAreaUpdatedClosure cb = newCClosure =<< mkPixbufLoaderAreaUpdatedCallback wrapped - where wrapped = pixbufLoaderAreaUpdatedCallbackWrapper cb - -pixbufLoaderAreaUpdatedCallbackWrapper :: - PixbufLoaderAreaUpdatedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Int32 -> - Int32 -> - Ptr () -> - IO () -pixbufLoaderAreaUpdatedCallbackWrapper _cb _ x y width height _ = do - _cb x y width height - -onPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaUpdatedCallback -> m SignalHandlerId -onPixbufLoaderAreaUpdated obj cb = liftIO $ connectPixbufLoaderAreaUpdated obj cb SignalConnectBefore -afterPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => a -> PixbufLoaderAreaUpdatedCallback -> m SignalHandlerId -afterPixbufLoaderAreaUpdated obj cb = connectPixbufLoaderAreaUpdated obj cb SignalConnectAfter - -connectPixbufLoaderAreaUpdated :: (GObject a, MonadIO m) => - a -> PixbufLoaderAreaUpdatedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderAreaUpdated obj cb after = liftIO $ do - cb' <- mkPixbufLoaderAreaUpdatedCallback (pixbufLoaderAreaUpdatedCallbackWrapper cb) - connectSignalFunPtr obj "area-updated" cb' after - --- signal PixbufLoader::closed -type PixbufLoaderClosedCallback = - IO () - -noPixbufLoaderClosedCallback :: Maybe PixbufLoaderClosedCallback -noPixbufLoaderClosedCallback = Nothing - -type PixbufLoaderClosedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderClosedCallback :: PixbufLoaderClosedCallbackC -> IO (FunPtr PixbufLoaderClosedCallbackC) - -pixbufLoaderClosedClosure :: PixbufLoaderClosedCallback -> IO Closure -pixbufLoaderClosedClosure cb = newCClosure =<< mkPixbufLoaderClosedCallback wrapped - where wrapped = pixbufLoaderClosedCallbackWrapper cb - -pixbufLoaderClosedCallbackWrapper :: - PixbufLoaderClosedCallback -> - Ptr () -> - Ptr () -> - IO () -pixbufLoaderClosedCallbackWrapper _cb _ _ = do - _cb - -onPixbufLoaderClosed :: (GObject a, MonadIO m) => a -> PixbufLoaderClosedCallback -> m SignalHandlerId -onPixbufLoaderClosed obj cb = liftIO $ connectPixbufLoaderClosed obj cb SignalConnectBefore -afterPixbufLoaderClosed :: (GObject a, MonadIO m) => a -> PixbufLoaderClosedCallback -> m SignalHandlerId -afterPixbufLoaderClosed obj cb = connectPixbufLoaderClosed obj cb SignalConnectAfter - -connectPixbufLoaderClosed :: (GObject a, MonadIO m) => - a -> PixbufLoaderClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderClosed obj cb after = liftIO $ do - cb' <- mkPixbufLoaderClosedCallback (pixbufLoaderClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- signal PixbufLoader::size-prepared -type PixbufLoaderSizePreparedCallback = - Int32 -> - Int32 -> - IO () - -noPixbufLoaderSizePreparedCallback :: Maybe PixbufLoaderSizePreparedCallback -noPixbufLoaderSizePreparedCallback = Nothing - -type PixbufLoaderSizePreparedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkPixbufLoaderSizePreparedCallback :: PixbufLoaderSizePreparedCallbackC -> IO (FunPtr PixbufLoaderSizePreparedCallbackC) - -pixbufLoaderSizePreparedClosure :: PixbufLoaderSizePreparedCallback -> IO Closure -pixbufLoaderSizePreparedClosure cb = newCClosure =<< mkPixbufLoaderSizePreparedCallback wrapped - where wrapped = pixbufLoaderSizePreparedCallbackWrapper cb - -pixbufLoaderSizePreparedCallbackWrapper :: - PixbufLoaderSizePreparedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO () -pixbufLoaderSizePreparedCallbackWrapper _cb _ width height _ = do - _cb width height - -onPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderSizePreparedCallback -> m SignalHandlerId -onPixbufLoaderSizePrepared obj cb = liftIO $ connectPixbufLoaderSizePrepared obj cb SignalConnectBefore -afterPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => a -> PixbufLoaderSizePreparedCallback -> m SignalHandlerId -afterPixbufLoaderSizePrepared obj cb = connectPixbufLoaderSizePrepared obj cb SignalConnectAfter - -connectPixbufLoaderSizePrepared :: (GObject a, MonadIO m) => - a -> PixbufLoaderSizePreparedCallback -> SignalConnectMode -> m SignalHandlerId -connectPixbufLoaderSizePrepared obj cb after = liftIO $ do - cb' <- mkPixbufLoaderSizePreparedCallback (pixbufLoaderSizePreparedCallbackWrapper cb) - connectSignalFunPtr obj "size-prepared" cb' after - -type instance AttributeList PixbufLoader = PixbufLoaderAttributeList -type PixbufLoaderAttributeList = ('[ ] :: [(Symbol, *)]) - -data PixbufLoaderAreaPreparedSignalInfo -instance SignalInfo PixbufLoaderAreaPreparedSignalInfo where - type HaskellCallbackType PixbufLoaderAreaPreparedSignalInfo = PixbufLoaderAreaPreparedCallback - connectSignal _ = connectPixbufLoaderAreaPrepared - -data PixbufLoaderAreaUpdatedSignalInfo -instance SignalInfo PixbufLoaderAreaUpdatedSignalInfo where - type HaskellCallbackType PixbufLoaderAreaUpdatedSignalInfo = PixbufLoaderAreaUpdatedCallback - connectSignal _ = connectPixbufLoaderAreaUpdated - -data PixbufLoaderClosedSignalInfo -instance SignalInfo PixbufLoaderClosedSignalInfo where - type HaskellCallbackType PixbufLoaderClosedSignalInfo = PixbufLoaderClosedCallback - connectSignal _ = connectPixbufLoaderClosed - -data PixbufLoaderSizePreparedSignalInfo -instance SignalInfo PixbufLoaderSizePreparedSignalInfo where - type HaskellCallbackType PixbufLoaderSizePreparedSignalInfo = PixbufLoaderSizePreparedCallback - connectSignal _ = connectPixbufLoaderSizePrepared - -type instance SignalList PixbufLoader = PixbufLoaderSignalList -type PixbufLoaderSignalList = ('[ '("area-prepared", PixbufLoaderAreaPreparedSignalInfo), '("area-updated", PixbufLoaderAreaUpdatedSignalInfo), '("closed", PixbufLoaderClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("size-prepared", PixbufLoaderSizePreparedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- 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 - checkUnexpectedReturnNULL "gdk_pixbuf_loader_new" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_mime_type" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_new_with_type" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_animation" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_format" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_loader_get_pixbuf" result - 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 () - ) - - diff --git a/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot b/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufLoader.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufLoader where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufLoader = PixbufLoader (ForeignPtr PixbufLoader) -instance GObject PixbufLoader where -class GObject o => PixbufLoaderK o -instance (GObject o, IsDescendantOf PixbufLoader o) => PixbufLoaderK o -data PixbufLoaderAreaPreparedSignalInfo -data PixbufLoaderAreaUpdatedSignalInfo -data PixbufLoaderClosedSignalInfo -data PixbufLoaderSizePreparedSignalInfo diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs +++ /dev/null @@ -1,220 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Objects.PixbufSimpleAnim - ( - --- * Exported types - PixbufSimpleAnim(..) , - PixbufSimpleAnimK , - toPixbufSimpleAnim , - noPixbufSimpleAnim , - - - -- * Methods --- ** pixbufSimpleAnimAddFrame - pixbufSimpleAnimAddFrame , - - --- ** pixbufSimpleAnimGetLoop - pixbufSimpleAnimGetLoop , - - --- ** pixbufSimpleAnimNew - pixbufSimpleAnimNew , - - --- ** pixbufSimpleAnimSetLoop - pixbufSimpleAnimSetLoop , - - - - - -- * Properties --- ** Loop - PixbufSimpleAnimLoopPropertyInfo , - constructPixbufSimpleAnimLoop , - getPixbufSimpleAnimLoop , - setPixbufSimpleAnimLoop , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks -import qualified GI.GObject as GObject - -newtype PixbufSimpleAnim = PixbufSimpleAnim (ForeignPtr PixbufSimpleAnim) -foreign import ccall "gdk_pixbuf_simple_anim_get_type" - c_gdk_pixbuf_simple_anim_get_type :: IO GType - -type instance ParentTypes PixbufSimpleAnim = PixbufSimpleAnimParentTypes -type PixbufSimpleAnimParentTypes = '[PixbufAnimation, GObject.Object] - -instance GObject PixbufSimpleAnim where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_simple_anim_get_type - - -class GObject o => PixbufSimpleAnimK o -instance (GObject o, IsDescendantOf PixbufSimpleAnim o) => PixbufSimpleAnimK o - -toPixbufSimpleAnim :: PixbufSimpleAnimK o => o -> IO PixbufSimpleAnim -toPixbufSimpleAnim = unsafeCastTo PixbufSimpleAnim - -noPixbufSimpleAnim :: Maybe PixbufSimpleAnim -noPixbufSimpleAnim = Nothing - --- 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 = PixbufSimpleAnimAttributeList -type PixbufSimpleAnimAttributeList = ('[ '("loop", PixbufSimpleAnimLoopPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList PixbufSimpleAnim = PixbufSimpleAnimSignalList -type PixbufSimpleAnimSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PixbufSimpleAnim::new --- method type : Constructor --- Args : [Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rate", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- 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' - checkUnexpectedReturnNULL "gdk_pixbuf_simple_anim_new" result - 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 () - - diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot b/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnim.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufSimpleAnim where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufSimpleAnim = PixbufSimpleAnim (ForeignPtr PixbufSimpleAnim) -instance GObject PixbufSimpleAnim where -class GObject o => PixbufSimpleAnimK o -instance (GObject o, IsDescendantOf PixbufSimpleAnim o) => PixbufSimpleAnimK o -data PixbufSimpleAnimLoopPropertyInfo diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs +++ /dev/null @@ -1,58 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter - ( - --- * Exported types - PixbufSimpleAnimIter(..) , - PixbufSimpleAnimIterK , - toPixbufSimpleAnimIter , - noPixbufSimpleAnimIter , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks -import qualified GI.GObject as GObject - -newtype PixbufSimpleAnimIter = PixbufSimpleAnimIter (ForeignPtr PixbufSimpleAnimIter) -foreign import ccall "gdk_pixbuf_simple_anim_iter_get_type" - c_gdk_pixbuf_simple_anim_iter_get_type :: IO GType - -type instance ParentTypes PixbufSimpleAnimIter = PixbufSimpleAnimIterParentTypes -type PixbufSimpleAnimIterParentTypes = '[PixbufAnimationIter, GObject.Object] - -instance GObject PixbufSimpleAnimIter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_pixbuf_simple_anim_iter_get_type - - -class GObject o => PixbufSimpleAnimIterK o -instance (GObject o, IsDescendantOf PixbufSimpleAnimIter o) => PixbufSimpleAnimIterK o - -toPixbufSimpleAnimIter :: PixbufSimpleAnimIterK o => o -> IO PixbufSimpleAnimIter -toPixbufSimpleAnimIter = unsafeCastTo PixbufSimpleAnimIter - -noPixbufSimpleAnimIter :: Maybe PixbufSimpleAnimIter -noPixbufSimpleAnimIter = Nothing - -type instance AttributeList PixbufSimpleAnimIter = PixbufSimpleAnimIterAttributeList -type PixbufSimpleAnimIterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PixbufSimpleAnimIter = PixbufSimpleAnimIterSignalList -type PixbufSimpleAnimIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot b/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Objects/PixbufSimpleAnimIter.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufSimpleAnimIter = PixbufSimpleAnimIter (ForeignPtr PixbufSimpleAnimIter) -instance GObject PixbufSimpleAnimIter where -class GObject o => PixbufSimpleAnimIterK o -instance (GObject o, IsDescendantOf PixbufSimpleAnimIter o) => PixbufSimpleAnimIterK o diff --git a/GI/GdkPixbuf/Structs.hs b/GI/GdkPixbuf/Structs.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Structs.hs +++ /dev/null @@ -1,28 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Structs - ( module GI.GdkPixbuf.Structs.PixbufFormat, - module GI.GdkPixbuf.Structs.Pixdata , - - - ) where - -import GI.GdkPixbuf.Structs.PixbufFormat -import GI.GdkPixbuf.Structs.Pixdata - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks - - diff --git a/GI/GdkPixbuf/Structs/PixbufFormat.hs b/GI/GdkPixbuf/Structs/PixbufFormat.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs +++ /dev/null @@ -1,374 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GdkPixbuf.Structs.PixbufFormat - ( - --- * Exported types - PixbufFormat(..) , - noPixbufFormat , - - - -- * Methods --- ** pixbufFormatCopy - pixbufFormatCopy , - - --- ** pixbufFormatFree - pixbufFormatFree , - - --- ** pixbufFormatGetDescription - pixbufFormatGetDescription , - - --- ** pixbufFormatGetExtensions - pixbufFormatGetExtensions , - - --- ** pixbufFormatGetLicense - pixbufFormatGetLicense , - - --- ** pixbufFormatGetMimeTypes - pixbufFormatGetMimeTypes , - - --- ** pixbufFormatGetName - pixbufFormatGetName , - - --- ** pixbufFormatIsDisabled - pixbufFormatIsDisabled , - - --- ** pixbufFormatIsScalable - pixbufFormatIsScalable , - - --- ** pixbufFormatIsWritable - pixbufFormatIsWritable , - - --- ** pixbufFormatSetDisabled - pixbufFormatSetDisabled , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks - -newtype PixbufFormat = PixbufFormat (ForeignPtr PixbufFormat) -foreign import ccall "gdk_pixbuf_format_get_type" c_gdk_pixbuf_format_get_type :: - IO GType - -instance BoxedObject PixbufFormat where - boxedType _ = c_gdk_pixbuf_format_get_type - -noPixbufFormat :: Maybe PixbufFormat -noPixbufFormat = Nothing - --- 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' - checkUnexpectedReturnNULL "gdk_pixbuf_format_copy" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_description" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_extensions" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_license" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_mime_types" result - 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' - checkUnexpectedReturnNULL "gdk_pixbuf_format_get_name" result - 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 () - - diff --git a/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot b/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/PixbufFormat.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GdkPixbuf.Structs.PixbufFormat where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PixbufFormat = PixbufFormat (ForeignPtr PixbufFormat) -instance BoxedObject PixbufFormat where diff --git a/GI/GdkPixbuf/Structs/Pixdata.hs b/GI/GdkPixbuf/Structs/Pixdata.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/Pixdata.hs +++ /dev/null @@ -1,216 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #GdkPixdata contains pixbuf information in a form suitable for -serialization and streaming. --} - -module GI.GdkPixbuf.Structs.Pixdata - ( - --- * Exported types - Pixdata(..) , - noPixdata , - - - -- * Methods --- ** pixdataDeserialize - pixdataDeserialize , - - --- ** pixdataSerialize - pixdataSerialize , - - --- ** pixdataToCsource - pixdataToCsource , - - - - - -- * Properties --- ** Height - pixdataReadHeight , - - --- ** Length - pixdataReadLength , - - --- ** Magic - pixdataReadMagic , - - --- ** PixdataType - pixdataReadPixdataType , - - --- ** PixelData - pixdataReadPixelData , - - --- ** Rowstride - pixdataReadRowstride , - - --- ** Width - pixdataReadWidth , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GdkPixbuf.Types -import GI.GdkPixbuf.Callbacks -import qualified GI.GLib as GLib - -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 - checkUnexpectedReturnNULL "gdk_pixdata_serialize" result - 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' - checkUnexpectedReturnNULL "gdk_pixdata_to_csource" result - result' <- (wrapBoxed GLib.String) result - touchManagedPtr _obj - freeMem name' - return result' - - diff --git a/GI/GdkPixbuf/Structs/Pixdata.hs-boot b/GI/GdkPixbuf/Structs/Pixdata.hs-boot deleted file mode 100644 --- a/GI/GdkPixbuf/Structs/Pixdata.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GdkPixbuf.Structs.Pixdata where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Pixdata = Pixdata (ForeignPtr Pixdata) diff --git a/GI/GdkPixbuf/Types.hs b/GI/GdkPixbuf/Types.hs deleted file mode 100644 --- a/GI/GdkPixbuf/Types.hs +++ /dev/null @@ -1,28 +0,0 @@ -module GI.GdkPixbuf.Types - ( module GI.GdkPixbuf.Objects.Pixbuf , - module GI.GdkPixbuf.Objects.PixbufAnimation, - module GI.GdkPixbuf.Objects.PixbufAnimationIter, - module GI.GdkPixbuf.Objects.PixbufLoader, - module GI.GdkPixbuf.Objects.PixbufSimpleAnim, - module GI.GdkPixbuf.Objects.PixbufSimpleAnimIter, - module GI.GdkPixbuf.Structs.PixbufFormat, - module GI.GdkPixbuf.Structs.Pixdata , - module GI.GdkPixbuf.Enums , - module GI.GdkPixbuf.Flags , - - - ) where - - -import {-# SOURCE #-} GI.GdkPixbuf.Objects.Pixbuf -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufAnimation -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufAnimationIter -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufLoader -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufSimpleAnim -import {-# SOURCE #-} GI.GdkPixbuf.Objects.PixbufSimpleAnimIter -import {-# SOURCE #-} GI.GdkPixbuf.Structs.PixbufFormat -import {-# SOURCE #-} GI.GdkPixbuf.Structs.Pixdata - -import GI.GdkPixbuf.Enums -import GI.GdkPixbuf.Flags - diff --git a/GI/GdkPixbufAttributes.hs b/GI/GdkPixbufAttributes.hs new file mode 100644 --- /dev/null +++ b/GI/GdkPixbufAttributes.hs @@ -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 = '[ ] + diff --git a/GI/GdkPixbufSignals.hs b/GI/GdkPixbufSignals.hs new file mode 100644 --- /dev/null +++ b/GI/GdkPixbufSignals.hs @@ -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)] + diff --git a/gi-gdkpixbuf.cabal b/gi-gdkpixbuf.cabal --- a/gi-gdkpixbuf.cabal +++ b/gi-gdkpixbuf.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gdkpixbuf -version: 0.2.31.12 +version: 0.2.32.10 synopsis: GdkPixbuf bindings description: Bindings for GdkPixbuf, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,32 +14,13 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns - ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.GdkPixbuf.Types - GI.GdkPixbuf - GI.GdkPixbuf.Callbacks - GI.GdkPixbuf.Constants - GI.GdkPixbuf.Enums - GI.GdkPixbuf.Flags - GI.GdkPixbuf.Functions - GI.GdkPixbuf.Objects - GI.GdkPixbuf.Objects.Pixbuf - GI.GdkPixbuf.Objects.PixbufAnimation - GI.GdkPixbuf.Objects.PixbufAnimationIter - GI.GdkPixbuf.Objects.PixbufLoader - GI.GdkPixbuf.Objects.PixbufSimpleAnim - GI.GdkPixbuf.Objects.PixbufSimpleAnimIter - GI.GdkPixbuf.Structs - GI.GdkPixbuf.Structs.PixbufFormat - GI.GdkPixbuf.Structs.Pixdata - pkgconfig-depends: gdk-pixbuf-2.0 >= 2.31 + exposed-modules: GI.GdkPixbuf, GI.GdkPixbufAttributes, GI.GdkPixbufSignals + pkgconfig-depends: gdk-pixbuf-2.0 >= 2.32 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-glib >= 0.2.44.12 && < 0.2.45, - gi-gobject >= 0.2.44.12 && < 0.2.45, - gi-gio >= 0.2.44.12 && < 0.2.45, + haskell-gi-base >= 0.10 && < 1, + gi-glib >= 0.2.46.10 && < 0.3, + gi-gobject >= 0.2.46.10 && < 0.3, + gi-gio >= 0.2.46.10 && < 0.3, bytestring >= 0.10, containers >= 0.5, text >= 1.0,