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