packages feed

gi-pango 0.1.36.12 → 0.1.38.10

raw patch · 112 files changed

+11662/−16123 lines, 112 filesdep ~gi-glibdep ~gi-gobjectdep ~haskell-gi-base

Dependency ranges changed: gi-glib, gi-gobject, haskell-gi-base

Files

GI/Pango.hs view
@@ -1,38 +1,11544 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango-    (     module GI.Pango.Callbacks               ,-    module GI.Pango.Constants               ,-    module GI.Pango.Enums                   ,-    module GI.Pango.Flags                   ,-    module GI.Pango.Functions               ,-    module GI.Pango.Objects                 ,-    module GI.Pango.Structs                 ,---    ) where--import GI.Pango.Callbacks-import GI.Pango.Constants-import GI.Pango.Enums-import GI.Pango.Flags-import GI.Pango.Functions-import GI.Pango.Objects-import GI.Pango.Structs--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-+-- Generated code.++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,+    TypeFamilies, MultiParamTypeClasses, KindSignatures,+    FlexibleInstances, UndecidableInstances, DataKinds,+    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}++module GI.Pango 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++-- Enum Alignment++data Alignment = +      AlignmentLeft+    | AlignmentCenter+    | AlignmentRight+    | AnotherAlignment Int+    deriving (Show, Eq)++instance Enum Alignment where+    fromEnum AlignmentLeft = 0+    fromEnum AlignmentCenter = 1+    fromEnum AlignmentRight = 2+    fromEnum (AnotherAlignment k) = k++    toEnum 0 = AlignmentLeft+    toEnum 1 = AlignmentCenter+    toEnum 2 = AlignmentRight+    toEnum k = AnotherAlignment k++foreign import ccall "pango_alignment_get_type" c_pango_alignment_get_type :: +    IO GType++instance BoxedEnum Alignment where+    boxedEnumType _ = c_pango_alignment_get_type++-- struct Analysis+newtype Analysis = Analysis (ForeignPtr Analysis)+noAnalysis :: Maybe Analysis+noAnalysis = Nothing++analysisReadShapeEngine :: Analysis -> IO EngineShape+analysisReadShapeEngine s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EngineShape)+    val' <- (newObject EngineShape) val+    return val'++analysisReadLangEngine :: Analysis -> IO EngineLang+analysisReadLangEngine s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr EngineLang)+    val' <- (newObject EngineLang) val+    return val'++analysisReadFont :: Analysis -> IO Font+analysisReadFont s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Font)+    val' <- (newObject Font) val+    return val'++analysisReadLevel :: Analysis -> IO Word8+analysisReadLevel s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Word8+    return val++analysisReadGravity :: Analysis -> IO Word8+analysisReadGravity s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 25) :: IO Word8+    return val++analysisReadFlags :: Analysis -> IO Word8+analysisReadFlags s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 26) :: IO Word8+    return val++analysisReadScript :: Analysis -> IO Word8+analysisReadScript s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 27) :: IO Word8+    return val++analysisReadLanguage :: Analysis -> IO Language+analysisReadLanguage s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Language)+    val' <- (newBoxed Language) val+    return val'++analysisReadExtraAttrs :: Analysis -> IO ([Ptr ()])+analysisReadExtraAttrs s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO (Ptr (GSList (Ptr ())))+    val' <- unpackGSList val+    return val'++-- struct AttrClass+newtype AttrClass = AttrClass (ForeignPtr AttrClass)+noAttrClass :: Maybe AttrClass+noAttrClass = Nothing++attrClassReadType :: AttrClass -> IO AttrType+attrClassReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++-- XXX Skipped getter for "AttrClass:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "AttrClass:equal" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- struct AttrColor+newtype AttrColor = AttrColor (ForeignPtr AttrColor)+noAttrColor :: Maybe AttrColor+noAttrColor = Nothing++attrColorReadAttr :: AttrColor -> IO Attribute+attrColorReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrColorReadColor :: AttrColor -> IO Color+attrColorReadColor s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Color)+    val' <- (newBoxed Color) val+    return val'++-- callback AttrFilterFunc+attrFilterFuncClosure :: AttrFilterFunc -> IO Closure+attrFilterFuncClosure cb = newCClosure =<< mkAttrFilterFunc wrapped+    where wrapped = attrFilterFuncWrapper Nothing cb++type AttrFilterFuncC =+    Ptr Attribute ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkAttrFilterFunc :: AttrFilterFuncC -> IO (FunPtr AttrFilterFuncC)++type AttrFilterFunc =+    Attribute ->+    IO Bool++noAttrFilterFunc :: Maybe AttrFilterFunc+noAttrFilterFunc = Nothing++attrFilterFuncWrapper ::+    Maybe (Ptr (FunPtr (AttrFilterFuncC))) ->+    AttrFilterFunc ->+    Ptr Attribute ->+    Ptr () ->+    IO CInt+attrFilterFuncWrapper funptrptr _cb attribute _ = do+    attribute' <- (newPtr 16 Attribute) attribute+    result <- _cb  attribute'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- struct AttrFloat+newtype AttrFloat = AttrFloat (ForeignPtr AttrFloat)+noAttrFloat :: Maybe AttrFloat+noAttrFloat = Nothing++attrFloatReadAttr :: AttrFloat -> IO Attribute+attrFloatReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrFloatReadValue :: AttrFloat -> IO Double+attrFloatReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CDouble+    let val' = realToFrac val+    return val'++-- struct AttrFontDesc+newtype AttrFontDesc = AttrFontDesc (ForeignPtr AttrFontDesc)+noAttrFontDesc :: Maybe AttrFontDesc+noAttrFontDesc = Nothing++attrFontDescReadAttr :: AttrFontDesc -> IO Attribute+attrFontDescReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrFontDescReadDesc :: AttrFontDesc -> IO FontDescription+attrFontDescReadDesc s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr FontDescription)+    val' <- (newBoxed FontDescription) val+    return val'++-- struct AttrFontFeatures+newtype AttrFontFeatures = AttrFontFeatures (ForeignPtr AttrFontFeatures)+noAttrFontFeatures :: Maybe AttrFontFeatures+noAttrFontFeatures = Nothing++attrFontFeaturesReadAttr :: AttrFontFeatures -> IO Attribute+attrFontFeaturesReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrFontFeaturesReadFeatures :: AttrFontFeatures -> IO T.Text+attrFontFeaturesReadFeatures s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++-- struct AttrInt+newtype AttrInt = AttrInt (ForeignPtr AttrInt)+noAttrInt :: Maybe AttrInt+noAttrInt = Nothing++attrIntReadAttr :: AttrInt -> IO Attribute+attrIntReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrIntReadValue :: AttrInt -> IO Int32+attrIntReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++-- struct AttrIterator+newtype AttrIterator = AttrIterator (ForeignPtr AttrIterator)+noAttrIterator :: Maybe AttrIterator+noAttrIterator = Nothing++-- method AttrIterator::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_iterator_destroy" pango_attr_iterator_destroy :: +    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"+    IO ()+++attrIteratorDestroy ::+    (MonadIO m) =>+    AttrIterator ->                         -- _obj+    m ()+attrIteratorDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_attr_iterator_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method AttrIterator::get_attrs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_iterator_get_attrs" pango_attr_iterator_get_attrs :: +    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"+    IO (Ptr (GSList (Ptr Attribute)))+++attrIteratorGetAttrs ::+    (MonadIO m) =>+    AttrIterator ->                         -- _obj+    m [Attribute]+attrIteratorGetAttrs _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_attr_iterator_get_attrs _obj'+    checkUnexpectedReturnNULL "pango_attr_iterator_get_attrs" result+    result' <- unpackGSList result+    result'' <- mapM (wrapPtr Attribute) result'+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method AttrIterator::get_font+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_attrs", argType = TGSList (TInterface "Pango" "Attribute"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_attrs", argType = TGSList (TInterface "Pango" "Attribute"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_iterator_get_font" pango_attr_iterator_get_font :: +    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    Ptr (GSList (Ptr Attribute)) ->         -- extra_attrs : TGSList (TInterface "Pango" "Attribute")+    IO ()+++attrIteratorGetFont ::+    (MonadIO m) =>+    AttrIterator ->                         -- _obj+    FontDescription ->                      -- desc+    Maybe (Language) ->                     -- language+    [Attribute] ->                          -- extra_attrs+    m ()+attrIteratorGetFont _obj desc language extra_attrs = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let desc' = unsafeManagedPtrGetPtr desc+    maybeLanguage <- case language of+        Nothing -> return nullPtr+        Just jLanguage -> do+            let jLanguage' = unsafeManagedPtrGetPtr jLanguage+            return jLanguage'+    let extra_attrs' = map unsafeManagedPtrGetPtr extra_attrs+    extra_attrs'' <- packGSList extra_attrs'+    pango_attr_iterator_get_font _obj' desc' maybeLanguage extra_attrs''+    touchManagedPtr _obj+    touchManagedPtr desc+    whenJust language touchManagedPtr+    mapM_ touchManagedPtr extra_attrs+    return ()++-- method AttrIterator::next+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_iterator_next" pango_attr_iterator_next :: +    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"+    IO CInt+++attrIteratorNext ::+    (MonadIO m) =>+    AttrIterator ->                         -- _obj+    m Bool+attrIteratorNext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_attr_iterator_next _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method AttrIterator::range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_iterator_range" pango_attr_iterator_range :: +    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"+    Ptr Int32 ->                            -- start : TBasicType TInt32+    Ptr Int32 ->                            -- end : TBasicType TInt32+    IO ()+++attrIteratorRange ::+    (MonadIO m) =>+    AttrIterator ->                         -- _obj+    m (Int32,Int32)+attrIteratorRange _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    start <- allocMem :: IO (Ptr Int32)+    end <- allocMem :: IO (Ptr Int32)+    pango_attr_iterator_range _obj' start end+    start' <- peek start+    end' <- peek end+    touchManagedPtr _obj+    freeMem start+    freeMem end+    return (start', end')++-- struct AttrLanguage+newtype AttrLanguage = AttrLanguage (ForeignPtr AttrLanguage)+noAttrLanguage :: Maybe AttrLanguage+noAttrLanguage = Nothing++attrLanguageReadAttr :: AttrLanguage -> IO Attribute+attrLanguageReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrLanguageReadValue :: AttrLanguage -> IO Language+attrLanguageReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Language)+    val' <- (newBoxed Language) val+    return val'++-- struct AttrList+newtype AttrList = AttrList (ForeignPtr AttrList)+noAttrList :: Maybe AttrList+noAttrList = Nothing++foreign import ccall "pango_attr_list_get_type" c_pango_attr_list_get_type :: +    IO GType++instance BoxedObject AttrList where+    boxedType _ = c_pango_attr_list_get_type++-- method AttrList::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Pango" "AttrList"+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_new" pango_attr_list_new :: +    IO (Ptr AttrList)+++attrListNew ::+    (MonadIO m) =>+    m AttrList+attrListNew  = liftIO $ do+    result <- pango_attr_list_new+    checkUnexpectedReturnNULL "pango_attr_list_new" result+    result' <- (wrapBoxed AttrList) result+    return result'++-- method AttrList::change+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_change" pango_attr_list_change :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    Ptr Attribute ->                        -- attr : TInterface "Pango" "Attribute"+    IO ()+++attrListChange ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    Attribute ->                            -- attr+    m ()+attrListChange _obj attr = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let attr' = unsafeManagedPtrGetPtr attr+    pango_attr_list_change _obj' attr'+    touchManagedPtr _obj+    touchManagedPtr attr+    return ()++-- method AttrList::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "AttrList"+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_copy" pango_attr_list_copy :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    IO (Ptr AttrList)+++attrListCopy ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    m AttrList+attrListCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_attr_list_copy _obj'+    checkUnexpectedReturnNULL "pango_attr_list_copy" result+    result' <- (wrapBoxed AttrList) result+    touchManagedPtr _obj+    return result'++-- method AttrList::filter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "AttrFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "AttrFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "AttrList"+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_filter" pango_attr_list_filter :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    FunPtr AttrFilterFuncC ->               -- func : TInterface "Pango" "AttrFilterFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    IO (Ptr AttrList)+++attrListFilter ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    AttrFilterFunc ->                       -- func+    m AttrList+attrListFilter _obj func = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    func' <- mkAttrFilterFunc (attrFilterFuncWrapper Nothing func)+    let data_ = nullPtr+    result <- pango_attr_list_filter _obj' func' data_+    checkUnexpectedReturnNULL "pango_attr_list_filter" result+    result' <- (wrapBoxed AttrList) result+    safeFreeFunPtr $ castFunPtrToPtr func'+    touchManagedPtr _obj+    return result'++-- method AttrList::insert+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_insert" pango_attr_list_insert :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    Ptr Attribute ->                        -- attr : TInterface "Pango" "Attribute"+    IO ()+++attrListInsert ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    Attribute ->                            -- attr+    m ()+attrListInsert _obj attr = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let attr' = unsafeManagedPtrGetPtr attr+    pango_attr_list_insert _obj' attr'+    touchManagedPtr _obj+    touchManagedPtr attr+    return ()++-- method AttrList::insert_before+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_insert_before" pango_attr_list_insert_before :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    Ptr Attribute ->                        -- attr : TInterface "Pango" "Attribute"+    IO ()+++attrListInsertBefore ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    Attribute ->                            -- attr+    m ()+attrListInsertBefore _obj attr = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let attr' = unsafeManagedPtrGetPtr attr+    pango_attr_list_insert_before _obj' attr'+    touchManagedPtr _obj+    touchManagedPtr attr+    return ()++-- method AttrList::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "AttrList"+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_ref" pango_attr_list_ref :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    IO (Ptr AttrList)+++attrListRef ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    m AttrList+attrListRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_attr_list_ref _obj'+    checkUnexpectedReturnNULL "pango_attr_list_ref" result+    result' <- (wrapBoxed AttrList) result+    touchManagedPtr _obj+    return result'++-- method AttrList::splice+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", 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 "pango_attr_list_splice" pango_attr_list_splice :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    Ptr AttrList ->                         -- other : TInterface "Pango" "AttrList"+    Int32 ->                                -- pos : TBasicType TInt32+    Int32 ->                                -- len : TBasicType TInt32+    IO ()+++attrListSplice ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    AttrList ->                             -- other+    Int32 ->                                -- pos+    Int32 ->                                -- len+    m ()+attrListSplice _obj other pos len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let other' = unsafeManagedPtrGetPtr other+    pango_attr_list_splice _obj' other' pos len+    touchManagedPtr _obj+    touchManagedPtr other+    return ()++-- method AttrList::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_list_unref" pango_attr_list_unref :: +    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"+    IO ()+++attrListUnref ::+    (MonadIO m) =>+    AttrList ->                             -- _obj+    m ()+attrListUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_attr_list_unref _obj'+    touchManagedPtr _obj+    return ()++-- struct AttrShape+newtype AttrShape = AttrShape (ForeignPtr AttrShape)+noAttrShape :: Maybe AttrShape+noAttrShape = Nothing++attrShapeReadAttr :: AttrShape -> IO Attribute+attrShapeReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrShapeReadInkRect :: AttrShape -> IO Rectangle+attrShapeReadInkRect s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Rectangle)+    val' <- (newPtr 16 Rectangle) val+    return val'++attrShapeReadLogicalRect :: AttrShape -> IO Rectangle+attrShapeReadLogicalRect s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Rectangle)+    val' <- (newPtr 16 Rectangle) val+    return val'++attrShapeReadData :: AttrShape -> IO (Ptr ())+attrShapeReadData s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO (Ptr ())+    return val++-- XXX Skipped getter for "AttrShape:destroy_func" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- struct AttrSize+newtype AttrSize = AttrSize (ForeignPtr AttrSize)+noAttrSize :: Maybe AttrSize+noAttrSize = Nothing++attrSizeReadAttr :: AttrSize -> IO Attribute+attrSizeReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrSizeReadSize :: AttrSize -> IO Int32+attrSizeReadSize s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++attrSizeReadAbsolute :: AttrSize -> IO Word32+attrSizeReadAbsolute s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++-- struct AttrString+newtype AttrString = AttrString (ForeignPtr AttrString)+noAttrString :: Maybe AttrString+noAttrString = Nothing++attrStringReadAttr :: AttrString -> IO Attribute+attrStringReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)+    val' <- (newPtr 16 Attribute) val+    return val'++attrStringReadValue :: AttrString -> IO T.Text+attrStringReadValue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++-- Enum AttrType++data AttrType = +      AttrTypeInvalid+    | AttrTypeLanguage+    | AttrTypeFamily+    | AttrTypeStyle+    | AttrTypeWeight+    | AttrTypeVariant+    | AttrTypeStretch+    | AttrTypeSize+    | AttrTypeFontDesc+    | AttrTypeForeground+    | AttrTypeBackground+    | AttrTypeUnderline+    | AttrTypeStrikethrough+    | AttrTypeRise+    | AttrTypeShape+    | AttrTypeScale+    | AttrTypeFallback+    | AttrTypeLetterSpacing+    | AttrTypeUnderlineColor+    | AttrTypeStrikethroughColor+    | AttrTypeAbsoluteSize+    | AttrTypeGravity+    | AttrTypeGravityHint+    | AttrTypeFontFeatures+    | AttrTypeForegroundAlpha+    | AttrTypeBackgroundAlpha+    | AnotherAttrType Int+    deriving (Show, Eq)++instance Enum AttrType where+    fromEnum AttrTypeInvalid = 0+    fromEnum AttrTypeLanguage = 1+    fromEnum AttrTypeFamily = 2+    fromEnum AttrTypeStyle = 3+    fromEnum AttrTypeWeight = 4+    fromEnum AttrTypeVariant = 5+    fromEnum AttrTypeStretch = 6+    fromEnum AttrTypeSize = 7+    fromEnum AttrTypeFontDesc = 8+    fromEnum AttrTypeForeground = 9+    fromEnum AttrTypeBackground = 10+    fromEnum AttrTypeUnderline = 11+    fromEnum AttrTypeStrikethrough = 12+    fromEnum AttrTypeRise = 13+    fromEnum AttrTypeShape = 14+    fromEnum AttrTypeScale = 15+    fromEnum AttrTypeFallback = 16+    fromEnum AttrTypeLetterSpacing = 17+    fromEnum AttrTypeUnderlineColor = 18+    fromEnum AttrTypeStrikethroughColor = 19+    fromEnum AttrTypeAbsoluteSize = 20+    fromEnum AttrTypeGravity = 21+    fromEnum AttrTypeGravityHint = 22+    fromEnum AttrTypeFontFeatures = 23+    fromEnum AttrTypeForegroundAlpha = 24+    fromEnum AttrTypeBackgroundAlpha = 25+    fromEnum (AnotherAttrType k) = k++    toEnum 0 = AttrTypeInvalid+    toEnum 1 = AttrTypeLanguage+    toEnum 2 = AttrTypeFamily+    toEnum 3 = AttrTypeStyle+    toEnum 4 = AttrTypeWeight+    toEnum 5 = AttrTypeVariant+    toEnum 6 = AttrTypeStretch+    toEnum 7 = AttrTypeSize+    toEnum 8 = AttrTypeFontDesc+    toEnum 9 = AttrTypeForeground+    toEnum 10 = AttrTypeBackground+    toEnum 11 = AttrTypeUnderline+    toEnum 12 = AttrTypeStrikethrough+    toEnum 13 = AttrTypeRise+    toEnum 14 = AttrTypeShape+    toEnum 15 = AttrTypeScale+    toEnum 16 = AttrTypeFallback+    toEnum 17 = AttrTypeLetterSpacing+    toEnum 18 = AttrTypeUnderlineColor+    toEnum 19 = AttrTypeStrikethroughColor+    toEnum 20 = AttrTypeAbsoluteSize+    toEnum 21 = AttrTypeGravity+    toEnum 22 = AttrTypeGravityHint+    toEnum 23 = AttrTypeFontFeatures+    toEnum 24 = AttrTypeForegroundAlpha+    toEnum 25 = AttrTypeBackgroundAlpha+    toEnum k = AnotherAttrType k++foreign import ccall "pango_attr_type_get_type" c_pango_attr_type_get_type :: +    IO GType++instance BoxedEnum AttrType where+    boxedEnumType _ = c_pango_attr_type_get_type++-- struct Attribute+newtype Attribute = Attribute (ForeignPtr Attribute)+noAttribute :: Maybe Attribute+noAttribute = Nothing++attributeReadKlass :: Attribute -> IO AttrClass+attributeReadKlass s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr AttrClass)+    val' <- (newPtr 32 AttrClass) val+    return val'++attributeReadStartIndex :: Attribute -> IO Word32+attributeReadStartIndex s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++attributeReadEndIndex :: Attribute -> IO Word32+attributeReadEndIndex s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Word32+    return val++-- method Attribute::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attribute_destroy" pango_attribute_destroy :: +    Ptr Attribute ->                        -- _obj : TInterface "Pango" "Attribute"+    IO ()+++attributeDestroy ::+    (MonadIO m) =>+    Attribute ->                            -- _obj+    m ()+attributeDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_attribute_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method Attribute::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr2", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr2", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_attribute_equal" pango_attribute_equal :: +    Ptr Attribute ->                        -- _obj : TInterface "Pango" "Attribute"+    Ptr Attribute ->                        -- attr2 : TInterface "Pango" "Attribute"+    IO CInt+++attributeEqual ::+    (MonadIO m) =>+    Attribute ->                            -- _obj+    Attribute ->                            -- attr2+    m Bool+attributeEqual _obj attr2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let attr2' = unsafeManagedPtrGetPtr attr2+    result <- pango_attribute_equal _obj' attr2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr attr2+    return result'++-- method Attribute::init+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "klass", argType = TInterface "Pango" "AttrClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "klass", argType = TInterface "Pango" "AttrClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_attribute_init" pango_attribute_init :: +    Ptr Attribute ->                        -- _obj : TInterface "Pango" "Attribute"+    Ptr AttrClass ->                        -- klass : TInterface "Pango" "AttrClass"+    IO ()+++attributeInit ::+    (MonadIO m) =>+    Attribute ->                            -- _obj+    AttrClass ->                            -- klass+    m ()+attributeInit _obj klass = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let klass' = unsafeManagedPtrGetPtr klass+    pango_attribute_init _obj' klass'+    touchManagedPtr _obj+    touchManagedPtr klass+    return ()++-- Enum BidiType++data BidiType = +      BidiTypeL+    | BidiTypeLre+    | BidiTypeLro+    | BidiTypeR+    | BidiTypeAl+    | BidiTypeRle+    | BidiTypeRlo+    | BidiTypePdf+    | BidiTypeEn+    | BidiTypeEs+    | BidiTypeEt+    | BidiTypeAn+    | BidiTypeCs+    | BidiTypeNsm+    | BidiTypeBn+    | BidiTypeB+    | BidiTypeS+    | BidiTypeWs+    | BidiTypeOn+    | AnotherBidiType Int+    deriving (Show, Eq)++instance Enum BidiType where+    fromEnum BidiTypeL = 0+    fromEnum BidiTypeLre = 1+    fromEnum BidiTypeLro = 2+    fromEnum BidiTypeR = 3+    fromEnum BidiTypeAl = 4+    fromEnum BidiTypeRle = 5+    fromEnum BidiTypeRlo = 6+    fromEnum BidiTypePdf = 7+    fromEnum BidiTypeEn = 8+    fromEnum BidiTypeEs = 9+    fromEnum BidiTypeEt = 10+    fromEnum BidiTypeAn = 11+    fromEnum BidiTypeCs = 12+    fromEnum BidiTypeNsm = 13+    fromEnum BidiTypeBn = 14+    fromEnum BidiTypeB = 15+    fromEnum BidiTypeS = 16+    fromEnum BidiTypeWs = 17+    fromEnum BidiTypeOn = 18+    fromEnum (AnotherBidiType k) = k++    toEnum 0 = BidiTypeL+    toEnum 1 = BidiTypeLre+    toEnum 2 = BidiTypeLro+    toEnum 3 = BidiTypeR+    toEnum 4 = BidiTypeAl+    toEnum 5 = BidiTypeRle+    toEnum 6 = BidiTypeRlo+    toEnum 7 = BidiTypePdf+    toEnum 8 = BidiTypeEn+    toEnum 9 = BidiTypeEs+    toEnum 10 = BidiTypeEt+    toEnum 11 = BidiTypeAn+    toEnum 12 = BidiTypeCs+    toEnum 13 = BidiTypeNsm+    toEnum 14 = BidiTypeBn+    toEnum 15 = BidiTypeB+    toEnum 16 = BidiTypeS+    toEnum 17 = BidiTypeWs+    toEnum 18 = BidiTypeOn+    toEnum k = AnotherBidiType k++foreign import ccall "pango_bidi_type_get_type" c_pango_bidi_type_get_type :: +    IO GType++instance BoxedEnum BidiType where+    boxedEnumType _ = c_pango_bidi_type_get_type++-- struct Color+newtype Color = Color (ForeignPtr Color)+noColor :: Maybe Color+noColor = Nothing++foreign import ccall "pango_color_get_type" c_pango_color_get_type :: +    IO GType++instance BoxedObject Color where+    boxedType _ = c_pango_color_get_type++colorReadRed :: Color -> IO Word16+colorReadRed s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word16+    return val++colorReadGreen :: Color -> IO Word16+colorReadGreen s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 2) :: IO Word16+    return val++colorReadBlue :: Color -> IO Word16+colorReadBlue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Word16+    return val++-- method Color::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Color"+-- throws : False+-- Skip return : False++foreign import ccall "pango_color_copy" pango_color_copy :: +    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"+    IO (Ptr Color)+++colorCopy ::+    (MonadIO m) =>+    Color ->                                -- _obj+    m Color+colorCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_color_copy _obj'+    checkUnexpectedReturnNULL "pango_color_copy" result+    result' <- (wrapBoxed Color) result+    touchManagedPtr _obj+    return result'++-- method Color::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_color_free" pango_color_free :: +    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"+    IO ()+++colorFree ::+    (MonadIO m) =>+    Color ->                                -- _obj+    m ()+colorFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_color_free _obj'+    touchManagedPtr _obj+    return ()++-- method Color::parse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_color_parse" pango_color_parse :: +    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"+    CString ->                              -- spec : TBasicType TUTF8+    IO CInt+++colorParse ::+    (MonadIO m) =>+    Color ->                                -- _obj+    T.Text ->                               -- spec+    m Bool+colorParse _obj spec = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    spec' <- textToCString spec+    result <- pango_color_parse _obj' spec'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem spec'+    return result'++-- method Color::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_color_to_string" pango_color_to_string :: +    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"+    IO CString+++colorToString ::+    (MonadIO m) =>+    Color ->                                -- _obj+    m T.Text+colorToString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_color_to_string _obj'+    checkUnexpectedReturnNULL "pango_color_to_string" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- object Context +newtype Context = Context (ForeignPtr Context)+noContext :: Maybe Context+noContext = Nothing++foreign import ccall "pango_context_get_type"+    c_pango_context_get_type :: IO GType++type instance ParentTypes Context = '[GObject.Object]++instance GObject Context where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_context_get_type+    ++class GObject o => ContextK o+instance (GObject o, IsDescendantOf Context o) => ContextK o++toContext :: ContextK o => o -> IO Context+toContext = unsafeCastTo Context++-- method Context::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Pango" "Context"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_new" pango_context_new :: +    IO (Ptr Context)+++contextNew ::+    (MonadIO m) =>+    m Context+contextNew  = liftIO $ do+    result <- pango_context_new+    checkUnexpectedReturnNULL "pango_context_new" result+    result' <- (wrapObject Context) result+    return result'++-- method Context::changed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_changed" pango_context_changed :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO ()+++contextChanged ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m ()+contextChanged _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_context_changed _obj'+    touchManagedPtr _obj+    return ()++-- method Context::get_base_dir+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Direction"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_base_dir" pango_context_get_base_dir :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO CUInt+++contextGetBaseDir ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m Direction+contextGetBaseDir _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_base_dir _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Context::get_base_gravity+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Gravity"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_base_gravity" pango_context_get_base_gravity :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO CUInt+++contextGetBaseGravity ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m Gravity+contextGetBaseGravity _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_base_gravity _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Context::get_font_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_font_description" pango_context_get_font_description :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO (Ptr FontDescription)+++contextGetFontDescription ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m FontDescription+contextGetFontDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_font_description _obj'+    checkUnexpectedReturnNULL "pango_context_get_font_description" result+    result' <- (newBoxed FontDescription) result+    touchManagedPtr _obj+    return result'++-- method Context::get_font_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontMap"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_font_map" pango_context_get_font_map :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO (Ptr FontMap)+++contextGetFontMap ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m FontMap+contextGetFontMap _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_font_map _obj'+    checkUnexpectedReturnNULL "pango_context_get_font_map" result+    result' <- (newObject FontMap) result+    touchManagedPtr _obj+    return result'++-- method Context::get_gravity+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Gravity"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_gravity" pango_context_get_gravity :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO CUInt+++contextGetGravity ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m Gravity+contextGetGravity _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_gravity _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Context::get_gravity_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "GravityHint"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_gravity_hint" pango_context_get_gravity_hint :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO CUInt+++contextGetGravityHint ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m GravityHint+contextGetGravityHint _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_gravity_hint _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Context::get_language+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Language"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_language" pango_context_get_language :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO (Ptr Language)+++contextGetLanguage ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m Language+contextGetLanguage _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_language _obj'+    checkUnexpectedReturnNULL "pango_context_get_language" result+    result' <- (wrapBoxed Language) result+    touchManagedPtr _obj+    return result'++-- method Context::get_matrix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Matrix"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_matrix" pango_context_get_matrix :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO (Ptr Matrix)+++contextGetMatrix ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m Matrix+contextGetMatrix _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_matrix _obj'+    checkUnexpectedReturnNULL "pango_context_get_matrix" result+    result' <- (newBoxed Matrix) result+    touchManagedPtr _obj+    return result'++-- method Context::get_metrics+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontMetrics"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_metrics" pango_context_get_metrics :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    IO (Ptr FontMetrics)+++contextGetMetrics ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    Maybe (FontDescription) ->              -- desc+    Maybe (Language) ->                     -- language+    m FontMetrics+contextGetMetrics _obj desc language = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeDesc <- case desc of+        Nothing -> return nullPtr+        Just jDesc -> do+            let jDesc' = unsafeManagedPtrGetPtr jDesc+            return jDesc'+    maybeLanguage <- case language of+        Nothing -> return nullPtr+        Just jLanguage -> do+            let jLanguage' = unsafeManagedPtrGetPtr jLanguage+            return jLanguage'+    result <- pango_context_get_metrics _obj' maybeDesc maybeLanguage+    checkUnexpectedReturnNULL "pango_context_get_metrics" result+    result' <- (wrapBoxed FontMetrics) result+    touchManagedPtr _obj+    whenJust desc touchManagedPtr+    whenJust language touchManagedPtr+    return result'++-- method Context::get_serial+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_get_serial" pango_context_get_serial :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    IO Word32+++contextGetSerial ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m Word32+contextGetSerial _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_context_get_serial _obj'+    touchManagedPtr _obj+    return result++-- method Context::list_families+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_list_families" pango_context_list_families :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr (Ptr (Ptr FontFamily)) ->           -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")+    Ptr Int32 ->                            -- n_families : TBasicType TInt32+    IO ()+++contextListFamilies ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    m ([FontFamily])+contextListFamilies _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    families <- allocMem :: IO (Ptr (Ptr (Ptr FontFamily)))+    n_families <- allocMem :: IO (Ptr Int32)+    pango_context_list_families _obj' families n_families+    n_families' <- peek n_families+    families' <- peek families+    families'' <- (unpackPtrArrayWithLength n_families') families'+    families''' <- mapM (newObject FontFamily) families''+    freeMem families'+    touchManagedPtr _obj+    freeMem families+    freeMem n_families+    return families'''++-- method Context::load_font+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Font"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_load_font" pango_context_load_font :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    IO (Ptr Font)+++contextLoadFont ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    FontDescription ->                      -- desc+    m Font+contextLoadFont _obj desc = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let desc' = unsafeManagedPtrGetPtr desc+    result <- pango_context_load_font _obj' desc'+    checkUnexpectedReturnNULL "pango_context_load_font" result+    result' <- (wrapObject Font) result+    touchManagedPtr _obj+    touchManagedPtr desc+    return result'++-- method Context::load_fontset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Fontset"+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_load_fontset" pango_context_load_fontset :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    IO (Ptr Fontset)+++contextLoadFontset ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    FontDescription ->                      -- desc+    Language ->                             -- language+    m Fontset+contextLoadFontset _obj desc language = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let desc' = unsafeManagedPtrGetPtr desc+    let language' = unsafeManagedPtrGetPtr language+    result <- pango_context_load_fontset _obj' desc' language'+    checkUnexpectedReturnNULL "pango_context_load_fontset" result+    result' <- (wrapObject Fontset) result+    touchManagedPtr _obj+    touchManagedPtr desc+    touchManagedPtr language+    return result'++-- method Context::set_base_dir+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_set_base_dir" pango_context_set_base_dir :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    CUInt ->                                -- direction : TInterface "Pango" "Direction"+    IO ()+++contextSetBaseDir ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    Direction ->                            -- direction+    m ()+contextSetBaseDir _obj direction = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let direction' = (fromIntegral . fromEnum) direction+    pango_context_set_base_dir _obj' direction'+    touchManagedPtr _obj+    return ()++-- method Context::set_base_gravity+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_set_base_gravity" pango_context_set_base_gravity :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    CUInt ->                                -- gravity : TInterface "Pango" "Gravity"+    IO ()+++contextSetBaseGravity ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    Gravity ->                              -- gravity+    m ()+contextSetBaseGravity _obj gravity = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let gravity' = (fromIntegral . fromEnum) gravity+    pango_context_set_base_gravity _obj' gravity'+    touchManagedPtr _obj+    return ()++-- method Context::set_font_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_set_font_description" pango_context_set_font_description :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    IO ()+++contextSetFontDescription ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    FontDescription ->                      -- desc+    m ()+contextSetFontDescription _obj desc = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let desc' = unsafeManagedPtrGetPtr desc+    pango_context_set_font_description _obj' desc'+    touchManagedPtr _obj+    touchManagedPtr desc+    return ()++-- method Context::set_font_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_set_font_map" pango_context_set_font_map :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr FontMap ->                          -- font_map : TInterface "Pango" "FontMap"+    IO ()+++contextSetFontMap ::+    (MonadIO m, ContextK a, FontMapK b) =>+    a ->                                    -- _obj+    b ->                                    -- font_map+    m ()+contextSetFontMap _obj font_map = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let font_map' = unsafeManagedPtrCastPtr font_map+    pango_context_set_font_map _obj' font_map'+    touchManagedPtr _obj+    touchManagedPtr font_map+    return ()++-- method Context::set_gravity_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_set_gravity_hint" pango_context_set_gravity_hint :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    CUInt ->                                -- hint : TInterface "Pango" "GravityHint"+    IO ()+++contextSetGravityHint ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    GravityHint ->                          -- hint+    m ()+contextSetGravityHint _obj hint = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let hint' = (fromIntegral . fromEnum) hint+    pango_context_set_gravity_hint _obj' hint'+    touchManagedPtr _obj+    return ()++-- method Context::set_language+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_set_language" pango_context_set_language :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    IO ()+++contextSetLanguage ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    Language ->                             -- language+    m ()+contextSetLanguage _obj language = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let language' = unsafeManagedPtrGetPtr language+    pango_context_set_language _obj' language'+    touchManagedPtr _obj+    touchManagedPtr language+    return ()++-- method Context::set_matrix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_context_set_matrix" pango_context_set_matrix :: +    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"+    Ptr Matrix ->                           -- matrix : TInterface "Pango" "Matrix"+    IO ()+++contextSetMatrix ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- _obj+    Maybe (Matrix) ->                       -- matrix+    m ()+contextSetMatrix _obj matrix = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeMatrix <- case matrix of+        Nothing -> return nullPtr+        Just jMatrix -> do+            let jMatrix' = unsafeManagedPtrGetPtr jMatrix+            return jMatrix'+    pango_context_set_matrix _obj' maybeMatrix+    touchManagedPtr _obj+    whenJust matrix touchManagedPtr+    return ()++-- struct Coverage+newtype Coverage = Coverage (ForeignPtr Coverage)+noCoverage :: Maybe Coverage+noCoverage = Nothing++-- method Coverage::get+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "CoverageLevel"+-- throws : False+-- Skip return : False++foreign import ccall "pango_coverage_get" pango_coverage_get :: +    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"+    Int32 ->                                -- index_ : TBasicType TInt32+    IO CUInt+++coverageGet ::+    (MonadIO m) =>+    Coverage ->                             -- _obj+    Int32 ->                                -- index_+    m CoverageLevel+coverageGet _obj index_ = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_coverage_get _obj' index_+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Coverage::max+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_coverage_max" pango_coverage_max :: +    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"+    Ptr Coverage ->                         -- other : TInterface "Pango" "Coverage"+    IO ()+++coverageMax ::+    (MonadIO m) =>+    Coverage ->                             -- _obj+    Coverage ->                             -- other+    m ()+coverageMax _obj other = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let other' = unsafeManagedPtrGetPtr other+    pango_coverage_max _obj' other'+    touchManagedPtr _obj+    touchManagedPtr other+    return ()++-- method Coverage::set+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TInterface "Pango" "CoverageLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TInterface "Pango" "CoverageLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_coverage_set" pango_coverage_set :: +    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"+    Int32 ->                                -- index_ : TBasicType TInt32+    CUInt ->                                -- level : TInterface "Pango" "CoverageLevel"+    IO ()+++coverageSet ::+    (MonadIO m) =>+    Coverage ->                             -- _obj+    Int32 ->                                -- index_+    CoverageLevel ->                        -- level+    m ()+coverageSet _obj index_ level = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let level' = (fromIntegral . fromEnum) level+    pango_coverage_set _obj' index_ level'+    touchManagedPtr _obj+    return ()++-- method Coverage::to_bytes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_bytes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_bytes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_coverage_to_bytes" pango_coverage_to_bytes :: +    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"+    Ptr (Ptr Word8) ->                      -- bytes : TCArray False (-1) 2 (TBasicType TUInt8)+    Ptr Int32 ->                            -- n_bytes : TBasicType TInt32+    IO ()+++coverageToBytes ::+    (MonadIO m) =>+    Coverage ->                             -- _obj+    m (ByteString)+coverageToBytes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    bytes <- allocMem :: IO (Ptr (Ptr Word8))+    n_bytes <- allocMem :: IO (Ptr Int32)+    pango_coverage_to_bytes _obj' bytes n_bytes+    n_bytes' <- peek n_bytes+    bytes' <- peek bytes+    bytes'' <- (unpackByteStringWithLength n_bytes') bytes'+    freeMem bytes'+    touchManagedPtr _obj+    freeMem bytes+    freeMem n_bytes+    return bytes''++-- method Coverage::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_coverage_unref" pango_coverage_unref :: +    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"+    IO ()+++coverageUnref ::+    (MonadIO m) =>+    Coverage ->                             -- _obj+    m ()+coverageUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_coverage_unref _obj'+    touchManagedPtr _obj+    return ()++-- Enum CoverageLevel++data CoverageLevel = +      CoverageLevelNone+    | CoverageLevelFallback+    | CoverageLevelApproximate+    | CoverageLevelExact+    | AnotherCoverageLevel Int+    deriving (Show, Eq)++instance Enum CoverageLevel where+    fromEnum CoverageLevelNone = 0+    fromEnum CoverageLevelFallback = 1+    fromEnum CoverageLevelApproximate = 2+    fromEnum CoverageLevelExact = 3+    fromEnum (AnotherCoverageLevel k) = k++    toEnum 0 = CoverageLevelNone+    toEnum 1 = CoverageLevelFallback+    toEnum 2 = CoverageLevelApproximate+    toEnum 3 = CoverageLevelExact+    toEnum k = AnotherCoverageLevel k++foreign import ccall "pango_coverage_level_get_type" c_pango_coverage_level_get_type :: +    IO GType++instance BoxedEnum CoverageLevel where+    boxedEnumType _ = c_pango_coverage_level_get_type++-- Enum Direction++data Direction = +      DirectionLtr+    | DirectionRtl+    | DirectionTtbLtr+    | DirectionTtbRtl+    | DirectionWeakLtr+    | DirectionWeakRtl+    | DirectionNeutral+    | AnotherDirection Int+    deriving (Show, Eq)++instance Enum Direction where+    fromEnum DirectionLtr = 0+    fromEnum DirectionRtl = 1+    fromEnum DirectionTtbLtr = 2+    fromEnum DirectionTtbRtl = 3+    fromEnum DirectionWeakLtr = 4+    fromEnum DirectionWeakRtl = 5+    fromEnum DirectionNeutral = 6+    fromEnum (AnotherDirection k) = k++    toEnum 0 = DirectionLtr+    toEnum 1 = DirectionRtl+    toEnum 2 = DirectionTtbLtr+    toEnum 3 = DirectionTtbRtl+    toEnum 4 = DirectionWeakLtr+    toEnum 5 = DirectionWeakRtl+    toEnum 6 = DirectionNeutral+    toEnum k = AnotherDirection k++foreign import ccall "pango_direction_get_type" c_pango_direction_get_type :: +    IO GType++instance BoxedEnum Direction where+    boxedEnumType _ = c_pango_direction_get_type++-- Enum EllipsizeMode++data EllipsizeMode = +      EllipsizeModeNone+    | EllipsizeModeStart+    | EllipsizeModeMiddle+    | EllipsizeModeEnd+    | AnotherEllipsizeMode Int+    deriving (Show, Eq)++instance Enum EllipsizeMode where+    fromEnum EllipsizeModeNone = 0+    fromEnum EllipsizeModeStart = 1+    fromEnum EllipsizeModeMiddle = 2+    fromEnum EllipsizeModeEnd = 3+    fromEnum (AnotherEllipsizeMode k) = k++    toEnum 0 = EllipsizeModeNone+    toEnum 1 = EllipsizeModeStart+    toEnum 2 = EllipsizeModeMiddle+    toEnum 3 = EllipsizeModeEnd+    toEnum k = AnotherEllipsizeMode k++foreign import ccall "pango_ellipsize_mode_get_type" c_pango_ellipsize_mode_get_type :: +    IO GType++instance BoxedEnum EllipsizeMode where+    boxedEnumType _ = c_pango_ellipsize_mode_get_type++-- object Engine +newtype Engine = Engine (ForeignPtr Engine)+noEngine :: Maybe Engine+noEngine = Nothing++foreign import ccall "pango_engine_get_type"+    c_pango_engine_get_type :: IO GType++type instance ParentTypes Engine = '[GObject.Object]++instance GObject Engine where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_engine_get_type+    ++class GObject o => EngineK o+instance (GObject o, IsDescendantOf Engine o) => EngineK o++toEngine :: EngineK o => o -> IO Engine+toEngine = unsafeCastTo Engine++-- struct EngineInfo+newtype EngineInfo = EngineInfo (ForeignPtr EngineInfo)+noEngineInfo :: Maybe EngineInfo+noEngineInfo = Nothing++engineInfoReadId :: EngineInfo -> IO T.Text+engineInfoReadId s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++engineInfoReadEngineType :: EngineInfo -> IO T.Text+engineInfoReadEngineType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++engineInfoReadRenderType :: EngineInfo -> IO T.Text+engineInfoReadRenderType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CString+    val' <- cstringToText val+    return val'++engineInfoReadScripts :: EngineInfo -> IO EngineScriptInfo+engineInfoReadScripts s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr EngineScriptInfo)+    val' <- (newPtr 16 EngineScriptInfo) val+    return val'++engineInfoReadNScripts :: EngineInfo -> IO Int32+engineInfoReadNScripts s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Int32+    return val++-- object EngineLang +newtype EngineLang = EngineLang (ForeignPtr EngineLang)+noEngineLang :: Maybe EngineLang+noEngineLang = Nothing++foreign import ccall "pango_engine_lang_get_type"+    c_pango_engine_lang_get_type :: IO GType++type instance ParentTypes EngineLang = '[Engine, GObject.Object]++instance GObject EngineLang where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_engine_lang_get_type+    ++class GObject o => EngineLangK o+instance (GObject o, IsDescendantOf EngineLang o) => EngineLangK o++toEngineLang :: EngineLangK o => o -> IO EngineLang+toEngineLang = unsafeCastTo EngineLang++-- struct EngineScriptInfo+newtype EngineScriptInfo = EngineScriptInfo (ForeignPtr EngineScriptInfo)+noEngineScriptInfo :: Maybe EngineScriptInfo+noEngineScriptInfo = Nothing++engineScriptInfoReadScript :: EngineScriptInfo -> IO Script+engineScriptInfoReadScript s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++engineScriptInfoReadLangs :: EngineScriptInfo -> IO T.Text+engineScriptInfoReadLangs s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++-- object EngineShape +newtype EngineShape = EngineShape (ForeignPtr EngineShape)+noEngineShape :: Maybe EngineShape+noEngineShape = Nothing++foreign import ccall "pango_engine_shape_get_type"+    c_pango_engine_shape_get_type :: IO GType++type instance ParentTypes EngineShape = '[Engine, GObject.Object]++instance GObject EngineShape where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_engine_shape_get_type+    ++class GObject o => EngineShapeK o+instance (GObject o, IsDescendantOf EngineShape o) => EngineShapeK o++toEngineShape :: EngineShapeK o => o -> IO EngineShape+toEngineShape = unsafeCastTo EngineShape++-- object Font +newtype Font = Font (ForeignPtr Font)+noFont :: Maybe Font+noFont = Nothing++foreign import ccall "pango_font_get_type"+    c_pango_font_get_type :: IO GType++type instance ParentTypes Font = '[GObject.Object]++instance GObject Font where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_font_get_type+    ++class GObject o => FontK o+instance (GObject o, IsDescendantOf Font o) => FontK o++toFont :: FontK o => o -> IO Font+toFont = unsafeCastTo Font++-- method Font::describe+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_describe" pango_font_describe :: +    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"+    IO (Ptr FontDescription)+++fontDescribe ::+    (MonadIO m, FontK a) =>+    a ->                                    -- _obj+    m FontDescription+fontDescribe _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_describe _obj'+    checkUnexpectedReturnNULL "pango_font_describe" result+    result' <- (wrapBoxed FontDescription) result+    touchManagedPtr _obj+    return result'++-- method Font::describe_with_absolute_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_describe_with_absolute_size" pango_font_describe_with_absolute_size :: +    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"+    IO (Ptr FontDescription)+++fontDescribeWithAbsoluteSize ::+    (MonadIO m, FontK a) =>+    a ->                                    -- _obj+    m FontDescription+fontDescribeWithAbsoluteSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_describe_with_absolute_size _obj'+    checkUnexpectedReturnNULL "pango_font_describe_with_absolute_size" result+    result' <- (wrapBoxed FontDescription) result+    touchManagedPtr _obj+    return result'++-- method Font::get_font_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontMap"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_get_font_map" pango_font_get_font_map :: +    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"+    IO (Ptr FontMap)+++fontGetFontMap ::+    (MonadIO m, FontK a) =>+    a ->                                    -- _obj+    m FontMap+fontGetFontMap _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_get_font_map _obj'+    checkUnexpectedReturnNULL "pango_font_get_font_map" result+    result' <- (newObject FontMap) result+    touchManagedPtr _obj+    return result'++-- method Font::get_glyph_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", 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 "pango_font_get_glyph_extents" pango_font_get_glyph_extents :: +    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"+    Word32 ->                               -- glyph : TBasicType TUInt32+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++fontGetGlyphExtents ::+    (MonadIO m, FontK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- glyph+    m (Rectangle,Rectangle)+fontGetGlyphExtents _obj glyph = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_font_get_glyph_extents _obj' glyph ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method Font::get_metrics+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontMetrics"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_get_metrics" pango_font_get_metrics :: +    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"+    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    IO (Ptr FontMetrics)+++fontGetMetrics ::+    (MonadIO m, FontK a) =>+    a ->                                    -- _obj+    Maybe (Language) ->                     -- language+    m FontMetrics+fontGetMetrics _obj language = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeLanguage <- case language of+        Nothing -> return nullPtr+        Just jLanguage -> do+            let jLanguage' = unsafeManagedPtrGetPtr jLanguage+            return jLanguage'+    result <- pango_font_get_metrics _obj' maybeLanguage+    checkUnexpectedReturnNULL "pango_font_get_metrics" result+    result' <- (wrapBoxed FontMetrics) result+    touchManagedPtr _obj+    whenJust language touchManagedPtr+    return result'++-- method Font::descriptions_free+-- method type : MemberFunction+-- Args : [Arg {argName = "descs", argType = TCArray False (-1) 1 (TInterface "Pango" "FontDescription"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_descs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "n_descs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "descs", argType = TCArray False (-1) 1 (TInterface "Pango" "FontDescription"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_descriptions_free" pango_font_descriptions_free :: +    Ptr (Ptr FontDescription) ->            -- descs : TCArray False (-1) 1 (TInterface "Pango" "FontDescription")+    Int32 ->                                -- n_descs : TBasicType TInt32+    IO ()+++fontDescriptionsFree ::+    (MonadIO m) =>+    Maybe ([FontDescription]) ->            -- descs+    m ()+fontDescriptionsFree descs = liftIO $ do+    let n_descs = case descs of+            Nothing -> 0+            Just jDescs -> fromIntegral $ length jDescs+    maybeDescs <- case descs of+        Nothing -> return nullPtr+        Just jDescs -> do+            jDescs' <- mapM copyBoxed jDescs+            jDescs'' <- packPtrArray jDescs'+            return jDescs''+    pango_font_descriptions_free maybeDescs n_descs+    whenJust descs (mapM_ touchManagedPtr)+    return ()++-- struct FontDescription+newtype FontDescription = FontDescription (ForeignPtr FontDescription)+noFontDescription :: Maybe FontDescription+noFontDescription = Nothing++foreign import ccall "pango_font_description_get_type" c_pango_font_description_get_type :: +    IO GType++instance BoxedObject FontDescription where+    boxedType _ = c_pango_font_description_get_type++-- method FontDescription::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_new" pango_font_description_new :: +    IO (Ptr FontDescription)+++fontDescriptionNew ::+    (MonadIO m) =>+    m FontDescription+fontDescriptionNew  = liftIO $ do+    result <- pango_font_description_new+    checkUnexpectedReturnNULL "pango_font_description_new" result+    result' <- (wrapBoxed FontDescription) result+    return result'++-- method FontDescription::better_match+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_better_match" pango_font_description_better_match :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    Ptr FontDescription ->                  -- old_match : TInterface "Pango" "FontDescription"+    Ptr FontDescription ->                  -- new_match : TInterface "Pango" "FontDescription"+    IO CInt+++fontDescriptionBetterMatch ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Maybe (FontDescription) ->              -- old_match+    FontDescription ->                      -- new_match+    m Bool+fontDescriptionBetterMatch _obj old_match new_match = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeOld_match <- case old_match of+        Nothing -> return nullPtr+        Just jOld_match -> do+            let jOld_match' = unsafeManagedPtrGetPtr jOld_match+            return jOld_match'+    let new_match' = unsafeManagedPtrGetPtr new_match+    result <- pango_font_description_better_match _obj' maybeOld_match new_match'+    let result' = (/= 0) result+    touchManagedPtr _obj+    whenJust old_match touchManagedPtr+    touchManagedPtr new_match+    return result'++-- method FontDescription::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_copy" pango_font_description_copy :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO (Ptr FontDescription)+++fontDescriptionCopy ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m FontDescription+fontDescriptionCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_copy _obj'+    checkUnexpectedReturnNULL "pango_font_description_copy" result+    result' <- (wrapBoxed FontDescription) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::copy_static+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_copy_static" pango_font_description_copy_static :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO (Ptr FontDescription)+++fontDescriptionCopyStatic ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m FontDescription+fontDescriptionCopyStatic _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_copy_static _obj'+    checkUnexpectedReturnNULL "pango_font_description_copy_static" result+    result' <- (wrapBoxed FontDescription) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc2", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc2", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_equal" pango_font_description_equal :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    Ptr FontDescription ->                  -- desc2 : TInterface "Pango" "FontDescription"+    IO CInt+++fontDescriptionEqual ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    FontDescription ->                      -- desc2+    m Bool+fontDescriptionEqual _obj desc2 = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let desc2' = unsafeManagedPtrGetPtr desc2+    result <- pango_font_description_equal _obj' desc2'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr desc2+    return result'++-- method FontDescription::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_free" pango_font_description_free :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO ()+++fontDescriptionFree ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m ()+fontDescriptionFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_font_description_free _obj'+    touchManagedPtr _obj+    return ()++-- method FontDescription::get_family+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_family" pango_font_description_get_family :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CString+++fontDescriptionGetFamily ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m T.Text+fontDescriptionGetFamily _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_family _obj'+    checkUnexpectedReturnNULL "pango_font_description_get_family" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method FontDescription::get_gravity+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Gravity"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_gravity" pango_font_description_get_gravity :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CUInt+++fontDescriptionGetGravity ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Gravity+fontDescriptionGetGravity _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_gravity _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::get_set_fields+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontMask"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_set_fields" pango_font_description_get_set_fields :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CUInt+++fontDescriptionGetSetFields ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m [FontMask]+fontDescriptionGetSetFields _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_set_fields _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method FontDescription::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_size" pango_font_description_get_size :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO Int32+++fontDescriptionGetSize ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Int32+fontDescriptionGetSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_size _obj'+    touchManagedPtr _obj+    return result++-- method FontDescription::get_size_is_absolute+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_size_is_absolute" pango_font_description_get_size_is_absolute :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CInt+++fontDescriptionGetSizeIsAbsolute ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Bool+fontDescriptionGetSizeIsAbsolute _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_size_is_absolute _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::get_stretch+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Stretch"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_stretch" pango_font_description_get_stretch :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CUInt+++fontDescriptionGetStretch ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Stretch+fontDescriptionGetStretch _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_stretch _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::get_style+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Style"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_style" pango_font_description_get_style :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CUInt+++fontDescriptionGetStyle ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Style+fontDescriptionGetStyle _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_style _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::get_variant+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Variant"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_variant" pango_font_description_get_variant :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CUInt+++fontDescriptionGetVariant ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Variant+fontDescriptionGetVariant _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_variant _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::get_weight+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Weight"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_get_weight" pango_font_description_get_weight :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CUInt+++fontDescriptionGetWeight ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Weight+fontDescriptionGetWeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_get_weight _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method FontDescription::hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_hash" pango_font_description_hash :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO Word32+++fontDescriptionHash ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m Word32+fontDescriptionHash _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_hash _obj'+    touchManagedPtr _obj+    return result++-- method FontDescription::merge+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", 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 "pango_font_description_merge" pango_font_description_merge :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    Ptr FontDescription ->                  -- desc_to_merge : TInterface "Pango" "FontDescription"+    CInt ->                                 -- replace_existing : TBasicType TBoolean+    IO ()+++fontDescriptionMerge ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Maybe (FontDescription) ->              -- desc_to_merge+    Bool ->                                 -- replace_existing+    m ()+fontDescriptionMerge _obj desc_to_merge replace_existing = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    maybeDesc_to_merge <- case desc_to_merge of+        Nothing -> return nullPtr+        Just jDesc_to_merge -> do+            let jDesc_to_merge' = unsafeManagedPtrGetPtr jDesc_to_merge+            return jDesc_to_merge'+    let replace_existing' = (fromIntegral . fromEnum) replace_existing+    pango_font_description_merge _obj' maybeDesc_to_merge replace_existing'+    touchManagedPtr _obj+    whenJust desc_to_merge touchManagedPtr+    return ()++-- method FontDescription::merge_static+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", 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 "pango_font_description_merge_static" pango_font_description_merge_static :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    Ptr FontDescription ->                  -- desc_to_merge : TInterface "Pango" "FontDescription"+    CInt ->                                 -- replace_existing : TBasicType TBoolean+    IO ()+++fontDescriptionMergeStatic ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    FontDescription ->                      -- desc_to_merge+    Bool ->                                 -- replace_existing+    m ()+fontDescriptionMergeStatic _obj desc_to_merge replace_existing = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let desc_to_merge' = unsafeManagedPtrGetPtr desc_to_merge+    let replace_existing' = (fromIntegral . fromEnum) replace_existing+    pango_font_description_merge_static _obj' desc_to_merge' replace_existing'+    touchManagedPtr _obj+    touchManagedPtr desc_to_merge+    return ()++-- method FontDescription::set_absolute_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_absolute_size" pango_font_description_set_absolute_size :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CDouble ->                              -- size : TBasicType TDouble+    IO ()+++fontDescriptionSetAbsoluteSize ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Double ->                               -- size+    m ()+fontDescriptionSetAbsoluteSize _obj size = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let size' = realToFrac size+    pango_font_description_set_absolute_size _obj' size'+    touchManagedPtr _obj+    return ()++-- method FontDescription::set_family+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_family" pango_font_description_set_family :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CString ->                              -- family : TBasicType TUTF8+    IO ()+++fontDescriptionSetFamily ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    T.Text ->                               -- family+    m ()+fontDescriptionSetFamily _obj family = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    family' <- textToCString family+    pango_font_description_set_family _obj' family'+    touchManagedPtr _obj+    freeMem family'+    return ()++-- method FontDescription::set_family_static+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_family_static" pango_font_description_set_family_static :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CString ->                              -- family : TBasicType TUTF8+    IO ()+++fontDescriptionSetFamilyStatic ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    T.Text ->                               -- family+    m ()+fontDescriptionSetFamilyStatic _obj family = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    family' <- textToCString family+    pango_font_description_set_family_static _obj' family'+    touchManagedPtr _obj+    freeMem family'+    return ()++-- method FontDescription::set_gravity+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_gravity" pango_font_description_set_gravity :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CUInt ->                                -- gravity : TInterface "Pango" "Gravity"+    IO ()+++fontDescriptionSetGravity ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Gravity ->                              -- gravity+    m ()+fontDescriptionSetGravity _obj gravity = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let gravity' = (fromIntegral . fromEnum) gravity+    pango_font_description_set_gravity _obj' gravity'+    touchManagedPtr _obj+    return ()++-- method FontDescription::set_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", 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 "pango_font_description_set_size" pango_font_description_set_size :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    Int32 ->                                -- size : TBasicType TInt32+    IO ()+++fontDescriptionSetSize ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Int32 ->                                -- size+    m ()+fontDescriptionSetSize _obj size = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_font_description_set_size _obj' size+    touchManagedPtr _obj+    return ()++-- method FontDescription::set_stretch+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_stretch" pango_font_description_set_stretch :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CUInt ->                                -- stretch : TInterface "Pango" "Stretch"+    IO ()+++fontDescriptionSetStretch ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Stretch ->                              -- stretch+    m ()+fontDescriptionSetStretch _obj stretch = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let stretch' = (fromIntegral . fromEnum) stretch+    pango_font_description_set_stretch _obj' stretch'+    touchManagedPtr _obj+    return ()++-- method FontDescription::set_style+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Pango" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Pango" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_style" pango_font_description_set_style :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CUInt ->                                -- style : TInterface "Pango" "Style"+    IO ()+++fontDescriptionSetStyle ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Style ->                                -- style+    m ()+fontDescriptionSetStyle _obj style = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let style' = (fromIntegral . fromEnum) style+    pango_font_description_set_style _obj' style'+    touchManagedPtr _obj+    return ()++-- method FontDescription::set_variant+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_variant" pango_font_description_set_variant :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CUInt ->                                -- variant : TInterface "Pango" "Variant"+    IO ()+++fontDescriptionSetVariant ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Variant ->                              -- variant+    m ()+fontDescriptionSetVariant _obj variant = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let variant' = (fromIntegral . fromEnum) variant+    pango_font_description_set_variant _obj' variant'+    touchManagedPtr _obj+    return ()++-- method FontDescription::set_weight+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_set_weight" pango_font_description_set_weight :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CUInt ->                                -- weight : TInterface "Pango" "Weight"+    IO ()+++fontDescriptionSetWeight ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    Weight ->                               -- weight+    m ()+fontDescriptionSetWeight _obj weight = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let weight' = (fromIntegral . fromEnum) weight+    pango_font_description_set_weight _obj' weight'+    touchManagedPtr _obj+    return ()++-- method FontDescription::to_filename+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_to_filename" pango_font_description_to_filename :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CString+++fontDescriptionToFilename ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m T.Text+fontDescriptionToFilename _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_to_filename _obj'+    checkUnexpectedReturnNULL "pango_font_description_to_filename" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method FontDescription::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_to_string" pango_font_description_to_string :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    IO CString+++fontDescriptionToString ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    m T.Text+fontDescriptionToString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_description_to_string _obj'+    checkUnexpectedReturnNULL "pango_font_description_to_string" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method FontDescription::unset_fields+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_unset", argType = TInterface "Pango" "FontMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_unset", argType = TInterface "Pango" "FontMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_unset_fields" pango_font_description_unset_fields :: +    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"+    CUInt ->                                -- to_unset : TInterface "Pango" "FontMask"+    IO ()+++fontDescriptionUnsetFields ::+    (MonadIO m) =>+    FontDescription ->                      -- _obj+    [FontMask] ->                           -- to_unset+    m ()+fontDescriptionUnsetFields _obj to_unset = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let to_unset' = gflagsToWord to_unset+    pango_font_description_unset_fields _obj' to_unset'+    touchManagedPtr _obj+    return ()++-- object FontFace +newtype FontFace = FontFace (ForeignPtr FontFace)+noFontFace :: Maybe FontFace+noFontFace = Nothing++foreign import ccall "pango_font_face_get_type"+    c_pango_font_face_get_type :: IO GType++type instance ParentTypes FontFace = '[GObject.Object]++instance GObject FontFace where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_font_face_get_type+    ++class GObject o => FontFaceK o+instance (GObject o, IsDescendantOf FontFace o) => FontFaceK o++toFontFace :: FontFaceK o => o -> IO FontFace+toFontFace = unsafeCastTo FontFace++-- method FontFace::describe+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_face_describe" pango_font_face_describe :: +    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"+    IO (Ptr FontDescription)+++fontFaceDescribe ::+    (MonadIO m, FontFaceK a) =>+    a ->                                    -- _obj+    m FontDescription+fontFaceDescribe _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_face_describe _obj'+    checkUnexpectedReturnNULL "pango_font_face_describe" result+    result' <- (wrapBoxed FontDescription) result+    touchManagedPtr _obj+    return result'++-- method FontFace::get_face_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_face_get_face_name" pango_font_face_get_face_name :: +    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"+    IO CString+++fontFaceGetFaceName ::+    (MonadIO m, FontFaceK a) =>+    a ->                                    -- _obj+    m T.Text+fontFaceGetFaceName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_face_get_face_name _obj'+    checkUnexpectedReturnNULL "pango_font_face_get_face_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method FontFace::is_synthesized+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_face_is_synthesized" pango_font_face_is_synthesized :: +    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"+    IO CInt+++fontFaceIsSynthesized ::+    (MonadIO m, FontFaceK a) =>+    a ->                                    -- _obj+    m Bool+fontFaceIsSynthesized _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_face_is_synthesized _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method FontFace::list_sizes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_face_list_sizes" pango_font_face_list_sizes :: +    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"+    Ptr (Ptr Int32) ->                      -- sizes : TCArray False (-1) 2 (TBasicType TInt32)+    Ptr Int32 ->                            -- n_sizes : TBasicType TInt32+    IO ()+++fontFaceListSizes ::+    (MonadIO m, FontFaceK a) =>+    a ->                                    -- _obj+    m ((Maybe [Int32]))+fontFaceListSizes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    sizes <- allocMem :: IO (Ptr (Ptr Int32))+    n_sizes <- allocMem :: IO (Ptr Int32)+    pango_font_face_list_sizes _obj' sizes n_sizes+    n_sizes' <- peek n_sizes+    sizes' <- peek sizes+    maybeSizes' <- convertIfNonNull sizes' $ \sizes'' -> do+        sizes''' <- (unpackStorableArrayWithLength n_sizes') sizes''+        freeMem sizes''+        return sizes'''+    touchManagedPtr _obj+    freeMem sizes+    freeMem n_sizes+    return maybeSizes'++-- object FontFamily +newtype FontFamily = FontFamily (ForeignPtr FontFamily)+noFontFamily :: Maybe FontFamily+noFontFamily = Nothing++foreign import ccall "pango_font_family_get_type"+    c_pango_font_family_get_type :: IO GType++type instance ParentTypes FontFamily = '[GObject.Object]++instance GObject FontFamily where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_font_family_get_type+    ++class GObject o => FontFamilyK o+instance (GObject o, IsDescendantOf FontFamily o) => FontFamilyK o++toFontFamily :: FontFamilyK o => o -> IO FontFamily+toFontFamily = unsafeCastTo FontFamily++-- method FontFamily::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_family_get_name" pango_font_family_get_name :: +    Ptr FontFamily ->                       -- _obj : TInterface "Pango" "FontFamily"+    IO CString+++fontFamilyGetName ::+    (MonadIO m, FontFamilyK a) =>+    a ->                                    -- _obj+    m T.Text+fontFamilyGetName _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_family_get_name _obj'+    checkUnexpectedReturnNULL "pango_font_family_get_name" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method FontFamily::is_monospace+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_family_is_monospace" pango_font_family_is_monospace :: +    Ptr FontFamily ->                       -- _obj : TInterface "Pango" "FontFamily"+    IO CInt+++fontFamilyIsMonospace ::+    (MonadIO m, FontFamilyK a) =>+    a ->                                    -- _obj+    m Bool+fontFamilyIsMonospace _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_family_is_monospace _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method FontFamily::list_faces+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "faces", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFace"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_faces", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_faces", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_family_list_faces" pango_font_family_list_faces :: +    Ptr FontFamily ->                       -- _obj : TInterface "Pango" "FontFamily"+    Ptr (Ptr (Ptr FontFace)) ->             -- faces : TCArray False (-1) 2 (TInterface "Pango" "FontFace")+    Ptr Int32 ->                            -- n_faces : TBasicType TInt32+    IO ()+++fontFamilyListFaces ::+    (MonadIO m, FontFamilyK a) =>+    a ->                                    -- _obj+    m ([FontFace])+fontFamilyListFaces _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    faces <- allocMem :: IO (Ptr (Ptr (Ptr FontFace)))+    n_faces <- allocMem :: IO (Ptr Int32)+    pango_font_family_list_faces _obj' faces n_faces+    n_faces' <- peek n_faces+    faces' <- peek faces+    faces'' <- (unpackPtrArrayWithLength n_faces') faces'+    faces''' <- mapM (newObject FontFace) faces''+    freeMem faces'+    touchManagedPtr _obj+    freeMem faces+    freeMem n_faces+    return faces'''++-- object FontMap +newtype FontMap = FontMap (ForeignPtr FontMap)+noFontMap :: Maybe FontMap+noFontMap = Nothing++foreign import ccall "pango_font_map_get_type"+    c_pango_font_map_get_type :: IO GType++type instance ParentTypes FontMap = '[GObject.Object]++instance GObject FontMap where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_font_map_get_type+    ++class GObject o => FontMapK o+instance (GObject o, IsDescendantOf FontMap o) => FontMapK o++toFontMap :: FontMapK o => o -> IO FontMap+toFontMap = unsafeCastTo FontMap++-- method FontMap::changed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_map_changed" pango_font_map_changed :: +    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"+    IO ()+++fontMapChanged ::+    (MonadIO m, FontMapK a) =>+    a ->                                    -- _obj+    m ()+fontMapChanged _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_font_map_changed _obj'+    touchManagedPtr _obj+    return ()++-- method FontMap::create_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Context"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_map_create_context" pango_font_map_create_context :: +    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"+    IO (Ptr Context)+++fontMapCreateContext ::+    (MonadIO m, FontMapK a) =>+    a ->                                    -- _obj+    m Context+fontMapCreateContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_map_create_context _obj'+    checkUnexpectedReturnNULL "pango_font_map_create_context" result+    result' <- (wrapObject Context) result+    touchManagedPtr _obj+    return result'++-- method FontMap::get_serial+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_map_get_serial" pango_font_map_get_serial :: +    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"+    IO Word32+++fontMapGetSerial ::+    (MonadIO m, FontMapK a) =>+    a ->                                    -- _obj+    m Word32+fontMapGetSerial _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_map_get_serial _obj'+    touchManagedPtr _obj+    return result++-- method FontMap::get_shape_engine_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_map_get_shape_engine_type" pango_font_map_get_shape_engine_type :: +    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"+    IO CString++{-# DEPRECATED fontMapGetShapeEngineType ["(Since version 1.38)"]#-}+fontMapGetShapeEngineType ::+    (MonadIO m, FontMapK a) =>+    a ->                                    -- _obj+    m T.Text+fontMapGetShapeEngineType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_font_map_get_shape_engine_type _obj'+    checkUnexpectedReturnNULL "pango_font_map_get_shape_engine_type" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method FontMap::list_families+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_map_list_families" pango_font_map_list_families :: +    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"+    Ptr (Ptr (Ptr FontFamily)) ->           -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")+    Ptr Int32 ->                            -- n_families : TBasicType TInt32+    IO ()+++fontMapListFamilies ::+    (MonadIO m, FontMapK a) =>+    a ->                                    -- _obj+    m ([FontFamily])+fontMapListFamilies _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    families <- allocMem :: IO (Ptr (Ptr (Ptr FontFamily)))+    n_families <- allocMem :: IO (Ptr Int32)+    pango_font_map_list_families _obj' families n_families+    n_families' <- peek n_families+    families' <- peek families+    families'' <- (unpackPtrArrayWithLength n_families') families'+    families''' <- mapM (newObject FontFamily) families''+    freeMem families'+    touchManagedPtr _obj+    freeMem families+    freeMem n_families+    return families'''++-- method FontMap::load_font+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Font"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_map_load_font" pango_font_map_load_font :: +    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"+    Ptr Context ->                          -- context : TInterface "Pango" "Context"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    IO (Ptr Font)+++fontMapLoadFont ::+    (MonadIO m, FontMapK a, ContextK b) =>+    a ->                                    -- _obj+    b ->                                    -- context+    FontDescription ->                      -- desc+    m Font+fontMapLoadFont _obj context desc = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let context' = unsafeManagedPtrCastPtr context+    let desc' = unsafeManagedPtrGetPtr desc+    result <- pango_font_map_load_font _obj' context' desc'+    checkUnexpectedReturnNULL "pango_font_map_load_font" result+    result' <- (wrapObject Font) result+    touchManagedPtr _obj+    touchManagedPtr context+    touchManagedPtr desc+    return result'++-- method FontMap::load_fontset+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Fontset"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_map_load_fontset" pango_font_map_load_fontset :: +    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"+    Ptr Context ->                          -- context : TInterface "Pango" "Context"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    IO (Ptr Fontset)+++fontMapLoadFontset ::+    (MonadIO m, FontMapK a, ContextK b) =>+    a ->                                    -- _obj+    b ->                                    -- context+    FontDescription ->                      -- desc+    Language ->                             -- language+    m Fontset+fontMapLoadFontset _obj context desc language = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let context' = unsafeManagedPtrCastPtr context+    let desc' = unsafeManagedPtrGetPtr desc+    let language' = unsafeManagedPtrGetPtr language+    result <- pango_font_map_load_fontset _obj' context' desc' language'+    checkUnexpectedReturnNULL "pango_font_map_load_fontset" result+    result' <- (wrapObject Fontset) result+    touchManagedPtr _obj+    touchManagedPtr context+    touchManagedPtr desc+    touchManagedPtr language+    return result'++-- Flags FontMask++data FontMask = +      FontMaskFamily+    | FontMaskStyle+    | FontMaskVariant+    | FontMaskWeight+    | FontMaskStretch+    | FontMaskSize+    | FontMaskGravity+    | AnotherFontMask Int+    deriving (Show, Eq)++instance Enum FontMask where+    fromEnum FontMaskFamily = 1+    fromEnum FontMaskStyle = 2+    fromEnum FontMaskVariant = 4+    fromEnum FontMaskWeight = 8+    fromEnum FontMaskStretch = 16+    fromEnum FontMaskSize = 32+    fromEnum FontMaskGravity = 64+    fromEnum (AnotherFontMask k) = k++    toEnum 1 = FontMaskFamily+    toEnum 2 = FontMaskStyle+    toEnum 4 = FontMaskVariant+    toEnum 8 = FontMaskWeight+    toEnum 16 = FontMaskStretch+    toEnum 32 = FontMaskSize+    toEnum 64 = FontMaskGravity+    toEnum k = AnotherFontMask k++foreign import ccall "pango_font_mask_get_type" c_pango_font_mask_get_type :: +    IO GType++instance BoxedEnum FontMask where+    boxedEnumType _ = c_pango_font_mask_get_type++instance IsGFlag FontMask++-- struct FontMetrics+newtype FontMetrics = FontMetrics (ForeignPtr FontMetrics)+noFontMetrics :: Maybe FontMetrics+noFontMetrics = Nothing++foreign import ccall "pango_font_metrics_get_type" c_pango_font_metrics_get_type :: +    IO GType++instance BoxedObject FontMetrics where+    boxedType _ = c_pango_font_metrics_get_type++-- method FontMetrics::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Pango" "FontMetrics"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_new" pango_font_metrics_new :: +    IO (Ptr FontMetrics)+++fontMetricsNew ::+    (MonadIO m) =>+    m FontMetrics+fontMetricsNew  = liftIO $ do+    result <- pango_font_metrics_new+    checkUnexpectedReturnNULL "pango_font_metrics_new" result+    result' <- (wrapBoxed FontMetrics) result+    return result'++-- method FontMetrics::get_approximate_char_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_approximate_char_width" pango_font_metrics_get_approximate_char_width :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetApproximateCharWidth ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetApproximateCharWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_approximate_char_width _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::get_approximate_digit_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_approximate_digit_width" pango_font_metrics_get_approximate_digit_width :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetApproximateDigitWidth ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetApproximateDigitWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_approximate_digit_width _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::get_ascent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_ascent" pango_font_metrics_get_ascent :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetAscent ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetAscent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_ascent _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::get_descent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_descent" pango_font_metrics_get_descent :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetDescent ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetDescent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_descent _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::get_strikethrough_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_strikethrough_position" pango_font_metrics_get_strikethrough_position :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetStrikethroughPosition ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetStrikethroughPosition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_strikethrough_position _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::get_strikethrough_thickness+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_strikethrough_thickness" pango_font_metrics_get_strikethrough_thickness :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetStrikethroughThickness ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetStrikethroughThickness _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_strikethrough_thickness _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::get_underline_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_underline_position" pango_font_metrics_get_underline_position :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetUnderlinePosition ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetUnderlinePosition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_underline_position _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::get_underline_thickness+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_get_underline_thickness" pango_font_metrics_get_underline_thickness :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO Int32+++fontMetricsGetUnderlineThickness ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m Int32+fontMetricsGetUnderlineThickness _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_get_underline_thickness _obj'+    touchManagedPtr _obj+    return result++-- method FontMetrics::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontMetrics"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_ref" pango_font_metrics_ref :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO (Ptr FontMetrics)+++fontMetricsRef ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m FontMetrics+fontMetricsRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_font_metrics_ref _obj'+    checkUnexpectedReturnNULL "pango_font_metrics_ref" result+    result' <- (wrapBoxed FontMetrics) result+    touchManagedPtr _obj+    return result'++-- method FontMetrics::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_metrics_unref" pango_font_metrics_unref :: +    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"+    IO ()+++fontMetricsUnref ::+    (MonadIO m) =>+    FontMetrics ->                          -- _obj+    m ()+fontMetricsUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_font_metrics_unref _obj'+    touchManagedPtr _obj+    return ()++-- object Fontset +newtype Fontset = Fontset (ForeignPtr Fontset)+noFontset :: Maybe Fontset+noFontset = Nothing++foreign import ccall "pango_fontset_get_type"+    c_pango_fontset_get_type :: IO GType++type instance ParentTypes Fontset = '[GObject.Object]++instance GObject Fontset where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_fontset_get_type+    ++class GObject o => FontsetK o+instance (GObject o, IsDescendantOf Fontset o) => FontsetK o++toFontset :: FontsetK o => o -> IO Fontset+toFontset = unsafeCastTo Fontset++-- method Fontset::foreach+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "FontsetForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "FontsetForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_fontset_foreach" pango_fontset_foreach :: +    Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"+    FunPtr FontsetForeachFuncC ->           -- func : TInterface "Pango" "FontsetForeachFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    IO ()+++fontsetForeach ::+    (MonadIO m, FontsetK a) =>+    a ->                                    -- _obj+    FontsetForeachFunc ->                   -- func+    m ()+fontsetForeach _obj func = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    func' <- mkFontsetForeachFunc (fontsetForeachFuncWrapper Nothing func)+    let data_ = nullPtr+    pango_fontset_foreach _obj' func' data_+    safeFreeFunPtr $ castFunPtrToPtr func'+    touchManagedPtr _obj+    return ()++-- method Fontset::get_font+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Font"+-- throws : False+-- Skip return : False++foreign import ccall "pango_fontset_get_font" pango_fontset_get_font :: +    Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"+    Word32 ->                               -- wc : TBasicType TUInt32+    IO (Ptr Font)+++fontsetGetFont ::+    (MonadIO m, FontsetK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- wc+    m Font+fontsetGetFont _obj wc = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_fontset_get_font _obj' wc+    checkUnexpectedReturnNULL "pango_fontset_get_font" result+    result' <- (wrapObject Font) result+    touchManagedPtr _obj+    return result'++-- method Fontset::get_metrics+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontMetrics"+-- throws : False+-- Skip return : False++foreign import ccall "pango_fontset_get_metrics" pango_fontset_get_metrics :: +    Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"+    IO (Ptr FontMetrics)+++fontsetGetMetrics ::+    (MonadIO m, FontsetK a) =>+    a ->                                    -- _obj+    m FontMetrics+fontsetGetMetrics _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_fontset_get_metrics _obj'+    checkUnexpectedReturnNULL "pango_fontset_get_metrics" result+    result' <- (wrapBoxed FontMetrics) result+    touchManagedPtr _obj+    return result'++-- callback FontsetForeachFunc+fontsetForeachFuncClosure :: FontsetForeachFunc -> IO Closure+fontsetForeachFuncClosure cb = newCClosure =<< mkFontsetForeachFunc wrapped+    where wrapped = fontsetForeachFuncWrapper Nothing cb++type FontsetForeachFuncC =+    Ptr Fontset ->+    Ptr Font ->+    Ptr () ->+    IO CInt++foreign import ccall "wrapper"+    mkFontsetForeachFunc :: FontsetForeachFuncC -> IO (FunPtr FontsetForeachFuncC)++type FontsetForeachFunc =+    Fontset ->+    Font ->+    IO Bool++noFontsetForeachFunc :: Maybe FontsetForeachFunc+noFontsetForeachFunc = Nothing++fontsetForeachFuncWrapper ::+    Maybe (Ptr (FunPtr (FontsetForeachFuncC))) ->+    FontsetForeachFunc ->+    Ptr Fontset ->+    Ptr Font ->+    Ptr () ->+    IO CInt+fontsetForeachFuncWrapper funptrptr _cb fontset font _ = do+    fontset' <- (newObject Fontset) fontset+    font' <- (newObject Font) font+    result <- _cb  fontset' font'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- object FontsetSimple +newtype FontsetSimple = FontsetSimple (ForeignPtr FontsetSimple)+noFontsetSimple :: Maybe FontsetSimple+noFontsetSimple = Nothing++foreign import ccall "pango_fontset_simple_get_type"+    c_pango_fontset_simple_get_type :: IO GType++type instance ParentTypes FontsetSimple = '[Fontset, GObject.Object]++instance GObject FontsetSimple where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_fontset_simple_get_type+    ++class GObject o => FontsetSimpleK o+instance (GObject o, IsDescendantOf FontsetSimple o) => FontsetSimpleK o++toFontsetSimple :: FontsetSimpleK o => o -> IO FontsetSimple+toFontsetSimple = unsafeCastTo FontsetSimple++-- method FontsetSimple::new+-- method type : Constructor+-- Args : [Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontsetSimple"+-- throws : False+-- Skip return : False++foreign import ccall "pango_fontset_simple_new" pango_fontset_simple_new :: +    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    IO (Ptr FontsetSimple)+++fontsetSimpleNew ::+    (MonadIO m) =>+    Language ->                             -- language+    m FontsetSimple+fontsetSimpleNew language = liftIO $ do+    let language' = unsafeManagedPtrGetPtr language+    result <- pango_fontset_simple_new language'+    checkUnexpectedReturnNULL "pango_fontset_simple_new" result+    result' <- (wrapObject FontsetSimple) result+    touchManagedPtr language+    return result'++-- method FontsetSimple::append+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_fontset_simple_append" pango_fontset_simple_append :: +    Ptr FontsetSimple ->                    -- _obj : TInterface "Pango" "FontsetSimple"+    Ptr Font ->                             -- font : TInterface "Pango" "Font"+    IO ()+++fontsetSimpleAppend ::+    (MonadIO m, FontsetSimpleK a, FontK b) =>+    a ->                                    -- _obj+    b ->                                    -- font+    m ()+fontsetSimpleAppend _obj font = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let font' = unsafeManagedPtrCastPtr font+    pango_fontset_simple_append _obj' font'+    touchManagedPtr _obj+    touchManagedPtr font+    return ()++-- method FontsetSimple::size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_fontset_simple_size" pango_fontset_simple_size :: +    Ptr FontsetSimple ->                    -- _obj : TInterface "Pango" "FontsetSimple"+    IO Int32+++fontsetSimpleSize ::+    (MonadIO m, FontsetSimpleK a) =>+    a ->                                    -- _obj+    m Int32+fontsetSimpleSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_fontset_simple_size _obj'+    touchManagedPtr _obj+    return result++-- struct GlyphGeometry+newtype GlyphGeometry = GlyphGeometry (ForeignPtr GlyphGeometry)+noGlyphGeometry :: Maybe GlyphGeometry+noGlyphGeometry = Nothing++glyphGeometryReadWidth :: GlyphGeometry -> IO Int32+glyphGeometryReadWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++glyphGeometryReadXOffset :: GlyphGeometry -> IO Int32+glyphGeometryReadXOffset s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++glyphGeometryReadYOffset :: GlyphGeometry -> IO Int32+glyphGeometryReadYOffset s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++-- struct GlyphInfo+newtype GlyphInfo = GlyphInfo (ForeignPtr GlyphInfo)+noGlyphInfo :: Maybe GlyphInfo+noGlyphInfo = Nothing++glyphInfoReadGlyph :: GlyphInfo -> IO Word32+glyphInfoReadGlyph s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++glyphInfoReadGeometry :: GlyphInfo -> IO GlyphGeometry+glyphInfoReadGeometry s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO (Ptr GlyphGeometry)+    val' <- (newPtr 12 GlyphGeometry) val+    return val'++glyphInfoReadAttr :: GlyphInfo -> IO GlyphVisAttr+glyphInfoReadAttr s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr GlyphVisAttr)+    val' <- (newPtr 4 GlyphVisAttr) val+    return val'++-- struct GlyphItem+newtype GlyphItem = GlyphItem (ForeignPtr GlyphItem)+noGlyphItem :: Maybe GlyphItem+noGlyphItem = Nothing++foreign import ccall "pango_glyph_item_get_type" c_pango_glyph_item_get_type :: +    IO GType++instance BoxedObject GlyphItem where+    boxedType _ = c_pango_glyph_item_get_type++glyphItemReadItem :: GlyphItem -> IO Item+glyphItemReadItem s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Item)+    val' <- (newBoxed Item) val+    return val'++glyphItemReadGlyphs :: GlyphItem -> IO GlyphString+glyphItemReadGlyphs s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr GlyphString)+    val' <- (newBoxed GlyphString) val+    return val'++-- method GlyphItem::apply_attrs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Pango" "GlyphItem")+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_apply_attrs" pango_glyph_item_apply_attrs :: +    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"+    CString ->                              -- text : TBasicType TUTF8+    Ptr AttrList ->                         -- list : TInterface "Pango" "AttrList"+    IO (Ptr (GSList (Ptr GlyphItem)))+++glyphItemApplyAttrs ::+    (MonadIO m) =>+    GlyphItem ->                            -- _obj+    T.Text ->                               -- text+    AttrList ->                             -- list+    m [GlyphItem]+glyphItemApplyAttrs _obj text list = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    let list' = unsafeManagedPtrGetPtr list+    result <- pango_glyph_item_apply_attrs _obj' text' list'+    checkUnexpectedReturnNULL "pango_glyph_item_apply_attrs" result+    result' <- unpackGSList result+    result'' <- mapM (wrapBoxed GlyphItem) result'+    g_slist_free result+    touchManagedPtr _obj+    touchManagedPtr list+    freeMem text'+    return result''++-- method GlyphItem::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "GlyphItem"+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_copy" pango_glyph_item_copy :: +    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"+    IO (Ptr GlyphItem)+++glyphItemCopy ::+    (MonadIO m) =>+    GlyphItem ->                            -- _obj+    m GlyphItem+glyphItemCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_glyph_item_copy _obj'+    checkUnexpectedReturnNULL "pango_glyph_item_copy" result+    result' <- (wrapBoxed GlyphItem) result+    touchManagedPtr _obj+    return result'++-- method GlyphItem::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_free" pango_glyph_item_free :: +    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"+    IO ()+++glyphItemFree ::+    (MonadIO m) =>+    GlyphItem ->                            -- _obj+    m ()+glyphItemFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_glyph_item_free _obj'+    touchManagedPtr _obj+    return ()++-- method GlyphItem::get_logical_widths+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (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 "pango_glyph_item_get_logical_widths" pango_glyph_item_get_logical_widths :: +    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"+    CString ->                              -- text : TBasicType TUTF8+    Ptr Int32 ->                            -- logical_widths : TCArray False (-1) (-1) (TBasicType TInt32)+    IO ()+++glyphItemGetLogicalWidths ::+    (MonadIO m) =>+    GlyphItem ->                            -- _obj+    T.Text ->                               -- text+    Ptr Int32 ->                            -- logical_widths+    m ()+glyphItemGetLogicalWidths _obj text logical_widths = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    pango_glyph_item_get_logical_widths _obj' text' logical_widths+    touchManagedPtr _obj+    freeMem text'+    return ()++-- method GlyphItem::letter_space+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) (-1) (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "letter_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) (-1) (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "letter_spacing", 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 "pango_glyph_item_letter_space" pango_glyph_item_letter_space :: +    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"+    CString ->                              -- text : TBasicType TUTF8+    Ptr (Ptr LogAttr) ->                    -- log_attrs : TCArray False (-1) (-1) (TInterface "Pango" "LogAttr")+    Int32 ->                                -- letter_spacing : TBasicType TInt32+    IO ()+++glyphItemLetterSpace ::+    (MonadIO m) =>+    GlyphItem ->                            -- _obj+    T.Text ->                               -- text+    Ptr (Ptr LogAttr) ->                    -- log_attrs+    Int32 ->                                -- letter_spacing+    m ()+glyphItemLetterSpace _obj text log_attrs letter_spacing = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    pango_glyph_item_letter_space _obj' text' log_attrs letter_spacing+    touchManagedPtr _obj+    freeMem text'+    return ()++-- method GlyphItem::split+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "GlyphItem"+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_split" pango_glyph_item_split :: +    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"+    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- split_index : TBasicType TInt32+    IO (Ptr GlyphItem)+++glyphItemSplit ::+    (MonadIO m) =>+    GlyphItem ->                            -- _obj+    T.Text ->                               -- text+    Int32 ->                                -- split_index+    m GlyphItem+glyphItemSplit _obj text split_index = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    result <- pango_glyph_item_split _obj' text' split_index+    checkUnexpectedReturnNULL "pango_glyph_item_split" result+    result' <- (wrapBoxed GlyphItem) result+    touchManagedPtr _obj+    freeMem text'+    return result'++-- struct GlyphItemIter+newtype GlyphItemIter = GlyphItemIter (ForeignPtr GlyphItemIter)+noGlyphItemIter :: Maybe GlyphItemIter+noGlyphItemIter = Nothing++foreign import ccall "pango_glyph_item_iter_get_type" c_pango_glyph_item_iter_get_type :: +    IO GType++instance BoxedObject GlyphItemIter where+    boxedType _ = c_pango_glyph_item_iter_get_type++glyphItemIterReadGlyphItem :: GlyphItemIter -> IO GlyphItem+glyphItemIterReadGlyphItem s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr GlyphItem)+    val' <- (newBoxed GlyphItem) val+    return val'++glyphItemIterReadText :: GlyphItemIter -> IO T.Text+glyphItemIterReadText s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CString+    val' <- cstringToText val+    return val'++glyphItemIterReadStartGlyph :: GlyphItemIter -> IO Int32+glyphItemIterReadStartGlyph s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++glyphItemIterReadStartIndex :: GlyphItemIter -> IO Int32+glyphItemIterReadStartIndex s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Int32+    return val++glyphItemIterReadStartChar :: GlyphItemIter -> IO Int32+glyphItemIterReadStartChar s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Int32+    return val++glyphItemIterReadEndGlyph :: GlyphItemIter -> IO Int32+glyphItemIterReadEndGlyph s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Int32+    return val++glyphItemIterReadEndIndex :: GlyphItemIter -> IO Int32+glyphItemIterReadEndIndex s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Int32+    return val++glyphItemIterReadEndChar :: GlyphItemIter -> IO Int32+glyphItemIterReadEndChar s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 36) :: IO Int32+    return val++-- method GlyphItemIter::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "GlyphItemIter"+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_iter_copy" pango_glyph_item_iter_copy :: +    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"+    IO (Ptr GlyphItemIter)+++glyphItemIterCopy ::+    (MonadIO m) =>+    GlyphItemIter ->                        -- _obj+    m GlyphItemIter+glyphItemIterCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_glyph_item_iter_copy _obj'+    checkUnexpectedReturnNULL "pango_glyph_item_iter_copy" result+    result' <- (wrapBoxed GlyphItemIter) result+    touchManagedPtr _obj+    return result'++-- method GlyphItemIter::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_iter_free" pango_glyph_item_iter_free :: +    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"+    IO ()+++glyphItemIterFree ::+    (MonadIO m) =>+    GlyphItemIter ->                        -- _obj+    m ()+glyphItemIterFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_glyph_item_iter_free _obj'+    touchManagedPtr _obj+    return ()++-- method GlyphItemIter::init_end+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_iter_init_end" pango_glyph_item_iter_init_end :: +    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"+    Ptr GlyphItem ->                        -- glyph_item : TInterface "Pango" "GlyphItem"+    CString ->                              -- text : TBasicType TUTF8+    IO CInt+++glyphItemIterInitEnd ::+    (MonadIO m) =>+    GlyphItemIter ->                        -- _obj+    GlyphItem ->                            -- glyph_item+    T.Text ->                               -- text+    m Bool+glyphItemIterInitEnd _obj glyph_item text = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let glyph_item' = unsafeManagedPtrGetPtr glyph_item+    text' <- textToCString text+    result <- pango_glyph_item_iter_init_end _obj' glyph_item' text'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr glyph_item+    freeMem text'+    return result'++-- method GlyphItemIter::init_start+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_iter_init_start" pango_glyph_item_iter_init_start :: +    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"+    Ptr GlyphItem ->                        -- glyph_item : TInterface "Pango" "GlyphItem"+    CString ->                              -- text : TBasicType TUTF8+    IO CInt+++glyphItemIterInitStart ::+    (MonadIO m) =>+    GlyphItemIter ->                        -- _obj+    GlyphItem ->                            -- glyph_item+    T.Text ->                               -- text+    m Bool+glyphItemIterInitStart _obj glyph_item text = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let glyph_item' = unsafeManagedPtrGetPtr glyph_item+    text' <- textToCString text+    result <- pango_glyph_item_iter_init_start _obj' glyph_item' text'+    let result' = (/= 0) result+    touchManagedPtr _obj+    touchManagedPtr glyph_item+    freeMem text'+    return result'++-- method GlyphItemIter::next_cluster+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_iter_next_cluster" pango_glyph_item_iter_next_cluster :: +    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"+    IO CInt+++glyphItemIterNextCluster ::+    (MonadIO m) =>+    GlyphItemIter ->                        -- _obj+    m Bool+glyphItemIterNextCluster _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_glyph_item_iter_next_cluster _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method GlyphItemIter::prev_cluster+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_item_iter_prev_cluster" pango_glyph_item_iter_prev_cluster :: +    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"+    IO CInt+++glyphItemIterPrevCluster ::+    (MonadIO m) =>+    GlyphItemIter ->                        -- _obj+    m Bool+glyphItemIterPrevCluster _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_glyph_item_iter_prev_cluster _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- struct GlyphString+newtype GlyphString = GlyphString (ForeignPtr GlyphString)+noGlyphString :: Maybe GlyphString+noGlyphString = Nothing++foreign import ccall "pango_glyph_string_get_type" c_pango_glyph_string_get_type :: +    IO GType++instance BoxedObject GlyphString where+    boxedType _ = c_pango_glyph_string_get_type++glyphStringReadNumGlyphs :: GlyphString -> IO Int32+glyphStringReadNumGlyphs s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++-- XXX Skipped getter for "GlyphString:glyphs" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 0 (TInterface \"Pango\" \"GlyphInfo\")"++glyphStringReadLogClusters :: GlyphString -> IO Int32+glyphStringReadLogClusters s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++-- method GlyphString::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Pango" "GlyphString"+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_string_new" pango_glyph_string_new :: +    IO (Ptr GlyphString)+++glyphStringNew ::+    (MonadIO m) =>+    m GlyphString+glyphStringNew  = liftIO $ do+    result <- pango_glyph_string_new+    checkUnexpectedReturnNULL "pango_glyph_string_new" result+    result' <- (wrapBoxed GlyphString) result+    return result'++-- method GlyphString::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "GlyphString"+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_string_copy" pango_glyph_string_copy :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    IO (Ptr GlyphString)+++glyphStringCopy ::+    (MonadIO m) =>+    GlyphString ->                          -- _obj+    m GlyphString+glyphStringCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_glyph_string_copy _obj'+    checkUnexpectedReturnNULL "pango_glyph_string_copy" result+    result' <- (wrapBoxed GlyphString) result+    touchManagedPtr _obj+    return result'++-- method GlyphString::extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_string_extents" pango_glyph_string_extents :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    Ptr Font ->                             -- font : TInterface "Pango" "Font"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++glyphStringExtents ::+    (MonadIO m, FontK a) =>+    GlyphString ->                          -- _obj+    a ->                                    -- font+    m (Rectangle,Rectangle)+glyphStringExtents _obj font = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let font' = unsafeManagedPtrCastPtr font+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_glyph_string_extents _obj' font' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    touchManagedPtr font+    return (ink_rect', logical_rect')++-- method GlyphString::extents_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_string_extents_range" pango_glyph_string_extents_range :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    Int32 ->                                -- start : TBasicType TInt32+    Int32 ->                                -- end : TBasicType TInt32+    Ptr Font ->                             -- font : TInterface "Pango" "Font"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++glyphStringExtentsRange ::+    (MonadIO m, FontK a) =>+    GlyphString ->                          -- _obj+    Int32 ->                                -- start+    Int32 ->                                -- end+    a ->                                    -- font+    m (Rectangle,Rectangle)+glyphStringExtentsRange _obj start end font = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let font' = unsafeManagedPtrCastPtr font+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_glyph_string_extents_range _obj' start end font' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    touchManagedPtr font+    return (ink_rect', logical_rect')++-- method GlyphString::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_string_free" pango_glyph_string_free :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    IO ()+++glyphStringFree ::+    (MonadIO m) =>+    GlyphString ->                          -- _obj+    m ()+glyphStringFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_glyph_string_free _obj'+    touchManagedPtr _obj+    return ()++-- method GlyphString::get_logical_widths+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedding_level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedding_level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (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 "pango_glyph_string_get_logical_widths" pango_glyph_string_get_logical_widths :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- embedding_level : TBasicType TInt32+    Ptr Int32 ->                            -- logical_widths : TCArray False (-1) (-1) (TBasicType TInt32)+    IO ()+++glyphStringGetLogicalWidths ::+    (MonadIO m) =>+    GlyphString ->                          -- _obj+    T.Text ->                               -- text+    Int32 ->                                -- length+    Int32 ->                                -- embedding_level+    Ptr Int32 ->                            -- logical_widths+    m ()+glyphStringGetLogicalWidths _obj text length_ embedding_level logical_widths = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    pango_glyph_string_get_logical_widths _obj' text' length_ embedding_level logical_widths+    touchManagedPtr _obj+    freeMem text'+    return ()++-- method GlyphString::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_glyph_string_get_width" pango_glyph_string_get_width :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    IO Int32+++glyphStringGetWidth ::+    (MonadIO m) =>+    GlyphString ->                          -- _obj+    m Int32+glyphStringGetWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_glyph_string_get_width _obj'+    touchManagedPtr _obj+    return result++-- method GlyphString::index_to_x+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", 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 "pango_glyph_string_index_to_x" pango_glyph_string_index_to_x :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"+    Int32 ->                                -- index_ : TBasicType TInt32+    CInt ->                                 -- trailing : TBasicType TBoolean+    Ptr Int32 ->                            -- x_pos : TBasicType TInt32+    IO ()+++glyphStringIndexToX ::+    (MonadIO m) =>+    GlyphString ->                          -- _obj+    T.Text ->                               -- text+    Int32 ->                                -- length+    Analysis ->                             -- analysis+    Int32 ->                                -- index_+    Bool ->                                 -- trailing+    m (Int32)+glyphStringIndexToX _obj text length_ analysis index_ trailing = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    let analysis' = unsafeManagedPtrGetPtr analysis+    let trailing' = (fromIntegral . fromEnum) trailing+    x_pos <- allocMem :: IO (Ptr Int32)+    pango_glyph_string_index_to_x _obj' text' length_ analysis' index_ trailing' x_pos+    x_pos' <- peek x_pos+    touchManagedPtr _obj+    touchManagedPtr analysis+    freeMem text'+    freeMem x_pos+    return x_pos'++-- method GlyphString::set_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_len", 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 "pango_glyph_string_set_size" pango_glyph_string_set_size :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    Int32 ->                                -- new_len : TBasicType TInt32+    IO ()+++glyphStringSetSize ::+    (MonadIO m) =>+    GlyphString ->                          -- _obj+    Int32 ->                                -- new_len+    m ()+glyphStringSetSize _obj new_len = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_glyph_string_set_size _obj' new_len+    touchManagedPtr _obj+    return ()++-- method GlyphString::x_to_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", 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 "pango_glyph_string_x_to_index" pango_glyph_string_x_to_index :: +    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"+    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"+    Int32 ->                                -- x_pos : TBasicType TInt32+    Ptr Int32 ->                            -- index_ : TBasicType TInt32+    Ptr Int32 ->                            -- trailing : TBasicType TInt32+    IO ()+++glyphStringXToIndex ::+    (MonadIO m) =>+    GlyphString ->                          -- _obj+    T.Text ->                               -- text+    Int32 ->                                -- length+    Analysis ->                             -- analysis+    Int32 ->                                -- x_pos+    m (Int32,Int32)+glyphStringXToIndex _obj text length_ analysis x_pos = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    text' <- textToCString text+    let analysis' = unsafeManagedPtrGetPtr analysis+    index_ <- allocMem :: IO (Ptr Int32)+    trailing <- allocMem :: IO (Ptr Int32)+    pango_glyph_string_x_to_index _obj' text' length_ analysis' x_pos index_ trailing+    index_' <- peek index_+    trailing' <- peek trailing+    touchManagedPtr _obj+    touchManagedPtr analysis+    freeMem text'+    freeMem index_+    freeMem trailing+    return (index_', trailing')++-- struct GlyphVisAttr+newtype GlyphVisAttr = GlyphVisAttr (ForeignPtr GlyphVisAttr)+noGlyphVisAttr :: Maybe GlyphVisAttr+noGlyphVisAttr = Nothing++glyphVisAttrReadIsClusterStart :: GlyphVisAttr -> IO Word32+glyphVisAttrReadIsClusterStart s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++-- Enum Gravity++data Gravity = +      GravitySouth+    | GravityEast+    | GravityNorth+    | GravityWest+    | GravityAuto+    | AnotherGravity Int+    deriving (Show, Eq)++instance Enum Gravity where+    fromEnum GravitySouth = 0+    fromEnum GravityEast = 1+    fromEnum GravityNorth = 2+    fromEnum GravityWest = 3+    fromEnum GravityAuto = 4+    fromEnum (AnotherGravity k) = k++    toEnum 0 = GravitySouth+    toEnum 1 = GravityEast+    toEnum 2 = GravityNorth+    toEnum 3 = GravityWest+    toEnum 4 = GravityAuto+    toEnum k = AnotherGravity k++foreign import ccall "pango_gravity_get_type" c_pango_gravity_get_type :: +    IO GType++instance BoxedEnum Gravity where+    boxedEnumType _ = c_pango_gravity_get_type++-- Enum GravityHint++data GravityHint = +      GravityHintNatural+    | GravityHintStrong+    | GravityHintLine+    | AnotherGravityHint Int+    deriving (Show, Eq)++instance Enum GravityHint where+    fromEnum GravityHintNatural = 0+    fromEnum GravityHintStrong = 1+    fromEnum GravityHintLine = 2+    fromEnum (AnotherGravityHint k) = k++    toEnum 0 = GravityHintNatural+    toEnum 1 = GravityHintStrong+    toEnum 2 = GravityHintLine+    toEnum k = AnotherGravityHint k++foreign import ccall "pango_gravity_hint_get_type" c_pango_gravity_hint_get_type :: +    IO GType++instance BoxedEnum GravityHint where+    boxedEnumType _ = c_pango_gravity_hint_get_type++-- struct IncludedModule+newtype IncludedModule = IncludedModule (ForeignPtr IncludedModule)+noIncludedModule :: Maybe IncludedModule+noIncludedModule = Nothing++-- XXX Skipped getter for "IncludedModule:list" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IncludedModule:init" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- XXX Skipped getter for "IncludedModule:exit" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++-- struct Item+newtype Item = Item (ForeignPtr Item)+noItem :: Maybe Item+noItem = Nothing++foreign import ccall "pango_item_get_type" c_pango_item_get_type :: +    IO GType++instance BoxedObject Item where+    boxedType _ = c_pango_item_get_type++itemReadOffset :: Item -> IO Int32+itemReadOffset s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++itemReadLength :: Item -> IO Int32+itemReadLength s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++itemReadNumChars :: Item -> IO Int32+itemReadNumChars s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++itemReadAnalysis :: Item -> IO Analysis+itemReadAnalysis s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Analysis)+    val' <- (newPtr 48 Analysis) val+    return val'++-- method Item::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Pango" "Item"+-- throws : False+-- Skip return : False++foreign import ccall "pango_item_new" pango_item_new :: +    IO (Ptr Item)+++itemNew ::+    (MonadIO m) =>+    m Item+itemNew  = liftIO $ do+    result <- pango_item_new+    checkUnexpectedReturnNULL "pango_item_new" result+    result' <- (wrapBoxed Item) result+    return result'++-- method Item::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Item"+-- throws : False+-- Skip return : False++foreign import ccall "pango_item_copy" pango_item_copy :: +    Ptr Item ->                             -- _obj : TInterface "Pango" "Item"+    IO (Ptr Item)+++itemCopy ::+    (MonadIO m) =>+    Item ->                                 -- _obj+    m Item+itemCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_item_copy _obj'+    checkUnexpectedReturnNULL "pango_item_copy" result+    result' <- (wrapBoxed Item) result+    touchManagedPtr _obj+    return result'++-- method Item::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_item_free" pango_item_free :: +    Ptr Item ->                             -- _obj : TInterface "Pango" "Item"+    IO ()+++itemFree ::+    (MonadIO m) =>+    Item ->                                 -- _obj+    m ()+itemFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_item_free _obj'+    touchManagedPtr _obj+    return ()++-- method Item::split+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Item"+-- throws : False+-- Skip return : False++foreign import ccall "pango_item_split" pango_item_split :: +    Ptr Item ->                             -- _obj : TInterface "Pango" "Item"+    Int32 ->                                -- split_index : TBasicType TInt32+    Int32 ->                                -- split_offset : TBasicType TInt32+    IO (Ptr Item)+++itemSplit ::+    (MonadIO m) =>+    Item ->                                 -- _obj+    Int32 ->                                -- split_index+    Int32 ->                                -- split_offset+    m Item+itemSplit _obj split_index split_offset = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_item_split _obj' split_index split_offset+    checkUnexpectedReturnNULL "pango_item_split" result+    result' <- (wrapBoxed Item) result+    touchManagedPtr _obj+    return result'++-- struct Language+newtype Language = Language (ForeignPtr Language)+noLanguage :: Maybe Language+noLanguage = Nothing++foreign import ccall "pango_language_get_type" c_pango_language_get_type :: +    IO GType++instance BoxedObject Language where+    boxedType _ = c_pango_language_get_type++-- method Language::get_sample_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_language_get_sample_string" pango_language_get_sample_string :: +    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"+    IO CString+++languageGetSampleString ::+    (MonadIO m) =>+    Language ->                             -- _obj+    m T.Text+languageGetSampleString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_language_get_sample_string _obj'+    checkUnexpectedReturnNULL "pango_language_get_sample_string" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Language::get_scripts+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_scripts", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "num_scripts", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 1 (TInterface "Pango" "Script")+-- throws : False+-- Skip return : False++foreign import ccall "pango_language_get_scripts" pango_language_get_scripts :: +    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"+    Ptr Int32 ->                            -- num_scripts : TBasicType TInt32+    IO (Ptr CUInt)+++languageGetScripts ::+    (MonadIO m) =>+    Language ->                             -- _obj+    m [Script]+languageGetScripts _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    num_scripts <- allocMem :: IO (Ptr Int32)+    result <- pango_language_get_scripts _obj' num_scripts+    num_scripts' <- peek num_scripts+    checkUnexpectedReturnNULL "pango_language_get_scripts" result+    result' <- (unpackStorableArrayWithLength num_scripts') result+    let result'' = map (toEnum . fromIntegral) result'+    touchManagedPtr _obj+    freeMem num_scripts+    return result''++-- method Language::includes_script+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_language_includes_script" pango_language_includes_script :: +    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"+    CUInt ->                                -- script : TInterface "Pango" "Script"+    IO CInt+++languageIncludesScript ::+    (MonadIO m) =>+    Language ->                             -- _obj+    Script ->                               -- script+    m Bool+languageIncludesScript _obj script = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let script' = (fromIntegral . fromEnum) script+    result <- pango_language_includes_script _obj' script'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Language::matches+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_language_matches" pango_language_matches :: +    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"+    CString ->                              -- range_list : TBasicType TUTF8+    IO CInt+++languageMatches ::+    (MonadIO m) =>+    Language ->                             -- _obj+    T.Text ->                               -- range_list+    m Bool+languageMatches _obj range_list = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    range_list' <- textToCString range_list+    result <- pango_language_matches _obj' range_list'+    let result' = (/= 0) result+    touchManagedPtr _obj+    freeMem range_list'+    return result'++-- method Language::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_language_to_string" pango_language_to_string :: +    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"+    IO CString+++languageToString ::+    (MonadIO m) =>+    Language ->                             -- _obj+    m T.Text+languageToString _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_language_to_string _obj'+    checkUnexpectedReturnNULL "pango_language_to_string" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- object Layout +newtype Layout = Layout (ForeignPtr Layout)+noLayout :: Maybe Layout+noLayout = Nothing++foreign import ccall "pango_layout_get_type"+    c_pango_layout_get_type :: IO GType++type instance ParentTypes Layout = '[GObject.Object]++instance GObject Layout where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_layout_get_type+    ++class GObject o => LayoutK o+instance (GObject o, IsDescendantOf Layout o) => LayoutK o++toLayout :: LayoutK o => o -> IO Layout+toLayout = unsafeCastTo Layout++-- method Layout::new+-- method type : Constructor+-- Args : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Layout"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_new" pango_layout_new :: +    Ptr Context ->                          -- context : TInterface "Pango" "Context"+    IO (Ptr Layout)+++layoutNew ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- context+    m Layout+layoutNew context = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    result <- pango_layout_new context'+    checkUnexpectedReturnNULL "pango_layout_new" result+    result' <- (wrapObject Layout) result+    touchManagedPtr context+    return result'++-- method Layout::context_changed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_context_changed" pango_layout_context_changed :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO ()+++layoutContextChanged ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m ()+layoutContextChanged _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_layout_context_changed _obj'+    touchManagedPtr _obj+    return ()++-- method Layout::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Layout"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_copy" pango_layout_copy :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr Layout)+++layoutCopy ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Layout+layoutCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_copy _obj'+    checkUnexpectedReturnNULL "pango_layout_copy" result+    result' <- (wrapObject Layout) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_alignment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Alignment"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_alignment" pango_layout_get_alignment :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CUInt+++layoutGetAlignment ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Alignment+layoutGetAlignment _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_alignment _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "AttrList"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_attributes" pango_layout_get_attributes :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr AttrList)+++layoutGetAttributes ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m AttrList+layoutGetAttributes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_attributes _obj'+    checkUnexpectedReturnNULL "pango_layout_get_attributes" result+    result' <- (newBoxed AttrList) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_auto_dir+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_auto_dir" pango_layout_get_auto_dir :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CInt+++layoutGetAutoDir ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Bool+layoutGetAutoDir _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_auto_dir _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_baseline+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_baseline" pango_layout_get_baseline :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetBaseline ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetBaseline _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_baseline _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_character_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_character_count" pango_layout_get_character_count :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetCharacterCount ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetCharacterCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_character_count _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Context"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_context" pango_layout_get_context :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr Context)+++layoutGetContext ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Context+layoutGetContext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_context _obj'+    checkUnexpectedReturnNULL "pango_layout_get_context" result+    result' <- (newObject Context) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_cursor_pos+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weak_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", 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 "pango_layout_get_cursor_pos" pango_layout_get_cursor_pos :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- index_ : TBasicType TInt32+    Ptr Rectangle ->                        -- strong_pos : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- weak_pos : TInterface "Pango" "Rectangle"+    IO ()+++layoutGetCursorPos ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- index_+    m (Rectangle,Rectangle)+layoutGetCursorPos _obj index_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    strong_pos <- callocBytes 16 :: IO (Ptr Rectangle)+    weak_pos <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_get_cursor_pos _obj' index_ strong_pos weak_pos+    strong_pos' <- (wrapPtr Rectangle) strong_pos+    weak_pos' <- (wrapPtr Rectangle) weak_pos+    touchManagedPtr _obj+    return (strong_pos', weak_pos')++-- method Layout::get_ellipsize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "EllipsizeMode"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_ellipsize" pango_layout_get_ellipsize :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CUInt+++layoutGetEllipsize ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m EllipsizeMode+layoutGetEllipsize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_ellipsize _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_extents" pango_layout_get_extents :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutGetExtents ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m (Rectangle,Rectangle)+layoutGetExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_get_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method Layout::get_font_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_font_description" pango_layout_get_font_description :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr FontDescription)+++layoutGetFontDescription ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m FontDescription+layoutGetFontDescription _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_font_description _obj'+    checkUnexpectedReturnNULL "pango_layout_get_font_description" result+    result' <- (newBoxed FontDescription) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_height" pango_layout_get_height :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetHeight ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_height _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_indent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_indent" pango_layout_get_indent :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetIndent ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetIndent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_indent _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_iter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutIter"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_iter" pango_layout_get_iter :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr LayoutIter)+++layoutGetIter ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m LayoutIter+layoutGetIter _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_iter _obj'+    checkUnexpectedReturnNULL "pango_layout_get_iter" result+    result' <- (wrapBoxed LayoutIter) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_justify+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_justify" pango_layout_get_justify :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CInt+++layoutGetJustify ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Bool+layoutGetJustify _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_justify _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutLine"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_line" pango_layout_get_line :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- line : TBasicType TInt32+    IO (Ptr LayoutLine)+++layoutGetLine ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- line+    m LayoutLine+layoutGetLine _obj line = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_line _obj' line+    checkUnexpectedReturnNULL "pango_layout_get_line" result+    result' <- (newBoxed LayoutLine) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_line_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_line_count" pango_layout_get_line_count :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetLineCount ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetLineCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_line_count _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_line_readonly+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutLine"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_line_readonly" pango_layout_get_line_readonly :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- line : TBasicType TInt32+    IO (Ptr LayoutLine)+++layoutGetLineReadonly ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- line+    m LayoutLine+layoutGetLineReadonly _obj line = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_line_readonly _obj' line+    checkUnexpectedReturnNULL "pango_layout_get_line_readonly" result+    result' <- (newBoxed LayoutLine) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_lines+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Pango" "LayoutLine")+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_lines" pango_layout_get_lines :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr (GSList (Ptr LayoutLine)))+++layoutGetLines ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m [LayoutLine]+layoutGetLines _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_lines _obj'+    checkUnexpectedReturnNULL "pango_layout_get_lines" result+    result' <- unpackGSList result+    result'' <- mapM (newBoxed LayoutLine) result'+    touchManagedPtr _obj+    return result''++-- method Layout::get_lines_readonly+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGSList (TInterface "Pango" "LayoutLine")+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_lines_readonly" pango_layout_get_lines_readonly :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr (GSList (Ptr LayoutLine)))+++layoutGetLinesReadonly ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m [LayoutLine]+layoutGetLinesReadonly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_lines_readonly _obj'+    checkUnexpectedReturnNULL "pango_layout_get_lines_readonly" result+    result' <- unpackGSList result+    result'' <- mapM (newBoxed LayoutLine) result'+    touchManagedPtr _obj+    return result''++-- method Layout::get_log_attrs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TCArray False (-1) 2 (TInterface "Pango" "LogAttr"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_log_attrs" pango_layout_get_log_attrs :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr (Ptr LogAttr) ->                    -- attrs : TCArray False (-1) 2 (TInterface "Pango" "LogAttr")+    Ptr Int32 ->                            -- n_attrs : TBasicType TInt32+    IO ()+++layoutGetLogAttrs ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m ([LogAttr])+layoutGetLogAttrs _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    attrs <- allocMem :: IO (Ptr (Ptr LogAttr))+    n_attrs <- allocMem :: IO (Ptr Int32)+    pango_layout_get_log_attrs _obj' attrs n_attrs+    n_attrs' <- peek n_attrs+    attrs' <- peek attrs+    attrs'' <- (unpackBlockArrayWithLength 52 n_attrs') attrs'+    attrs''' <- mapM (newPtr 52 LogAttr) attrs''+    freeMem attrs'+    touchManagedPtr _obj+    freeMem attrs+    freeMem n_attrs+    return attrs'''++-- method Layout::get_log_attrs_readonly+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TCArray False (-1) 1 (TInterface "Pango" "LogAttr")+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_log_attrs_readonly" pango_layout_get_log_attrs_readonly :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr Int32 ->                            -- n_attrs : TBasicType TInt32+    IO (Ptr LogAttr)+++layoutGetLogAttrsReadonly ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m [LogAttr]+layoutGetLogAttrsReadonly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    n_attrs <- allocMem :: IO (Ptr Int32)+    result <- pango_layout_get_log_attrs_readonly _obj' n_attrs+    n_attrs' <- peek n_attrs+    checkUnexpectedReturnNULL "pango_layout_get_log_attrs_readonly" result+    result' <- (unpackBlockArrayWithLength 52 n_attrs') result+    result'' <- mapM (newPtr 52 LogAttr) result'+    touchManagedPtr _obj+    freeMem n_attrs+    return result''++-- method Layout::get_pixel_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_pixel_extents" pango_layout_get_pixel_extents :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutGetPixelExtents ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m (Rectangle,Rectangle)+layoutGetPixelExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_get_pixel_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method Layout::get_pixel_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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 = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_pixel_size" pango_layout_get_pixel_size :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr Int32 ->                            -- width : TBasicType TInt32+    Ptr Int32 ->                            -- height : TBasicType TInt32+    IO ()+++layoutGetPixelSize ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m (Int32,Int32)+layoutGetPixelSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    width <- allocMem :: IO (Ptr Int32)+    height <- allocMem :: IO (Ptr Int32)+    pango_layout_get_pixel_size _obj' width height+    width' <- peek width+    height' <- peek height+    touchManagedPtr _obj+    freeMem width+    freeMem height+    return (width', height')++-- method Layout::get_serial+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_serial" pango_layout_get_serial :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Word32+++layoutGetSerial ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Word32+layoutGetSerial _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_serial _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_single_paragraph_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_single_paragraph_mode" pango_layout_get_single_paragraph_mode :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CInt+++layoutGetSingleParagraphMode ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Bool+layoutGetSingleParagraphMode _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_single_paragraph_mode _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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 = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_size" pango_layout_get_size :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr Int32 ->                            -- width : TBasicType TInt32+    Ptr Int32 ->                            -- height : TBasicType TInt32+    IO ()+++layoutGetSize ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m (Int32,Int32)+layoutGetSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    width <- allocMem :: IO (Ptr Int32)+    height <- allocMem :: IO (Ptr Int32)+    pango_layout_get_size _obj' width height+    width' <- peek width+    height' <- peek height+    touchManagedPtr _obj+    freeMem width+    freeMem height+    return (width', height')++-- method Layout::get_spacing+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_spacing" pango_layout_get_spacing :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetSpacing ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetSpacing _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_spacing _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_tabs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "TabArray"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_tabs" pango_layout_get_tabs :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO (Ptr TabArray)+++layoutGetTabs ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m TabArray+layoutGetTabs _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_tabs _obj'+    checkUnexpectedReturnNULL "pango_layout_get_tabs" result+    result' <- (wrapBoxed TabArray) result+    touchManagedPtr _obj+    return result'++-- method Layout::get_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_text" pango_layout_get_text :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CString+++layoutGetText ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m T.Text+layoutGetText _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_text _obj'+    checkUnexpectedReturnNULL "pango_layout_get_text" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Layout::get_unknown_glyphs_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_unknown_glyphs_count" pango_layout_get_unknown_glyphs_count :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetUnknownGlyphsCount ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetUnknownGlyphsCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_unknown_glyphs_count _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_width" pango_layout_get_width :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO Int32+++layoutGetWidth ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Int32+layoutGetWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_width _obj'+    touchManagedPtr _obj+    return result++-- method Layout::get_wrap+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "WrapMode"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_get_wrap" pango_layout_get_wrap :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CUInt+++layoutGetWrap ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m WrapMode+layoutGetWrap _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_get_wrap _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Layout::index_to_line_x+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", 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 "pango_layout_index_to_line_x" pango_layout_index_to_line_x :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- index_ : TBasicType TInt32+    CInt ->                                 -- trailing : TBasicType TBoolean+    Ptr Int32 ->                            -- line : TBasicType TInt32+    Ptr Int32 ->                            -- x_pos : TBasicType TInt32+    IO ()+++layoutIndexToLineX ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- index_+    Bool ->                                 -- trailing+    m (Int32,Int32)+layoutIndexToLineX _obj index_ trailing = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let trailing' = (fromIntegral . fromEnum) trailing+    line <- allocMem :: IO (Ptr Int32)+    x_pos <- allocMem :: IO (Ptr Int32)+    pango_layout_index_to_line_x _obj' index_ trailing' line x_pos+    line' <- peek line+    x_pos' <- peek x_pos+    touchManagedPtr _obj+    freeMem line+    freeMem x_pos+    return (line', x_pos')++-- method Layout::index_to_pos+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", 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 "pango_layout_index_to_pos" pango_layout_index_to_pos :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- index_ : TBasicType TInt32+    Ptr Rectangle ->                        -- pos : TInterface "Pango" "Rectangle"+    IO ()+++layoutIndexToPos ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- index_+    m (Rectangle)+layoutIndexToPos _obj index_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pos <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_index_to_pos _obj' index_ pos+    pos' <- (wrapPtr Rectangle) pos+    touchManagedPtr _obj+    return pos'++-- method Layout::is_ellipsized+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_is_ellipsized" pango_layout_is_ellipsized :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CInt+++layoutIsEllipsized ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Bool+layoutIsEllipsized _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_is_ellipsized _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Layout::is_wrapped+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_is_wrapped" pango_layout_is_wrapped :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    IO CInt+++layoutIsWrapped ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    m Bool+layoutIsWrapped _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_layout_is_wrapped _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Layout::move_cursor_visually+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_trailing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "new_trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_trailing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", 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 "pango_layout_move_cursor_visually" pango_layout_move_cursor_visually :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CInt ->                                 -- strong : TBasicType TBoolean+    Int32 ->                                -- old_index : TBasicType TInt32+    Int32 ->                                -- old_trailing : TBasicType TInt32+    Int32 ->                                -- direction : TBasicType TInt32+    Ptr Int32 ->                            -- new_index : TBasicType TInt32+    Ptr Int32 ->                            -- new_trailing : TBasicType TInt32+    IO ()+++layoutMoveCursorVisually ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Bool ->                                 -- strong+    Int32 ->                                -- old_index+    Int32 ->                                -- old_trailing+    Int32 ->                                -- direction+    m (Int32,Int32)+layoutMoveCursorVisually _obj strong old_index old_trailing direction = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let strong' = (fromIntegral . fromEnum) strong+    new_index <- allocMem :: IO (Ptr Int32)+    new_trailing <- allocMem :: IO (Ptr Int32)+    pango_layout_move_cursor_visually _obj' strong' old_index old_trailing direction new_index new_trailing+    new_index' <- peek new_index+    new_trailing' <- peek new_trailing+    touchManagedPtr _obj+    freeMem new_index+    freeMem new_trailing+    return (new_index', new_trailing')++-- method Layout::set_alignment+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_alignment" pango_layout_set_alignment :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CUInt ->                                -- alignment : TInterface "Pango" "Alignment"+    IO ()+++layoutSetAlignment ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Alignment ->                            -- alignment+    m ()+layoutSetAlignment _obj alignment = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let alignment' = (fromIntegral . fromEnum) alignment+    pango_layout_set_alignment _obj' alignment'+    touchManagedPtr _obj+    return ()++-- method Layout::set_attributes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_attributes" pango_layout_set_attributes :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"+    IO ()+++layoutSetAttributes ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Maybe (AttrList) ->                     -- attrs+    m ()+layoutSetAttributes _obj attrs = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeAttrs <- case attrs of+        Nothing -> return nullPtr+        Just jAttrs -> do+            let jAttrs' = unsafeManagedPtrGetPtr jAttrs+            return jAttrs'+    pango_layout_set_attributes _obj' maybeAttrs+    touchManagedPtr _obj+    whenJust attrs touchManagedPtr+    return ()++-- method Layout::set_auto_dir+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_dir", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_dir", 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 "pango_layout_set_auto_dir" pango_layout_set_auto_dir :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CInt ->                                 -- auto_dir : TBasicType TBoolean+    IO ()+++layoutSetAutoDir ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Bool ->                                 -- auto_dir+    m ()+layoutSetAutoDir _obj auto_dir = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let auto_dir' = (fromIntegral . fromEnum) auto_dir+    pango_layout_set_auto_dir _obj' auto_dir'+    touchManagedPtr _obj+    return ()++-- method Layout::set_ellipsize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_ellipsize" pango_layout_set_ellipsize :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CUInt ->                                -- ellipsize : TInterface "Pango" "EllipsizeMode"+    IO ()+++layoutSetEllipsize ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    EllipsizeMode ->                        -- ellipsize+    m ()+layoutSetEllipsize _obj ellipsize = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let ellipsize' = (fromIntegral . fromEnum) ellipsize+    pango_layout_set_ellipsize _obj' ellipsize'+    touchManagedPtr _obj+    return ()++-- method Layout::set_font_description+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_font_description" pango_layout_set_font_description :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    IO ()+++layoutSetFontDescription ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Maybe (FontDescription) ->              -- desc+    m ()+layoutSetFontDescription _obj desc = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeDesc <- case desc of+        Nothing -> return nullPtr+        Just jDesc -> do+            let jDesc' = unsafeManagedPtrGetPtr jDesc+            return jDesc'+    pango_layout_set_font_description _obj' maybeDesc+    touchManagedPtr _obj+    whenJust desc touchManagedPtr+    return ()++-- method Layout::set_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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 "Pango" "Layout", 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 "pango_layout_set_height" pango_layout_set_height :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- height : TBasicType TInt32+    IO ()+++layoutSetHeight ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- height+    m ()+layoutSetHeight _obj height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_layout_set_height _obj' height+    touchManagedPtr _obj+    return ()++-- method Layout::set_indent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", 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 "pango_layout_set_indent" pango_layout_set_indent :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- indent : TBasicType TInt32+    IO ()+++layoutSetIndent ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- indent+    m ()+layoutSetIndent _obj indent = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_layout_set_indent _obj' indent+    touchManagedPtr _obj+    return ()++-- method Layout::set_justify+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justify", 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 "pango_layout_set_justify" pango_layout_set_justify :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CInt ->                                 -- justify : TBasicType TBoolean+    IO ()+++layoutSetJustify ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Bool ->                                 -- justify+    m ()+layoutSetJustify _obj justify = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let justify' = (fromIntegral . fromEnum) justify+    pango_layout_set_justify _obj' justify'+    touchManagedPtr _obj+    return ()++-- method Layout::set_markup+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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 "pango_layout_set_markup" pango_layout_set_markup :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CString ->                              -- markup : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    IO ()+++layoutSetMarkup ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- markup+    Int32 ->                                -- length+    m ()+layoutSetMarkup _obj markup length_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    markup' <- textToCString markup+    pango_layout_set_markup _obj' markup' length_+    touchManagedPtr _obj+    freeMem markup'+    return ()++-- method Layout::set_markup_with_accel+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_markup_with_accel" pango_layout_set_markup_with_accel :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CString ->                              -- markup : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    CInt ->                                 -- accel_marker : TBasicType TUniChar+    Ptr CInt ->                             -- accel_char : TBasicType TUniChar+    IO ()+++layoutSetMarkupWithAccel ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- markup+    Int32 ->                                -- length+    Char ->                                 -- accel_marker+    m (Char)+layoutSetMarkupWithAccel _obj markup length_ accel_marker = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    markup' <- textToCString markup+    let accel_marker' = (fromIntegral . ord) accel_marker+    accel_char <- allocMem :: IO (Ptr CInt)+    pango_layout_set_markup_with_accel _obj' markup' length_ accel_marker' accel_char+    accel_char' <- peek accel_char+    let accel_char'' = (chr . fromIntegral) accel_char'+    touchManagedPtr _obj+    freeMem markup'+    freeMem accel_char+    return accel_char''++-- method Layout::set_single_paragraph_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", 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 "pango_layout_set_single_paragraph_mode" pango_layout_set_single_paragraph_mode :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CInt ->                                 -- setting : TBasicType TBoolean+    IO ()+++layoutSetSingleParagraphMode ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Bool ->                                 -- setting+    m ()+layoutSetSingleParagraphMode _obj setting = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let setting' = (fromIntegral . fromEnum) setting+    pango_layout_set_single_paragraph_mode _obj' setting'+    touchManagedPtr _obj+    return ()++-- method Layout::set_spacing+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", 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 "pango_layout_set_spacing" pango_layout_set_spacing :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- spacing : TBasicType TInt32+    IO ()+++layoutSetSpacing ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- spacing+    m ()+layoutSetSpacing _obj spacing = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_layout_set_spacing _obj' spacing+    touchManagedPtr _obj+    return ()++-- method Layout::set_tabs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_tabs" pango_layout_set_tabs :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Ptr TabArray ->                         -- tabs : TInterface "Pango" "TabArray"+    IO ()+++layoutSetTabs ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Maybe (TabArray) ->                     -- tabs+    m ()+layoutSetTabs _obj tabs = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeTabs <- case tabs of+        Nothing -> return nullPtr+        Just jTabs -> do+            let jTabs' = unsafeManagedPtrGetPtr jTabs+            return jTabs'+    pango_layout_set_tabs _obj' maybeTabs+    touchManagedPtr _obj+    whenJust tabs touchManagedPtr+    return ()++-- method Layout::set_text+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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 "pango_layout_set_text" pango_layout_set_text :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    IO ()+++layoutSetText ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    T.Text ->                               -- text+    Int32 ->                                -- length+    m ()+layoutSetText _obj text length_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    text' <- textToCString text+    pango_layout_set_text _obj' text' length_+    touchManagedPtr _obj+    freeMem text'+    return ()++-- method Layout::set_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_width" pango_layout_set_width :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- width : TBasicType TInt32+    IO ()+++layoutSetWidth ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- width+    m ()+layoutSetWidth _obj width = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_layout_set_width _obj' width+    touchManagedPtr _obj+    return ()++-- method Layout::set_wrap+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_set_wrap" pango_layout_set_wrap :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    CUInt ->                                -- wrap : TInterface "Pango" "WrapMode"+    IO ()+++layoutSetWrap ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    WrapMode ->                             -- wrap+    m ()+layoutSetWrap _obj wrap = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let wrap' = (fromIntegral . fromEnum) wrap+    pango_layout_set_wrap _obj' wrap'+    touchManagedPtr _obj+    return ()++-- method Layout::xy_to_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_xy_to_index" pango_layout_xy_to_index :: +    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Ptr Int32 ->                            -- index_ : TBasicType TInt32+    Ptr Int32 ->                            -- trailing : TBasicType TInt32+    IO CInt+++layoutXyToIndex ::+    (MonadIO m, LayoutK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    m (Bool,Int32,Int32)+layoutXyToIndex _obj x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    index_ <- allocMem :: IO (Ptr Int32)+    trailing <- allocMem :: IO (Ptr Int32)+    result <- pango_layout_xy_to_index _obj' x y index_ trailing+    let result' = (/= 0) result+    index_' <- peek index_+    trailing' <- peek trailing+    touchManagedPtr _obj+    freeMem index_+    freeMem trailing+    return (result', index_', trailing')++-- struct LayoutIter+newtype LayoutIter = LayoutIter (ForeignPtr LayoutIter)+noLayoutIter :: Maybe LayoutIter+noLayoutIter = Nothing++foreign import ccall "pango_layout_iter_get_type" c_pango_layout_iter_get_type :: +    IO GType++instance BoxedObject LayoutIter where+    boxedType _ = c_pango_layout_iter_get_type++-- method LayoutIter::at_last_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_at_last_line" pango_layout_iter_at_last_line :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO CInt+++layoutIterAtLastLine ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Bool+layoutIterAtLastLine _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_at_last_line _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutIter"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_copy" pango_layout_iter_copy :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO (Ptr LayoutIter)+++layoutIterCopy ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m LayoutIter+layoutIterCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_copy _obj'+    checkUnexpectedReturnNULL "pango_layout_iter_copy" result+    result' <- (wrapBoxed LayoutIter) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_free" pango_layout_iter_free :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO ()+++layoutIterFree ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m ()+layoutIterFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_layout_iter_free _obj'+    touchManagedPtr _obj+    return ()++-- method LayoutIter::get_baseline+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_baseline" pango_layout_iter_get_baseline :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO Int32+++layoutIterGetBaseline ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Int32+layoutIterGetBaseline _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_get_baseline _obj'+    touchManagedPtr _obj+    return result++-- method LayoutIter::get_char_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_char_extents" pango_layout_iter_get_char_extents :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutIterGetCharExtents ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m (Rectangle)+layoutIterGetCharExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_iter_get_char_extents _obj' logical_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return logical_rect'++-- method LayoutIter::get_cluster_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_cluster_extents" pango_layout_iter_get_cluster_extents :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutIterGetClusterExtents ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m (Rectangle,Rectangle)+layoutIterGetClusterExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_iter_get_cluster_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method LayoutIter::get_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_index" pango_layout_iter_get_index :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO Int32+++layoutIterGetIndex ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Int32+layoutIterGetIndex _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_get_index _obj'+    touchManagedPtr _obj+    return result++-- method LayoutIter::get_layout+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Layout"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_layout" pango_layout_iter_get_layout :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO (Ptr Layout)+++layoutIterGetLayout ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Layout+layoutIterGetLayout _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_get_layout _obj'+    checkUnexpectedReturnNULL "pango_layout_iter_get_layout" result+    result' <- (newObject Layout) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::get_layout_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_layout_extents" pango_layout_iter_get_layout_extents :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutIterGetLayoutExtents ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m (Rectangle,Rectangle)+layoutIterGetLayoutExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_iter_get_layout_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method LayoutIter::get_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutLine"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_line" pango_layout_iter_get_line :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO (Ptr LayoutLine)+++layoutIterGetLine ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m LayoutLine+layoutIterGetLine _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_get_line _obj'+    checkUnexpectedReturnNULL "pango_layout_iter_get_line" result+    result' <- (wrapBoxed LayoutLine) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::get_line_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_line_extents" pango_layout_iter_get_line_extents :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutIterGetLineExtents ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m (Rectangle,Rectangle)+layoutIterGetLineExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_iter_get_line_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method LayoutIter::get_line_readonly+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutLine"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_line_readonly" pango_layout_iter_get_line_readonly :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO (Ptr LayoutLine)+++layoutIterGetLineReadonly ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m LayoutLine+layoutIterGetLineReadonly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_get_line_readonly _obj'+    checkUnexpectedReturnNULL "pango_layout_iter_get_line_readonly" result+    result' <- (newBoxed LayoutLine) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::get_line_yrange+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_line_yrange" pango_layout_iter_get_line_yrange :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    Ptr Int32 ->                            -- y0_ : TBasicType TInt32+    Ptr Int32 ->                            -- y1_ : TBasicType TInt32+    IO ()+++layoutIterGetLineYrange ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m (Int32,Int32)+layoutIterGetLineYrange _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    y0_ <- allocMem :: IO (Ptr Int32)+    y1_ <- allocMem :: IO (Ptr Int32)+    pango_layout_iter_get_line_yrange _obj' y0_ y1_+    y0_' <- peek y0_+    y1_' <- peek y1_+    touchManagedPtr _obj+    freeMem y0_+    freeMem y1_+    return (y0_', y1_')++-- method LayoutIter::get_run+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "GlyphItem"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_run" pango_layout_iter_get_run :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO (Ptr GlyphItem)+++layoutIterGetRun ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m GlyphItem+layoutIterGetRun _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_get_run _obj'+    checkUnexpectedReturnNULL "pango_layout_iter_get_run" result+    result' <- (newBoxed GlyphItem) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::get_run_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_run_extents" pango_layout_iter_get_run_extents :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutIterGetRunExtents ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m (Rectangle,Rectangle)+layoutIterGetRunExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_iter_get_run_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method LayoutIter::get_run_readonly+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "GlyphItem"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_get_run_readonly" pango_layout_iter_get_run_readonly :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO (Ptr GlyphItem)+++layoutIterGetRunReadonly ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m GlyphItem+layoutIterGetRunReadonly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_get_run_readonly _obj'+    checkUnexpectedReturnNULL "pango_layout_iter_get_run_readonly" result+    result' <- (newBoxed GlyphItem) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::next_char+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_next_char" pango_layout_iter_next_char :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO CInt+++layoutIterNextChar ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Bool+layoutIterNextChar _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_next_char _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::next_cluster+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_next_cluster" pango_layout_iter_next_cluster :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO CInt+++layoutIterNextCluster ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Bool+layoutIterNextCluster _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_next_cluster _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::next_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_next_line" pango_layout_iter_next_line :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO CInt+++layoutIterNextLine ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Bool+layoutIterNextLine _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_next_line _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method LayoutIter::next_run+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_iter_next_run" pango_layout_iter_next_run :: +    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"+    IO CInt+++layoutIterNextRun ::+    (MonadIO m) =>+    LayoutIter ->                           -- _obj+    m Bool+layoutIterNextRun _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_iter_next_run _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- struct LayoutLine+newtype LayoutLine = LayoutLine (ForeignPtr LayoutLine)+noLayoutLine :: Maybe LayoutLine+noLayoutLine = Nothing++foreign import ccall "pango_layout_line_get_type" c_pango_layout_line_get_type :: +    IO GType++instance BoxedObject LayoutLine where+    boxedType _ = c_pango_layout_line_get_type++layoutLineReadLayout :: LayoutLine -> IO Layout+layoutLineReadLayout s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Layout)+    val' <- (newObject Layout) val+    return val'++layoutLineReadStartIndex :: LayoutLine -> IO Int32+layoutLineReadStartIndex s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++layoutLineReadLength :: LayoutLine -> IO Int32+layoutLineReadLength s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++layoutLineReadRuns :: LayoutLine -> IO ([Ptr ()])+layoutLineReadRuns s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GSList (Ptr ())))+    val' <- unpackGSList val+    return val'++layoutLineReadIsParagraphStart :: LayoutLine -> IO Word32+layoutLineReadIsParagraphStart s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Word32+    return val++layoutLineReadResolvedDir :: LayoutLine -> IO Word32+layoutLineReadResolvedDir s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Word32+    return val++-- method LayoutLine::get_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_line_get_extents" pango_layout_line_get_extents :: +    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutLineGetExtents ::+    (MonadIO m) =>+    LayoutLine ->                           -- _obj+    m (Rectangle,Rectangle)+layoutLineGetExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_line_get_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method LayoutLine::get_pixel_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_line_get_pixel_extents" pango_layout_line_get_pixel_extents :: +    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"+    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO ()+++layoutLineGetPixelExtents ::+    (MonadIO m) =>+    LayoutLine ->                           -- _obj+    m (Rectangle,Rectangle)+layoutLineGetPixelExtents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_line_get_pixel_extents _obj' ink_rect logical_rect+    ink_rect' <- (wrapPtr Rectangle) ink_rect+    logical_rect' <- (wrapPtr Rectangle) logical_rect+    touchManagedPtr _obj+    return (ink_rect', logical_rect')++-- method LayoutLine::get_x_ranges+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_index", 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 "pango_layout_line_get_x_ranges" pango_layout_line_get_x_ranges :: +    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"+    Int32 ->                                -- start_index : TBasicType TInt32+    Int32 ->                                -- end_index : TBasicType TInt32+    Ptr (Ptr Int32) ->                      -- ranges : TCArray False (-1) 4 (TBasicType TInt32)+    Ptr Int32 ->                            -- n_ranges : TBasicType TInt32+    IO ()+++layoutLineGetXRanges ::+    (MonadIO m) =>+    LayoutLine ->                           -- _obj+    Int32 ->                                -- start_index+    Int32 ->                                -- end_index+    m ([Int32])+layoutLineGetXRanges _obj start_index end_index = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    ranges <- allocMem :: IO (Ptr (Ptr Int32))+    n_ranges <- allocMem :: IO (Ptr Int32)+    pango_layout_line_get_x_ranges _obj' start_index end_index ranges n_ranges+    n_ranges' <- peek n_ranges+    ranges' <- peek ranges+    ranges'' <- (unpackStorableArrayWithLength n_ranges') ranges'+    freeMem ranges'+    touchManagedPtr _obj+    freeMem ranges+    freeMem n_ranges+    return ranges''++-- method LayoutLine::index_to_x+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", 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 "pango_layout_line_index_to_x" pango_layout_line_index_to_x :: +    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"+    Int32 ->                                -- index_ : TBasicType TInt32+    CInt ->                                 -- trailing : TBasicType TBoolean+    Ptr Int32 ->                            -- x_pos : TBasicType TInt32+    IO ()+++layoutLineIndexToX ::+    (MonadIO m) =>+    LayoutLine ->                           -- _obj+    Int32 ->                                -- index_+    Bool ->                                 -- trailing+    m (Int32)+layoutLineIndexToX _obj index_ trailing = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let trailing' = (fromIntegral . fromEnum) trailing+    x_pos <- allocMem :: IO (Ptr Int32)+    pango_layout_line_index_to_x _obj' index_ trailing' x_pos+    x_pos' <- peek x_pos+    touchManagedPtr _obj+    freeMem x_pos+    return x_pos'++-- method LayoutLine::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutLine"+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_line_ref" pango_layout_line_ref :: +    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"+    IO (Ptr LayoutLine)+++layoutLineRef ::+    (MonadIO m) =>+    LayoutLine ->                           -- _obj+    m LayoutLine+layoutLineRef _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_layout_line_ref _obj'+    checkUnexpectedReturnNULL "pango_layout_line_ref" result+    result' <- (wrapBoxed LayoutLine) result+    touchManagedPtr _obj+    return result'++-- method LayoutLine::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_line_unref" pango_layout_line_unref :: +    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"+    IO ()+++layoutLineUnref ::+    (MonadIO m) =>+    LayoutLine ->                           -- _obj+    m ()+layoutLineUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_layout_line_unref _obj'+    touchManagedPtr _obj+    return ()++-- method LayoutLine::x_to_index+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_layout_line_x_to_index" pango_layout_line_x_to_index :: +    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"+    Int32 ->                                -- x_pos : TBasicType TInt32+    Ptr Int32 ->                            -- index_ : TBasicType TInt32+    Ptr Int32 ->                            -- trailing : TBasicType TInt32+    IO CInt+++layoutLineXToIndex ::+    (MonadIO m) =>+    LayoutLine ->                           -- _obj+    Int32 ->                                -- x_pos+    m (Bool,Int32,Int32)+layoutLineXToIndex _obj x_pos = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    index_ <- allocMem :: IO (Ptr Int32)+    trailing <- allocMem :: IO (Ptr Int32)+    result <- pango_layout_line_x_to_index _obj' x_pos index_ trailing+    let result' = (/= 0) result+    index_' <- peek index_+    trailing' <- peek trailing+    touchManagedPtr _obj+    freeMem index_+    freeMem trailing+    return (result', index_', trailing')++-- struct LogAttr+newtype LogAttr = LogAttr (ForeignPtr LogAttr)+noLogAttr :: Maybe LogAttr+noLogAttr = Nothing++logAttrReadIsLineBreak :: LogAttr -> IO Word32+logAttrReadIsLineBreak s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++logAttrReadIsMandatoryBreak :: LogAttr -> IO Word32+logAttrReadIsMandatoryBreak s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Word32+    return val++logAttrReadIsCharBreak :: LogAttr -> IO Word32+logAttrReadIsCharBreak s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word32+    return val++logAttrReadIsWhite :: LogAttr -> IO Word32+logAttrReadIsWhite s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Word32+    return val++logAttrReadIsCursorPosition :: LogAttr -> IO Word32+logAttrReadIsCursorPosition s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Word32+    return val++logAttrReadIsWordStart :: LogAttr -> IO Word32+logAttrReadIsWordStart s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++logAttrReadIsWordEnd :: LogAttr -> IO Word32+logAttrReadIsWordEnd s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Word32+    return val++logAttrReadIsSentenceBoundary :: LogAttr -> IO Word32+logAttrReadIsSentenceBoundary s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Word32+    return val++logAttrReadIsSentenceStart :: LogAttr -> IO Word32+logAttrReadIsSentenceStart s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Word32+    return val++logAttrReadIsSentenceEnd :: LogAttr -> IO Word32+logAttrReadIsSentenceEnd s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 36) :: IO Word32+    return val++logAttrReadBackspaceDeletesCharacter :: LogAttr -> IO Word32+logAttrReadBackspaceDeletesCharacter s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO Word32+    return val++logAttrReadIsExpandableSpace :: LogAttr -> IO Word32+logAttrReadIsExpandableSpace s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 44) :: IO Word32+    return val++logAttrReadIsWordBoundary :: LogAttr -> IO Word32+logAttrReadIsWordBoundary s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO Word32+    return val++-- struct Map+newtype Map = Map (ForeignPtr Map)+noMap :: Maybe Map+noMap = Nothing++-- struct MapEntry+newtype MapEntry = MapEntry (ForeignPtr MapEntry)+noMapEntry :: Maybe MapEntry+noMapEntry = Nothing++-- struct Matrix+newtype Matrix = Matrix (ForeignPtr Matrix)+noMatrix :: Maybe Matrix+noMatrix = Nothing++foreign import ccall "pango_matrix_get_type" c_pango_matrix_get_type :: +    IO GType++instance BoxedObject Matrix where+    boxedType _ = c_pango_matrix_get_type++matrixReadXx :: Matrix -> IO Double+matrixReadXx s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CDouble+    let val' = realToFrac val+    return val'++matrixReadXy :: Matrix -> IO Double+matrixReadXy s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CDouble+    let val' = realToFrac val+    return val'++matrixReadYx :: Matrix -> IO Double+matrixReadYx s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CDouble+    let val' = realToFrac val+    return val'++matrixReadYy :: Matrix -> IO Double+matrixReadYy s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CDouble+    let val' = realToFrac val+    return val'++matrixReadX0 :: Matrix -> IO Double+matrixReadX0 s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++matrixReadY0 :: Matrix -> IO Double+matrixReadY0 s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++-- method Matrix::concat+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_concat" pango_matrix_concat :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    Ptr Matrix ->                           -- new_matrix : TInterface "Pango" "Matrix"+    IO ()+++matrixConcat ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    Matrix ->                               -- new_matrix+    m ()+matrixConcat _obj new_matrix = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let new_matrix' = unsafeManagedPtrGetPtr new_matrix+    pango_matrix_concat _obj' new_matrix'+    touchManagedPtr _obj+    touchManagedPtr new_matrix+    return ()++-- method Matrix::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Matrix"+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_copy" pango_matrix_copy :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    IO (Ptr Matrix)+++matrixCopy ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    m Matrix+matrixCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_matrix_copy _obj'+    checkUnexpectedReturnNULL "pango_matrix_copy" result+    result' <- (wrapBoxed Matrix) result+    touchManagedPtr _obj+    return result'++-- method Matrix::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_free" pango_matrix_free :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    IO ()+++matrixFree ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    m ()+matrixFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_matrix_free _obj'+    touchManagedPtr _obj+    return ()++-- method Matrix::get_font_scale_factor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_get_font_scale_factor" pango_matrix_get_font_scale_factor :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    IO CDouble+++matrixGetFontScaleFactor ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    m Double+matrixGetFontScaleFactor _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_matrix_get_font_scale_factor _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Matrix::get_font_scale_factors+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xscale", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "yscale", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_get_font_scale_factors" pango_matrix_get_font_scale_factors :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    Ptr CDouble ->                          -- xscale : TBasicType TDouble+    Ptr CDouble ->                          -- yscale : TBasicType TDouble+    IO ()+++matrixGetFontScaleFactors ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    m (Double,Double)+matrixGetFontScaleFactors _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    xscale <- allocMem :: IO (Ptr CDouble)+    yscale <- allocMem :: IO (Ptr CDouble)+    pango_matrix_get_font_scale_factors _obj' xscale yscale+    xscale' <- peek xscale+    let xscale'' = realToFrac xscale'+    yscale' <- peek yscale+    let yscale'' = realToFrac yscale'+    touchManagedPtr _obj+    freeMem xscale+    freeMem yscale+    return (xscale'', yscale'')++-- method Matrix::rotate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "degrees", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "degrees", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_rotate" pango_matrix_rotate :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    CDouble ->                              -- degrees : TBasicType TDouble+    IO ()+++matrixRotate ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    Double ->                               -- degrees+    m ()+matrixRotate _obj degrees = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let degrees' = realToFrac degrees+    pango_matrix_rotate _obj' degrees'+    touchManagedPtr _obj+    return ()++-- method Matrix::scale+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", 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}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", 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}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_scale" pango_matrix_scale :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    CDouble ->                              -- scale_x : TBasicType TDouble+    CDouble ->                              -- scale_y : TBasicType TDouble+    IO ()+++matrixScale ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    Double ->                               -- scale_x+    Double ->                               -- scale_y+    m ()+matrixScale _obj scale_x scale_y = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let scale_x' = realToFrac scale_x+    let scale_y' = realToFrac scale_y+    pango_matrix_scale _obj' scale_x' scale_y'+    touchManagedPtr _obj+    return ()++-- method Matrix::transform_distance+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "dy", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "dy", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_transform_distance" pango_matrix_transform_distance :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    Ptr CDouble ->                          -- dx : TBasicType TDouble+    Ptr CDouble ->                          -- dy : TBasicType TDouble+    IO ()+++matrixTransformDistance ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    Double ->                               -- dx+    Double ->                               -- dy+    m (Double,Double)+matrixTransformDistance _obj dx dy = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let dx' = realToFrac dx+    dx'' <- allocMem :: IO (Ptr CDouble)+    poke dx'' dx'+    let dy' = realToFrac dy+    dy'' <- allocMem :: IO (Ptr CDouble)+    poke dy'' dy'+    pango_matrix_transform_distance _obj' dx'' dy''+    dx''' <- peek dx''+    let dx'''' = realToFrac dx'''+    dy''' <- peek dy''+    let dy'''' = realToFrac dy'''+    touchManagedPtr _obj+    freeMem dx''+    freeMem dy''+    return (dx'''', dy'''')++-- XXX Could not generate method Matrix::transform_pixel_rectangle+-- Error was : Not implemented: "Nullable inout structs not supported"+-- method Matrix::transform_point+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_transform_point" pango_matrix_transform_point :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    Ptr CDouble ->                          -- x : TBasicType TDouble+    Ptr CDouble ->                          -- y : TBasicType TDouble+    IO ()+++matrixTransformPoint ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    Double ->                               -- x+    Double ->                               -- y+    m (Double,Double)+matrixTransformPoint _obj x y = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let x' = realToFrac x+    x'' <- allocMem :: IO (Ptr CDouble)+    poke x'' x'+    let y' = realToFrac y+    y'' <- allocMem :: IO (Ptr CDouble)+    poke y'' y'+    pango_matrix_transform_point _obj' x'' y''+    x''' <- peek x''+    let x'''' = realToFrac x'''+    y''' <- peek y''+    let y'''' = realToFrac y'''+    touchManagedPtr _obj+    freeMem x''+    freeMem y''+    return (x'''', y'''')++-- XXX Could not generate method Matrix::transform_rectangle+-- Error was : Not implemented: "Nullable inout structs not supported"+-- method Matrix::translate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_matrix_translate" pango_matrix_translate :: +    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"+    CDouble ->                              -- tx : TBasicType TDouble+    CDouble ->                              -- ty : TBasicType TDouble+    IO ()+++matrixTranslate ::+    (MonadIO m) =>+    Matrix ->                               -- _obj+    Double ->                               -- tx+    Double ->                               -- ty+    m ()+matrixTranslate _obj tx ty = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let tx' = realToFrac tx+    let ty' = realToFrac ty+    pango_matrix_translate _obj' tx' ty'+    touchManagedPtr _obj+    return ()++-- struct Rectangle+newtype Rectangle = Rectangle (ForeignPtr Rectangle)+noRectangle :: Maybe Rectangle+noRectangle = Nothing++rectangleReadX :: Rectangle -> IO Int32+rectangleReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++rectangleReadY :: Rectangle -> IO Int32+rectangleReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++rectangleReadWidth :: Rectangle -> IO Int32+rectangleReadWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++rectangleReadHeight :: Rectangle -> IO Int32+rectangleReadHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++-- Enum RenderPart++data RenderPart = +      RenderPartForeground+    | RenderPartBackground+    | RenderPartUnderline+    | RenderPartStrikethrough+    | AnotherRenderPart Int+    deriving (Show, Eq)++instance Enum RenderPart where+    fromEnum RenderPartForeground = 0+    fromEnum RenderPartBackground = 1+    fromEnum RenderPartUnderline = 2+    fromEnum RenderPartStrikethrough = 3+    fromEnum (AnotherRenderPart k) = k++    toEnum 0 = RenderPartForeground+    toEnum 1 = RenderPartBackground+    toEnum 2 = RenderPartUnderline+    toEnum 3 = RenderPartStrikethrough+    toEnum k = AnotherRenderPart k++foreign import ccall "pango_render_part_get_type" c_pango_render_part_get_type :: +    IO GType++instance BoxedEnum RenderPart where+    boxedEnumType _ = c_pango_render_part_get_type++-- object Renderer +newtype Renderer = Renderer (ForeignPtr Renderer)+noRenderer :: Maybe Renderer+noRenderer = Nothing++foreign import ccall "pango_renderer_get_type"+    c_pango_renderer_get_type :: IO GType++type instance ParentTypes Renderer = '[GObject.Object]++instance GObject Renderer where+    gobjectIsInitiallyUnowned _ = False+    gobjectType _ = c_pango_renderer_get_type+    ++class GObject o => RendererK o+instance (GObject o, IsDescendantOf Renderer o) => RendererK o++toRenderer :: RendererK o => o -> IO Renderer+toRenderer = unsafeCastTo Renderer++-- method Renderer::activate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_activate" pango_renderer_activate :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    IO ()+++rendererActivate ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    m ()+rendererActivate _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_renderer_activate _obj'+    touchManagedPtr _obj+    return ()++-- method Renderer::deactivate+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_deactivate" pango_renderer_deactivate :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    IO ()+++rendererDeactivate ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    m ()+rendererDeactivate _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_renderer_deactivate _obj'+    touchManagedPtr _obj+    return ()++-- method Renderer::draw_error_underline+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_draw_error_underline" pango_renderer_draw_error_underline :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO ()+++rendererDrawErrorUnderline ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    Int32 ->                                -- width+    Int32 ->                                -- height+    m ()+rendererDrawErrorUnderline _obj x y width height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    pango_renderer_draw_error_underline _obj' x y width height+    touchManagedPtr _obj+    return ()++-- method Renderer::draw_glyph+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_draw_glyph" pango_renderer_draw_glyph :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    Ptr Font ->                             -- font : TInterface "Pango" "Font"+    Word32 ->                               -- glyph : TBasicType TUInt32+    CDouble ->                              -- x : TBasicType TDouble+    CDouble ->                              -- y : TBasicType TDouble+    IO ()+++rendererDrawGlyph ::+    (MonadIO m, RendererK a, FontK b) =>+    a ->                                    -- _obj+    b ->                                    -- font+    Word32 ->                               -- glyph+    Double ->                               -- x+    Double ->                               -- y+    m ()+rendererDrawGlyph _obj font glyph x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let font' = unsafeManagedPtrCastPtr font+    let x' = realToFrac x+    let y' = realToFrac y+    pango_renderer_draw_glyph _obj' font' glyph x' y'+    touchManagedPtr _obj+    touchManagedPtr font+    return ()++-- method Renderer::draw_glyph_item+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_glyph_item" pango_renderer_draw_glyph_item :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CString ->                              -- text : TBasicType TUTF8+    Ptr GlyphItem ->                        -- glyph_item : TInterface "Pango" "GlyphItem"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO ()+++rendererDrawGlyphItem ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    Maybe (T.Text) ->                       -- text+    GlyphItem ->                            -- glyph_item+    Int32 ->                                -- x+    Int32 ->                                -- y+    m ()+rendererDrawGlyphItem _obj text glyph_item x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeText <- case text of+        Nothing -> return nullPtr+        Just jText -> do+            jText' <- textToCString jText+            return jText'+    let glyph_item' = unsafeManagedPtrGetPtr glyph_item+    pango_renderer_draw_glyph_item _obj' maybeText glyph_item' x y+    touchManagedPtr _obj+    touchManagedPtr glyph_item+    freeMem maybeText+    return ()++-- method Renderer::draw_glyphs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_glyphs" pango_renderer_draw_glyphs :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    Ptr Font ->                             -- font : TInterface "Pango" "Font"+    Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO ()+++rendererDrawGlyphs ::+    (MonadIO m, RendererK a, FontK b) =>+    a ->                                    -- _obj+    b ->                                    -- font+    GlyphString ->                          -- glyphs+    Int32 ->                                -- x+    Int32 ->                                -- y+    m ()+rendererDrawGlyphs _obj font glyphs x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let font' = unsafeManagedPtrCastPtr font+    let glyphs' = unsafeManagedPtrGetPtr glyphs+    pango_renderer_draw_glyphs _obj' font' glyphs' x y+    touchManagedPtr _obj+    touchManagedPtr font+    touchManagedPtr glyphs+    return ()++-- method Renderer::draw_layout+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_layout" pango_renderer_draw_layout :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    Ptr Layout ->                           -- layout : TInterface "Pango" "Layout"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO ()+++rendererDrawLayout ::+    (MonadIO m, RendererK a, LayoutK b) =>+    a ->                                    -- _obj+    b ->                                    -- layout+    Int32 ->                                -- x+    Int32 ->                                -- y+    m ()+rendererDrawLayout _obj layout x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let layout' = unsafeManagedPtrCastPtr layout+    pango_renderer_draw_layout _obj' layout' x y+    touchManagedPtr _obj+    touchManagedPtr layout+    return ()++-- method Renderer::draw_layout_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_layout_line" pango_renderer_draw_layout_line :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    Ptr LayoutLine ->                       -- line : TInterface "Pango" "LayoutLine"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO ()+++rendererDrawLayoutLine ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    LayoutLine ->                           -- line+    Int32 ->                                -- x+    Int32 ->                                -- y+    m ()+rendererDrawLayoutLine _obj line x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let line' = unsafeManagedPtrGetPtr line+    pango_renderer_draw_layout_line _obj' line' x y+    touchManagedPtr _obj+    touchManagedPtr line+    return ()++-- method Renderer::draw_rectangle+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_draw_rectangle" pango_renderer_draw_rectangle :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CUInt ->                                -- part : TInterface "Pango" "RenderPart"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO ()+++rendererDrawRectangle ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    RenderPart ->                           -- part+    Int32 ->                                -- x+    Int32 ->                                -- y+    Int32 ->                                -- width+    Int32 ->                                -- height+    m ()+rendererDrawRectangle _obj part x y width height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let part' = (fromIntegral . fromEnum) part+    pango_renderer_draw_rectangle _obj' part' x y width height+    touchManagedPtr _obj+    return ()++-- method Renderer::draw_trapezoid+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x11", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x21", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x12", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x22", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x11", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x21", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x12", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x22", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_draw_trapezoid" pango_renderer_draw_trapezoid :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CUInt ->                                -- part : TInterface "Pango" "RenderPart"+    CDouble ->                              -- y1_ : TBasicType TDouble+    CDouble ->                              -- x11 : TBasicType TDouble+    CDouble ->                              -- x21 : TBasicType TDouble+    CDouble ->                              -- y2 : TBasicType TDouble+    CDouble ->                              -- x12 : TBasicType TDouble+    CDouble ->                              -- x22 : TBasicType TDouble+    IO ()+++rendererDrawTrapezoid ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    RenderPart ->                           -- part+    Double ->                               -- y1_+    Double ->                               -- x11+    Double ->                               -- x21+    Double ->                               -- y2+    Double ->                               -- x12+    Double ->                               -- x22+    m ()+rendererDrawTrapezoid _obj part y1_ x11 x21 y2 x12 x22 = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let part' = (fromIntegral . fromEnum) part+    let y1_' = realToFrac y1_+    let x11' = realToFrac x11+    let x21' = realToFrac x21+    let y2' = realToFrac y2+    let x12' = realToFrac x12+    let x22' = realToFrac x22+    pango_renderer_draw_trapezoid _obj' part' y1_' x11' x21' y2' x12' x22'+    touchManagedPtr _obj+    return ()++-- method Renderer::get_alpha+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt16+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_get_alpha" pango_renderer_get_alpha :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CUInt ->                                -- part : TInterface "Pango" "RenderPart"+    IO Word16+++rendererGetAlpha ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    RenderPart ->                           -- part+    m Word16+rendererGetAlpha _obj part = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let part' = (fromIntegral . fromEnum) part+    result <- pango_renderer_get_alpha _obj' part'+    touchManagedPtr _obj+    return result++-- method Renderer::get_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Color"+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_get_color" pango_renderer_get_color :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CUInt ->                                -- part : TInterface "Pango" "RenderPart"+    IO (Ptr Color)+++rendererGetColor ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    RenderPart ->                           -- part+    m Color+rendererGetColor _obj part = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let part' = (fromIntegral . fromEnum) part+    result <- pango_renderer_get_color _obj' part'+    checkUnexpectedReturnNULL "pango_renderer_get_color" result+    result' <- (newBoxed Color) result+    touchManagedPtr _obj+    return result'++-- method Renderer::get_layout+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Layout"+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_get_layout" pango_renderer_get_layout :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    IO (Ptr Layout)+++rendererGetLayout ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    m Layout+rendererGetLayout _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_renderer_get_layout _obj'+    checkUnexpectedReturnNULL "pango_renderer_get_layout" result+    result' <- (newObject Layout) result+    touchManagedPtr _obj+    return result'++-- method Renderer::get_layout_line+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "LayoutLine"+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_get_layout_line" pango_renderer_get_layout_line :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    IO (Ptr LayoutLine)+++rendererGetLayoutLine ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    m LayoutLine+rendererGetLayoutLine _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_renderer_get_layout_line _obj'+    checkUnexpectedReturnNULL "pango_renderer_get_layout_line" result+    result' <- (newBoxed LayoutLine) result+    touchManagedPtr _obj+    return result'++-- method Renderer::get_matrix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Matrix"+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_get_matrix" pango_renderer_get_matrix :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    IO (Ptr Matrix)+++rendererGetMatrix ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    m Matrix+rendererGetMatrix _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- pango_renderer_get_matrix _obj'+    checkUnexpectedReturnNULL "pango_renderer_get_matrix" result+    result' <- (newBoxed Matrix) result+    touchManagedPtr _obj+    return result'++-- method Renderer::part_changed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_part_changed" pango_renderer_part_changed :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CUInt ->                                -- part : TInterface "Pango" "RenderPart"+    IO ()+++rendererPartChanged ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    RenderPart ->                           -- part+    m ()+rendererPartChanged _obj part = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let part' = (fromIntegral . fromEnum) part+    pango_renderer_part_changed _obj' part'+    touchManagedPtr _obj+    return ()++-- method Renderer::set_alpha+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_set_alpha" pango_renderer_set_alpha :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CUInt ->                                -- part : TInterface "Pango" "RenderPart"+    Word16 ->                               -- alpha : TBasicType TUInt16+    IO ()+++rendererSetAlpha ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    RenderPart ->                           -- part+    Word16 ->                               -- alpha+    m ()+rendererSetAlpha _obj part alpha = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let part' = (fromIntegral . fromEnum) part+    pango_renderer_set_alpha _obj' part' alpha+    touchManagedPtr _obj+    return ()++-- method Renderer::set_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_set_color" pango_renderer_set_color :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    CUInt ->                                -- part : TInterface "Pango" "RenderPart"+    Ptr Color ->                            -- color : TInterface "Pango" "Color"+    IO ()+++rendererSetColor ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    RenderPart ->                           -- part+    Maybe (Color) ->                        -- color+    m ()+rendererSetColor _obj part color = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let part' = (fromIntegral . fromEnum) part+    maybeColor <- case color of+        Nothing -> return nullPtr+        Just jColor -> do+            let jColor' = unsafeManagedPtrGetPtr jColor+            return jColor'+    pango_renderer_set_color _obj' part' maybeColor+    touchManagedPtr _obj+    whenJust color touchManagedPtr+    return ()++-- method Renderer::set_matrix+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_renderer_set_matrix" pango_renderer_set_matrix :: +    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"+    Ptr Matrix ->                           -- matrix : TInterface "Pango" "Matrix"+    IO ()+++rendererSetMatrix ::+    (MonadIO m, RendererK a) =>+    a ->                                    -- _obj+    Maybe (Matrix) ->                       -- matrix+    m ()+rendererSetMatrix _obj matrix = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeMatrix <- case matrix of+        Nothing -> return nullPtr+        Just jMatrix -> do+            let jMatrix' = unsafeManagedPtrGetPtr jMatrix+            return jMatrix'+    pango_renderer_set_matrix _obj' maybeMatrix+    touchManagedPtr _obj+    whenJust matrix touchManagedPtr+    return ()++-- Enum Script++data Script = +      ScriptInvalidCode+    | ScriptCommon+    | ScriptInherited+    | ScriptArabic+    | ScriptArmenian+    | ScriptBengali+    | ScriptBopomofo+    | ScriptCherokee+    | ScriptCoptic+    | ScriptCyrillic+    | ScriptDeseret+    | ScriptDevanagari+    | ScriptEthiopic+    | ScriptGeorgian+    | ScriptGothic+    | ScriptGreek+    | ScriptGujarati+    | ScriptGurmukhi+    | ScriptHan+    | ScriptHangul+    | ScriptHebrew+    | ScriptHiragana+    | ScriptKannada+    | ScriptKatakana+    | ScriptKhmer+    | ScriptLao+    | ScriptLatin+    | ScriptMalayalam+    | ScriptMongolian+    | ScriptMyanmar+    | ScriptOgham+    | ScriptOldItalic+    | ScriptOriya+    | ScriptRunic+    | ScriptSinhala+    | ScriptSyriac+    | ScriptTamil+    | ScriptTelugu+    | ScriptThaana+    | ScriptThai+    | ScriptTibetan+    | ScriptCanadianAboriginal+    | ScriptYi+    | ScriptTagalog+    | ScriptHanunoo+    | ScriptBuhid+    | ScriptTagbanwa+    | ScriptBraille+    | ScriptCypriot+    | ScriptLimbu+    | ScriptOsmanya+    | ScriptShavian+    | ScriptLinearB+    | ScriptTaiLe+    | ScriptUgaritic+    | ScriptNewTaiLue+    | ScriptBuginese+    | ScriptGlagolitic+    | ScriptTifinagh+    | ScriptSylotiNagri+    | ScriptOldPersian+    | ScriptKharoshthi+    | ScriptUnknown+    | ScriptBalinese+    | ScriptCuneiform+    | ScriptPhoenician+    | ScriptPhagsPa+    | ScriptNko+    | ScriptKayahLi+    | ScriptLepcha+    | ScriptRejang+    | ScriptSundanese+    | ScriptSaurashtra+    | ScriptCham+    | ScriptOlChiki+    | ScriptVai+    | ScriptCarian+    | ScriptLycian+    | ScriptLydian+    | ScriptBatak+    | ScriptBrahmi+    | ScriptMandaic+    | ScriptChakma+    | ScriptMeroiticCursive+    | ScriptMeroiticHieroglyphs+    | ScriptMiao+    | ScriptSharada+    | ScriptSoraSompeng+    | ScriptTakri+    | AnotherScript Int+    deriving (Show, Eq)++instance Enum Script where+    fromEnum ScriptInvalidCode = -1+    fromEnum ScriptCommon = 0+    fromEnum ScriptInherited = 1+    fromEnum ScriptArabic = 2+    fromEnum ScriptArmenian = 3+    fromEnum ScriptBengali = 4+    fromEnum ScriptBopomofo = 5+    fromEnum ScriptCherokee = 6+    fromEnum ScriptCoptic = 7+    fromEnum ScriptCyrillic = 8+    fromEnum ScriptDeseret = 9+    fromEnum ScriptDevanagari = 10+    fromEnum ScriptEthiopic = 11+    fromEnum ScriptGeorgian = 12+    fromEnum ScriptGothic = 13+    fromEnum ScriptGreek = 14+    fromEnum ScriptGujarati = 15+    fromEnum ScriptGurmukhi = 16+    fromEnum ScriptHan = 17+    fromEnum ScriptHangul = 18+    fromEnum ScriptHebrew = 19+    fromEnum ScriptHiragana = 20+    fromEnum ScriptKannada = 21+    fromEnum ScriptKatakana = 22+    fromEnum ScriptKhmer = 23+    fromEnum ScriptLao = 24+    fromEnum ScriptLatin = 25+    fromEnum ScriptMalayalam = 26+    fromEnum ScriptMongolian = 27+    fromEnum ScriptMyanmar = 28+    fromEnum ScriptOgham = 29+    fromEnum ScriptOldItalic = 30+    fromEnum ScriptOriya = 31+    fromEnum ScriptRunic = 32+    fromEnum ScriptSinhala = 33+    fromEnum ScriptSyriac = 34+    fromEnum ScriptTamil = 35+    fromEnum ScriptTelugu = 36+    fromEnum ScriptThaana = 37+    fromEnum ScriptThai = 38+    fromEnum ScriptTibetan = 39+    fromEnum ScriptCanadianAboriginal = 40+    fromEnum ScriptYi = 41+    fromEnum ScriptTagalog = 42+    fromEnum ScriptHanunoo = 43+    fromEnum ScriptBuhid = 44+    fromEnum ScriptTagbanwa = 45+    fromEnum ScriptBraille = 46+    fromEnum ScriptCypriot = 47+    fromEnum ScriptLimbu = 48+    fromEnum ScriptOsmanya = 49+    fromEnum ScriptShavian = 50+    fromEnum ScriptLinearB = 51+    fromEnum ScriptTaiLe = 52+    fromEnum ScriptUgaritic = 53+    fromEnum ScriptNewTaiLue = 54+    fromEnum ScriptBuginese = 55+    fromEnum ScriptGlagolitic = 56+    fromEnum ScriptTifinagh = 57+    fromEnum ScriptSylotiNagri = 58+    fromEnum ScriptOldPersian = 59+    fromEnum ScriptKharoshthi = 60+    fromEnum ScriptUnknown = 61+    fromEnum ScriptBalinese = 62+    fromEnum ScriptCuneiform = 63+    fromEnum ScriptPhoenician = 64+    fromEnum ScriptPhagsPa = 65+    fromEnum ScriptNko = 66+    fromEnum ScriptKayahLi = 67+    fromEnum ScriptLepcha = 68+    fromEnum ScriptRejang = 69+    fromEnum ScriptSundanese = 70+    fromEnum ScriptSaurashtra = 71+    fromEnum ScriptCham = 72+    fromEnum ScriptOlChiki = 73+    fromEnum ScriptVai = 74+    fromEnum ScriptCarian = 75+    fromEnum ScriptLycian = 76+    fromEnum ScriptLydian = 77+    fromEnum ScriptBatak = 78+    fromEnum ScriptBrahmi = 79+    fromEnum ScriptMandaic = 80+    fromEnum ScriptChakma = 81+    fromEnum ScriptMeroiticCursive = 82+    fromEnum ScriptMeroiticHieroglyphs = 83+    fromEnum ScriptMiao = 84+    fromEnum ScriptSharada = 85+    fromEnum ScriptSoraSompeng = 86+    fromEnum ScriptTakri = 87+    fromEnum (AnotherScript k) = k++    toEnum -1 = ScriptInvalidCode+    toEnum 0 = ScriptCommon+    toEnum 1 = ScriptInherited+    toEnum 2 = ScriptArabic+    toEnum 3 = ScriptArmenian+    toEnum 4 = ScriptBengali+    toEnum 5 = ScriptBopomofo+    toEnum 6 = ScriptCherokee+    toEnum 7 = ScriptCoptic+    toEnum 8 = ScriptCyrillic+    toEnum 9 = ScriptDeseret+    toEnum 10 = ScriptDevanagari+    toEnum 11 = ScriptEthiopic+    toEnum 12 = ScriptGeorgian+    toEnum 13 = ScriptGothic+    toEnum 14 = ScriptGreek+    toEnum 15 = ScriptGujarati+    toEnum 16 = ScriptGurmukhi+    toEnum 17 = ScriptHan+    toEnum 18 = ScriptHangul+    toEnum 19 = ScriptHebrew+    toEnum 20 = ScriptHiragana+    toEnum 21 = ScriptKannada+    toEnum 22 = ScriptKatakana+    toEnum 23 = ScriptKhmer+    toEnum 24 = ScriptLao+    toEnum 25 = ScriptLatin+    toEnum 26 = ScriptMalayalam+    toEnum 27 = ScriptMongolian+    toEnum 28 = ScriptMyanmar+    toEnum 29 = ScriptOgham+    toEnum 30 = ScriptOldItalic+    toEnum 31 = ScriptOriya+    toEnum 32 = ScriptRunic+    toEnum 33 = ScriptSinhala+    toEnum 34 = ScriptSyriac+    toEnum 35 = ScriptTamil+    toEnum 36 = ScriptTelugu+    toEnum 37 = ScriptThaana+    toEnum 38 = ScriptThai+    toEnum 39 = ScriptTibetan+    toEnum 40 = ScriptCanadianAboriginal+    toEnum 41 = ScriptYi+    toEnum 42 = ScriptTagalog+    toEnum 43 = ScriptHanunoo+    toEnum 44 = ScriptBuhid+    toEnum 45 = ScriptTagbanwa+    toEnum 46 = ScriptBraille+    toEnum 47 = ScriptCypriot+    toEnum 48 = ScriptLimbu+    toEnum 49 = ScriptOsmanya+    toEnum 50 = ScriptShavian+    toEnum 51 = ScriptLinearB+    toEnum 52 = ScriptTaiLe+    toEnum 53 = ScriptUgaritic+    toEnum 54 = ScriptNewTaiLue+    toEnum 55 = ScriptBuginese+    toEnum 56 = ScriptGlagolitic+    toEnum 57 = ScriptTifinagh+    toEnum 58 = ScriptSylotiNagri+    toEnum 59 = ScriptOldPersian+    toEnum 60 = ScriptKharoshthi+    toEnum 61 = ScriptUnknown+    toEnum 62 = ScriptBalinese+    toEnum 63 = ScriptCuneiform+    toEnum 64 = ScriptPhoenician+    toEnum 65 = ScriptPhagsPa+    toEnum 66 = ScriptNko+    toEnum 67 = ScriptKayahLi+    toEnum 68 = ScriptLepcha+    toEnum 69 = ScriptRejang+    toEnum 70 = ScriptSundanese+    toEnum 71 = ScriptSaurashtra+    toEnum 72 = ScriptCham+    toEnum 73 = ScriptOlChiki+    toEnum 74 = ScriptVai+    toEnum 75 = ScriptCarian+    toEnum 76 = ScriptLycian+    toEnum 77 = ScriptLydian+    toEnum 78 = ScriptBatak+    toEnum 79 = ScriptBrahmi+    toEnum 80 = ScriptMandaic+    toEnum 81 = ScriptChakma+    toEnum 82 = ScriptMeroiticCursive+    toEnum 83 = ScriptMeroiticHieroglyphs+    toEnum 84 = ScriptMiao+    toEnum 85 = ScriptSharada+    toEnum 86 = ScriptSoraSompeng+    toEnum 87 = ScriptTakri+    toEnum k = AnotherScript k++foreign import ccall "pango_script_get_type" c_pango_script_get_type :: +    IO GType++instance BoxedEnum Script where+    boxedEnumType _ = c_pango_script_get_type++-- struct ScriptForLang+newtype ScriptForLang = ScriptForLang (ForeignPtr ScriptForLang)+noScriptForLang :: Maybe ScriptForLang+noScriptForLang = Nothing++-- XXX Skipped getter for "ScriptForLang:lang" :: Not implemented: "Don't know how to unpack C array of type TCArray False 7 (-1) (TBasicType TInt8)"++-- XXX Skipped getter for "ScriptForLang:scripts" :: Not implemented: "Don't know how to unpack C array of type TCArray False 3 (-1) (TInterface \"Pango\" \"Script\")"++-- struct ScriptIter+newtype ScriptIter = ScriptIter (ForeignPtr ScriptIter)+noScriptIter :: Maybe ScriptIter+noScriptIter = Nothing++-- method ScriptIter::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_script_iter_free" pango_script_iter_free :: +    Ptr ScriptIter ->                       -- _obj : TInterface "Pango" "ScriptIter"+    IO ()+++scriptIterFree ::+    (MonadIO m) =>+    ScriptIter ->                           -- _obj+    m ()+scriptIterFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_script_iter_free _obj'+    touchManagedPtr _obj+    return ()++-- method ScriptIter::get_range+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_script_iter_get_range" pango_script_iter_get_range :: +    Ptr ScriptIter ->                       -- _obj : TInterface "Pango" "ScriptIter"+    Ptr CString ->                          -- start : TBasicType TUTF8+    Ptr CString ->                          -- end : TBasicType TUTF8+    Ptr CUInt ->                            -- script : TInterface "Pango" "Script"+    IO ()+++scriptIterGetRange ::+    (MonadIO m) =>+    ScriptIter ->                           -- _obj+    m (T.Text,T.Text,Script)+scriptIterGetRange _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    start <- allocMem :: IO (Ptr CString)+    end <- allocMem :: IO (Ptr CString)+    script <- allocMem :: IO (Ptr CUInt)+    pango_script_iter_get_range _obj' start end script+    start' <- peek start+    start'' <- cstringToText start'+    freeMem start'+    end' <- peek end+    end'' <- cstringToText end'+    freeMem end'+    script' <- peek script+    let script'' = (toEnum . fromIntegral) script'+    touchManagedPtr _obj+    freeMem start+    freeMem end+    freeMem script+    return (start'', end'', script'')++-- method ScriptIter::next+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_script_iter_next" pango_script_iter_next :: +    Ptr ScriptIter ->                       -- _obj : TInterface "Pango" "ScriptIter"+    IO CInt+++scriptIterNext ::+    (MonadIO m) =>+    ScriptIter ->                           -- _obj+    m Bool+scriptIterNext _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_script_iter_next _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- Enum Stretch++data Stretch = +      StretchUltraCondensed+    | StretchExtraCondensed+    | StretchCondensed+    | StretchSemiCondensed+    | StretchNormal+    | StretchSemiExpanded+    | StretchExpanded+    | StretchExtraExpanded+    | StretchUltraExpanded+    | AnotherStretch Int+    deriving (Show, Eq)++instance Enum Stretch where+    fromEnum StretchUltraCondensed = 0+    fromEnum StretchExtraCondensed = 1+    fromEnum StretchCondensed = 2+    fromEnum StretchSemiCondensed = 3+    fromEnum StretchNormal = 4+    fromEnum StretchSemiExpanded = 5+    fromEnum StretchExpanded = 6+    fromEnum StretchExtraExpanded = 7+    fromEnum StretchUltraExpanded = 8+    fromEnum (AnotherStretch k) = k++    toEnum 0 = StretchUltraCondensed+    toEnum 1 = StretchExtraCondensed+    toEnum 2 = StretchCondensed+    toEnum 3 = StretchSemiCondensed+    toEnum 4 = StretchNormal+    toEnum 5 = StretchSemiExpanded+    toEnum 6 = StretchExpanded+    toEnum 7 = StretchExtraExpanded+    toEnum 8 = StretchUltraExpanded+    toEnum k = AnotherStretch k++foreign import ccall "pango_stretch_get_type" c_pango_stretch_get_type :: +    IO GType++instance BoxedEnum Stretch where+    boxedEnumType _ = c_pango_stretch_get_type++-- Enum Style++data Style = +      StyleNormal+    | StyleOblique+    | StyleItalic+    | AnotherStyle Int+    deriving (Show, Eq)++instance Enum Style where+    fromEnum StyleNormal = 0+    fromEnum StyleOblique = 1+    fromEnum StyleItalic = 2+    fromEnum (AnotherStyle k) = k++    toEnum 0 = StyleNormal+    toEnum 1 = StyleOblique+    toEnum 2 = StyleItalic+    toEnum k = AnotherStyle k++foreign import ccall "pango_style_get_type" c_pango_style_get_type :: +    IO GType++instance BoxedEnum Style where+    boxedEnumType _ = c_pango_style_get_type++-- Enum TabAlign++data TabAlign = +      TabAlignLeft+    | AnotherTabAlign Int+    deriving (Show, Eq)++instance Enum TabAlign where+    fromEnum TabAlignLeft = 0+    fromEnum (AnotherTabAlign k) = k++    toEnum 0 = TabAlignLeft+    toEnum k = AnotherTabAlign k++foreign import ccall "pango_tab_align_get_type" c_pango_tab_align_get_type :: +    IO GType++instance BoxedEnum TabAlign where+    boxedEnumType _ = c_pango_tab_align_get_type++-- struct TabArray+newtype TabArray = TabArray (ForeignPtr TabArray)+noTabArray :: Maybe TabArray+noTabArray = Nothing++foreign import ccall "pango_tab_array_get_type" c_pango_tab_array_get_type :: +    IO GType++instance BoxedObject TabArray where+    boxedType _ = c_pango_tab_array_get_type++-- method TabArray::new+-- method type : Constructor+-- Args : [Arg {argName = "initial_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "positions_in_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "initial_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "positions_in_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "TabArray"+-- throws : False+-- Skip return : False++foreign import ccall "pango_tab_array_new" pango_tab_array_new :: +    Int32 ->                                -- initial_size : TBasicType TInt32+    CInt ->                                 -- positions_in_pixels : TBasicType TBoolean+    IO (Ptr TabArray)+++tabArrayNew ::+    (MonadIO m) =>+    Int32 ->                                -- initial_size+    Bool ->                                 -- positions_in_pixels+    m TabArray+tabArrayNew initial_size positions_in_pixels = liftIO $ do+    let positions_in_pixels' = (fromIntegral . fromEnum) positions_in_pixels+    result <- pango_tab_array_new initial_size positions_in_pixels'+    checkUnexpectedReturnNULL "pango_tab_array_new" result+    result' <- (wrapBoxed TabArray) result+    return result'++-- method TabArray::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "TabArray"+-- throws : False+-- Skip return : False++foreign import ccall "pango_tab_array_copy" pango_tab_array_copy :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    IO (Ptr TabArray)+++tabArrayCopy ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    m TabArray+tabArrayCopy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_tab_array_copy _obj'+    checkUnexpectedReturnNULL "pango_tab_array_copy" result+    result' <- (wrapBoxed TabArray) result+    touchManagedPtr _obj+    return result'++-- method TabArray::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_tab_array_free" pango_tab_array_free :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    IO ()+++tabArrayFree ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    m ()+tabArrayFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_tab_array_free _obj'+    touchManagedPtr _obj+    return ()++-- method TabArray::get_positions_in_pixels+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_tab_array_get_positions_in_pixels" pango_tab_array_get_positions_in_pixels :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    IO CInt+++tabArrayGetPositionsInPixels ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    m Bool+tabArrayGetPositionsInPixels _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_tab_array_get_positions_in_pixels _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method TabArray::get_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_tab_array_get_size" pango_tab_array_get_size :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    IO Int32+++tabArrayGetSize ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    m Int32+tabArrayGetSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- pango_tab_array_get_size _obj'+    touchManagedPtr _obj+    return result++-- method TabArray::get_tab+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "location", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", 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 "pango_tab_array_get_tab" pango_tab_array_get_tab :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    Int32 ->                                -- tab_index : TBasicType TInt32+    Ptr CUInt ->                            -- alignment : TInterface "Pango" "TabAlign"+    Ptr Int32 ->                            -- location : TBasicType TInt32+    IO ()+++tabArrayGetTab ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    Int32 ->                                -- tab_index+    m (TabAlign,Int32)+tabArrayGetTab _obj tab_index = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    alignment <- allocMem :: IO (Ptr CUInt)+    location <- allocMem :: IO (Ptr Int32)+    pango_tab_array_get_tab _obj' tab_index alignment location+    alignment' <- peek alignment+    let alignment'' = (toEnum . fromIntegral) alignment'+    location' <- peek location+    touchManagedPtr _obj+    freeMem alignment+    freeMem location+    return (alignment'', location')++-- method TabArray::get_tabs+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignments", argType = TInterface "Pango" "TabAlign", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "locations", argType = TCArray False (-1) (-1) (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_tab_array_get_tabs" pango_tab_array_get_tabs :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    Ptr CUInt ->                            -- alignments : TInterface "Pango" "TabAlign"+    Ptr (Ptr Int32) ->                      -- locations : TCArray False (-1) (-1) (TBasicType TInt32)+    IO ()+++tabArrayGetTabs ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    m (TabAlign,(Ptr Int32))+tabArrayGetTabs _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    alignments <- allocMem :: IO (Ptr CUInt)+    locations <- allocMem :: IO (Ptr (Ptr Int32))+    pango_tab_array_get_tabs _obj' alignments locations+    alignments' <- peek alignments+    let alignments'' = (toEnum . fromIntegral) alignments'+    locations' <- peek locations+    touchManagedPtr _obj+    freeMem alignments+    freeMem locations+    return (alignments'', locations')++-- method TabArray::resize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_size", 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 "pango_tab_array_resize" pango_tab_array_resize :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    Int32 ->                                -- new_size : TBasicType TInt32+    IO ()+++tabArrayResize ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    Int32 ->                                -- new_size+    m ()+tabArrayResize _obj new_size = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    pango_tab_array_resize _obj' new_size+    touchManagedPtr _obj+    return ()++-- method TabArray::set_tab+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", 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 "pango_tab_array_set_tab" pango_tab_array_set_tab :: +    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"+    Int32 ->                                -- tab_index : TBasicType TInt32+    CUInt ->                                -- alignment : TInterface "Pango" "TabAlign"+    Int32 ->                                -- location : TBasicType TInt32+    IO ()+++tabArraySetTab ::+    (MonadIO m) =>+    TabArray ->                             -- _obj+    Int32 ->                                -- tab_index+    TabAlign ->                             -- alignment+    Int32 ->                                -- location+    m ()+tabArraySetTab _obj tab_index alignment location = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let alignment' = (fromIntegral . fromEnum) alignment+    pango_tab_array_set_tab _obj' tab_index alignment' location+    touchManagedPtr _obj+    return ()++-- Enum Underline++data Underline = +      UnderlineNone+    | UnderlineSingle+    | UnderlineDouble+    | UnderlineLow+    | UnderlineError+    | AnotherUnderline Int+    deriving (Show, Eq)++instance Enum Underline where+    fromEnum UnderlineNone = 0+    fromEnum UnderlineSingle = 1+    fromEnum UnderlineDouble = 2+    fromEnum UnderlineLow = 3+    fromEnum UnderlineError = 4+    fromEnum (AnotherUnderline k) = k++    toEnum 0 = UnderlineNone+    toEnum 1 = UnderlineSingle+    toEnum 2 = UnderlineDouble+    toEnum 3 = UnderlineLow+    toEnum 4 = UnderlineError+    toEnum k = AnotherUnderline k++foreign import ccall "pango_underline_get_type" c_pango_underline_get_type :: +    IO GType++instance BoxedEnum Underline where+    boxedEnumType _ = c_pango_underline_get_type++-- Enum Variant++data Variant = +      VariantNormal+    | VariantSmallCaps+    | AnotherVariant Int+    deriving (Show, Eq)++instance Enum Variant where+    fromEnum VariantNormal = 0+    fromEnum VariantSmallCaps = 1+    fromEnum (AnotherVariant k) = k++    toEnum 0 = VariantNormal+    toEnum 1 = VariantSmallCaps+    toEnum k = AnotherVariant k++foreign import ccall "pango_variant_get_type" c_pango_variant_get_type :: +    IO GType++instance BoxedEnum Variant where+    boxedEnumType _ = c_pango_variant_get_type++-- Enum Weight++data Weight = +      WeightThin+    | WeightUltralight+    | WeightLight+    | WeightSemilight+    | WeightBook+    | WeightNormal+    | WeightMedium+    | WeightSemibold+    | WeightBold+    | WeightUltrabold+    | WeightHeavy+    | WeightUltraheavy+    | AnotherWeight Int+    deriving (Show, Eq)++instance Enum Weight where+    fromEnum WeightThin = 100+    fromEnum WeightUltralight = 200+    fromEnum WeightLight = 300+    fromEnum WeightSemilight = 350+    fromEnum WeightBook = 380+    fromEnum WeightNormal = 400+    fromEnum WeightMedium = 500+    fromEnum WeightSemibold = 600+    fromEnum WeightBold = 700+    fromEnum WeightUltrabold = 800+    fromEnum WeightHeavy = 900+    fromEnum WeightUltraheavy = 1000+    fromEnum (AnotherWeight k) = k++    toEnum 100 = WeightThin+    toEnum 200 = WeightUltralight+    toEnum 300 = WeightLight+    toEnum 350 = WeightSemilight+    toEnum 380 = WeightBook+    toEnum 400 = WeightNormal+    toEnum 500 = WeightMedium+    toEnum 600 = WeightSemibold+    toEnum 700 = WeightBold+    toEnum 800 = WeightUltrabold+    toEnum 900 = WeightHeavy+    toEnum 1000 = WeightUltraheavy+    toEnum k = AnotherWeight k++foreign import ccall "pango_weight_get_type" c_pango_weight_get_type :: +    IO GType++instance BoxedEnum Weight where+    boxedEnumType _ = c_pango_weight_get_type++-- Enum WrapMode++data WrapMode = +      WrapModeWord+    | WrapModeChar+    | WrapModeWordChar+    | AnotherWrapMode Int+    deriving (Show, Eq)++instance Enum WrapMode where+    fromEnum WrapModeWord = 0+    fromEnum WrapModeChar = 1+    fromEnum WrapModeWordChar = 2+    fromEnum (AnotherWrapMode k) = k++    toEnum 0 = WrapModeWord+    toEnum 1 = WrapModeChar+    toEnum 2 = WrapModeWordChar+    toEnum k = AnotherWrapMode k++foreign import ccall "pango_wrap_mode_get_type" c_pango_wrap_mode_get_type :: +    IO GType++instance BoxedEnum WrapMode where+    boxedEnumType _ = c_pango_wrap_mode_get_type++-- constant _ANALYSIS_FLAG_CENTERED_BASELINE++_ANALYSIS_FLAG_CENTERED_BASELINE :: Int32+_ANALYSIS_FLAG_CENTERED_BASELINE = 1+-- constant _ANALYSIS_FLAG_IS_ELLIPSIS++_ANALYSIS_FLAG_IS_ELLIPSIS :: Int32+_ANALYSIS_FLAG_IS_ELLIPSIS = 2+-- constant _ATTR_INDEX_FROM_TEXT_BEGINNING++_ATTR_INDEX_FROM_TEXT_BEGINNING :: Int32+_ATTR_INDEX_FROM_TEXT_BEGINNING = 0+-- constant _ENGINE_TYPE_LANG+{-# DEPRECATED _ENGINE_TYPE_LANG ["(Since version 1.38)"]#-}+_ENGINE_TYPE_LANG :: T.Text+_ENGINE_TYPE_LANG = "PangoEngineLang"+-- constant _ENGINE_TYPE_SHAPE+{-# DEPRECATED _ENGINE_TYPE_SHAPE ["(Since version 1.38)"]#-}+_ENGINE_TYPE_SHAPE :: T.Text+_ENGINE_TYPE_SHAPE = "PangoEngineShape"+-- constant _GLYPH_EMPTY++_GLYPH_EMPTY :: Word32+_GLYPH_EMPTY = 268435455+-- constant _GLYPH_INVALID_INPUT++_GLYPH_INVALID_INPUT :: Word32+_GLYPH_INVALID_INPUT = 4294967295+-- constant _GLYPH_UNKNOWN_FLAG++_GLYPH_UNKNOWN_FLAG :: Word32+_GLYPH_UNKNOWN_FLAG = 268435456+-- constant _RENDER_TYPE_NONE+{-# DEPRECATED _RENDER_TYPE_NONE ["(Since version 1.38)"]#-}+_RENDER_TYPE_NONE :: T.Text+_RENDER_TYPE_NONE = "PangoRenderNone"+-- constant _SCALE++_SCALE :: Int32+_SCALE = 1024+-- constant _UNKNOWN_GLYPH_HEIGHT++_UNKNOWN_GLYPH_HEIGHT :: Int32+_UNKNOWN_GLYPH_HEIGHT = 14+-- constant _UNKNOWN_GLYPH_WIDTH++_UNKNOWN_GLYPH_WIDTH :: Int32+_UNKNOWN_GLYPH_WIDTH = 10+-- function pango_attr_type_get_name+-- Args : [Arg {argName = "type", argType = TInterface "Pango" "AttrType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TInterface "Pango" "AttrType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_type_get_name" pango_attr_type_get_name :: +    CUInt ->                                -- type : TInterface "Pango" "AttrType"+    IO CString+++attrTypeGetName ::+    (MonadIO m) =>+    AttrType ->                             -- type+    m T.Text+attrTypeGetName type_ = liftIO $ do+    let type_' = (fromIntegral . fromEnum) type_+    result <- pango_attr_type_get_name type_'+    checkUnexpectedReturnNULL "pango_attr_type_get_name" result+    result' <- cstringToText result+    return result'++-- function pango_attr_type_register+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "AttrType"+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_type_register" pango_attr_type_register :: +    CString ->                              -- name : TBasicType TUTF8+    IO CUInt+++attrTypeRegister ::+    (MonadIO m) =>+    T.Text ->                               -- name+    m AttrType+attrTypeRegister name = liftIO $ do+    name' <- textToCString name+    result <- pango_attr_type_register name'+    let result' = (toEnum . fromIntegral) result+    freeMem name'+    return result'++-- function pango_bidi_type_for_unichar+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "BidiType"+-- throws : False+-- Skip return : False++foreign import ccall "pango_bidi_type_for_unichar" pango_bidi_type_for_unichar :: +    CInt ->                                 -- ch : TBasicType TUniChar+    IO CUInt+++bidiTypeForUnichar ::+    (MonadIO m) =>+    Char ->                                 -- ch+    m BidiType+bidiTypeForUnichar ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    result <- pango_bidi_type_for_unichar ch'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function pango_break+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TCArray False (-1) 4 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TCArray False (-1) 4 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_break" pango_break :: +    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"+    Ptr LogAttr ->                          -- attrs : TCArray False (-1) 4 (TInterface "Pango" "LogAttr")+    Int32 ->                                -- attrs_len : TBasicType TInt32+    IO ()+++break ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int32 ->                                -- length+    Analysis ->                             -- analysis+    [LogAttr] ->                            -- attrs+    m ()+break text length_ analysis attrs = liftIO $ do+    let attrs_len = fromIntegral $ length attrs+    text' <- textToCString text+    let analysis' = unsafeManagedPtrGetPtr analysis+    let attrs' = map unsafeManagedPtrGetPtr attrs+    attrs'' <- packBlockArray 52 attrs'+    pango_break text' length_ analysis' attrs'' attrs_len+    touchManagedPtr analysis+    mapM_ touchManagedPtr attrs+    freeMem text'+    freeMem attrs''+    return ()++-- function pango_config_key_get+-- Args : [Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [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 "pango_config_key_get" pango_config_key_get :: +    CString ->                              -- key : TBasicType TUTF8+    IO CString++{-# DEPRECATED configKeyGet ["(Since version 1.38)"]#-}+configKeyGet ::+    (MonadIO m) =>+    T.Text ->                               -- key+    m T.Text+configKeyGet key = liftIO $ do+    key' <- textToCString key+    result <- pango_config_key_get key'+    checkUnexpectedReturnNULL "pango_config_key_get" result+    result' <- cstringToText result+    freeMem result+    freeMem key'+    return result'++-- function pango_config_key_get_system+-- Args : [Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [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 "pango_config_key_get_system" pango_config_key_get_system :: +    CString ->                              -- key : TBasicType TUTF8+    IO CString++{-# DEPRECATED configKeyGetSystem ["(Since version 1.38)"]#-}+configKeyGetSystem ::+    (MonadIO m) =>+    T.Text ->                               -- key+    m T.Text+configKeyGetSystem key = liftIO $ do+    key' <- textToCString key+    result <- pango_config_key_get_system key'+    checkUnexpectedReturnNULL "pango_config_key_get_system" result+    result' <- cstringToText result+    freeMem result+    freeMem key'+    return result'++-- function pango_default_break+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "LogAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "LogAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", 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 "pango_default_break" pango_default_break :: +    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"+    Ptr LogAttr ->                          -- attrs : TInterface "Pango" "LogAttr"+    Int32 ->                                -- attrs_len : TBasicType TInt32+    IO ()+++defaultBreak ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int32 ->                                -- length+    Maybe (Analysis) ->                     -- analysis+    LogAttr ->                              -- attrs+    Int32 ->                                -- attrs_len+    m ()+defaultBreak text length_ analysis attrs attrs_len = liftIO $ do+    text' <- textToCString text+    maybeAnalysis <- case analysis of+        Nothing -> return nullPtr+        Just jAnalysis -> do+            let jAnalysis' = unsafeManagedPtrGetPtr jAnalysis+            return jAnalysis'+    let attrs' = unsafeManagedPtrGetPtr attrs+    pango_default_break text' length_ maybeAnalysis attrs' attrs_len+    whenJust analysis touchManagedPtr+    touchManagedPtr attrs+    freeMem text'+    return ()++-- function pango_extents_to_pixels+-- Args : [Arg {argName = "inclusive", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nearest", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "inclusive", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nearest", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_extents_to_pixels" pango_extents_to_pixels :: +    Ptr Rectangle ->                        -- inclusive : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- nearest : TInterface "Pango" "Rectangle"+    IO ()+++extentsToPixels ::+    (MonadIO m) =>+    Maybe (Rectangle) ->                    -- inclusive+    Maybe (Rectangle) ->                    -- nearest+    m ()+extentsToPixels inclusive nearest = liftIO $ do+    maybeInclusive <- case inclusive of+        Nothing -> return nullPtr+        Just jInclusive -> do+            let jInclusive' = unsafeManagedPtrGetPtr jInclusive+            return jInclusive'+    maybeNearest <- case nearest of+        Nothing -> return nullPtr+        Just jNearest -> do+            let jNearest' = unsafeManagedPtrGetPtr jNearest+            return jNearest'+    pango_extents_to_pixels maybeInclusive maybeNearest+    whenJust inclusive touchManagedPtr+    whenJust nearest touchManagedPtr+    return ()++-- function pango_find_base_dir+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Direction"+-- throws : False+-- Skip return : False++foreign import ccall "pango_find_base_dir" pango_find_base_dir :: +    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    IO CUInt+++findBaseDir ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int32 ->                                -- length+    m Direction+findBaseDir text length_ = liftIO $ do+    text' <- textToCString text+    result <- pango_find_base_dir text' length_+    let result' = (toEnum . fromIntegral) result+    freeMem text'+    return result'++-- function pango_find_paragraph_boundary+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_delimiter_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "next_paragraph_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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 "pango_find_paragraph_boundary" pango_find_paragraph_boundary :: +    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Ptr Int32 ->                            -- paragraph_delimiter_index : TBasicType TInt32+    Ptr Int32 ->                            -- next_paragraph_start : TBasicType TInt32+    IO ()+++findParagraphBoundary ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int32 ->                                -- length+    m (Int32,Int32)+findParagraphBoundary text length_ = liftIO $ do+    text' <- textToCString text+    paragraph_delimiter_index <- allocMem :: IO (Ptr Int32)+    next_paragraph_start <- allocMem :: IO (Ptr Int32)+    pango_find_paragraph_boundary text' length_ paragraph_delimiter_index next_paragraph_start+    paragraph_delimiter_index' <- peek paragraph_delimiter_index+    next_paragraph_start' <- peek next_paragraph_start+    freeMem text'+    freeMem paragraph_delimiter_index+    freeMem next_paragraph_start+    return (paragraph_delimiter_index', next_paragraph_start')++-- function pango_font_description_from_string+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "FontDescription"+-- throws : False+-- Skip return : False++foreign import ccall "pango_font_description_from_string" pango_font_description_from_string :: +    CString ->                              -- str : TBasicType TUTF8+    IO (Ptr FontDescription)+++fontDescriptionFromString ::+    (MonadIO m) =>+    T.Text ->                               -- str+    m FontDescription+fontDescriptionFromString str = liftIO $ do+    str' <- textToCString str+    result <- pango_font_description_from_string str'+    checkUnexpectedReturnNULL "pango_font_description_from_string" result+    result' <- (wrapBoxed FontDescription) result+    freeMem str'+    return result'++-- function pango_get_lib_subdirectory+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_get_lib_subdirectory" pango_get_lib_subdirectory :: +    IO CString++{-# DEPRECATED getLibSubdirectory ["(Since version 1.38)"]#-}+getLibSubdirectory ::+    (MonadIO m) =>+    m T.Text+getLibSubdirectory  = liftIO $ do+    result <- pango_get_lib_subdirectory+    checkUnexpectedReturnNULL "pango_get_lib_subdirectory" result+    result' <- cstringToText result+    return result'++-- function pango_get_log_attrs+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) 5 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) 5 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_get_log_attrs" pango_get_log_attrs :: +    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- level : TBasicType TInt32+    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    Ptr LogAttr ->                          -- log_attrs : TCArray False (-1) 5 (TInterface "Pango" "LogAttr")+    Int32 ->                                -- attrs_len : TBasicType TInt32+    IO ()+++getLogAttrs ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int32 ->                                -- length+    Int32 ->                                -- level+    Language ->                             -- language+    [LogAttr] ->                            -- log_attrs+    m ()+getLogAttrs text length_ level language log_attrs = liftIO $ do+    let attrs_len = fromIntegral $ length log_attrs+    text' <- textToCString text+    let language' = unsafeManagedPtrGetPtr language+    let log_attrs' = map unsafeManagedPtrGetPtr log_attrs+    log_attrs'' <- packBlockArray 52 log_attrs'+    pango_get_log_attrs text' length_ level language' log_attrs'' attrs_len+    touchManagedPtr language+    mapM_ touchManagedPtr log_attrs+    freeMem text'+    freeMem log_attrs''+    return ()++-- function pango_get_mirror_char+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_get_mirror_char" pango_get_mirror_char :: +    CInt ->                                 -- ch : TBasicType TUniChar+    CInt ->                                 -- mirrored_ch : TBasicType TUniChar+    IO CInt+++getMirrorChar ::+    (MonadIO m) =>+    Char ->                                 -- ch+    Char ->                                 -- mirrored_ch+    m Bool+getMirrorChar ch mirrored_ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    let mirrored_ch' = (fromIntegral . ord) mirrored_ch+    result <- pango_get_mirror_char ch' mirrored_ch'+    let result' = (/= 0) result+    return result'++-- function pango_get_sysconf_subdirectory+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_get_sysconf_subdirectory" pango_get_sysconf_subdirectory :: +    IO CString++{-# DEPRECATED getSysconfSubdirectory ["(Since version 1.38)"]#-}+getSysconfSubdirectory ::+    (MonadIO m) =>+    m T.Text+getSysconfSubdirectory  = liftIO $ do+    result <- pango_get_sysconf_subdirectory+    checkUnexpectedReturnNULL "pango_get_sysconf_subdirectory" result+    result' <- cstringToText result+    return result'++-- function pango_gravity_get_for_matrix+-- Args : [Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Gravity"+-- throws : False+-- Skip return : False++foreign import ccall "pango_gravity_get_for_matrix" pango_gravity_get_for_matrix :: +    Ptr Matrix ->                           -- matrix : TInterface "Pango" "Matrix"+    IO CUInt+++gravityGetForMatrix ::+    (MonadIO m) =>+    Maybe (Matrix) ->                       -- matrix+    m Gravity+gravityGetForMatrix matrix = liftIO $ do+    maybeMatrix <- case matrix of+        Nothing -> return nullPtr+        Just jMatrix -> do+            let jMatrix' = unsafeManagedPtrGetPtr jMatrix+            return jMatrix'+    result <- pango_gravity_get_for_matrix maybeMatrix+    let result' = (toEnum . fromIntegral) result+    whenJust matrix touchManagedPtr+    return result'++-- function pango_gravity_get_for_script+-- Args : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Gravity"+-- throws : False+-- Skip return : False++foreign import ccall "pango_gravity_get_for_script" pango_gravity_get_for_script :: +    CUInt ->                                -- script : TInterface "Pango" "Script"+    CUInt ->                                -- base_gravity : TInterface "Pango" "Gravity"+    CUInt ->                                -- hint : TInterface "Pango" "GravityHint"+    IO CUInt+++gravityGetForScript ::+    (MonadIO m) =>+    Script ->                               -- script+    Gravity ->                              -- base_gravity+    GravityHint ->                          -- hint+    m Gravity+gravityGetForScript script base_gravity hint = liftIO $ do+    let script' = (fromIntegral . fromEnum) script+    let base_gravity' = (fromIntegral . fromEnum) base_gravity+    let hint' = (fromIntegral . fromEnum) hint+    result <- pango_gravity_get_for_script script' base_gravity' hint'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function pango_gravity_get_for_script_and_width+-- Args : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Gravity"+-- throws : False+-- Skip return : False++foreign import ccall "pango_gravity_get_for_script_and_width" pango_gravity_get_for_script_and_width :: +    CUInt ->                                -- script : TInterface "Pango" "Script"+    CInt ->                                 -- wide : TBasicType TBoolean+    CUInt ->                                -- base_gravity : TInterface "Pango" "Gravity"+    CUInt ->                                -- hint : TInterface "Pango" "GravityHint"+    IO CUInt+++gravityGetForScriptAndWidth ::+    (MonadIO m) =>+    Script ->                               -- script+    Bool ->                                 -- wide+    Gravity ->                              -- base_gravity+    GravityHint ->                          -- hint+    m Gravity+gravityGetForScriptAndWidth script wide base_gravity hint = liftIO $ do+    let script' = (fromIntegral . fromEnum) script+    let wide' = (fromIntegral . fromEnum) wide+    let base_gravity' = (fromIntegral . fromEnum) base_gravity+    let hint' = (fromIntegral . fromEnum) hint+    result <- pango_gravity_get_for_script_and_width script' wide' base_gravity' hint'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function pango_gravity_to_rotation+-- Args : [Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "pango_gravity_to_rotation" pango_gravity_to_rotation :: +    CUInt ->                                -- gravity : TInterface "Pango" "Gravity"+    IO CDouble+++gravityToRotation ::+    (MonadIO m) =>+    Gravity ->                              -- gravity+    m Double+gravityToRotation gravity = liftIO $ do+    let gravity' = (fromIntegral . fromEnum) gravity+    result <- pango_gravity_to_rotation gravity'+    let result' = realToFrac result+    return result'++-- function pango_is_zero_width+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_is_zero_width" pango_is_zero_width :: +    CInt ->                                 -- ch : TBasicType TUniChar+    IO CInt+++isZeroWidth ::+    (MonadIO m) =>+    Char ->                                 -- ch+    m Bool+isZeroWidth ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    result <- pango_is_zero_width ch'+    let result' = (/= 0) result+    return result'++-- function pango_itemize+-- Args : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGList (TInterface "Pango" "Item")+-- throws : False+-- Skip return : False++foreign import ccall "pango_itemize" pango_itemize :: +    Ptr Context ->                          -- context : TInterface "Pango" "Context"+    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- start_index : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt32+    Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"+    Ptr AttrIterator ->                     -- cached_iter : TInterface "Pango" "AttrIterator"+    IO (Ptr (GList (Ptr Item)))+++itemize ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- context+    T.Text ->                               -- text+    Int32 ->                                -- start_index+    Int32 ->                                -- length+    AttrList ->                             -- attrs+    Maybe (AttrIterator) ->                 -- cached_iter+    m [Item]+itemize context text start_index length_ attrs cached_iter = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    text' <- textToCString text+    let attrs' = unsafeManagedPtrGetPtr attrs+    maybeCached_iter <- case cached_iter of+        Nothing -> return nullPtr+        Just jCached_iter -> do+            let jCached_iter' = unsafeManagedPtrGetPtr jCached_iter+            return jCached_iter'+    result <- pango_itemize context' text' start_index length_ attrs' maybeCached_iter+    checkUnexpectedReturnNULL "pango_itemize" result+    result' <- unpackGList result+    result'' <- mapM (wrapBoxed Item) result'+    g_list_free result+    touchManagedPtr context+    touchManagedPtr attrs+    whenJust cached_iter touchManagedPtr+    freeMem text'+    return result''++-- function pango_itemize_with_base_dir+-- Args : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGList (TInterface "Pango" "Item")+-- throws : False+-- Skip return : False++foreign import ccall "pango_itemize_with_base_dir" pango_itemize_with_base_dir :: +    Ptr Context ->                          -- context : TInterface "Pango" "Context"+    CUInt ->                                -- base_dir : TInterface "Pango" "Direction"+    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- start_index : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt32+    Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"+    Ptr AttrIterator ->                     -- cached_iter : TInterface "Pango" "AttrIterator"+    IO (Ptr (GList (Ptr Item)))+++itemizeWithBaseDir ::+    (MonadIO m, ContextK a) =>+    a ->                                    -- context+    Direction ->                            -- base_dir+    T.Text ->                               -- text+    Int32 ->                                -- start_index+    Int32 ->                                -- length+    AttrList ->                             -- attrs+    Maybe (AttrIterator) ->                 -- cached_iter+    m [Item]+itemizeWithBaseDir context base_dir text start_index length_ attrs cached_iter = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let base_dir' = (fromIntegral . fromEnum) base_dir+    text' <- textToCString text+    let attrs' = unsafeManagedPtrGetPtr attrs+    maybeCached_iter <- case cached_iter of+        Nothing -> return nullPtr+        Just jCached_iter -> do+            let jCached_iter' = unsafeManagedPtrGetPtr jCached_iter+            return jCached_iter'+    result <- pango_itemize_with_base_dir context' base_dir' text' start_index length_ attrs' maybeCached_iter+    checkUnexpectedReturnNULL "pango_itemize_with_base_dir" result+    result' <- unpackGList result+    result'' <- mapM (wrapBoxed Item) result'+    g_list_free result+    touchManagedPtr context+    touchManagedPtr attrs+    whenJust cached_iter touchManagedPtr+    freeMem text'+    return result''++-- function pango_language_from_string+-- Args : [Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Language"+-- throws : False+-- Skip return : False++foreign import ccall "pango_language_from_string" pango_language_from_string :: +    CString ->                              -- language : TBasicType TUTF8+    IO (Ptr Language)+++languageFromString ::+    (MonadIO m) =>+    Maybe (T.Text) ->                       -- language+    m Language+languageFromString language = liftIO $ do+    maybeLanguage <- case language of+        Nothing -> return nullPtr+        Just jLanguage -> do+            jLanguage' <- textToCString jLanguage+            return jLanguage'+    result <- pango_language_from_string maybeLanguage+    checkUnexpectedReturnNULL "pango_language_from_string" result+    result' <- (newBoxed Language) result+    freeMem maybeLanguage+    return result'++-- function pango_language_get_default+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Pango" "Language"+-- throws : False+-- Skip return : False++foreign import ccall "pango_language_get_default" pango_language_get_default :: +    IO (Ptr Language)+++languageGetDefault ::+    (MonadIO m) =>+    m Language+languageGetDefault  = liftIO $ do+    result <- pango_language_get_default+    checkUnexpectedReturnNULL "pango_language_get_default" result+    result' <- (newBoxed Language) result+    return result'++-- function pango_log2vis_get_embedding_levels+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pbase_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pbase_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt8+-- throws : False+-- Skip return : False++foreign import ccall "pango_log2vis_get_embedding_levels" pango_log2vis_get_embedding_levels :: +    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    CUInt ->                                -- pbase_dir : TInterface "Pango" "Direction"+    IO Word8+++log2visGetEmbeddingLevels ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int32 ->                                -- length+    Direction ->                            -- pbase_dir+    m Word8+log2visGetEmbeddingLevels text length_ pbase_dir = liftIO $ do+    text' <- textToCString text+    let pbase_dir' = (fromIntegral . fromEnum) pbase_dir+    result <- pango_log2vis_get_embedding_levels text' length_ pbase_dir'+    freeMem text'+    return result++-- function pango_lookup_aliases+-- Args : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "families", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_lookup_aliases" pango_lookup_aliases :: +    CString ->                              -- fontname : TBasicType TUTF8+    Ptr (Ptr CString) ->                    -- families : TCArray False (-1) 2 (TBasicType TUTF8)+    Ptr Int32 ->                            -- n_families : TBasicType TInt32+    IO ()++{-# DEPRECATED lookupAliases ["(Since version 1.32)","This function is not thread-safe."]#-}+lookupAliases ::+    (MonadIO m) =>+    T.Text ->                               -- fontname+    m ([T.Text])+lookupAliases fontname = liftIO $ do+    fontname' <- textToCString fontname+    families <- allocMem :: IO (Ptr (Ptr CString))+    n_families <- allocMem :: IO (Ptr Int32)+    pango_lookup_aliases fontname' families n_families+    n_families' <- peek n_families+    families' <- peek families+    families'' <- (unpackUTF8CArrayWithLength n_families') families'+    (mapCArrayWithLength n_families') freeMem families'+    freeMem families'+    freeMem fontname'+    freeMem families+    freeMem n_families+    return families''++-- function pango_markup_parser_finish+-- Args : [Arg {argName = "context", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "pango_markup_parser_finish" pango_markup_parser_finish :: +    Ptr GLib.MarkupParseContext ->          -- context : TInterface "GLib" "MarkupParseContext"+    Ptr (Ptr AttrList) ->                   -- attr_list : TInterface "Pango" "AttrList"+    Ptr CString ->                          -- text : TBasicType TUTF8+    Ptr CInt ->                             -- accel_char : TBasicType TUniChar+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++markupParserFinish ::+    (MonadIO m) =>+    GLib.MarkupParseContext ->              -- context+    m (AttrList,T.Text,Char)+markupParserFinish context = liftIO $ do+    let context' = unsafeManagedPtrGetPtr context+    attr_list <- allocMem :: IO (Ptr (Ptr AttrList))+    text <- allocMem :: IO (Ptr CString)+    accel_char <- allocMem :: IO (Ptr CInt)+    onException (do+        _ <- propagateGError $ pango_markup_parser_finish context' attr_list text accel_char+        attr_list' <- peek attr_list+        attr_list'' <- (wrapBoxed AttrList) attr_list'+        text' <- peek text+        text'' <- cstringToText text'+        freeMem text'+        accel_char' <- peek accel_char+        let accel_char'' = (chr . fromIntegral) accel_char'+        touchManagedPtr context+        freeMem attr_list+        freeMem text+        freeMem accel_char+        return (attr_list'', text'', accel_char'')+     ) (do+        freeMem attr_list+        freeMem text+        freeMem accel_char+     )++-- function pango_markup_parser_new+-- Args : [Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "GLib" "MarkupParseContext"+-- throws : False+-- Skip return : False++foreign import ccall "pango_markup_parser_new" pango_markup_parser_new :: +    CInt ->                                 -- accel_marker : TBasicType TUniChar+    IO (Ptr GLib.MarkupParseContext)+++markupParserNew ::+    (MonadIO m) =>+    Char ->                                 -- accel_marker+    m GLib.MarkupParseContext+markupParserNew accel_marker = liftIO $ do+    let accel_marker' = (fromIntegral . ord) accel_marker+    result <- pango_markup_parser_new accel_marker'+    checkUnexpectedReturnNULL "pango_markup_parser_new" result+    result' <- (newBoxed GLib.MarkupParseContext) result+    return result'++-- function pango_module_register+-- Args : [Arg {argName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_module_register" pango_module_register :: +    Ptr IncludedModule ->                   -- module : TInterface "Pango" "IncludedModule"+    IO ()++{-# DEPRECATED moduleRegister ["(Since version 1.38)"]#-}+moduleRegister ::+    (MonadIO m) =>+    IncludedModule ->                       -- module+    m ()+moduleRegister module_ = liftIO $ do+    let module_' = unsafeManagedPtrGetPtr module_+    pango_module_register module_'+    touchManagedPtr module_+    return ()++-- function pango_parse_enum+-- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_values", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_parse_enum" pango_parse_enum :: +    CGType ->                               -- type : TBasicType TGType+    CString ->                              -- str : TBasicType TUTF8+    Ptr Int32 ->                            -- value : TBasicType TInt32+    CInt ->                                 -- warn : TBasicType TBoolean+    Ptr CString ->                          -- possible_values : TBasicType TUTF8+    IO CInt++{-# DEPRECATED parseEnum ["(Since version 1.38)"]#-}+parseEnum ::+    (MonadIO m) =>+    GType ->                                -- type+    Maybe (T.Text) ->                       -- str+    Bool ->                                 -- warn+    m (Bool,Int32,T.Text)+parseEnum type_ str warn = liftIO $ do+    let type_' = gtypeToCGType type_+    maybeStr <- case str of+        Nothing -> return nullPtr+        Just jStr -> do+            jStr' <- textToCString jStr+            return jStr'+    value <- allocMem :: IO (Ptr Int32)+    let warn' = (fromIntegral . fromEnum) warn+    possible_values <- allocMem :: IO (Ptr CString)+    result <- pango_parse_enum type_' maybeStr value warn' possible_values+    let result' = (/= 0) result+    value' <- peek value+    possible_values' <- peek possible_values+    possible_values'' <- cstringToText possible_values'+    freeMem possible_values'+    freeMem maybeStr+    freeMem value+    freeMem possible_values+    return (result', value', possible_values'')++-- function pango_parse_markup+-- Args : [Arg {argName = "markup_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "markup_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : True+-- Skip return : False++foreign import ccall "pango_parse_markup" pango_parse_markup :: +    CString ->                              -- markup_text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    CInt ->                                 -- accel_marker : TBasicType TUniChar+    Ptr (Ptr AttrList) ->                   -- attr_list : TInterface "Pango" "AttrList"+    Ptr CString ->                          -- text : TBasicType TUTF8+    Ptr CInt ->                             -- accel_char : TBasicType TUniChar+    Ptr (Ptr GError) ->                     -- error+    IO CInt+++parseMarkup ::+    (MonadIO m) =>+    T.Text ->                               -- markup_text+    Int32 ->                                -- length+    Char ->                                 -- accel_marker+    m (AttrList,T.Text,Char)+parseMarkup markup_text length_ accel_marker = liftIO $ do+    markup_text' <- textToCString markup_text+    let accel_marker' = (fromIntegral . ord) accel_marker+    attr_list <- allocMem :: IO (Ptr (Ptr AttrList))+    text <- allocMem :: IO (Ptr CString)+    accel_char <- allocMem :: IO (Ptr CInt)+    onException (do+        _ <- propagateGError $ pango_parse_markup markup_text' length_ accel_marker' attr_list text accel_char+        attr_list' <- peek attr_list+        attr_list'' <- (wrapBoxed AttrList) attr_list'+        text' <- peek text+        text'' <- cstringToText text'+        freeMem text'+        accel_char' <- peek accel_char+        let accel_char'' = (chr . fromIntegral) accel_char'+        freeMem markup_text'+        freeMem attr_list+        freeMem text+        freeMem accel_char+        return (attr_list'', text'', accel_char'')+     ) (do+        freeMem markup_text'+        freeMem attr_list+        freeMem text+        freeMem accel_char+     )++-- function pango_parse_stretch+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_parse_stretch" pango_parse_stretch :: +    CString ->                              -- str : TBasicType TUTF8+    Ptr CUInt ->                            -- stretch : TInterface "Pango" "Stretch"+    CInt ->                                 -- warn : TBasicType TBoolean+    IO CInt+++parseStretch ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Bool ->                                 -- warn+    m (Bool,Stretch)+parseStretch str warn = liftIO $ do+    str' <- textToCString str+    stretch <- allocMem :: IO (Ptr CUInt)+    let warn' = (fromIntegral . fromEnum) warn+    result <- pango_parse_stretch str' stretch warn'+    let result' = (/= 0) result+    stretch' <- peek stretch+    let stretch'' = (toEnum . fromIntegral) stretch'+    freeMem str'+    freeMem stretch+    return (result', stretch'')++-- function pango_parse_style+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Pango" "Style", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_parse_style" pango_parse_style :: +    CString ->                              -- str : TBasicType TUTF8+    Ptr CUInt ->                            -- style : TInterface "Pango" "Style"+    CInt ->                                 -- warn : TBasicType TBoolean+    IO CInt+++parseStyle ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Bool ->                                 -- warn+    m (Bool,Style)+parseStyle str warn = liftIO $ do+    str' <- textToCString str+    style <- allocMem :: IO (Ptr CUInt)+    let warn' = (fromIntegral . fromEnum) warn+    result <- pango_parse_style str' style warn'+    let result' = (/= 0) result+    style' <- peek style+    let style'' = (toEnum . fromIntegral) style'+    freeMem str'+    freeMem style+    return (result', style'')++-- function pango_parse_variant+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_parse_variant" pango_parse_variant :: +    CString ->                              -- str : TBasicType TUTF8+    Ptr CUInt ->                            -- variant : TInterface "Pango" "Variant"+    CInt ->                                 -- warn : TBasicType TBoolean+    IO CInt+++parseVariant ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Bool ->                                 -- warn+    m (Bool,Variant)+parseVariant str warn = liftIO $ do+    str' <- textToCString str+    variant <- allocMem :: IO (Ptr CUInt)+    let warn' = (fromIntegral . fromEnum) warn+    result <- pango_parse_variant str' variant warn'+    let result' = (/= 0) result+    variant' <- peek variant+    let variant'' = (toEnum . fromIntegral) variant'+    freeMem str'+    freeMem variant+    return (result', variant'')++-- function pango_parse_weight+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_parse_weight" pango_parse_weight :: +    CString ->                              -- str : TBasicType TUTF8+    Ptr CUInt ->                            -- weight : TInterface "Pango" "Weight"+    CInt ->                                 -- warn : TBasicType TBoolean+    IO CInt+++parseWeight ::+    (MonadIO m) =>+    T.Text ->                               -- str+    Bool ->                                 -- warn+    m (Bool,Weight)+parseWeight str warn = liftIO $ do+    str' <- textToCString str+    weight <- allocMem :: IO (Ptr CUInt)+    let warn' = (fromIntegral . fromEnum) warn+    result <- pango_parse_weight str' weight warn'+    let result' = (/= 0) result+    weight' <- peek weight+    let weight'' = (toEnum . fromIntegral) weight'+    freeMem str'+    freeMem weight+    return (result', weight'')++-- function pango_quantize_line_geometry+-- Args : [Arg {argName = "thickness", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "thickness", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_quantize_line_geometry" pango_quantize_line_geometry :: +    Ptr Int32 ->                            -- thickness : TBasicType TInt32+    Ptr Int32 ->                            -- position : TBasicType TInt32+    IO ()+++quantizeLineGeometry ::+    (MonadIO m) =>+    Int32 ->                                -- thickness+    Int32 ->                                -- position+    m (Int32,Int32)+quantizeLineGeometry thickness position = liftIO $ do+    thickness' <- allocMem :: IO (Ptr Int32)+    poke thickness' thickness+    position' <- allocMem :: IO (Ptr Int32)+    poke position' position+    pango_quantize_line_geometry thickness' position'+    thickness'' <- peek thickness'+    position'' <- peek position'+    freeMem thickness'+    freeMem position'+    return (thickness'', position'')++-- function pango_read_line+-- Args : [Arg {argName = "stream", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "stream", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_read_line" pango_read_line :: +    Ptr () ->                               -- stream : TBasicType TVoid+    Ptr GLib.String ->                      -- str : TInterface "GLib" "String"+    IO Int32++{-# DEPRECATED readLine ["(Since version 1.38)"]#-}+readLine ::+    (MonadIO m) =>+    Ptr () ->                               -- stream+    m (Int32,GLib.String)+readLine stream = liftIO $ do+    str <- callocBoxedBytes 24 :: IO (Ptr GLib.String)+    result <- pango_read_line stream str+    str' <- (wrapBoxed GLib.String) str+    return (result, str')++-- function pango_reorder_items+-- Args : [Arg {argName = "logical_items", argType = TGList (TInterface "Pango" "Item"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "logical_items", argType = TGList (TInterface "Pango" "Item"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TGList (TInterface "Pango" "Item")+-- throws : False+-- Skip return : False++foreign import ccall "pango_reorder_items" pango_reorder_items :: +    Ptr (GList (Ptr Item)) ->               -- logical_items : TGList (TInterface "Pango" "Item")+    IO (Ptr (GList (Ptr Item)))+++reorderItems ::+    (MonadIO m) =>+    [Item] ->                               -- logical_items+    m [Item]+reorderItems logical_items = liftIO $ do+    let logical_items' = map unsafeManagedPtrGetPtr logical_items+    logical_items'' <- packGList logical_items'+    result <- pango_reorder_items logical_items''+    checkUnexpectedReturnNULL "pango_reorder_items" result+    result' <- unpackGList result+    result'' <- mapM (wrapBoxed Item) result'+    g_list_free result+    mapM_ touchManagedPtr logical_items+    g_list_free logical_items''+    return result''++-- function pango_scan_int+-- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_scan_int" pango_scan_int :: +    Ptr CString ->                          -- pos : TBasicType TUTF8+    Ptr Int32 ->                            -- out : TBasicType TInt32+    IO CInt++{-# DEPRECATED scanInt ["(Since version 1.38)"]#-}+scanInt ::+    (MonadIO m) =>+    T.Text ->                               -- pos+    m (Bool,T.Text,Int32)+scanInt pos = liftIO $ do+    pos' <- textToCString pos+    pos'' <- allocMem :: IO (Ptr CString)+    poke pos'' pos'+    out <- allocMem :: IO (Ptr Int32)+    result <- pango_scan_int pos'' out+    let result' = (/= 0) result+    pos''' <- peek pos''+    pos'''' <- cstringToText pos'''+    freeMem pos'''+    out' <- peek out+    freeMem pos''+    freeMem out+    return (result', pos'''', out')++-- function pango_scan_string+-- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_scan_string" pango_scan_string :: +    Ptr CString ->                          -- pos : TBasicType TUTF8+    Ptr GLib.String ->                      -- out : TInterface "GLib" "String"+    IO CInt++{-# DEPRECATED scanString ["(Since version 1.38)"]#-}+scanString ::+    (MonadIO m) =>+    T.Text ->                               -- pos+    m (Bool,T.Text,GLib.String)+scanString pos = liftIO $ do+    pos' <- textToCString pos+    pos'' <- allocMem :: IO (Ptr CString)+    poke pos'' pos'+    out <- callocBoxedBytes 24 :: IO (Ptr GLib.String)+    result <- pango_scan_string pos'' out+    let result' = (/= 0) result+    pos''' <- peek pos''+    pos'''' <- cstringToText pos'''+    freeMem pos'''+    out' <- (wrapBoxed GLib.String) out+    freeMem pos''+    return (result', pos'''', out')++-- function pango_scan_word+-- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_scan_word" pango_scan_word :: +    Ptr CString ->                          -- pos : TBasicType TUTF8+    Ptr GLib.String ->                      -- out : TInterface "GLib" "String"+    IO CInt++{-# DEPRECATED scanWord ["(Since version 1.38)"]#-}+scanWord ::+    (MonadIO m) =>+    T.Text ->                               -- pos+    m (Bool,T.Text,GLib.String)+scanWord pos = liftIO $ do+    pos' <- textToCString pos+    pos'' <- allocMem :: IO (Ptr CString)+    poke pos'' pos'+    out <- callocBoxedBytes 24 :: IO (Ptr GLib.String)+    result <- pango_scan_word pos'' out+    let result' = (/= 0) result+    pos''' <- peek pos''+    pos'''' <- cstringToText pos'''+    freeMem pos'''+    out' <- (wrapBoxed GLib.String) out+    freeMem pos''+    return (result', pos'''', out')++-- function pango_script_for_unichar+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Script"+-- throws : False+-- Skip return : False++foreign import ccall "pango_script_for_unichar" pango_script_for_unichar :: +    CInt ->                                 -- ch : TBasicType TUniChar+    IO CUInt+++scriptForUnichar ::+    (MonadIO m) =>+    Char ->                                 -- ch+    m Script+scriptForUnichar ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    result <- pango_script_for_unichar ch'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function pango_script_get_sample_language+-- Args : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Language"+-- throws : False+-- Skip return : False++foreign import ccall "pango_script_get_sample_language" pango_script_get_sample_language :: +    CUInt ->                                -- script : TInterface "Pango" "Script"+    IO (Ptr Language)+++scriptGetSampleLanguage ::+    (MonadIO m) =>+    Script ->                               -- script+    m Language+scriptGetSampleLanguage script = liftIO $ do+    let script' = (fromIntegral . fromEnum) script+    result <- pango_script_get_sample_language script'+    checkUnexpectedReturnNULL "pango_script_get_sample_language" result+    result' <- (wrapBoxed Language) result+    return result'++-- function pango_shape+-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_shape" pango_shape :: +    CString ->                              -- text : TBasicType TUTF8+    Int32 ->                                -- length : TBasicType TInt32+    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"+    Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"+    IO ()+++shape ::+    (MonadIO m) =>+    T.Text ->                               -- text+    Int32 ->                                -- length+    Analysis ->                             -- analysis+    GlyphString ->                          -- glyphs+    m ()+shape text length_ analysis glyphs = liftIO $ do+    text' <- textToCString text+    let analysis' = unsafeManagedPtrGetPtr analysis+    let glyphs' = unsafeManagedPtrGetPtr glyphs+    pango_shape text' length_ analysis' glyphs'+    touchManagedPtr analysis+    touchManagedPtr glyphs+    freeMem text'+    return ()++-- function pango_shape_full+-- Args : [Arg {argName = "item_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "item_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "pango_shape_full" pango_shape_full :: +    CString ->                              -- item_text : TBasicType TUTF8+    Int32 ->                                -- item_length : TBasicType TInt32+    CString ->                              -- paragraph_text : TBasicType TUTF8+    Int32 ->                                -- paragraph_length : TBasicType TInt32+    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"+    Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"+    IO ()+++shapeFull ::+    (MonadIO m) =>+    T.Text ->                               -- item_text+    Int32 ->                                -- item_length+    Maybe (T.Text) ->                       -- paragraph_text+    Int32 ->                                -- paragraph_length+    Analysis ->                             -- analysis+    GlyphString ->                          -- glyphs+    m ()+shapeFull item_text item_length paragraph_text paragraph_length analysis glyphs = liftIO $ do+    item_text' <- textToCString item_text+    maybeParagraph_text <- case paragraph_text of+        Nothing -> return nullPtr+        Just jParagraph_text -> do+            jParagraph_text' <- textToCString jParagraph_text+            return jParagraph_text'+    let analysis' = unsafeManagedPtrGetPtr analysis+    let glyphs' = unsafeManagedPtrGetPtr glyphs+    pango_shape_full item_text' item_length maybeParagraph_text paragraph_length analysis' glyphs'+    touchManagedPtr analysis+    touchManagedPtr glyphs+    freeMem item_text'+    freeMem maybeParagraph_text+    return ()++-- function pango_skip_space+-- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "pango_skip_space" pango_skip_space :: +    Ptr CString ->                          -- pos : TBasicType TUTF8+    IO CInt++{-# DEPRECATED skipSpace ["(Since version 1.38)"]#-}+skipSpace ::+    (MonadIO m) =>+    T.Text ->                               -- pos+    m (Bool,T.Text)+skipSpace pos = liftIO $ do+    pos' <- textToCString pos+    pos'' <- allocMem :: IO (Ptr CString)+    poke pos'' pos'+    result <- pango_skip_space pos''+    let result' = (/= 0) result+    pos''' <- peek pos''+    pos'''' <- cstringToText pos'''+    freeMem pos'''+    freeMem pos''+    return (result', pos'''')++-- function pango_split_file_list+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, 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 "pango_split_file_list" pango_split_file_list :: +    CString ->                              -- str : TBasicType TUTF8+    IO (Ptr CString)++{-# DEPRECATED splitFileList ["(Since version 1.38)"]#-}+splitFileList ::+    (MonadIO m) =>+    T.Text ->                               -- str+    m [T.Text]+splitFileList str = liftIO $ do+    str' <- textToCString str+    result <- pango_split_file_list str'+    checkUnexpectedReturnNULL "pango_split_file_list" result+    result' <- unpackZeroTerminatedUTF8CArray result+    mapZeroTerminatedCArray freeMem result+    freeMem result+    freeMem str'+    return result'++-- function pango_trim_string+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", 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 "pango_trim_string" pango_trim_string :: +    CString ->                              -- str : TBasicType TUTF8+    IO CString++{-# DEPRECATED trimString ["(Since version 1.38)"]#-}+trimString ::+    (MonadIO m) =>+    T.Text ->                               -- str+    m T.Text+trimString str = liftIO $ do+    str' <- textToCString str+    result <- pango_trim_string str'+    checkUnexpectedReturnNULL "pango_trim_string" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'++-- function pango_unichar_direction+-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TInterface "Pango" "Direction"+-- throws : False+-- Skip return : False++foreign import ccall "pango_unichar_direction" pango_unichar_direction :: +    CInt ->                                 -- ch : TBasicType TUniChar+    IO CUInt+++unicharDirection ::+    (MonadIO m) =>+    Char ->                                 -- ch+    m Direction+unicharDirection ch = liftIO $ do+    let ch' = (fromIntegral . ord) ch+    result <- pango_unichar_direction ch'+    let result' = (toEnum . fromIntegral) result+    return result'++-- function pango_units_from_double+-- Args : [Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_units_from_double" pango_units_from_double :: +    CDouble ->                              -- d : TBasicType TDouble+    IO Int32+++unitsFromDouble ::+    (MonadIO m) =>+    Double ->                               -- d+    m Int32+unitsFromDouble d = liftIO $ do+    let d' = realToFrac d+    result <- pango_units_from_double d'+    return result++-- function pango_units_to_double+-- Args : [Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TDouble+-- throws : False+-- Skip return : False++foreign import ccall "pango_units_to_double" pango_units_to_double :: +    Int32 ->                                -- i : TBasicType TInt32+    IO CDouble+++unitsToDouble ::+    (MonadIO m) =>+    Int32 ->                                -- i+    m Double+unitsToDouble i = liftIO $ do+    result <- pango_units_to_double i+    let result' = realToFrac result+    return result'++-- function pango_version+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "pango_version" pango_version :: +    IO Int32+++version ::+    (MonadIO m) =>+    m Int32+version  = liftIO $ do+    result <- pango_version+    return result++-- function pango_version_check+-- Args : [Arg {argName = "required_major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "required_major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_version_check" pango_version_check :: +    Int32 ->                                -- required_major : TBasicType TInt32+    Int32 ->                                -- required_minor : TBasicType TInt32+    Int32 ->                                -- required_micro : TBasicType TInt32+    IO CString+++versionCheck ::+    (MonadIO m) =>+    Int32 ->                                -- required_major+    Int32 ->                                -- required_minor+    Int32 ->                                -- required_micro+    m T.Text+versionCheck required_major required_minor required_micro = liftIO $ do+    result <- pango_version_check required_major required_minor required_micro+    checkUnexpectedReturnNULL "pango_version_check" result+    result' <- cstringToText result+    return result'++-- function pango_version_string+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "pango_version_string" pango_version_string :: +    IO CString+++versionString ::+    (MonadIO m) =>+    m T.Text+versionString  = liftIO $ do+    result <- pango_version_string+    checkUnexpectedReturnNULL "pango_version_string" result+    result' <- cstringToText result+    return result'++-- callback AttrClassDestroyFieldCallback+attrClassDestroyFieldCallbackClosure :: AttrClassDestroyFieldCallback -> IO Closure+attrClassDestroyFieldCallbackClosure cb = newCClosure =<< mkAttrClassDestroyFieldCallback wrapped+    where wrapped = attrClassDestroyFieldCallbackWrapper Nothing cb++type AttrClassDestroyFieldCallbackC =+    Ptr Attribute ->+    IO ()++foreign import ccall "wrapper"+    mkAttrClassDestroyFieldCallback :: AttrClassDestroyFieldCallbackC -> IO (FunPtr AttrClassDestroyFieldCallbackC)++type AttrClassDestroyFieldCallback =+    Attribute ->+    IO ()++noAttrClassDestroyFieldCallback :: Maybe AttrClassDestroyFieldCallback+noAttrClassDestroyFieldCallback = Nothing++attrClassDestroyFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (AttrClassDestroyFieldCallbackC))) ->+    AttrClassDestroyFieldCallback ->+    Ptr Attribute ->+    IO ()+attrClassDestroyFieldCallbackWrapper funptrptr _cb attr = do+    attr' <- (newPtr 16 Attribute) attr+    _cb  attr'+    maybeReleaseFunPtr funptrptr++-- callback AttrClassEqualFieldCallback+attrClassEqualFieldCallbackClosure :: AttrClassEqualFieldCallback -> IO Closure+attrClassEqualFieldCallbackClosure cb = newCClosure =<< mkAttrClassEqualFieldCallback wrapped+    where wrapped = attrClassEqualFieldCallbackWrapper Nothing cb++type AttrClassEqualFieldCallbackC =+    Ptr Attribute ->+    Ptr Attribute ->+    IO CInt++foreign import ccall "wrapper"+    mkAttrClassEqualFieldCallback :: AttrClassEqualFieldCallbackC -> IO (FunPtr AttrClassEqualFieldCallbackC)++type AttrClassEqualFieldCallback =+    Attribute ->+    Attribute ->+    IO Bool++noAttrClassEqualFieldCallback :: Maybe AttrClassEqualFieldCallback+noAttrClassEqualFieldCallback = Nothing++attrClassEqualFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (AttrClassEqualFieldCallbackC))) ->+    AttrClassEqualFieldCallback ->+    Ptr Attribute ->+    Ptr Attribute ->+    IO CInt+attrClassEqualFieldCallbackWrapper funptrptr _cb attr1 attr2 = do+    attr1' <- (newPtr 16 Attribute) attr1+    attr2' <- (newPtr 16 Attribute) attr2+    result <- _cb  attr1' attr2'+    maybeReleaseFunPtr funptrptr+    let result' = (fromIntegral . fromEnum) result+    return result'++-- callback IncludedModuleListFieldCallback+includedModuleListFieldCallbackClosure :: IncludedModuleListFieldCallback -> IO Closure+includedModuleListFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleListFieldCallback wrapped+    where wrapped = includedModuleListFieldCallbackWrapper Nothing cb++type IncludedModuleListFieldCallbackC =+    Ptr EngineInfo ->+    Int32 ->+    IO ()++foreign import ccall "wrapper"+    mkIncludedModuleListFieldCallback :: IncludedModuleListFieldCallbackC -> IO (FunPtr IncludedModuleListFieldCallbackC)++type IncludedModuleListFieldCallback =+    EngineInfo ->+    Int32 ->+    IO ()++noIncludedModuleListFieldCallback :: Maybe IncludedModuleListFieldCallback+noIncludedModuleListFieldCallback = Nothing++includedModuleListFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IncludedModuleListFieldCallbackC))) ->+    IncludedModuleListFieldCallback ->+    Ptr EngineInfo ->+    Int32 ->+    IO ()+includedModuleListFieldCallbackWrapper funptrptr _cb engines n_engines = do+    engines' <- (newPtr 40 EngineInfo) engines+    _cb  engines' n_engines+    maybeReleaseFunPtr funptrptr++-- callback IncludedModuleInitFieldCallback+includedModuleInitFieldCallbackClosure :: IncludedModuleInitFieldCallback -> IO Closure+includedModuleInitFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleInitFieldCallback wrapped+    where wrapped = includedModuleInitFieldCallbackWrapper Nothing cb++type IncludedModuleInitFieldCallbackC =+    Ptr GObject.TypeModule ->+    IO ()++foreign import ccall "wrapper"+    mkIncludedModuleInitFieldCallback :: IncludedModuleInitFieldCallbackC -> IO (FunPtr IncludedModuleInitFieldCallbackC)++type IncludedModuleInitFieldCallback =+    GObject.TypeModule ->+    IO ()++noIncludedModuleInitFieldCallback :: Maybe IncludedModuleInitFieldCallback+noIncludedModuleInitFieldCallback = Nothing++includedModuleInitFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IncludedModuleInitFieldCallbackC))) ->+    IncludedModuleInitFieldCallback ->+    Ptr GObject.TypeModule ->+    IO ()+includedModuleInitFieldCallbackWrapper funptrptr _cb module_ = do+    module_' <- (newObject GObject.TypeModule) module_+    _cb  module_'+    maybeReleaseFunPtr funptrptr++-- callback IncludedModuleExitFieldCallback+includedModuleExitFieldCallbackClosure :: IncludedModuleExitFieldCallback -> IO Closure+includedModuleExitFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleExitFieldCallback wrapped+    where wrapped = includedModuleExitFieldCallbackWrapper Nothing cb++type IncludedModuleExitFieldCallbackC =+    IO ()++foreign import ccall "wrapper"+    mkIncludedModuleExitFieldCallback :: IncludedModuleExitFieldCallbackC -> IO (FunPtr IncludedModuleExitFieldCallbackC)++type IncludedModuleExitFieldCallback =+    IO ()++noIncludedModuleExitFieldCallback :: Maybe IncludedModuleExitFieldCallback+noIncludedModuleExitFieldCallback = Nothing++includedModuleExitFieldCallbackWrapper ::+    Maybe (Ptr (FunPtr (IncludedModuleExitFieldCallbackC))) ->+    IncludedModuleExitFieldCallback ->+    IO ()+includedModuleExitFieldCallbackWrapper funptrptr _cb = do+    _cb +    maybeReleaseFunPtr funptrptr
− GI/Pango/Callbacks.hs 
@@ -1,310 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Callbacks-    ( -- -- * Signals--- ** AttrClassDestroyFieldCallback-    AttrClassDestroyFieldCallback           ,-    AttrClassDestroyFieldCallbackC          ,-    attrClassDestroyFieldCallbackClosure    ,-    attrClassDestroyFieldCallbackWrapper    ,-    mkAttrClassDestroyFieldCallback         ,-    noAttrClassDestroyFieldCallback         ,----- ** AttrClassEqualFieldCallback-    AttrClassEqualFieldCallback             ,-    AttrClassEqualFieldCallbackC            ,-    attrClassEqualFieldCallbackClosure      ,-    attrClassEqualFieldCallbackWrapper      ,-    mkAttrClassEqualFieldCallback           ,-    noAttrClassEqualFieldCallback           ,----- ** AttrFilterFunc-    AttrFilterFunc                          ,-    AttrFilterFuncC                         ,-    attrFilterFuncClosure                   ,-    attrFilterFuncWrapper                   ,-    mkAttrFilterFunc                        ,-    noAttrFilterFunc                        ,----- ** FontsetForeachFunc-    FontsetForeachFunc                      ,-    FontsetForeachFuncC                     ,-    fontsetForeachFuncClosure               ,-    fontsetForeachFuncWrapper               ,-    mkFontsetForeachFunc                    ,-    noFontsetForeachFunc                    ,----- ** IncludedModuleExitFieldCallback-    IncludedModuleExitFieldCallback         ,-    IncludedModuleExitFieldCallbackC        ,-    includedModuleExitFieldCallbackClosure  ,-    includedModuleExitFieldCallbackWrapper  ,-    mkIncludedModuleExitFieldCallback       ,-    noIncludedModuleExitFieldCallback       ,----- ** IncludedModuleInitFieldCallback-    IncludedModuleInitFieldCallback         ,-    IncludedModuleInitFieldCallbackC        ,-    includedModuleInitFieldCallbackClosure  ,-    includedModuleInitFieldCallbackWrapper  ,-    mkIncludedModuleInitFieldCallback       ,-    noIncludedModuleInitFieldCallback       ,----- ** IncludedModuleListFieldCallback-    IncludedModuleListFieldCallback         ,-    IncludedModuleListFieldCallbackC        ,-    includedModuleListFieldCallbackClosure  ,-    includedModuleListFieldCallbackWrapper  ,-    mkIncludedModuleListFieldCallback       ,-    noIncludedModuleListFieldCallback       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types--import qualified GI.GObject as GObject---- callback IncludedModuleListFieldCallback-includedModuleListFieldCallbackClosure :: IncludedModuleListFieldCallback -> IO Closure-includedModuleListFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleListFieldCallback wrapped-    where wrapped = includedModuleListFieldCallbackWrapper Nothing cb--type IncludedModuleListFieldCallbackC =-    Ptr EngineInfo ->-    Int32 ->-    IO ()--foreign import ccall "wrapper"-    mkIncludedModuleListFieldCallback :: IncludedModuleListFieldCallbackC -> IO (FunPtr IncludedModuleListFieldCallbackC)--type IncludedModuleListFieldCallback =-    EngineInfo ->-    Int32 ->-    IO ()--noIncludedModuleListFieldCallback :: Maybe IncludedModuleListFieldCallback-noIncludedModuleListFieldCallback = Nothing--includedModuleListFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IncludedModuleListFieldCallbackC))) ->-    IncludedModuleListFieldCallback ->-    Ptr EngineInfo ->-    Int32 ->-    IO ()-includedModuleListFieldCallbackWrapper funptrptr _cb engines n_engines = do-    engines' <- (newPtr 40 EngineInfo) engines-    _cb  engines' n_engines-    maybeReleaseFunPtr funptrptr---- callback IncludedModuleInitFieldCallback-includedModuleInitFieldCallbackClosure :: IncludedModuleInitFieldCallback -> IO Closure-includedModuleInitFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleInitFieldCallback wrapped-    where wrapped = includedModuleInitFieldCallbackWrapper Nothing cb--type IncludedModuleInitFieldCallbackC =-    Ptr GObject.TypeModule ->-    IO ()--foreign import ccall "wrapper"-    mkIncludedModuleInitFieldCallback :: IncludedModuleInitFieldCallbackC -> IO (FunPtr IncludedModuleInitFieldCallbackC)--type IncludedModuleInitFieldCallback =-    GObject.TypeModule ->-    IO ()--noIncludedModuleInitFieldCallback :: Maybe IncludedModuleInitFieldCallback-noIncludedModuleInitFieldCallback = Nothing--includedModuleInitFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IncludedModuleInitFieldCallbackC))) ->-    IncludedModuleInitFieldCallback ->-    Ptr GObject.TypeModule ->-    IO ()-includedModuleInitFieldCallbackWrapper funptrptr _cb module_ = do-    module_' <- (newObject GObject.TypeModule) module_-    _cb  module_'-    maybeReleaseFunPtr funptrptr---- callback IncludedModuleExitFieldCallback-includedModuleExitFieldCallbackClosure :: IncludedModuleExitFieldCallback -> IO Closure-includedModuleExitFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleExitFieldCallback wrapped-    where wrapped = includedModuleExitFieldCallbackWrapper Nothing cb--type IncludedModuleExitFieldCallbackC =-    IO ()--foreign import ccall "wrapper"-    mkIncludedModuleExitFieldCallback :: IncludedModuleExitFieldCallbackC -> IO (FunPtr IncludedModuleExitFieldCallbackC)--type IncludedModuleExitFieldCallback =-    IO ()--noIncludedModuleExitFieldCallback :: Maybe IncludedModuleExitFieldCallback-noIncludedModuleExitFieldCallback = Nothing--includedModuleExitFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (IncludedModuleExitFieldCallbackC))) ->-    IncludedModuleExitFieldCallback ->-    IO ()-includedModuleExitFieldCallbackWrapper funptrptr _cb = do-    _cb -    maybeReleaseFunPtr funptrptr---- callback FontsetForeachFunc-fontsetForeachFuncClosure :: FontsetForeachFunc -> IO Closure-fontsetForeachFuncClosure cb = newCClosure =<< mkFontsetForeachFunc wrapped-    where wrapped = fontsetForeachFuncWrapper Nothing cb--type FontsetForeachFuncC =-    Ptr Fontset ->-    Ptr Font ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkFontsetForeachFunc :: FontsetForeachFuncC -> IO (FunPtr FontsetForeachFuncC)--type FontsetForeachFunc =-    Fontset ->-    Font ->-    IO Bool--noFontsetForeachFunc :: Maybe FontsetForeachFunc-noFontsetForeachFunc = Nothing--fontsetForeachFuncWrapper ::-    Maybe (Ptr (FunPtr (FontsetForeachFuncC))) ->-    FontsetForeachFunc ->-    Ptr Fontset ->-    Ptr Font ->-    Ptr () ->-    IO CInt-fontsetForeachFuncWrapper funptrptr _cb fontset font _ = do-    fontset' <- (newObject Fontset) fontset-    font' <- (newObject Font) font-    result <- _cb  fontset' font'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AttrFilterFunc-attrFilterFuncClosure :: AttrFilterFunc -> IO Closure-attrFilterFuncClosure cb = newCClosure =<< mkAttrFilterFunc wrapped-    where wrapped = attrFilterFuncWrapper Nothing cb--type AttrFilterFuncC =-    Ptr Attribute ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAttrFilterFunc :: AttrFilterFuncC -> IO (FunPtr AttrFilterFuncC)--type AttrFilterFunc =-    Attribute ->-    IO Bool--noAttrFilterFunc :: Maybe AttrFilterFunc-noAttrFilterFunc = Nothing--attrFilterFuncWrapper ::-    Maybe (Ptr (FunPtr (AttrFilterFuncC))) ->-    AttrFilterFunc ->-    Ptr Attribute ->-    Ptr () ->-    IO CInt-attrFilterFuncWrapper funptrptr _cb attribute _ = do-    attribute' <- (newPtr 16 Attribute) attribute-    result <- _cb  attribute'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AttrClassEqualFieldCallback-attrClassEqualFieldCallbackClosure :: AttrClassEqualFieldCallback -> IO Closure-attrClassEqualFieldCallbackClosure cb = newCClosure =<< mkAttrClassEqualFieldCallback wrapped-    where wrapped = attrClassEqualFieldCallbackWrapper Nothing cb--type AttrClassEqualFieldCallbackC =-    Ptr Attribute ->-    Ptr Attribute ->-    IO CInt--foreign import ccall "wrapper"-    mkAttrClassEqualFieldCallback :: AttrClassEqualFieldCallbackC -> IO (FunPtr AttrClassEqualFieldCallbackC)--type AttrClassEqualFieldCallback =-    Attribute ->-    Attribute ->-    IO Bool--noAttrClassEqualFieldCallback :: Maybe AttrClassEqualFieldCallback-noAttrClassEqualFieldCallback = Nothing--attrClassEqualFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (AttrClassEqualFieldCallbackC))) ->-    AttrClassEqualFieldCallback ->-    Ptr Attribute ->-    Ptr Attribute ->-    IO CInt-attrClassEqualFieldCallbackWrapper funptrptr _cb attr1 attr2 = do-    attr1' <- (newPtr 16 Attribute) attr1-    attr2' <- (newPtr 16 Attribute) attr2-    result <- _cb  attr1' attr2'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AttrClassDestroyFieldCallback-attrClassDestroyFieldCallbackClosure :: AttrClassDestroyFieldCallback -> IO Closure-attrClassDestroyFieldCallbackClosure cb = newCClosure =<< mkAttrClassDestroyFieldCallback wrapped-    where wrapped = attrClassDestroyFieldCallbackWrapper Nothing cb--type AttrClassDestroyFieldCallbackC =-    Ptr Attribute ->-    IO ()--foreign import ccall "wrapper"-    mkAttrClassDestroyFieldCallback :: AttrClassDestroyFieldCallbackC -> IO (FunPtr AttrClassDestroyFieldCallbackC)--type AttrClassDestroyFieldCallback =-    Attribute ->-    IO ()--noAttrClassDestroyFieldCallback :: Maybe AttrClassDestroyFieldCallback-noAttrClassDestroyFieldCallback = Nothing--attrClassDestroyFieldCallbackWrapper ::-    Maybe (Ptr (FunPtr (AttrClassDestroyFieldCallbackC))) ->-    AttrClassDestroyFieldCallback ->-    Ptr Attribute ->-    IO ()-attrClassDestroyFieldCallbackWrapper funptrptr _cb attr = do-    attr' <- (newPtr 16 Attribute) attr-    _cb  attr'-    maybeReleaseFunPtr funptrptr--
− GI/Pango/Constants.hs 
@@ -1,72 +0,0 @@-{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Constants-    ( -    pattern UNKNOWN_GLYPH_WIDTH             ,-    pattern UNKNOWN_GLYPH_HEIGHT            ,-    pattern SCALE                           ,-    pattern RENDER_TYPE_NONE                ,-    pattern GLYPH_UNKNOWN_FLAG              ,-    pattern GLYPH_INVALID_INPUT             ,-    pattern GLYPH_EMPTY                     ,-    pattern ENGINE_TYPE_SHAPE               ,-    pattern ENGINE_TYPE_LANG                ,-    pattern ATTR_INDEX_FROM_TEXT_BEGINNING  ,-    pattern ANALYSIS_FLAG_IS_ELLIPSIS       ,-    pattern ANALYSIS_FLAG_CENTERED_BASELINE ,--    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks---pattern UNKNOWN_GLYPH_WIDTH = 10 :: Int32---pattern UNKNOWN_GLYPH_HEIGHT = 14 :: Int32---pattern SCALE = 1024 :: Int32---pattern RENDER_TYPE_NONE = "PangoRenderNone" :: T.Text---pattern GLYPH_UNKNOWN_FLAG = 268435456 :: Word32---pattern GLYPH_INVALID_INPUT = 4294967295 :: Word32---pattern GLYPH_EMPTY = 268435455 :: Word32---pattern ENGINE_TYPE_SHAPE = "PangoEngineShape" :: T.Text---pattern ENGINE_TYPE_LANG = "PangoEngineLang" :: T.Text---pattern ATTR_INDEX_FROM_TEXT_BEGINNING = 0 :: Int32---pattern ANALYSIS_FLAG_IS_ELLIPSIS = 2 :: Int32---pattern ANALYSIS_FLAG_CENTERED_BASELINE = 1 :: Int32--
− GI/Pango/Enums.hs 
@@ -1,920 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Enums-    ( ---- * Exported types-    WrapMode(..)                            ,-    Weight(..)                              ,-    Variant(..)                             ,-    Underline(..)                           ,-    TabAlign(..)                            ,-    Style(..)                               ,-    Stretch(..)                             ,-    Script(..)                              ,-    RenderPart(..)                          ,-    GravityHint(..)                         ,-    Gravity(..)                             ,-    EllipsizeMode(..)                       ,-    Direction(..)                           ,-    CoverageLevel(..)                       ,-    BidiType(..)                            ,-    AttrType(..)                            ,-    Alignment(..)                           ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum WrapMode--data WrapMode = -      WrapModeWord-    | WrapModeChar-    | WrapModeWordChar-    | AnotherWrapMode Int-    deriving (Show, Eq)--instance Enum WrapMode where-    fromEnum WrapModeWord = 0-    fromEnum WrapModeChar = 1-    fromEnum WrapModeWordChar = 2-    fromEnum (AnotherWrapMode k) = k--    toEnum 0 = WrapModeWord-    toEnum 1 = WrapModeChar-    toEnum 2 = WrapModeWordChar-    toEnum k = AnotherWrapMode k--foreign import ccall "pango_wrap_mode_get_type" c_pango_wrap_mode_get_type :: -    IO GType--instance BoxedEnum WrapMode where-    boxedEnumType _ = c_pango_wrap_mode_get_type---- Enum Weight--data Weight = -      WeightThin-    | WeightUltralight-    | WeightLight-    | WeightSemilight-    | WeightBook-    | WeightNormal-    | WeightMedium-    | WeightSemibold-    | WeightBold-    | WeightUltrabold-    | WeightHeavy-    | WeightUltraheavy-    | AnotherWeight Int-    deriving (Show, Eq)--instance Enum Weight where-    fromEnum WeightThin = 100-    fromEnum WeightUltralight = 200-    fromEnum WeightLight = 300-    fromEnum WeightSemilight = 350-    fromEnum WeightBook = 380-    fromEnum WeightNormal = 400-    fromEnum WeightMedium = 500-    fromEnum WeightSemibold = 600-    fromEnum WeightBold = 700-    fromEnum WeightUltrabold = 800-    fromEnum WeightHeavy = 900-    fromEnum WeightUltraheavy = 1000-    fromEnum (AnotherWeight k) = k--    toEnum 100 = WeightThin-    toEnum 200 = WeightUltralight-    toEnum 300 = WeightLight-    toEnum 350 = WeightSemilight-    toEnum 380 = WeightBook-    toEnum 400 = WeightNormal-    toEnum 500 = WeightMedium-    toEnum 600 = WeightSemibold-    toEnum 700 = WeightBold-    toEnum 800 = WeightUltrabold-    toEnum 900 = WeightHeavy-    toEnum 1000 = WeightUltraheavy-    toEnum k = AnotherWeight k--foreign import ccall "pango_weight_get_type" c_pango_weight_get_type :: -    IO GType--instance BoxedEnum Weight where-    boxedEnumType _ = c_pango_weight_get_type---- Enum Variant--data Variant = -      VariantNormal-    | VariantSmallCaps-    | AnotherVariant Int-    deriving (Show, Eq)--instance Enum Variant where-    fromEnum VariantNormal = 0-    fromEnum VariantSmallCaps = 1-    fromEnum (AnotherVariant k) = k--    toEnum 0 = VariantNormal-    toEnum 1 = VariantSmallCaps-    toEnum k = AnotherVariant k--foreign import ccall "pango_variant_get_type" c_pango_variant_get_type :: -    IO GType--instance BoxedEnum Variant where-    boxedEnumType _ = c_pango_variant_get_type---- Enum Underline--data Underline = -      UnderlineNone-    | UnderlineSingle-    | UnderlineDouble-    | UnderlineLow-    | UnderlineError-    | AnotherUnderline Int-    deriving (Show, Eq)--instance Enum Underline where-    fromEnum UnderlineNone = 0-    fromEnum UnderlineSingle = 1-    fromEnum UnderlineDouble = 2-    fromEnum UnderlineLow = 3-    fromEnum UnderlineError = 4-    fromEnum (AnotherUnderline k) = k--    toEnum 0 = UnderlineNone-    toEnum 1 = UnderlineSingle-    toEnum 2 = UnderlineDouble-    toEnum 3 = UnderlineLow-    toEnum 4 = UnderlineError-    toEnum k = AnotherUnderline k--foreign import ccall "pango_underline_get_type" c_pango_underline_get_type :: -    IO GType--instance BoxedEnum Underline where-    boxedEnumType _ = c_pango_underline_get_type---- Enum TabAlign--data TabAlign = -      TabAlignLeft-    | AnotherTabAlign Int-    deriving (Show, Eq)--instance Enum TabAlign where-    fromEnum TabAlignLeft = 0-    fromEnum (AnotherTabAlign k) = k--    toEnum 0 = TabAlignLeft-    toEnum k = AnotherTabAlign k--foreign import ccall "pango_tab_align_get_type" c_pango_tab_align_get_type :: -    IO GType--instance BoxedEnum TabAlign where-    boxedEnumType _ = c_pango_tab_align_get_type---- Enum Style--data Style = -      StyleNormal-    | StyleOblique-    | StyleItalic-    | AnotherStyle Int-    deriving (Show, Eq)--instance Enum Style where-    fromEnum StyleNormal = 0-    fromEnum StyleOblique = 1-    fromEnum StyleItalic = 2-    fromEnum (AnotherStyle k) = k--    toEnum 0 = StyleNormal-    toEnum 1 = StyleOblique-    toEnum 2 = StyleItalic-    toEnum k = AnotherStyle k--foreign import ccall "pango_style_get_type" c_pango_style_get_type :: -    IO GType--instance BoxedEnum Style where-    boxedEnumType _ = c_pango_style_get_type---- Enum Stretch--data Stretch = -      StretchUltraCondensed-    | StretchExtraCondensed-    | StretchCondensed-    | StretchSemiCondensed-    | StretchNormal-    | StretchSemiExpanded-    | StretchExpanded-    | StretchExtraExpanded-    | StretchUltraExpanded-    | AnotherStretch Int-    deriving (Show, Eq)--instance Enum Stretch where-    fromEnum StretchUltraCondensed = 0-    fromEnum StretchExtraCondensed = 1-    fromEnum StretchCondensed = 2-    fromEnum StretchSemiCondensed = 3-    fromEnum StretchNormal = 4-    fromEnum StretchSemiExpanded = 5-    fromEnum StretchExpanded = 6-    fromEnum StretchExtraExpanded = 7-    fromEnum StretchUltraExpanded = 8-    fromEnum (AnotherStretch k) = k--    toEnum 0 = StretchUltraCondensed-    toEnum 1 = StretchExtraCondensed-    toEnum 2 = StretchCondensed-    toEnum 3 = StretchSemiCondensed-    toEnum 4 = StretchNormal-    toEnum 5 = StretchSemiExpanded-    toEnum 6 = StretchExpanded-    toEnum 7 = StretchExtraExpanded-    toEnum 8 = StretchUltraExpanded-    toEnum k = AnotherStretch k--foreign import ccall "pango_stretch_get_type" c_pango_stretch_get_type :: -    IO GType--instance BoxedEnum Stretch where-    boxedEnumType _ = c_pango_stretch_get_type---- Enum Script--data Script = -      ScriptInvalidCode-    | ScriptCommon-    | ScriptInherited-    | ScriptArabic-    | ScriptArmenian-    | ScriptBengali-    | ScriptBopomofo-    | ScriptCherokee-    | ScriptCoptic-    | ScriptCyrillic-    | ScriptDeseret-    | ScriptDevanagari-    | ScriptEthiopic-    | ScriptGeorgian-    | ScriptGothic-    | ScriptGreek-    | ScriptGujarati-    | ScriptGurmukhi-    | ScriptHan-    | ScriptHangul-    | ScriptHebrew-    | ScriptHiragana-    | ScriptKannada-    | ScriptKatakana-    | ScriptKhmer-    | ScriptLao-    | ScriptLatin-    | ScriptMalayalam-    | ScriptMongolian-    | ScriptMyanmar-    | ScriptOgham-    | ScriptOldItalic-    | ScriptOriya-    | ScriptRunic-    | ScriptSinhala-    | ScriptSyriac-    | ScriptTamil-    | ScriptTelugu-    | ScriptThaana-    | ScriptThai-    | ScriptTibetan-    | ScriptCanadianAboriginal-    | ScriptYi-    | ScriptTagalog-    | ScriptHanunoo-    | ScriptBuhid-    | ScriptTagbanwa-    | ScriptBraille-    | ScriptCypriot-    | ScriptLimbu-    | ScriptOsmanya-    | ScriptShavian-    | ScriptLinearB-    | ScriptTaiLe-    | ScriptUgaritic-    | ScriptNewTaiLue-    | ScriptBuginese-    | ScriptGlagolitic-    | ScriptTifinagh-    | ScriptSylotiNagri-    | ScriptOldPersian-    | ScriptKharoshthi-    | ScriptUnknown-    | ScriptBalinese-    | ScriptCuneiform-    | ScriptPhoenician-    | ScriptPhagsPa-    | ScriptNko-    | ScriptKayahLi-    | ScriptLepcha-    | ScriptRejang-    | ScriptSundanese-    | ScriptSaurashtra-    | ScriptCham-    | ScriptOlChiki-    | ScriptVai-    | ScriptCarian-    | ScriptLycian-    | ScriptLydian-    | ScriptBatak-    | ScriptBrahmi-    | ScriptMandaic-    | ScriptChakma-    | ScriptMeroiticCursive-    | ScriptMeroiticHieroglyphs-    | ScriptMiao-    | ScriptSharada-    | ScriptSoraSompeng-    | ScriptTakri-    | AnotherScript Int-    deriving (Show, Eq)--instance Enum Script where-    fromEnum ScriptInvalidCode = -1-    fromEnum ScriptCommon = 0-    fromEnum ScriptInherited = 1-    fromEnum ScriptArabic = 2-    fromEnum ScriptArmenian = 3-    fromEnum ScriptBengali = 4-    fromEnum ScriptBopomofo = 5-    fromEnum ScriptCherokee = 6-    fromEnum ScriptCoptic = 7-    fromEnum ScriptCyrillic = 8-    fromEnum ScriptDeseret = 9-    fromEnum ScriptDevanagari = 10-    fromEnum ScriptEthiopic = 11-    fromEnum ScriptGeorgian = 12-    fromEnum ScriptGothic = 13-    fromEnum ScriptGreek = 14-    fromEnum ScriptGujarati = 15-    fromEnum ScriptGurmukhi = 16-    fromEnum ScriptHan = 17-    fromEnum ScriptHangul = 18-    fromEnum ScriptHebrew = 19-    fromEnum ScriptHiragana = 20-    fromEnum ScriptKannada = 21-    fromEnum ScriptKatakana = 22-    fromEnum ScriptKhmer = 23-    fromEnum ScriptLao = 24-    fromEnum ScriptLatin = 25-    fromEnum ScriptMalayalam = 26-    fromEnum ScriptMongolian = 27-    fromEnum ScriptMyanmar = 28-    fromEnum ScriptOgham = 29-    fromEnum ScriptOldItalic = 30-    fromEnum ScriptOriya = 31-    fromEnum ScriptRunic = 32-    fromEnum ScriptSinhala = 33-    fromEnum ScriptSyriac = 34-    fromEnum ScriptTamil = 35-    fromEnum ScriptTelugu = 36-    fromEnum ScriptThaana = 37-    fromEnum ScriptThai = 38-    fromEnum ScriptTibetan = 39-    fromEnum ScriptCanadianAboriginal = 40-    fromEnum ScriptYi = 41-    fromEnum ScriptTagalog = 42-    fromEnum ScriptHanunoo = 43-    fromEnum ScriptBuhid = 44-    fromEnum ScriptTagbanwa = 45-    fromEnum ScriptBraille = 46-    fromEnum ScriptCypriot = 47-    fromEnum ScriptLimbu = 48-    fromEnum ScriptOsmanya = 49-    fromEnum ScriptShavian = 50-    fromEnum ScriptLinearB = 51-    fromEnum ScriptTaiLe = 52-    fromEnum ScriptUgaritic = 53-    fromEnum ScriptNewTaiLue = 54-    fromEnum ScriptBuginese = 55-    fromEnum ScriptGlagolitic = 56-    fromEnum ScriptTifinagh = 57-    fromEnum ScriptSylotiNagri = 58-    fromEnum ScriptOldPersian = 59-    fromEnum ScriptKharoshthi = 60-    fromEnum ScriptUnknown = 61-    fromEnum ScriptBalinese = 62-    fromEnum ScriptCuneiform = 63-    fromEnum ScriptPhoenician = 64-    fromEnum ScriptPhagsPa = 65-    fromEnum ScriptNko = 66-    fromEnum ScriptKayahLi = 67-    fromEnum ScriptLepcha = 68-    fromEnum ScriptRejang = 69-    fromEnum ScriptSundanese = 70-    fromEnum ScriptSaurashtra = 71-    fromEnum ScriptCham = 72-    fromEnum ScriptOlChiki = 73-    fromEnum ScriptVai = 74-    fromEnum ScriptCarian = 75-    fromEnum ScriptLycian = 76-    fromEnum ScriptLydian = 77-    fromEnum ScriptBatak = 78-    fromEnum ScriptBrahmi = 79-    fromEnum ScriptMandaic = 80-    fromEnum ScriptChakma = 81-    fromEnum ScriptMeroiticCursive = 82-    fromEnum ScriptMeroiticHieroglyphs = 83-    fromEnum ScriptMiao = 84-    fromEnum ScriptSharada = 85-    fromEnum ScriptSoraSompeng = 86-    fromEnum ScriptTakri = 87-    fromEnum (AnotherScript k) = k--    toEnum -1 = ScriptInvalidCode-    toEnum 0 = ScriptCommon-    toEnum 1 = ScriptInherited-    toEnum 2 = ScriptArabic-    toEnum 3 = ScriptArmenian-    toEnum 4 = ScriptBengali-    toEnum 5 = ScriptBopomofo-    toEnum 6 = ScriptCherokee-    toEnum 7 = ScriptCoptic-    toEnum 8 = ScriptCyrillic-    toEnum 9 = ScriptDeseret-    toEnum 10 = ScriptDevanagari-    toEnum 11 = ScriptEthiopic-    toEnum 12 = ScriptGeorgian-    toEnum 13 = ScriptGothic-    toEnum 14 = ScriptGreek-    toEnum 15 = ScriptGujarati-    toEnum 16 = ScriptGurmukhi-    toEnum 17 = ScriptHan-    toEnum 18 = ScriptHangul-    toEnum 19 = ScriptHebrew-    toEnum 20 = ScriptHiragana-    toEnum 21 = ScriptKannada-    toEnum 22 = ScriptKatakana-    toEnum 23 = ScriptKhmer-    toEnum 24 = ScriptLao-    toEnum 25 = ScriptLatin-    toEnum 26 = ScriptMalayalam-    toEnum 27 = ScriptMongolian-    toEnum 28 = ScriptMyanmar-    toEnum 29 = ScriptOgham-    toEnum 30 = ScriptOldItalic-    toEnum 31 = ScriptOriya-    toEnum 32 = ScriptRunic-    toEnum 33 = ScriptSinhala-    toEnum 34 = ScriptSyriac-    toEnum 35 = ScriptTamil-    toEnum 36 = ScriptTelugu-    toEnum 37 = ScriptThaana-    toEnum 38 = ScriptThai-    toEnum 39 = ScriptTibetan-    toEnum 40 = ScriptCanadianAboriginal-    toEnum 41 = ScriptYi-    toEnum 42 = ScriptTagalog-    toEnum 43 = ScriptHanunoo-    toEnum 44 = ScriptBuhid-    toEnum 45 = ScriptTagbanwa-    toEnum 46 = ScriptBraille-    toEnum 47 = ScriptCypriot-    toEnum 48 = ScriptLimbu-    toEnum 49 = ScriptOsmanya-    toEnum 50 = ScriptShavian-    toEnum 51 = ScriptLinearB-    toEnum 52 = ScriptTaiLe-    toEnum 53 = ScriptUgaritic-    toEnum 54 = ScriptNewTaiLue-    toEnum 55 = ScriptBuginese-    toEnum 56 = ScriptGlagolitic-    toEnum 57 = ScriptTifinagh-    toEnum 58 = ScriptSylotiNagri-    toEnum 59 = ScriptOldPersian-    toEnum 60 = ScriptKharoshthi-    toEnum 61 = ScriptUnknown-    toEnum 62 = ScriptBalinese-    toEnum 63 = ScriptCuneiform-    toEnum 64 = ScriptPhoenician-    toEnum 65 = ScriptPhagsPa-    toEnum 66 = ScriptNko-    toEnum 67 = ScriptKayahLi-    toEnum 68 = ScriptLepcha-    toEnum 69 = ScriptRejang-    toEnum 70 = ScriptSundanese-    toEnum 71 = ScriptSaurashtra-    toEnum 72 = ScriptCham-    toEnum 73 = ScriptOlChiki-    toEnum 74 = ScriptVai-    toEnum 75 = ScriptCarian-    toEnum 76 = ScriptLycian-    toEnum 77 = ScriptLydian-    toEnum 78 = ScriptBatak-    toEnum 79 = ScriptBrahmi-    toEnum 80 = ScriptMandaic-    toEnum 81 = ScriptChakma-    toEnum 82 = ScriptMeroiticCursive-    toEnum 83 = ScriptMeroiticHieroglyphs-    toEnum 84 = ScriptMiao-    toEnum 85 = ScriptSharada-    toEnum 86 = ScriptSoraSompeng-    toEnum 87 = ScriptTakri-    toEnum k = AnotherScript k--foreign import ccall "pango_script_get_type" c_pango_script_get_type :: -    IO GType--instance BoxedEnum Script where-    boxedEnumType _ = c_pango_script_get_type---- Enum RenderPart--data RenderPart = -      RenderPartForeground-    | RenderPartBackground-    | RenderPartUnderline-    | RenderPartStrikethrough-    | AnotherRenderPart Int-    deriving (Show, Eq)--instance Enum RenderPart where-    fromEnum RenderPartForeground = 0-    fromEnum RenderPartBackground = 1-    fromEnum RenderPartUnderline = 2-    fromEnum RenderPartStrikethrough = 3-    fromEnum (AnotherRenderPart k) = k--    toEnum 0 = RenderPartForeground-    toEnum 1 = RenderPartBackground-    toEnum 2 = RenderPartUnderline-    toEnum 3 = RenderPartStrikethrough-    toEnum k = AnotherRenderPart k--foreign import ccall "pango_render_part_get_type" c_pango_render_part_get_type :: -    IO GType--instance BoxedEnum RenderPart where-    boxedEnumType _ = c_pango_render_part_get_type---- Enum GravityHint--data GravityHint = -      GravityHintNatural-    | GravityHintStrong-    | GravityHintLine-    | AnotherGravityHint Int-    deriving (Show, Eq)--instance Enum GravityHint where-    fromEnum GravityHintNatural = 0-    fromEnum GravityHintStrong = 1-    fromEnum GravityHintLine = 2-    fromEnum (AnotherGravityHint k) = k--    toEnum 0 = GravityHintNatural-    toEnum 1 = GravityHintStrong-    toEnum 2 = GravityHintLine-    toEnum k = AnotherGravityHint k--foreign import ccall "pango_gravity_hint_get_type" c_pango_gravity_hint_get_type :: -    IO GType--instance BoxedEnum GravityHint where-    boxedEnumType _ = c_pango_gravity_hint_get_type---- Enum Gravity--data Gravity = -      GravitySouth-    | GravityEast-    | GravityNorth-    | GravityWest-    | GravityAuto-    | AnotherGravity Int-    deriving (Show, Eq)--instance Enum Gravity where-    fromEnum GravitySouth = 0-    fromEnum GravityEast = 1-    fromEnum GravityNorth = 2-    fromEnum GravityWest = 3-    fromEnum GravityAuto = 4-    fromEnum (AnotherGravity k) = k--    toEnum 0 = GravitySouth-    toEnum 1 = GravityEast-    toEnum 2 = GravityNorth-    toEnum 3 = GravityWest-    toEnum 4 = GravityAuto-    toEnum k = AnotherGravity k--foreign import ccall "pango_gravity_get_type" c_pango_gravity_get_type :: -    IO GType--instance BoxedEnum Gravity where-    boxedEnumType _ = c_pango_gravity_get_type---- Enum EllipsizeMode--data EllipsizeMode = -      EllipsizeModeNone-    | EllipsizeModeStart-    | EllipsizeModeMiddle-    | EllipsizeModeEnd-    | AnotherEllipsizeMode Int-    deriving (Show, Eq)--instance Enum EllipsizeMode where-    fromEnum EllipsizeModeNone = 0-    fromEnum EllipsizeModeStart = 1-    fromEnum EllipsizeModeMiddle = 2-    fromEnum EllipsizeModeEnd = 3-    fromEnum (AnotherEllipsizeMode k) = k--    toEnum 0 = EllipsizeModeNone-    toEnum 1 = EllipsizeModeStart-    toEnum 2 = EllipsizeModeMiddle-    toEnum 3 = EllipsizeModeEnd-    toEnum k = AnotherEllipsizeMode k--foreign import ccall "pango_ellipsize_mode_get_type" c_pango_ellipsize_mode_get_type :: -    IO GType--instance BoxedEnum EllipsizeMode where-    boxedEnumType _ = c_pango_ellipsize_mode_get_type---- Enum Direction--data Direction = -      DirectionLtr-    | DirectionRtl-    | DirectionTtbLtr-    | DirectionTtbRtl-    | DirectionWeakLtr-    | DirectionWeakRtl-    | DirectionNeutral-    | AnotherDirection Int-    deriving (Show, Eq)--instance Enum Direction where-    fromEnum DirectionLtr = 0-    fromEnum DirectionRtl = 1-    fromEnum DirectionTtbLtr = 2-    fromEnum DirectionTtbRtl = 3-    fromEnum DirectionWeakLtr = 4-    fromEnum DirectionWeakRtl = 5-    fromEnum DirectionNeutral = 6-    fromEnum (AnotherDirection k) = k--    toEnum 0 = DirectionLtr-    toEnum 1 = DirectionRtl-    toEnum 2 = DirectionTtbLtr-    toEnum 3 = DirectionTtbRtl-    toEnum 4 = DirectionWeakLtr-    toEnum 5 = DirectionWeakRtl-    toEnum 6 = DirectionNeutral-    toEnum k = AnotherDirection k--foreign import ccall "pango_direction_get_type" c_pango_direction_get_type :: -    IO GType--instance BoxedEnum Direction where-    boxedEnumType _ = c_pango_direction_get_type---- Enum CoverageLevel--data CoverageLevel = -      CoverageLevelNone-    | CoverageLevelFallback-    | CoverageLevelApproximate-    | CoverageLevelExact-    | AnotherCoverageLevel Int-    deriving (Show, Eq)--instance Enum CoverageLevel where-    fromEnum CoverageLevelNone = 0-    fromEnum CoverageLevelFallback = 1-    fromEnum CoverageLevelApproximate = 2-    fromEnum CoverageLevelExact = 3-    fromEnum (AnotherCoverageLevel k) = k--    toEnum 0 = CoverageLevelNone-    toEnum 1 = CoverageLevelFallback-    toEnum 2 = CoverageLevelApproximate-    toEnum 3 = CoverageLevelExact-    toEnum k = AnotherCoverageLevel k--foreign import ccall "pango_coverage_level_get_type" c_pango_coverage_level_get_type :: -    IO GType--instance BoxedEnum CoverageLevel where-    boxedEnumType _ = c_pango_coverage_level_get_type---- Enum BidiType--data BidiType = -      BidiTypeL-    | BidiTypeLre-    | BidiTypeLro-    | BidiTypeR-    | BidiTypeAl-    | BidiTypeRle-    | BidiTypeRlo-    | BidiTypePdf-    | BidiTypeEn-    | BidiTypeEs-    | BidiTypeEt-    | BidiTypeAn-    | BidiTypeCs-    | BidiTypeNsm-    | BidiTypeBn-    | BidiTypeB-    | BidiTypeS-    | BidiTypeWs-    | BidiTypeOn-    | AnotherBidiType Int-    deriving (Show, Eq)--instance Enum BidiType where-    fromEnum BidiTypeL = 0-    fromEnum BidiTypeLre = 1-    fromEnum BidiTypeLro = 2-    fromEnum BidiTypeR = 3-    fromEnum BidiTypeAl = 4-    fromEnum BidiTypeRle = 5-    fromEnum BidiTypeRlo = 6-    fromEnum BidiTypePdf = 7-    fromEnum BidiTypeEn = 8-    fromEnum BidiTypeEs = 9-    fromEnum BidiTypeEt = 10-    fromEnum BidiTypeAn = 11-    fromEnum BidiTypeCs = 12-    fromEnum BidiTypeNsm = 13-    fromEnum BidiTypeBn = 14-    fromEnum BidiTypeB = 15-    fromEnum BidiTypeS = 16-    fromEnum BidiTypeWs = 17-    fromEnum BidiTypeOn = 18-    fromEnum (AnotherBidiType k) = k--    toEnum 0 = BidiTypeL-    toEnum 1 = BidiTypeLre-    toEnum 2 = BidiTypeLro-    toEnum 3 = BidiTypeR-    toEnum 4 = BidiTypeAl-    toEnum 5 = BidiTypeRle-    toEnum 6 = BidiTypeRlo-    toEnum 7 = BidiTypePdf-    toEnum 8 = BidiTypeEn-    toEnum 9 = BidiTypeEs-    toEnum 10 = BidiTypeEt-    toEnum 11 = BidiTypeAn-    toEnum 12 = BidiTypeCs-    toEnum 13 = BidiTypeNsm-    toEnum 14 = BidiTypeBn-    toEnum 15 = BidiTypeB-    toEnum 16 = BidiTypeS-    toEnum 17 = BidiTypeWs-    toEnum 18 = BidiTypeOn-    toEnum k = AnotherBidiType k--foreign import ccall "pango_bidi_type_get_type" c_pango_bidi_type_get_type :: -    IO GType--instance BoxedEnum BidiType where-    boxedEnumType _ = c_pango_bidi_type_get_type---- Enum AttrType--data AttrType = -      AttrTypeInvalid-    | AttrTypeLanguage-    | AttrTypeFamily-    | AttrTypeStyle-    | AttrTypeWeight-    | AttrTypeVariant-    | AttrTypeStretch-    | AttrTypeSize-    | AttrTypeFontDesc-    | AttrTypeForeground-    | AttrTypeBackground-    | AttrTypeUnderline-    | AttrTypeStrikethrough-    | AttrTypeRise-    | AttrTypeShape-    | AttrTypeScale-    | AttrTypeFallback-    | AttrTypeLetterSpacing-    | AttrTypeUnderlineColor-    | AttrTypeStrikethroughColor-    | AttrTypeAbsoluteSize-    | AttrTypeGravity-    | AttrTypeGravityHint-    | AnotherAttrType Int-    deriving (Show, Eq)--instance Enum AttrType where-    fromEnum AttrTypeInvalid = 0-    fromEnum AttrTypeLanguage = 1-    fromEnum AttrTypeFamily = 2-    fromEnum AttrTypeStyle = 3-    fromEnum AttrTypeWeight = 4-    fromEnum AttrTypeVariant = 5-    fromEnum AttrTypeStretch = 6-    fromEnum AttrTypeSize = 7-    fromEnum AttrTypeFontDesc = 8-    fromEnum AttrTypeForeground = 9-    fromEnum AttrTypeBackground = 10-    fromEnum AttrTypeUnderline = 11-    fromEnum AttrTypeStrikethrough = 12-    fromEnum AttrTypeRise = 13-    fromEnum AttrTypeShape = 14-    fromEnum AttrTypeScale = 15-    fromEnum AttrTypeFallback = 16-    fromEnum AttrTypeLetterSpacing = 17-    fromEnum AttrTypeUnderlineColor = 18-    fromEnum AttrTypeStrikethroughColor = 19-    fromEnum AttrTypeAbsoluteSize = 20-    fromEnum AttrTypeGravity = 21-    fromEnum AttrTypeGravityHint = 22-    fromEnum (AnotherAttrType k) = k--    toEnum 0 = AttrTypeInvalid-    toEnum 1 = AttrTypeLanguage-    toEnum 2 = AttrTypeFamily-    toEnum 3 = AttrTypeStyle-    toEnum 4 = AttrTypeWeight-    toEnum 5 = AttrTypeVariant-    toEnum 6 = AttrTypeStretch-    toEnum 7 = AttrTypeSize-    toEnum 8 = AttrTypeFontDesc-    toEnum 9 = AttrTypeForeground-    toEnum 10 = AttrTypeBackground-    toEnum 11 = AttrTypeUnderline-    toEnum 12 = AttrTypeStrikethrough-    toEnum 13 = AttrTypeRise-    toEnum 14 = AttrTypeShape-    toEnum 15 = AttrTypeScale-    toEnum 16 = AttrTypeFallback-    toEnum 17 = AttrTypeLetterSpacing-    toEnum 18 = AttrTypeUnderlineColor-    toEnum 19 = AttrTypeStrikethroughColor-    toEnum 20 = AttrTypeAbsoluteSize-    toEnum 21 = AttrTypeGravity-    toEnum 22 = AttrTypeGravityHint-    toEnum k = AnotherAttrType k--foreign import ccall "pango_attr_type_get_type" c_pango_attr_type_get_type :: -    IO GType--instance BoxedEnum AttrType where-    boxedEnumType _ = c_pango_attr_type_get_type---- Enum Alignment--data Alignment = -      AlignmentLeft-    | AlignmentCenter-    | AlignmentRight-    | AnotherAlignment Int-    deriving (Show, Eq)--instance Enum Alignment where-    fromEnum AlignmentLeft = 0-    fromEnum AlignmentCenter = 1-    fromEnum AlignmentRight = 2-    fromEnum (AnotherAlignment k) = k--    toEnum 0 = AlignmentLeft-    toEnum 1 = AlignmentCenter-    toEnum 2 = AlignmentRight-    toEnum k = AnotherAlignment k--foreign import ccall "pango_alignment_get_type" c_pango_alignment_get_type :: -    IO GType--instance BoxedEnum Alignment where-    boxedEnumType _ = c_pango_alignment_get_type--
− GI/Pango/Flags.hs 
@@ -1,67 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Flags-    ( ---- * Exported types-    FontMask(..)                            ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags FontMask--data FontMask = -      FontMaskFamily-    | FontMaskStyle-    | FontMaskVariant-    | FontMaskWeight-    | FontMaskStretch-    | FontMaskSize-    | FontMaskGravity-    | AnotherFontMask Int-    deriving (Show, Eq)--instance Enum FontMask where-    fromEnum FontMaskFamily = 1-    fromEnum FontMaskStyle = 2-    fromEnum FontMaskVariant = 4-    fromEnum FontMaskWeight = 8-    fromEnum FontMaskStretch = 16-    fromEnum FontMaskSize = 32-    fromEnum FontMaskGravity = 64-    fromEnum (AnotherFontMask k) = k--    toEnum 1 = FontMaskFamily-    toEnum 2 = FontMaskStyle-    toEnum 4 = FontMaskVariant-    toEnum 8 = FontMaskWeight-    toEnum 16 = FontMaskStretch-    toEnum 32 = FontMaskSize-    toEnum 64 = FontMaskGravity-    toEnum k = AnotherFontMask k--foreign import ccall "pango_font_mask_get_type" c_pango_font_mask_get_type :: -    IO GType--instance BoxedEnum FontMask where-    boxedEnumType _ = c_pango_font_mask_get_type--instance IsGFlag FontMask--
− GI/Pango/Functions.hs 
@@ -1,1895 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Functions-    ( -- -- * Methods--- ** attrTypeGetName-    attrTypeGetName                         ,----- ** attrTypeRegister-    attrTypeRegister                        ,----- ** bidiTypeForUnichar-    bidiTypeForUnichar                      ,----- ** break-    break                                   ,----- ** configKeyGet-    configKeyGet                            ,----- ** configKeyGetSystem-    configKeyGetSystem                      ,----- ** defaultBreak-    defaultBreak                            ,----- ** extentsToPixels-    extentsToPixels                         ,----- ** findBaseDir-    findBaseDir                             ,----- ** findParagraphBoundary-    findParagraphBoundary                   ,----- ** fontDescriptionFromString-    fontDescriptionFromString               ,----- ** getLibSubdirectory-    getLibSubdirectory                      ,----- ** getLogAttrs-    getLogAttrs                             ,----- ** getMirrorChar-    getMirrorChar                           ,----- ** getSysconfSubdirectory-    getSysconfSubdirectory                  ,----- ** gravityGetForMatrix-    gravityGetForMatrix                     ,----- ** gravityGetForScript-    gravityGetForScript                     ,----- ** gravityGetForScriptAndWidth-    gravityGetForScriptAndWidth             ,----- ** gravityToRotation-    gravityToRotation                       ,----- ** isZeroWidth-    isZeroWidth                             ,----- ** itemize-    itemize                                 ,----- ** itemizeWithBaseDir-    itemizeWithBaseDir                      ,----- ** languageFromString-    languageFromString                      ,----- ** languageGetDefault-    languageGetDefault                      ,----- ** log2visGetEmbeddingLevels-    log2visGetEmbeddingLevels               ,----- ** lookupAliases-    lookupAliases                           ,----- ** markupParserFinish-    markupParserFinish                      ,----- ** markupParserNew-    markupParserNew                         ,----- ** moduleRegister-    moduleRegister                          ,----- ** parseEnum-    parseEnum                               ,----- ** parseMarkup-    parseMarkup                             ,----- ** parseStretch-    parseStretch                            ,----- ** parseStyle-    parseStyle                              ,----- ** parseVariant-    parseVariant                            ,----- ** parseWeight-    parseWeight                             ,----- ** quantizeLineGeometry-    quantizeLineGeometry                    ,----- ** readLine-    readLine                                ,----- ** reorderItems-    reorderItems                            ,----- ** scanInt-    scanInt                                 ,----- ** scanString-    scanString                              ,----- ** scanWord-    scanWord                                ,----- ** scriptForUnichar-    scriptForUnichar                        ,----- ** scriptGetSampleLanguage-    scriptGetSampleLanguage                 ,----- ** shape-    shape                                   ,----- ** shapeFull-    shapeFull                               ,----- ** skipSpace-    skipSpace                               ,----- ** splitFileList-    splitFileList                           ,----- ** trimString-    trimString                              ,----- ** unicharDirection-    unicharDirection                        ,----- ** unitsFromDouble-    unitsFromDouble                         ,----- ** unitsToDouble-    unitsToDouble                           ,----- ** version-    version                                 ,----- ** versionCheck-    versionCheck                            ,----- ** versionString-    versionString                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GLib as GLib---- function pango_version_string--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_version_string" pango_version_string :: -    IO CString---versionString ::-    (MonadIO m) =>-    m T.Text-versionString  = liftIO $ do-    result <- pango_version_string-    checkUnexpectedReturnNULL "pango_version_string" result-    result' <- cstringToText result-    return result'----- function pango_version_check--- Args : [Arg {argName = "required_major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "required_major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_version_check" pango_version_check :: -    Int32 ->                                -- required_major : TBasicType TInt32-    Int32 ->                                -- required_minor : TBasicType TInt32-    Int32 ->                                -- required_micro : TBasicType TInt32-    IO CString---versionCheck ::-    (MonadIO m) =>-    Int32 ->                                -- required_major-    Int32 ->                                -- required_minor-    Int32 ->                                -- required_micro-    m T.Text-versionCheck required_major required_minor required_micro = liftIO $ do-    result <- pango_version_check required_major required_minor required_micro-    checkUnexpectedReturnNULL "pango_version_check" result-    result' <- cstringToText result-    return result'----- function pango_version--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_version" pango_version :: -    IO Int32---version ::-    (MonadIO m) =>-    m Int32-version  = liftIO $ do-    result <- pango_version-    return result----- function pango_units_to_double--- Args : [Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "pango_units_to_double" pango_units_to_double :: -    Int32 ->                                -- i : TBasicType TInt32-    IO CDouble---unitsToDouble ::-    (MonadIO m) =>-    Int32 ->                                -- i-    m Double-unitsToDouble i = liftIO $ do-    result <- pango_units_to_double i-    let result' = realToFrac result-    return result'----- function pango_units_from_double--- Args : [Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_units_from_double" pango_units_from_double :: -    CDouble ->                              -- d : TBasicType TDouble-    IO Int32---unitsFromDouble ::-    (MonadIO m) =>-    Double ->                               -- d-    m Int32-unitsFromDouble d = liftIO $ do-    let d' = realToFrac d-    result <- pango_units_from_double d'-    return result----- function pango_unichar_direction--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Direction"--- throws : False--- Skip return : False--foreign import ccall "pango_unichar_direction" pango_unichar_direction :: -    CInt ->                                 -- ch : TBasicType TUniChar-    IO CUInt---unicharDirection ::-    (MonadIO m) =>-    Char ->                                 -- ch-    m Direction-unicharDirection ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    result <- pango_unichar_direction ch'-    let result' = (toEnum . fromIntegral) result-    return result'----- function pango_trim_string--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", 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 "pango_trim_string" pango_trim_string :: -    CString ->                              -- str : TBasicType TUTF8-    IO CString---trimString ::-    (MonadIO m) =>-    T.Text ->                               -- str-    m T.Text-trimString str = liftIO $ do-    str' <- textToCString str-    result <- pango_trim_string str'-    checkUnexpectedReturnNULL "pango_trim_string" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function pango_split_file_list--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, 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 "pango_split_file_list" pango_split_file_list :: -    CString ->                              -- str : TBasicType TUTF8-    IO (Ptr CString)---splitFileList ::-    (MonadIO m) =>-    T.Text ->                               -- str-    m [T.Text]-splitFileList str = liftIO $ do-    str' <- textToCString str-    result <- pango_split_file_list str'-    checkUnexpectedReturnNULL "pango_split_file_list" result-    result' <- unpackZeroTerminatedUTF8CArray result-    mapZeroTerminatedCArray freeMem result-    freeMem result-    freeMem str'-    return result'----- function pango_skip_space--- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_skip_space" pango_skip_space :: -    Ptr CString ->                          -- pos : TBasicType TUTF8-    IO CInt---skipSpace ::-    (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text)-skipSpace pos = liftIO $ do-    pos' <- textToCString pos-    pos'' <- allocMem :: IO (Ptr CString)-    poke pos'' pos'-    result <- pango_skip_space pos''-    let result' = (/= 0) result-    pos''' <- peek pos''-    pos'''' <- cstringToText pos'''-    freeMem pos'''-    freeMem pos''-    return (result', pos'''')----- function pango_shape_full--- Args : [Arg {argName = "item_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "item_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_shape_full" pango_shape_full :: -    CString ->                              -- item_text : TBasicType TUTF8-    Int32 ->                                -- item_length : TBasicType TInt32-    CString ->                              -- paragraph_text : TBasicType TUTF8-    Int32 ->                                -- paragraph_length : TBasicType TInt32-    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"-    Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"-    IO ()---shapeFull ::-    (MonadIO m) =>-    T.Text ->                               -- item_text-    Int32 ->                                -- item_length-    Maybe (T.Text) ->                       -- paragraph_text-    Int32 ->                                -- paragraph_length-    Analysis ->                             -- analysis-    GlyphString ->                          -- glyphs-    m ()-shapeFull item_text item_length paragraph_text paragraph_length analysis glyphs = liftIO $ do-    item_text' <- textToCString item_text-    maybeParagraph_text <- case paragraph_text of-        Nothing -> return nullPtr-        Just jParagraph_text -> do-            jParagraph_text' <- textToCString jParagraph_text-            return jParagraph_text'-    let analysis' = unsafeManagedPtrGetPtr analysis-    let glyphs' = unsafeManagedPtrGetPtr glyphs-    pango_shape_full item_text' item_length maybeParagraph_text paragraph_length analysis' glyphs'-    touchManagedPtr analysis-    touchManagedPtr glyphs-    freeMem item_text'-    freeMem maybeParagraph_text-    return ()----- function pango_shape--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_shape" pango_shape :: -    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"-    Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"-    IO ()---shape ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Analysis ->                             -- analysis-    GlyphString ->                          -- glyphs-    m ()-shape text length_ analysis glyphs = liftIO $ do-    text' <- textToCString text-    let analysis' = unsafeManagedPtrGetPtr analysis-    let glyphs' = unsafeManagedPtrGetPtr glyphs-    pango_shape text' length_ analysis' glyphs'-    touchManagedPtr analysis-    touchManagedPtr glyphs-    freeMem text'-    return ()----- function pango_script_get_sample_language--- Args : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Language"--- throws : False--- Skip return : False--foreign import ccall "pango_script_get_sample_language" pango_script_get_sample_language :: -    CUInt ->                                -- script : TInterface "Pango" "Script"-    IO (Ptr Language)---scriptGetSampleLanguage ::-    (MonadIO m) =>-    Script ->                               -- script-    m Language-scriptGetSampleLanguage script = liftIO $ do-    let script' = (fromIntegral . fromEnum) script-    result <- pango_script_get_sample_language script'-    checkUnexpectedReturnNULL "pango_script_get_sample_language" result-    result' <- (wrapBoxed Language) result-    return result'----- function pango_script_for_unichar--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Script"--- throws : False--- Skip return : False--foreign import ccall "pango_script_for_unichar" pango_script_for_unichar :: -    CInt ->                                 -- ch : TBasicType TUniChar-    IO CUInt---scriptForUnichar ::-    (MonadIO m) =>-    Char ->                                 -- ch-    m Script-scriptForUnichar ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    result <- pango_script_for_unichar ch'-    let result' = (toEnum . fromIntegral) result-    return result'----- function pango_scan_word--- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_scan_word" pango_scan_word :: -    Ptr CString ->                          -- pos : TBasicType TUTF8-    Ptr GLib.String ->                      -- out : TInterface "GLib" "String"-    IO CInt---scanWord ::-    (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text,GLib.String)-scanWord pos = liftIO $ do-    pos' <- textToCString pos-    pos'' <- allocMem :: IO (Ptr CString)-    poke pos'' pos'-    out <- callocBoxedBytes 24 :: IO (Ptr GLib.String)-    result <- pango_scan_word pos'' out-    let result' = (/= 0) result-    pos''' <- peek pos''-    pos'''' <- cstringToText pos'''-    freeMem pos'''-    out' <- (wrapBoxed GLib.String) out-    freeMem pos''-    return (result', pos'''', out')----- function pango_scan_string--- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_scan_string" pango_scan_string :: -    Ptr CString ->                          -- pos : TBasicType TUTF8-    Ptr GLib.String ->                      -- out : TInterface "GLib" "String"-    IO CInt---scanString ::-    (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text,GLib.String)-scanString pos = liftIO $ do-    pos' <- textToCString pos-    pos'' <- allocMem :: IO (Ptr CString)-    poke pos'' pos'-    out <- callocBoxedBytes 24 :: IO (Ptr GLib.String)-    result <- pango_scan_string pos'' out-    let result' = (/= 0) result-    pos''' <- peek pos''-    pos'''' <- cstringToText pos'''-    freeMem pos'''-    out' <- (wrapBoxed GLib.String) out-    freeMem pos''-    return (result', pos'''', out')----- function pango_scan_int--- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_scan_int" pango_scan_int :: -    Ptr CString ->                          -- pos : TBasicType TUTF8-    Ptr Int32 ->                            -- out : TBasicType TInt32-    IO CInt---scanInt ::-    (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text,Int32)-scanInt pos = liftIO $ do-    pos' <- textToCString pos-    pos'' <- allocMem :: IO (Ptr CString)-    poke pos'' pos'-    out <- allocMem :: IO (Ptr Int32)-    result <- pango_scan_int pos'' out-    let result' = (/= 0) result-    pos''' <- peek pos''-    pos'''' <- cstringToText pos'''-    freeMem pos'''-    out' <- peek out-    freeMem pos''-    freeMem out-    return (result', pos'''', out')----- function pango_reorder_items--- Args : [Arg {argName = "logical_items", argType = TGList (TInterface "Pango" "Item"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "logical_items", argType = TGList (TInterface "Pango" "Item"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGList (TInterface "Pango" "Item")--- throws : False--- Skip return : False--foreign import ccall "pango_reorder_items" pango_reorder_items :: -    Ptr (GList (Ptr Item)) ->               -- logical_items : TGList (TInterface "Pango" "Item")-    IO (Ptr (GList (Ptr Item)))---reorderItems ::-    (MonadIO m) =>-    [Item] ->                               -- logical_items-    m [Item]-reorderItems logical_items = liftIO $ do-    let logical_items' = map unsafeManagedPtrGetPtr logical_items-    logical_items'' <- packGList logical_items'-    result <- pango_reorder_items logical_items''-    checkUnexpectedReturnNULL "pango_reorder_items" result-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Item) result'-    g_list_free result-    mapM_ touchManagedPtr logical_items-    g_list_free logical_items''-    return result''----- function pango_read_line--- Args : [Arg {argName = "stream", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "stream", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_read_line" pango_read_line :: -    Ptr () ->                               -- stream : TBasicType TVoid-    Ptr GLib.String ->                      -- str : TInterface "GLib" "String"-    IO Int32---readLine ::-    (MonadIO m) =>-    Ptr () ->                               -- stream-    m (Int32,GLib.String)-readLine stream = liftIO $ do-    str <- callocBoxedBytes 24 :: IO (Ptr GLib.String)-    result <- pango_read_line stream str-    str' <- (wrapBoxed GLib.String) str-    return (result, str')----- function pango_quantize_line_geometry--- Args : [Arg {argName = "thickness", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "thickness", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_quantize_line_geometry" pango_quantize_line_geometry :: -    Ptr Int32 ->                            -- thickness : TBasicType TInt32-    Ptr Int32 ->                            -- position : TBasicType TInt32-    IO ()---quantizeLineGeometry ::-    (MonadIO m) =>-    Int32 ->                                -- thickness-    Int32 ->                                -- position-    m (Int32,Int32)-quantizeLineGeometry thickness position = liftIO $ do-    thickness' <- allocMem :: IO (Ptr Int32)-    poke thickness' thickness-    position' <- allocMem :: IO (Ptr Int32)-    poke position' position-    pango_quantize_line_geometry thickness' position'-    thickness'' <- peek thickness'-    position'' <- peek position'-    freeMem thickness'-    freeMem position'-    return (thickness'', position'')----- function pango_parse_weight--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_parse_weight" pango_parse_weight :: -    CString ->                              -- str : TBasicType TUTF8-    Ptr CUInt ->                            -- weight : TInterface "Pango" "Weight"-    CInt ->                                 -- warn : TBasicType TBoolean-    IO CInt---parseWeight ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Weight)-parseWeight str warn = liftIO $ do-    str' <- textToCString str-    weight <- allocMem :: IO (Ptr CUInt)-    let warn' = (fromIntegral . fromEnum) warn-    result <- pango_parse_weight str' weight warn'-    let result' = (/= 0) result-    weight' <- peek weight-    let weight'' = (toEnum . fromIntegral) weight'-    freeMem str'-    freeMem weight-    return (result', weight'')----- function pango_parse_variant--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_parse_variant" pango_parse_variant :: -    CString ->                              -- str : TBasicType TUTF8-    Ptr CUInt ->                            -- variant : TInterface "Pango" "Variant"-    CInt ->                                 -- warn : TBasicType TBoolean-    IO CInt---parseVariant ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Variant)-parseVariant str warn = liftIO $ do-    str' <- textToCString str-    variant <- allocMem :: IO (Ptr CUInt)-    let warn' = (fromIntegral . fromEnum) warn-    result <- pango_parse_variant str' variant warn'-    let result' = (/= 0) result-    variant' <- peek variant-    let variant'' = (toEnum . fromIntegral) variant'-    freeMem str'-    freeMem variant-    return (result', variant'')----- function pango_parse_style--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Pango" "Style", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_parse_style" pango_parse_style :: -    CString ->                              -- str : TBasicType TUTF8-    Ptr CUInt ->                            -- style : TInterface "Pango" "Style"-    CInt ->                                 -- warn : TBasicType TBoolean-    IO CInt---parseStyle ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Style)-parseStyle str warn = liftIO $ do-    str' <- textToCString str-    style <- allocMem :: IO (Ptr CUInt)-    let warn' = (fromIntegral . fromEnum) warn-    result <- pango_parse_style str' style warn'-    let result' = (/= 0) result-    style' <- peek style-    let style'' = (toEnum . fromIntegral) style'-    freeMem str'-    freeMem style-    return (result', style'')----- function pango_parse_stretch--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_parse_stretch" pango_parse_stretch :: -    CString ->                              -- str : TBasicType TUTF8-    Ptr CUInt ->                            -- stretch : TInterface "Pango" "Stretch"-    CInt ->                                 -- warn : TBasicType TBoolean-    IO CInt---parseStretch ::-    (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Stretch)-parseStretch str warn = liftIO $ do-    str' <- textToCString str-    stretch <- allocMem :: IO (Ptr CUInt)-    let warn' = (fromIntegral . fromEnum) warn-    result <- pango_parse_stretch str' stretch warn'-    let result' = (/= 0) result-    stretch' <- peek stretch-    let stretch'' = (toEnum . fromIntegral) stretch'-    freeMem str'-    freeMem stretch-    return (result', stretch'')----- function pango_parse_markup--- Args : [Arg {argName = "markup_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "markup_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "pango_parse_markup" pango_parse_markup :: -    CString ->                              -- markup_text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    CInt ->                                 -- accel_marker : TBasicType TUniChar-    Ptr (Ptr AttrList) ->                   -- attr_list : TInterface "Pango" "AttrList"-    Ptr CString ->                          -- text : TBasicType TUTF8-    Ptr CInt ->                             -- accel_char : TBasicType TUniChar-    Ptr (Ptr GError) ->                     -- error-    IO CInt---parseMarkup ::-    (MonadIO m) =>-    T.Text ->                               -- markup_text-    Int32 ->                                -- length-    Char ->                                 -- accel_marker-    m (AttrList,T.Text,Char)-parseMarkup markup_text length_ accel_marker = liftIO $ do-    markup_text' <- textToCString markup_text-    let accel_marker' = (fromIntegral . ord) accel_marker-    attr_list <- allocMem :: IO (Ptr (Ptr AttrList))-    text <- allocMem :: IO (Ptr CString)-    accel_char <- allocMem :: IO (Ptr CInt)-    onException (do-        _ <- propagateGError $ pango_parse_markup markup_text' length_ accel_marker' attr_list text accel_char-        attr_list' <- peek attr_list-        attr_list'' <- (wrapBoxed AttrList) attr_list'-        text' <- peek text-        text'' <- cstringToText text'-        freeMem text'-        accel_char' <- peek accel_char-        let accel_char'' = (chr . fromIntegral) accel_char'-        freeMem markup_text'-        freeMem attr_list-        freeMem text-        freeMem accel_char-        return (attr_list'', text'', accel_char'')-     ) (do-        freeMem markup_text'-        freeMem attr_list-        freeMem text-        freeMem accel_char-     )----- function pango_parse_enum--- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_values", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_parse_enum" pango_parse_enum :: -    CGType ->                               -- type : TBasicType TGType-    CString ->                              -- str : TBasicType TUTF8-    Ptr Int32 ->                            -- value : TBasicType TInt32-    CInt ->                                 -- warn : TBasicType TBoolean-    Ptr CString ->                          -- possible_values : TBasicType TUTF8-    IO CInt---parseEnum ::-    (MonadIO m) =>-    GType ->                                -- type-    Maybe (T.Text) ->                       -- str-    Bool ->                                 -- warn-    m (Bool,Int32,T.Text)-parseEnum type_ str warn = liftIO $ do-    let type_' = gtypeToCGType type_-    maybeStr <- case str of-        Nothing -> return nullPtr-        Just jStr -> do-            jStr' <- textToCString jStr-            return jStr'-    value <- allocMem :: IO (Ptr Int32)-    let warn' = (fromIntegral . fromEnum) warn-    possible_values <- allocMem :: IO (Ptr CString)-    result <- pango_parse_enum type_' maybeStr value warn' possible_values-    let result' = (/= 0) result-    value' <- peek value-    possible_values' <- peek possible_values-    possible_values'' <- cstringToText possible_values'-    freeMem possible_values'-    freeMem maybeStr-    freeMem value-    freeMem possible_values-    return (result', value', possible_values'')----- function pango_module_register--- Args : [Arg {argName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_module_register" pango_module_register :: -    Ptr IncludedModule ->                   -- module : TInterface "Pango" "IncludedModule"-    IO ()---moduleRegister ::-    (MonadIO m) =>-    IncludedModule ->                       -- module-    m ()-moduleRegister module_ = liftIO $ do-    let module_' = unsafeManagedPtrGetPtr module_-    pango_module_register module_'-    touchManagedPtr module_-    return ()----- function pango_markup_parser_new--- Args : [Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "GLib" "MarkupParseContext"--- throws : False--- Skip return : False--foreign import ccall "pango_markup_parser_new" pango_markup_parser_new :: -    CInt ->                                 -- accel_marker : TBasicType TUniChar-    IO (Ptr GLib.MarkupParseContext)---markupParserNew ::-    (MonadIO m) =>-    Char ->                                 -- accel_marker-    m GLib.MarkupParseContext-markupParserNew accel_marker = liftIO $ do-    let accel_marker' = (fromIntegral . ord) accel_marker-    result <- pango_markup_parser_new accel_marker'-    checkUnexpectedReturnNULL "pango_markup_parser_new" result-    result' <- (newBoxed GLib.MarkupParseContext) result-    return result'----- function pango_markup_parser_finish--- Args : [Arg {argName = "context", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : True--- Skip return : False--foreign import ccall "pango_markup_parser_finish" pango_markup_parser_finish :: -    Ptr GLib.MarkupParseContext ->          -- context : TInterface "GLib" "MarkupParseContext"-    Ptr (Ptr AttrList) ->                   -- attr_list : TInterface "Pango" "AttrList"-    Ptr CString ->                          -- text : TBasicType TUTF8-    Ptr CInt ->                             -- accel_char : TBasicType TUniChar-    Ptr (Ptr GError) ->                     -- error-    IO CInt---markupParserFinish ::-    (MonadIO m) =>-    GLib.MarkupParseContext ->              -- context-    m (AttrList,T.Text,Char)-markupParserFinish context = liftIO $ do-    let context' = unsafeManagedPtrGetPtr context-    attr_list <- allocMem :: IO (Ptr (Ptr AttrList))-    text <- allocMem :: IO (Ptr CString)-    accel_char <- allocMem :: IO (Ptr CInt)-    onException (do-        _ <- propagateGError $ pango_markup_parser_finish context' attr_list text accel_char-        attr_list' <- peek attr_list-        attr_list'' <- (wrapBoxed AttrList) attr_list'-        text' <- peek text-        text'' <- cstringToText text'-        freeMem text'-        accel_char' <- peek accel_char-        let accel_char'' = (chr . fromIntegral) accel_char'-        touchManagedPtr context-        freeMem attr_list-        freeMem text-        freeMem accel_char-        return (attr_list'', text'', accel_char'')-     ) (do-        freeMem attr_list-        freeMem text-        freeMem accel_char-     )----- function pango_lookup_aliases--- Args : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "families", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_lookup_aliases" pango_lookup_aliases :: -    CString ->                              -- fontname : TBasicType TUTF8-    Ptr (Ptr CString) ->                    -- families : TCArray False (-1) 2 (TBasicType TUTF8)-    Ptr Int32 ->                            -- n_families : TBasicType TInt32-    IO ()--{-# DEPRECATED lookupAliases ["(Since version 1.32)","This function is not thread-safe."]#-}-lookupAliases ::-    (MonadIO m) =>-    T.Text ->                               -- fontname-    m ([T.Text])-lookupAliases fontname = liftIO $ do-    fontname' <- textToCString fontname-    families <- allocMem :: IO (Ptr (Ptr CString))-    n_families <- allocMem :: IO (Ptr Int32)-    pango_lookup_aliases fontname' families n_families-    n_families' <- peek n_families-    families' <- peek families-    families'' <- (unpackUTF8CArrayWithLength n_families') families'-    (mapCArrayWithLength n_families') freeMem families'-    freeMem families'-    freeMem fontname'-    freeMem families-    freeMem n_families-    return families''----- function pango_log2vis_get_embedding_levels--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pbase_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pbase_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt8--- throws : False--- Skip return : False--foreign import ccall "pango_log2vis_get_embedding_levels" pango_log2vis_get_embedding_levels :: -    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    CUInt ->                                -- pbase_dir : TInterface "Pango" "Direction"-    IO Word8---log2visGetEmbeddingLevels ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Direction ->                            -- pbase_dir-    m Word8-log2visGetEmbeddingLevels text length_ pbase_dir = liftIO $ do-    text' <- textToCString text-    let pbase_dir' = (fromIntegral . fromEnum) pbase_dir-    result <- pango_log2vis_get_embedding_levels text' length_ pbase_dir'-    freeMem text'-    return result----- function pango_language_get_default--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Pango" "Language"--- throws : False--- Skip return : False--foreign import ccall "pango_language_get_default" pango_language_get_default :: -    IO (Ptr Language)---languageGetDefault ::-    (MonadIO m) =>-    m Language-languageGetDefault  = liftIO $ do-    result <- pango_language_get_default-    checkUnexpectedReturnNULL "pango_language_get_default" result-    result' <- (newBoxed Language) result-    return result'----- function pango_language_from_string--- Args : [Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Language"--- throws : False--- Skip return : False--foreign import ccall "pango_language_from_string" pango_language_from_string :: -    CString ->                              -- language : TBasicType TUTF8-    IO (Ptr Language)---languageFromString ::-    (MonadIO m) =>-    Maybe (T.Text) ->                       -- language-    m Language-languageFromString language = liftIO $ do-    maybeLanguage <- case language of-        Nothing -> return nullPtr-        Just jLanguage -> do-            jLanguage' <- textToCString jLanguage-            return jLanguage'-    result <- pango_language_from_string maybeLanguage-    checkUnexpectedReturnNULL "pango_language_from_string" result-    result' <- (newBoxed Language) result-    freeMem maybeLanguage-    return result'----- function pango_itemize_with_base_dir--- Args : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGList (TInterface "Pango" "Item")--- throws : False--- Skip return : False--foreign import ccall "pango_itemize_with_base_dir" pango_itemize_with_base_dir :: -    Ptr Context ->                          -- context : TInterface "Pango" "Context"-    CUInt ->                                -- base_dir : TInterface "Pango" "Direction"-    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- start_index : TBasicType TInt32-    Int32 ->                                -- length : TBasicType TInt32-    Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"-    Ptr AttrIterator ->                     -- cached_iter : TInterface "Pango" "AttrIterator"-    IO (Ptr (GList (Ptr Item)))---itemizeWithBaseDir ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- context-    Direction ->                            -- base_dir-    T.Text ->                               -- text-    Int32 ->                                -- start_index-    Int32 ->                                -- length-    AttrList ->                             -- attrs-    Maybe (AttrIterator) ->                 -- cached_iter-    m [Item]-itemizeWithBaseDir context base_dir text start_index length_ attrs cached_iter = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let base_dir' = (fromIntegral . fromEnum) base_dir-    text' <- textToCString text-    let attrs' = unsafeManagedPtrGetPtr attrs-    maybeCached_iter <- case cached_iter of-        Nothing -> return nullPtr-        Just jCached_iter -> do-            let jCached_iter' = unsafeManagedPtrGetPtr jCached_iter-            return jCached_iter'-    result <- pango_itemize_with_base_dir context' base_dir' text' start_index length_ attrs' maybeCached_iter-    checkUnexpectedReturnNULL "pango_itemize_with_base_dir" result-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Item) result'-    g_list_free result-    touchManagedPtr context-    touchManagedPtr attrs-    whenJust cached_iter touchManagedPtr-    freeMem text'-    return result''----- function pango_itemize--- Args : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGList (TInterface "Pango" "Item")--- throws : False--- Skip return : False--foreign import ccall "pango_itemize" pango_itemize :: -    Ptr Context ->                          -- context : TInterface "Pango" "Context"-    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- start_index : TBasicType TInt32-    Int32 ->                                -- length : TBasicType TInt32-    Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"-    Ptr AttrIterator ->                     -- cached_iter : TInterface "Pango" "AttrIterator"-    IO (Ptr (GList (Ptr Item)))---itemize ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- context-    T.Text ->                               -- text-    Int32 ->                                -- start_index-    Int32 ->                                -- length-    AttrList ->                             -- attrs-    Maybe (AttrIterator) ->                 -- cached_iter-    m [Item]-itemize context text start_index length_ attrs cached_iter = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    text' <- textToCString text-    let attrs' = unsafeManagedPtrGetPtr attrs-    maybeCached_iter <- case cached_iter of-        Nothing -> return nullPtr-        Just jCached_iter -> do-            let jCached_iter' = unsafeManagedPtrGetPtr jCached_iter-            return jCached_iter'-    result <- pango_itemize context' text' start_index length_ attrs' maybeCached_iter-    checkUnexpectedReturnNULL "pango_itemize" result-    result' <- unpackGList result-    result'' <- mapM (wrapBoxed Item) result'-    g_list_free result-    touchManagedPtr context-    touchManagedPtr attrs-    whenJust cached_iter touchManagedPtr-    freeMem text'-    return result''----- function pango_is_zero_width--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_is_zero_width" pango_is_zero_width :: -    CInt ->                                 -- ch : TBasicType TUniChar-    IO CInt---isZeroWidth ::-    (MonadIO m) =>-    Char ->                                 -- ch-    m Bool-isZeroWidth ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    result <- pango_is_zero_width ch'-    let result' = (/= 0) result-    return result'----- function pango_gravity_to_rotation--- Args : [Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "pango_gravity_to_rotation" pango_gravity_to_rotation :: -    CUInt ->                                -- gravity : TInterface "Pango" "Gravity"-    IO CDouble---gravityToRotation ::-    (MonadIO m) =>-    Gravity ->                              -- gravity-    m Double-gravityToRotation gravity = liftIO $ do-    let gravity' = (fromIntegral . fromEnum) gravity-    result <- pango_gravity_to_rotation gravity'-    let result' = realToFrac result-    return result'----- function pango_gravity_get_for_script_and_width--- Args : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wide", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Gravity"--- throws : False--- Skip return : False--foreign import ccall "pango_gravity_get_for_script_and_width" pango_gravity_get_for_script_and_width :: -    CUInt ->                                -- script : TInterface "Pango" "Script"-    CInt ->                                 -- wide : TBasicType TBoolean-    CUInt ->                                -- base_gravity : TInterface "Pango" "Gravity"-    CUInt ->                                -- hint : TInterface "Pango" "GravityHint"-    IO CUInt---gravityGetForScriptAndWidth ::-    (MonadIO m) =>-    Script ->                               -- script-    Bool ->                                 -- wide-    Gravity ->                              -- base_gravity-    GravityHint ->                          -- hint-    m Gravity-gravityGetForScriptAndWidth script wide base_gravity hint = liftIO $ do-    let script' = (fromIntegral . fromEnum) script-    let wide' = (fromIntegral . fromEnum) wide-    let base_gravity' = (fromIntegral . fromEnum) base_gravity-    let hint' = (fromIntegral . fromEnum) hint-    result <- pango_gravity_get_for_script_and_width script' wide' base_gravity' hint'-    let result' = (toEnum . fromIntegral) result-    return result'----- function pango_gravity_get_for_script--- Args : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Gravity"--- throws : False--- Skip return : False--foreign import ccall "pango_gravity_get_for_script" pango_gravity_get_for_script :: -    CUInt ->                                -- script : TInterface "Pango" "Script"-    CUInt ->                                -- base_gravity : TInterface "Pango" "Gravity"-    CUInt ->                                -- hint : TInterface "Pango" "GravityHint"-    IO CUInt---gravityGetForScript ::-    (MonadIO m) =>-    Script ->                               -- script-    Gravity ->                              -- base_gravity-    GravityHint ->                          -- hint-    m Gravity-gravityGetForScript script base_gravity hint = liftIO $ do-    let script' = (fromIntegral . fromEnum) script-    let base_gravity' = (fromIntegral . fromEnum) base_gravity-    let hint' = (fromIntegral . fromEnum) hint-    result <- pango_gravity_get_for_script script' base_gravity' hint'-    let result' = (toEnum . fromIntegral) result-    return result'----- function pango_gravity_get_for_matrix--- Args : [Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Gravity"--- throws : False--- Skip return : False--foreign import ccall "pango_gravity_get_for_matrix" pango_gravity_get_for_matrix :: -    Ptr Matrix ->                           -- matrix : TInterface "Pango" "Matrix"-    IO CUInt---gravityGetForMatrix ::-    (MonadIO m) =>-    Matrix ->                               -- matrix-    m Gravity-gravityGetForMatrix matrix = liftIO $ do-    let matrix' = unsafeManagedPtrGetPtr matrix-    result <- pango_gravity_get_for_matrix matrix'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr matrix-    return result'----- function pango_get_sysconf_subdirectory--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_get_sysconf_subdirectory" pango_get_sysconf_subdirectory :: -    IO CString---getSysconfSubdirectory ::-    (MonadIO m) =>-    m T.Text-getSysconfSubdirectory  = liftIO $ do-    result <- pango_get_sysconf_subdirectory-    checkUnexpectedReturnNULL "pango_get_sysconf_subdirectory" result-    result' <- cstringToText result-    return result'----- function pango_get_mirror_char--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_get_mirror_char" pango_get_mirror_char :: -    CInt ->                                 -- ch : TBasicType TUniChar-    CInt ->                                 -- mirrored_ch : TBasicType TUniChar-    IO CInt---getMirrorChar ::-    (MonadIO m) =>-    Char ->                                 -- ch-    Char ->                                 -- mirrored_ch-    m Bool-getMirrorChar ch mirrored_ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    let mirrored_ch' = (fromIntegral . ord) mirrored_ch-    result <- pango_get_mirror_char ch' mirrored_ch'-    let result' = (/= 0) result-    return result'----- function pango_get_log_attrs--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) 5 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) 5 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_get_log_attrs" pango_get_log_attrs :: -    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Int32 ->                                -- level : TBasicType TInt32-    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    Ptr LogAttr ->                          -- log_attrs : TCArray False (-1) 5 (TInterface "Pango" "LogAttr")-    Int32 ->                                -- attrs_len : TBasicType TInt32-    IO ()---getLogAttrs ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Int32 ->                                -- level-    Language ->                             -- language-    [LogAttr] ->                            -- log_attrs-    m ()-getLogAttrs text length_ level language log_attrs = liftIO $ do-    let attrs_len = fromIntegral $ length log_attrs-    text' <- textToCString text-    let language' = unsafeManagedPtrGetPtr language-    let log_attrs' = map unsafeManagedPtrGetPtr log_attrs-    log_attrs'' <- packBlockArray 52 log_attrs'-    pango_get_log_attrs text' length_ level language' log_attrs'' attrs_len-    touchManagedPtr language-    mapM_ touchManagedPtr log_attrs-    freeMem text'-    freeMem log_attrs''-    return ()----- function pango_get_lib_subdirectory--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_get_lib_subdirectory" pango_get_lib_subdirectory :: -    IO CString---getLibSubdirectory ::-    (MonadIO m) =>-    m T.Text-getLibSubdirectory  = liftIO $ do-    result <- pango_get_lib_subdirectory-    checkUnexpectedReturnNULL "pango_get_lib_subdirectory" result-    result' <- cstringToText result-    return result'----- function pango_font_description_from_string--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_from_string" pango_font_description_from_string :: -    CString ->                              -- str : TBasicType TUTF8-    IO (Ptr FontDescription)---fontDescriptionFromString ::-    (MonadIO m) =>-    T.Text ->                               -- str-    m FontDescription-fontDescriptionFromString str = liftIO $ do-    str' <- textToCString str-    result <- pango_font_description_from_string str'-    checkUnexpectedReturnNULL "pango_font_description_from_string" result-    result' <- (wrapBoxed FontDescription) result-    freeMem str'-    return result'----- function pango_find_paragraph_boundary--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "paragraph_delimiter_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "next_paragraph_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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 "pango_find_paragraph_boundary" pango_find_paragraph_boundary :: -    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Ptr Int32 ->                            -- paragraph_delimiter_index : TBasicType TInt32-    Ptr Int32 ->                            -- next_paragraph_start : TBasicType TInt32-    IO ()---findParagraphBoundary ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    m (Int32,Int32)-findParagraphBoundary text length_ = liftIO $ do-    text' <- textToCString text-    paragraph_delimiter_index <- allocMem :: IO (Ptr Int32)-    next_paragraph_start <- allocMem :: IO (Ptr Int32)-    pango_find_paragraph_boundary text' length_ paragraph_delimiter_index next_paragraph_start-    paragraph_delimiter_index' <- peek paragraph_delimiter_index-    next_paragraph_start' <- peek next_paragraph_start-    freeMem text'-    freeMem paragraph_delimiter_index-    freeMem next_paragraph_start-    return (paragraph_delimiter_index', next_paragraph_start')----- function pango_find_base_dir--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Direction"--- throws : False--- Skip return : False--foreign import ccall "pango_find_base_dir" pango_find_base_dir :: -    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    IO CUInt---findBaseDir ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    m Direction-findBaseDir text length_ = liftIO $ do-    text' <- textToCString text-    result <- pango_find_base_dir text' length_-    let result' = (toEnum . fromIntegral) result-    freeMem text'-    return result'----- function pango_extents_to_pixels--- Args : [Arg {argName = "inclusive", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nearest", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "inclusive", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nearest", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_extents_to_pixels" pango_extents_to_pixels :: -    Ptr Rectangle ->                        -- inclusive : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- nearest : TInterface "Pango" "Rectangle"-    IO ()---extentsToPixels ::-    (MonadIO m) =>-    Maybe (Rectangle) ->                    -- inclusive-    Maybe (Rectangle) ->                    -- nearest-    m ()-extentsToPixels inclusive nearest = liftIO $ do-    maybeInclusive <- case inclusive of-        Nothing -> return nullPtr-        Just jInclusive -> do-            let jInclusive' = unsafeManagedPtrGetPtr jInclusive-            return jInclusive'-    maybeNearest <- case nearest of-        Nothing -> return nullPtr-        Just jNearest -> do-            let jNearest' = unsafeManagedPtrGetPtr jNearest-            return jNearest'-    pango_extents_to_pixels maybeInclusive maybeNearest-    whenJust inclusive touchManagedPtr-    whenJust nearest touchManagedPtr-    return ()----- function pango_default_break--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "LogAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "LogAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", 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 "pango_default_break" pango_default_break :: -    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"-    Ptr LogAttr ->                          -- attrs : TInterface "Pango" "LogAttr"-    Int32 ->                                -- attrs_len : TBasicType TInt32-    IO ()---defaultBreak ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Analysis ->                             -- analysis-    LogAttr ->                              -- attrs-    Int32 ->                                -- attrs_len-    m ()-defaultBreak text length_ analysis attrs attrs_len = liftIO $ do-    text' <- textToCString text-    let analysis' = unsafeManagedPtrGetPtr analysis-    let attrs' = unsafeManagedPtrGetPtr attrs-    pango_default_break text' length_ analysis' attrs' attrs_len-    touchManagedPtr analysis-    touchManagedPtr attrs-    freeMem text'-    return ()----- function pango_config_key_get_system--- Args : [Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [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 "pango_config_key_get_system" pango_config_key_get_system :: -    CString ->                              -- key : TBasicType TUTF8-    IO CString---configKeyGetSystem ::-    (MonadIO m) =>-    T.Text ->                               -- key-    m T.Text-configKeyGetSystem key = liftIO $ do-    key' <- textToCString key-    result <- pango_config_key_get_system key'-    checkUnexpectedReturnNULL "pango_config_key_get_system" result-    result' <- cstringToText result-    freeMem result-    freeMem key'-    return result'----- function pango_config_key_get--- Args : [Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [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 "pango_config_key_get" pango_config_key_get :: -    CString ->                              -- key : TBasicType TUTF8-    IO CString---configKeyGet ::-    (MonadIO m) =>-    T.Text ->                               -- key-    m T.Text-configKeyGet key = liftIO $ do-    key' <- textToCString key-    result <- pango_config_key_get key'-    checkUnexpectedReturnNULL "pango_config_key_get" result-    result' <- cstringToText result-    freeMem result-    freeMem key'-    return result'----- function pango_break--- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TCArray False (-1) 4 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TCArray False (-1) 4 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_break" pango_break :: -    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"-    Ptr LogAttr ->                          -- attrs : TCArray False (-1) 4 (TInterface "Pango" "LogAttr")-    Int32 ->                                -- attrs_len : TBasicType TInt32-    IO ()---break ::-    (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Analysis ->                             -- analysis-    [LogAttr] ->                            -- attrs-    m ()-break text length_ analysis attrs = liftIO $ do-    let attrs_len = fromIntegral $ length attrs-    text' <- textToCString text-    let analysis' = unsafeManagedPtrGetPtr analysis-    let attrs' = map unsafeManagedPtrGetPtr attrs-    attrs'' <- packBlockArray 52 attrs'-    pango_break text' length_ analysis' attrs'' attrs_len-    touchManagedPtr analysis-    mapM_ touchManagedPtr attrs-    freeMem text'-    freeMem attrs''-    return ()----- function pango_bidi_type_for_unichar--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "BidiType"--- throws : False--- Skip return : False--foreign import ccall "pango_bidi_type_for_unichar" pango_bidi_type_for_unichar :: -    CInt ->                                 -- ch : TBasicType TUniChar-    IO CUInt---bidiTypeForUnichar ::-    (MonadIO m) =>-    Char ->                                 -- ch-    m BidiType-bidiTypeForUnichar ch = liftIO $ do-    let ch' = (fromIntegral . ord) ch-    result <- pango_bidi_type_for_unichar ch'-    let result' = (toEnum . fromIntegral) result-    return result'----- function pango_attr_type_register--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "AttrType"--- throws : False--- Skip return : False--foreign import ccall "pango_attr_type_register" pango_attr_type_register :: -    CString ->                              -- name : TBasicType TUTF8-    IO CUInt---attrTypeRegister ::-    (MonadIO m) =>-    T.Text ->                               -- name-    m AttrType-attrTypeRegister name = liftIO $ do-    name' <- textToCString name-    result <- pango_attr_type_register name'-    let result' = (toEnum . fromIntegral) result-    freeMem name'-    return result'----- function pango_attr_type_get_name--- Args : [Arg {argName = "type", argType = TInterface "Pango" "AttrType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "Pango" "AttrType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_attr_type_get_name" pango_attr_type_get_name :: -    CUInt ->                                -- type : TInterface "Pango" "AttrType"-    IO CString---attrTypeGetName ::-    (MonadIO m) =>-    AttrType ->                             -- type-    m T.Text-attrTypeGetName type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- pango_attr_type_get_name type_'-    checkUnexpectedReturnNULL "pango_attr_type_get_name" result-    result' <- cstringToText result-    return result'---
− GI/Pango/Objects.hs 
@@ -1,48 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects-    (     module GI.Pango.Objects.Context         ,-    module GI.Pango.Objects.Engine          ,-    module GI.Pango.Objects.EngineLang      ,-    module GI.Pango.Objects.EngineShape     ,-    module GI.Pango.Objects.Font            ,-    module GI.Pango.Objects.FontFace        ,-    module GI.Pango.Objects.FontFamily      ,-    module GI.Pango.Objects.FontMap         ,-    module GI.Pango.Objects.Fontset         ,-    module GI.Pango.Objects.FontsetSimple   ,-    module GI.Pango.Objects.Layout          ,-    module GI.Pango.Objects.Renderer        ,---    ) where--import GI.Pango.Objects.Context-import GI.Pango.Objects.Engine-import GI.Pango.Objects.EngineLang-import GI.Pango.Objects.EngineShape-import GI.Pango.Objects.Font-import GI.Pango.Objects.FontFace-import GI.Pango.Objects.FontFamily-import GI.Pango.Objects.FontMap-import GI.Pango.Objects.Fontset-import GI.Pango.Objects.FontsetSimple-import GI.Pango.Objects.Layout-import GI.Pango.Objects.Renderer--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--
− GI/Pango/Objects/Context.hs 
@@ -1,761 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.Context-    ( ---- * Exported types-    Context(..)                             ,-    ContextK                                ,-    toContext                               ,-    noContext                               ,--- -- * Methods--- ** contextChanged-    contextChanged                          ,----- ** contextGetBaseDir-    contextGetBaseDir                       ,----- ** contextGetBaseGravity-    contextGetBaseGravity                   ,----- ** contextGetFontDescription-    contextGetFontDescription               ,----- ** contextGetFontMap-    contextGetFontMap                       ,----- ** contextGetGravity-    contextGetGravity                       ,----- ** contextGetGravityHint-    contextGetGravityHint                   ,----- ** contextGetLanguage-    contextGetLanguage                      ,----- ** contextGetMatrix-    contextGetMatrix                        ,----- ** contextGetMetrics-    contextGetMetrics                       ,----- ** contextGetSerial-    contextGetSerial                        ,----- ** contextListFamilies-    contextListFamilies                     ,----- ** contextLoadFont-    contextLoadFont                         ,----- ** contextLoadFontset-    contextLoadFontset                      ,----- ** contextNew-    contextNew                              ,----- ** contextSetBaseDir-    contextSetBaseDir                       ,----- ** contextSetBaseGravity-    contextSetBaseGravity                   ,----- ** contextSetFontDescription-    contextSetFontDescription               ,----- ** contextSetFontMap-    contextSetFontMap                       ,----- ** contextSetGravityHint-    contextSetGravityHint                   ,----- ** contextSetLanguage-    contextSetLanguage                      ,----- ** contextSetMatrix-    contextSetMatrix                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype Context = Context (ForeignPtr Context)-foreign import ccall "pango_context_get_type"-    c_pango_context_get_type :: IO GType--type instance ParentTypes Context = ContextParentTypes-type ContextParentTypes = '[GObject.Object]--instance GObject Context where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_context_get_type-    --class GObject o => ContextK o-instance (GObject o, IsDescendantOf Context o) => ContextK o--toContext :: ContextK o => o -> IO Context-toContext = unsafeCastTo Context--noContext :: Maybe Context-noContext = Nothing--type instance AttributeList Context = ContextAttributeList-type ContextAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Context = ContextSignalList-type ContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Context::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Pango" "Context"--- throws : False--- Skip return : False--foreign import ccall "pango_context_new" pango_context_new :: -    IO (Ptr Context)---contextNew ::-    (MonadIO m) =>-    m Context-contextNew  = liftIO $ do-    result <- pango_context_new-    checkUnexpectedReturnNULL "pango_context_new" result-    result' <- (wrapObject Context) result-    return result'---- method Context::changed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_changed" pango_context_changed :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO ()---contextChanged ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m ()-contextChanged _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_context_changed _obj'-    touchManagedPtr _obj-    return ()---- method Context::get_base_dir--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Direction"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_base_dir" pango_context_get_base_dir :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO CUInt---contextGetBaseDir ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Direction-contextGetBaseDir _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_base_dir _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Context::get_base_gravity--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Gravity"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_base_gravity" pango_context_get_base_gravity :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO CUInt---contextGetBaseGravity ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Gravity-contextGetBaseGravity _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_base_gravity _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Context::get_font_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_font_description" pango_context_get_font_description :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO (Ptr FontDescription)---contextGetFontDescription ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m FontDescription-contextGetFontDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_font_description _obj'-    checkUnexpectedReturnNULL "pango_context_get_font_description" result-    result' <- (newBoxed FontDescription) result-    touchManagedPtr _obj-    return result'---- method Context::get_font_map--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontMap"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_font_map" pango_context_get_font_map :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO (Ptr FontMap)---contextGetFontMap ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m FontMap-contextGetFontMap _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_font_map _obj'-    checkUnexpectedReturnNULL "pango_context_get_font_map" result-    result' <- (newObject FontMap) result-    touchManagedPtr _obj-    return result'---- method Context::get_gravity--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Gravity"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_gravity" pango_context_get_gravity :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO CUInt---contextGetGravity ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Gravity-contextGetGravity _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_gravity _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Context::get_gravity_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "GravityHint"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_gravity_hint" pango_context_get_gravity_hint :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO CUInt---contextGetGravityHint ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m GravityHint-contextGetGravityHint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_gravity_hint _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Context::get_language--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Language"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_language" pango_context_get_language :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO (Ptr Language)---contextGetLanguage ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Language-contextGetLanguage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_language _obj'-    checkUnexpectedReturnNULL "pango_context_get_language" result-    result' <- (wrapBoxed Language) result-    touchManagedPtr _obj-    return result'---- method Context::get_matrix--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Matrix"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_matrix" pango_context_get_matrix :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO (Ptr Matrix)---contextGetMatrix ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Matrix-contextGetMatrix _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_matrix _obj'-    checkUnexpectedReturnNULL "pango_context_get_matrix" result-    result' <- (newBoxed Matrix) result-    touchManagedPtr _obj-    return result'---- method Context::get_metrics--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontMetrics"--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_metrics" pango_context_get_metrics :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    IO (Ptr FontMetrics)---contextGetMetrics ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Maybe (FontDescription) ->              -- desc-    Maybe (Language) ->                     -- language-    m FontMetrics-contextGetMetrics _obj desc language = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeDesc <- case desc of-        Nothing -> return nullPtr-        Just jDesc -> do-            let jDesc' = unsafeManagedPtrGetPtr jDesc-            return jDesc'-    maybeLanguage <- case language of-        Nothing -> return nullPtr-        Just jLanguage -> do-            let jLanguage' = unsafeManagedPtrGetPtr jLanguage-            return jLanguage'-    result <- pango_context_get_metrics _obj' maybeDesc maybeLanguage-    checkUnexpectedReturnNULL "pango_context_get_metrics" result-    result' <- (wrapBoxed FontMetrics) result-    touchManagedPtr _obj-    whenJust desc touchManagedPtr-    whenJust language touchManagedPtr-    return result'---- method Context::get_serial--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "pango_context_get_serial" pango_context_get_serial :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    IO Word32---contextGetSerial ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Word32-contextGetSerial _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_context_get_serial _obj'-    touchManagedPtr _obj-    return result---- method Context::list_families--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_list_families" pango_context_list_families :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr (Ptr (Ptr FontFamily)) ->           -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")-    Ptr Int32 ->                            -- n_families : TBasicType TInt32-    IO ()---contextListFamilies ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m ([FontFamily])-contextListFamilies _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    families <- allocMem :: IO (Ptr (Ptr (Ptr FontFamily)))-    n_families <- allocMem :: IO (Ptr Int32)-    pango_context_list_families _obj' families n_families-    n_families' <- peek n_families-    families' <- peek families-    families'' <- (unpackPtrArrayWithLength n_families') families'-    families''' <- mapM (newObject FontFamily) families''-    freeMem families'-    touchManagedPtr _obj-    freeMem families-    freeMem n_families-    return families'''---- method Context::load_font--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Font"--- throws : False--- Skip return : False--foreign import ccall "pango_context_load_font" pango_context_load_font :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    IO (Ptr Font)---contextLoadFont ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    FontDescription ->                      -- desc-    m Font-contextLoadFont _obj desc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let desc' = unsafeManagedPtrGetPtr desc-    result <- pango_context_load_font _obj' desc'-    checkUnexpectedReturnNULL "pango_context_load_font" result-    result' <- (wrapObject Font) result-    touchManagedPtr _obj-    touchManagedPtr desc-    return result'---- method Context::load_fontset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Fontset"--- throws : False--- Skip return : False--foreign import ccall "pango_context_load_fontset" pango_context_load_fontset :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    IO (Ptr Fontset)---contextLoadFontset ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    FontDescription ->                      -- desc-    Language ->                             -- language-    m Fontset-contextLoadFontset _obj desc language = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let desc' = unsafeManagedPtrGetPtr desc-    let language' = unsafeManagedPtrGetPtr language-    result <- pango_context_load_fontset _obj' desc' language'-    checkUnexpectedReturnNULL "pango_context_load_fontset" result-    result' <- (wrapObject Fontset) result-    touchManagedPtr _obj-    touchManagedPtr desc-    touchManagedPtr language-    return result'---- method Context::set_base_dir--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_set_base_dir" pango_context_set_base_dir :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    CUInt ->                                -- direction : TInterface "Pango" "Direction"-    IO ()---contextSetBaseDir ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Direction ->                            -- direction-    m ()-contextSetBaseDir _obj direction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let direction' = (fromIntegral . fromEnum) direction-    pango_context_set_base_dir _obj' direction'-    touchManagedPtr _obj-    return ()---- method Context::set_base_gravity--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_set_base_gravity" pango_context_set_base_gravity :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    CUInt ->                                -- gravity : TInterface "Pango" "Gravity"-    IO ()---contextSetBaseGravity ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Gravity ->                              -- gravity-    m ()-contextSetBaseGravity _obj gravity = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let gravity' = (fromIntegral . fromEnum) gravity-    pango_context_set_base_gravity _obj' gravity'-    touchManagedPtr _obj-    return ()---- method Context::set_font_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_set_font_description" pango_context_set_font_description :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    IO ()---contextSetFontDescription ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    FontDescription ->                      -- desc-    m ()-contextSetFontDescription _obj desc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let desc' = unsafeManagedPtrGetPtr desc-    pango_context_set_font_description _obj' desc'-    touchManagedPtr _obj-    touchManagedPtr desc-    return ()---- method Context::set_font_map--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_set_font_map" pango_context_set_font_map :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr FontMap ->                          -- font_map : TInterface "Pango" "FontMap"-    IO ()---contextSetFontMap ::-    (MonadIO m, ContextK a, FontMapK b) =>-    a ->                                    -- _obj-    b ->                                    -- font_map-    m ()-contextSetFontMap _obj font_map = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let font_map' = unsafeManagedPtrCastPtr font_map-    pango_context_set_font_map _obj' font_map'-    touchManagedPtr _obj-    touchManagedPtr font_map-    return ()---- method Context::set_gravity_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_set_gravity_hint" pango_context_set_gravity_hint :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    CUInt ->                                -- hint : TInterface "Pango" "GravityHint"-    IO ()---contextSetGravityHint ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    GravityHint ->                          -- hint-    m ()-contextSetGravityHint _obj hint = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let hint' = (fromIntegral . fromEnum) hint-    pango_context_set_gravity_hint _obj' hint'-    touchManagedPtr _obj-    return ()---- method Context::set_language--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_set_language" pango_context_set_language :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    IO ()---contextSetLanguage ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Language ->                             -- language-    m ()-contextSetLanguage _obj language = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let language' = unsafeManagedPtrGetPtr language-    pango_context_set_language _obj' language'-    touchManagedPtr _obj-    touchManagedPtr language-    return ()---- method Context::set_matrix--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_context_set_matrix" pango_context_set_matrix :: -    Ptr Context ->                          -- _obj : TInterface "Pango" "Context"-    Ptr Matrix ->                           -- matrix : TInterface "Pango" "Matrix"-    IO ()---contextSetMatrix ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Maybe (Matrix) ->                       -- matrix-    m ()-contextSetMatrix _obj matrix = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeMatrix <- case matrix of-        Nothing -> return nullPtr-        Just jMatrix -> do-            let jMatrix' = unsafeManagedPtrGetPtr jMatrix-            return jMatrix'-    pango_context_set_matrix _obj' maybeMatrix-    touchManagedPtr _obj-    whenJust matrix touchManagedPtr-    return ()--
− GI/Pango/Objects/Context.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.Context where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Context = Context (ForeignPtr Context)-instance GObject Context where-class GObject o => ContextK o-instance (GObject o, IsDescendantOf Context o) => ContextK o
− GI/Pango/Objects/Engine.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.Engine-    ( ---- * Exported types-    Engine(..)                              ,-    EngineK                                 ,-    toEngine                                ,-    noEngine                                ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype Engine = Engine (ForeignPtr Engine)-foreign import ccall "pango_engine_get_type"-    c_pango_engine_get_type :: IO GType--type instance ParentTypes Engine = EngineParentTypes-type EngineParentTypes = '[GObject.Object]--instance GObject Engine where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_engine_get_type-    --class GObject o => EngineK o-instance (GObject o, IsDescendantOf Engine o) => EngineK o--toEngine :: EngineK o => o -> IO Engine-toEngine = unsafeCastTo Engine--noEngine :: Maybe Engine-noEngine = Nothing--type instance AttributeList Engine = EngineAttributeList-type EngineAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Engine = EngineSignalList-type EngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Pango/Objects/Engine.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.Engine where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Engine = Engine (ForeignPtr Engine)-instance GObject Engine where-class GObject o => EngineK o-instance (GObject o, IsDescendantOf Engine o) => EngineK o
− GI/Pango/Objects/EngineLang.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.EngineLang-    ( ---- * Exported types-    EngineLang(..)                          ,-    EngineLangK                             ,-    toEngineLang                            ,-    noEngineLang                            ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype EngineLang = EngineLang (ForeignPtr EngineLang)-foreign import ccall "pango_engine_lang_get_type"-    c_pango_engine_lang_get_type :: IO GType--type instance ParentTypes EngineLang = EngineLangParentTypes-type EngineLangParentTypes = '[Engine, GObject.Object]--instance GObject EngineLang where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_engine_lang_get_type-    --class GObject o => EngineLangK o-instance (GObject o, IsDescendantOf EngineLang o) => EngineLangK o--toEngineLang :: EngineLangK o => o -> IO EngineLang-toEngineLang = unsafeCastTo EngineLang--noEngineLang :: Maybe EngineLang-noEngineLang = Nothing--type instance AttributeList EngineLang = EngineLangAttributeList-type EngineLangAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList EngineLang = EngineLangSignalList-type EngineLangSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Pango/Objects/EngineLang.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.EngineLang where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EngineLang = EngineLang (ForeignPtr EngineLang)-instance GObject EngineLang where-class GObject o => EngineLangK o-instance (GObject o, IsDescendantOf EngineLang o) => EngineLangK o
− GI/Pango/Objects/EngineShape.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.EngineShape-    ( ---- * Exported types-    EngineShape(..)                         ,-    EngineShapeK                            ,-    toEngineShape                           ,-    noEngineShape                           ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype EngineShape = EngineShape (ForeignPtr EngineShape)-foreign import ccall "pango_engine_shape_get_type"-    c_pango_engine_shape_get_type :: IO GType--type instance ParentTypes EngineShape = EngineShapeParentTypes-type EngineShapeParentTypes = '[Engine, GObject.Object]--instance GObject EngineShape where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_engine_shape_get_type-    --class GObject o => EngineShapeK o-instance (GObject o, IsDescendantOf EngineShape o) => EngineShapeK o--toEngineShape :: EngineShapeK o => o -> IO EngineShape-toEngineShape = unsafeCastTo EngineShape--noEngineShape :: Maybe EngineShape-noEngineShape = Nothing--type instance AttributeList EngineShape = EngineShapeAttributeList-type EngineShapeAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList EngineShape = EngineShapeSignalList-type EngineShapeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Pango/Objects/EngineShape.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.EngineShape where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EngineShape = EngineShape (ForeignPtr EngineShape)-instance GObject EngineShape where-class GObject o => EngineShapeK o-instance (GObject o, IsDescendantOf EngineShape o) => EngineShapeK o
− GI/Pango/Objects/Font.hs 
@@ -1,262 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.Font-    ( ---- * Exported types-    Font(..)                                ,-    FontK                                   ,-    toFont                                  ,-    noFont                                  ,--- -- * Methods--- ** fontDescribe-    fontDescribe                            ,----- ** fontDescribeWithAbsoluteSize-    fontDescribeWithAbsoluteSize            ,----- ** fontDescriptionsFree-    fontDescriptionsFree                    ,----- ** fontGetFontMap-    fontGetFontMap                          ,----- ** fontGetGlyphExtents-    fontGetGlyphExtents                     ,----- ** fontGetMetrics-    fontGetMetrics                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype Font = Font (ForeignPtr Font)-foreign import ccall "pango_font_get_type"-    c_pango_font_get_type :: IO GType--type instance ParentTypes Font = FontParentTypes-type FontParentTypes = '[GObject.Object]--instance GObject Font where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_font_get_type-    --class GObject o => FontK o-instance (GObject o, IsDescendantOf Font o) => FontK o--toFont :: FontK o => o -> IO Font-toFont = unsafeCastTo Font--noFont :: Maybe Font-noFont = Nothing--type instance AttributeList Font = FontAttributeList-type FontAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Font = FontSignalList-type FontSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Font::describe--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_font_describe" pango_font_describe :: -    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"-    IO (Ptr FontDescription)---fontDescribe ::-    (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    m FontDescription-fontDescribe _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_describe _obj'-    checkUnexpectedReturnNULL "pango_font_describe" result-    result' <- (wrapBoxed FontDescription) result-    touchManagedPtr _obj-    return result'---- method Font::describe_with_absolute_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_font_describe_with_absolute_size" pango_font_describe_with_absolute_size :: -    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"-    IO (Ptr FontDescription)---fontDescribeWithAbsoluteSize ::-    (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    m FontDescription-fontDescribeWithAbsoluteSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_describe_with_absolute_size _obj'-    checkUnexpectedReturnNULL "pango_font_describe_with_absolute_size" result-    result' <- (wrapBoxed FontDescription) result-    touchManagedPtr _obj-    return result'---- method Font::get_font_map--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontMap"--- throws : False--- Skip return : False--foreign import ccall "pango_font_get_font_map" pango_font_get_font_map :: -    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"-    IO (Ptr FontMap)---fontGetFontMap ::-    (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    m FontMap-fontGetFontMap _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_get_font_map _obj'-    checkUnexpectedReturnNULL "pango_font_get_font_map" result-    result' <- (newObject FontMap) result-    touchManagedPtr _obj-    return result'---- method Font::get_glyph_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", 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 "pango_font_get_glyph_extents" pango_font_get_glyph_extents :: -    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"-    Word32 ->                               -- glyph : TBasicType TUInt32-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---fontGetGlyphExtents ::-    (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- glyph-    m (Rectangle,Rectangle)-fontGetGlyphExtents _obj glyph = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_font_get_glyph_extents _obj' glyph ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method Font::get_metrics--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontMetrics"--- throws : False--- Skip return : False--foreign import ccall "pango_font_get_metrics" pango_font_get_metrics :: -    Ptr Font ->                             -- _obj : TInterface "Pango" "Font"-    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    IO (Ptr FontMetrics)---fontGetMetrics ::-    (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    Maybe (Language) ->                     -- language-    m FontMetrics-fontGetMetrics _obj language = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLanguage <- case language of-        Nothing -> return nullPtr-        Just jLanguage -> do-            let jLanguage' = unsafeManagedPtrGetPtr jLanguage-            return jLanguage'-    result <- pango_font_get_metrics _obj' maybeLanguage-    checkUnexpectedReturnNULL "pango_font_get_metrics" result-    result' <- (wrapBoxed FontMetrics) result-    touchManagedPtr _obj-    whenJust language touchManagedPtr-    return result'---- method Font::descriptions_free--- method type : MemberFunction--- Args : [Arg {argName = "descs", argType = TCArray False (-1) 1 (TInterface "Pango" "FontDescription"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_descs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "n_descs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "descs", argType = TCArray False (-1) 1 (TInterface "Pango" "FontDescription"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_descriptions_free" pango_font_descriptions_free :: -    Ptr (Ptr FontDescription) ->            -- descs : TCArray False (-1) 1 (TInterface "Pango" "FontDescription")-    Int32 ->                                -- n_descs : TBasicType TInt32-    IO ()---fontDescriptionsFree ::-    (MonadIO m) =>-    Maybe ([FontDescription]) ->            -- descs-    m ()-fontDescriptionsFree descs = liftIO $ do-    let n_descs = case descs of-            Nothing -> 0-            Just jDescs -> fromIntegral $ length jDescs-    maybeDescs <- case descs of-        Nothing -> return nullPtr-        Just jDescs -> do-            jDescs' <- mapM copyBoxed jDescs-            jDescs'' <- packPtrArray jDescs'-            return jDescs''-    pango_font_descriptions_free maybeDescs n_descs-    whenJust descs (mapM_ touchManagedPtr)-    return ()--
− GI/Pango/Objects/Font.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.Font where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Font = Font (ForeignPtr Font)-instance GObject Font where-class GObject o => FontK o-instance (GObject o, IsDescendantOf Font o) => FontK o
− GI/Pango/Objects/FontFace.hs 
@@ -1,188 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.FontFace-    ( ---- * Exported types-    FontFace(..)                            ,-    FontFaceK                               ,-    toFontFace                              ,-    noFontFace                              ,--- -- * Methods--- ** fontFaceDescribe-    fontFaceDescribe                        ,----- ** fontFaceGetFaceName-    fontFaceGetFaceName                     ,----- ** fontFaceIsSynthesized-    fontFaceIsSynthesized                   ,----- ** fontFaceListSizes-    fontFaceListSizes                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype FontFace = FontFace (ForeignPtr FontFace)-foreign import ccall "pango_font_face_get_type"-    c_pango_font_face_get_type :: IO GType--type instance ParentTypes FontFace = FontFaceParentTypes-type FontFaceParentTypes = '[GObject.Object]--instance GObject FontFace where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_font_face_get_type-    --class GObject o => FontFaceK o-instance (GObject o, IsDescendantOf FontFace o) => FontFaceK o--toFontFace :: FontFaceK o => o -> IO FontFace-toFontFace = unsafeCastTo FontFace--noFontFace :: Maybe FontFace-noFontFace = Nothing--type instance AttributeList FontFace = FontFaceAttributeList-type FontFaceAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FontFace = FontFaceSignalList-type FontFaceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FontFace::describe--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_font_face_describe" pango_font_face_describe :: -    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"-    IO (Ptr FontDescription)---fontFaceDescribe ::-    (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m FontDescription-fontFaceDescribe _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_face_describe _obj'-    checkUnexpectedReturnNULL "pango_font_face_describe" result-    result' <- (wrapBoxed FontDescription) result-    touchManagedPtr _obj-    return result'---- method FontFace::get_face_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_font_face_get_face_name" pango_font_face_get_face_name :: -    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"-    IO CString---fontFaceGetFaceName ::-    (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m T.Text-fontFaceGetFaceName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_face_get_face_name _obj'-    checkUnexpectedReturnNULL "pango_font_face_get_face_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method FontFace::is_synthesized--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_font_face_is_synthesized" pango_font_face_is_synthesized :: -    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"-    IO CInt---fontFaceIsSynthesized ::-    (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m Bool-fontFaceIsSynthesized _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_face_is_synthesized _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method FontFace::list_sizes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_face_list_sizes" pango_font_face_list_sizes :: -    Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"-    Ptr (Ptr Int32) ->                      -- sizes : TCArray False (-1) 2 (TBasicType TInt32)-    Ptr Int32 ->                            -- n_sizes : TBasicType TInt32-    IO ()---fontFaceListSizes ::-    (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m ([Int32])-fontFaceListSizes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    sizes <- allocMem :: IO (Ptr (Ptr Int32))-    n_sizes <- allocMem :: IO (Ptr Int32)-    pango_font_face_list_sizes _obj' sizes n_sizes-    n_sizes' <- peek n_sizes-    sizes' <- peek sizes-    sizes'' <- (unpackStorableArrayWithLength n_sizes') sizes'-    freeMem sizes'-    touchManagedPtr _obj-    freeMem sizes-    freeMem n_sizes-    return sizes''--
− GI/Pango/Objects/FontFace.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.FontFace where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontFace = FontFace (ForeignPtr FontFace)-instance GObject FontFace where-class GObject o => FontFaceK o-instance (GObject o, IsDescendantOf FontFace o) => FontFaceK o
− GI/Pango/Objects/FontFamily.hs 
@@ -1,159 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.FontFamily-    ( ---- * Exported types-    FontFamily(..)                          ,-    FontFamilyK                             ,-    toFontFamily                            ,-    noFontFamily                            ,--- -- * Methods--- ** fontFamilyGetName-    fontFamilyGetName                       ,----- ** fontFamilyIsMonospace-    fontFamilyIsMonospace                   ,----- ** fontFamilyListFaces-    fontFamilyListFaces                     ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype FontFamily = FontFamily (ForeignPtr FontFamily)-foreign import ccall "pango_font_family_get_type"-    c_pango_font_family_get_type :: IO GType--type instance ParentTypes FontFamily = FontFamilyParentTypes-type FontFamilyParentTypes = '[GObject.Object]--instance GObject FontFamily where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_font_family_get_type-    --class GObject o => FontFamilyK o-instance (GObject o, IsDescendantOf FontFamily o) => FontFamilyK o--toFontFamily :: FontFamilyK o => o -> IO FontFamily-toFontFamily = unsafeCastTo FontFamily--noFontFamily :: Maybe FontFamily-noFontFamily = Nothing--type instance AttributeList FontFamily = FontFamilyAttributeList-type FontFamilyAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FontFamily = FontFamilySignalList-type FontFamilySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FontFamily::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_font_family_get_name" pango_font_family_get_name :: -    Ptr FontFamily ->                       -- _obj : TInterface "Pango" "FontFamily"-    IO CString---fontFamilyGetName ::-    (MonadIO m, FontFamilyK a) =>-    a ->                                    -- _obj-    m T.Text-fontFamilyGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_family_get_name _obj'-    checkUnexpectedReturnNULL "pango_font_family_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method FontFamily::is_monospace--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_font_family_is_monospace" pango_font_family_is_monospace :: -    Ptr FontFamily ->                       -- _obj : TInterface "Pango" "FontFamily"-    IO CInt---fontFamilyIsMonospace ::-    (MonadIO m, FontFamilyK a) =>-    a ->                                    -- _obj-    m Bool-fontFamilyIsMonospace _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_family_is_monospace _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method FontFamily::list_faces--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "faces", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFace"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_faces", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_faces", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_family_list_faces" pango_font_family_list_faces :: -    Ptr FontFamily ->                       -- _obj : TInterface "Pango" "FontFamily"-    Ptr (Ptr (Ptr FontFace)) ->             -- faces : TCArray False (-1) 2 (TInterface "Pango" "FontFace")-    Ptr Int32 ->                            -- n_faces : TBasicType TInt32-    IO ()---fontFamilyListFaces ::-    (MonadIO m, FontFamilyK a) =>-    a ->                                    -- _obj-    m ([FontFace])-fontFamilyListFaces _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    faces <- allocMem :: IO (Ptr (Ptr (Ptr FontFace)))-    n_faces <- allocMem :: IO (Ptr Int32)-    pango_font_family_list_faces _obj' faces n_faces-    n_faces' <- peek n_faces-    faces' <- peek faces-    faces'' <- (unpackPtrArrayWithLength n_faces') faces'-    faces''' <- mapM (newObject FontFace) faces''-    freeMem faces'-    touchManagedPtr _obj-    freeMem faces-    freeMem n_faces-    return faces'''--
− GI/Pango/Objects/FontFamily.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.FontFamily where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontFamily = FontFamily (ForeignPtr FontFamily)-instance GObject FontFamily where-class GObject o => FontFamilyK o-instance (GObject o, IsDescendantOf FontFamily o) => FontFamilyK o
− GI/Pango/Objects/FontMap.hs 
@@ -1,296 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.FontMap-    ( ---- * Exported types-    FontMap(..)                             ,-    FontMapK                                ,-    toFontMap                               ,-    noFontMap                               ,--- -- * Methods--- ** fontMapChanged-    fontMapChanged                          ,----- ** fontMapCreateContext-    fontMapCreateContext                    ,----- ** fontMapGetSerial-    fontMapGetSerial                        ,----- ** fontMapGetShapeEngineType-    fontMapGetShapeEngineType               ,----- ** fontMapListFamilies-    fontMapListFamilies                     ,----- ** fontMapLoadFont-    fontMapLoadFont                         ,----- ** fontMapLoadFontset-    fontMapLoadFontset                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype FontMap = FontMap (ForeignPtr FontMap)-foreign import ccall "pango_font_map_get_type"-    c_pango_font_map_get_type :: IO GType--type instance ParentTypes FontMap = FontMapParentTypes-type FontMapParentTypes = '[GObject.Object]--instance GObject FontMap where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_font_map_get_type-    --class GObject o => FontMapK o-instance (GObject o, IsDescendantOf FontMap o) => FontMapK o--toFontMap :: FontMapK o => o -> IO FontMap-toFontMap = unsafeCastTo FontMap--noFontMap :: Maybe FontMap-noFontMap = Nothing--type instance AttributeList FontMap = FontMapAttributeList-type FontMapAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FontMap = FontMapSignalList-type FontMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FontMap::changed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_map_changed" pango_font_map_changed :: -    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"-    IO ()---fontMapChanged ::-    (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m ()-fontMapChanged _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_font_map_changed _obj'-    touchManagedPtr _obj-    return ()---- method FontMap::create_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Context"--- throws : False--- Skip return : False--foreign import ccall "pango_font_map_create_context" pango_font_map_create_context :: -    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"-    IO (Ptr Context)---fontMapCreateContext ::-    (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m Context-fontMapCreateContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_map_create_context _obj'-    checkUnexpectedReturnNULL "pango_font_map_create_context" result-    result' <- (wrapObject Context) result-    touchManagedPtr _obj-    return result'---- method FontMap::get_serial--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_map_get_serial" pango_font_map_get_serial :: -    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"-    IO Word32---fontMapGetSerial ::-    (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m Word32-fontMapGetSerial _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_map_get_serial _obj'-    touchManagedPtr _obj-    return result---- method FontMap::get_shape_engine_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_font_map_get_shape_engine_type" pango_font_map_get_shape_engine_type :: -    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"-    IO CString---fontMapGetShapeEngineType ::-    (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m T.Text-fontMapGetShapeEngineType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_font_map_get_shape_engine_type _obj'-    checkUnexpectedReturnNULL "pango_font_map_get_shape_engine_type" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method FontMap::list_families--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_map_list_families" pango_font_map_list_families :: -    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"-    Ptr (Ptr (Ptr FontFamily)) ->           -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")-    Ptr Int32 ->                            -- n_families : TBasicType TInt32-    IO ()---fontMapListFamilies ::-    (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m ([FontFamily])-fontMapListFamilies _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    families <- allocMem :: IO (Ptr (Ptr (Ptr FontFamily)))-    n_families <- allocMem :: IO (Ptr Int32)-    pango_font_map_list_families _obj' families n_families-    n_families' <- peek n_families-    families' <- peek families-    families'' <- (unpackPtrArrayWithLength n_families') families'-    families''' <- mapM (newObject FontFamily) families''-    freeMem families'-    touchManagedPtr _obj-    freeMem families-    freeMem n_families-    return families'''---- method FontMap::load_font--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Font"--- throws : False--- Skip return : False--foreign import ccall "pango_font_map_load_font" pango_font_map_load_font :: -    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"-    Ptr Context ->                          -- context : TInterface "Pango" "Context"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    IO (Ptr Font)---fontMapLoadFont ::-    (MonadIO m, FontMapK a, ContextK b) =>-    a ->                                    -- _obj-    b ->                                    -- context-    FontDescription ->                      -- desc-    m Font-fontMapLoadFont _obj context desc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let context' = unsafeManagedPtrCastPtr context-    let desc' = unsafeManagedPtrGetPtr desc-    result <- pango_font_map_load_font _obj' context' desc'-    checkUnexpectedReturnNULL "pango_font_map_load_font" result-    result' <- (wrapObject Font) result-    touchManagedPtr _obj-    touchManagedPtr context-    touchManagedPtr desc-    return result'---- method FontMap::load_fontset--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Fontset"--- throws : False--- Skip return : False--foreign import ccall "pango_font_map_load_fontset" pango_font_map_load_fontset :: -    Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"-    Ptr Context ->                          -- context : TInterface "Pango" "Context"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    IO (Ptr Fontset)---fontMapLoadFontset ::-    (MonadIO m, FontMapK a, ContextK b) =>-    a ->                                    -- _obj-    b ->                                    -- context-    FontDescription ->                      -- desc-    Language ->                             -- language-    m Fontset-fontMapLoadFontset _obj context desc language = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let context' = unsafeManagedPtrCastPtr context-    let desc' = unsafeManagedPtrGetPtr desc-    let language' = unsafeManagedPtrGetPtr language-    result <- pango_font_map_load_fontset _obj' context' desc' language'-    checkUnexpectedReturnNULL "pango_font_map_load_fontset" result-    result' <- (wrapObject Fontset) result-    touchManagedPtr _obj-    touchManagedPtr context-    touchManagedPtr desc-    touchManagedPtr language-    return result'--
− GI/Pango/Objects/FontMap.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.FontMap where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontMap = FontMap (ForeignPtr FontMap)-instance GObject FontMap where-class GObject o => FontMapK o-instance (GObject o, IsDescendantOf FontMap o) => FontMapK o
− GI/Pango/Objects/Fontset.hs 
@@ -1,157 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.Fontset-    ( ---- * Exported types-    Fontset(..)                             ,-    FontsetK                                ,-    toFontset                               ,-    noFontset                               ,--- -- * Methods--- ** fontsetForeach-    fontsetForeach                          ,----- ** fontsetGetFont-    fontsetGetFont                          ,----- ** fontsetGetMetrics-    fontsetGetMetrics                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype Fontset = Fontset (ForeignPtr Fontset)-foreign import ccall "pango_fontset_get_type"-    c_pango_fontset_get_type :: IO GType--type instance ParentTypes Fontset = FontsetParentTypes-type FontsetParentTypes = '[GObject.Object]--instance GObject Fontset where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_fontset_get_type-    --class GObject o => FontsetK o-instance (GObject o, IsDescendantOf Fontset o) => FontsetK o--toFontset :: FontsetK o => o -> IO Fontset-toFontset = unsafeCastTo Fontset--noFontset :: Maybe Fontset-noFontset = Nothing--type instance AttributeList Fontset = FontsetAttributeList-type FontsetAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Fontset = FontsetSignalList-type FontsetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Fontset::foreach--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "FontsetForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "FontsetForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_fontset_foreach" pango_fontset_foreach :: -    Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"-    FunPtr FontsetForeachFuncC ->           -- func : TInterface "Pango" "FontsetForeachFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    IO ()---fontsetForeach ::-    (MonadIO m, FontsetK a) =>-    a ->                                    -- _obj-    FontsetForeachFunc ->                   -- func-    m ()-fontsetForeach _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    func' <- mkFontsetForeachFunc (fontsetForeachFuncWrapper Nothing func)-    let data_ = nullPtr-    pango_fontset_foreach _obj' func' data_-    safeFreeFunPtr $ castFunPtrToPtr func'-    touchManagedPtr _obj-    return ()---- method Fontset::get_font--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Font"--- throws : False--- Skip return : False--foreign import ccall "pango_fontset_get_font" pango_fontset_get_font :: -    Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"-    Word32 ->                               -- wc : TBasicType TUInt32-    IO (Ptr Font)---fontsetGetFont ::-    (MonadIO m, FontsetK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- wc-    m Font-fontsetGetFont _obj wc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_fontset_get_font _obj' wc-    checkUnexpectedReturnNULL "pango_fontset_get_font" result-    result' <- (wrapObject Font) result-    touchManagedPtr _obj-    return result'---- method Fontset::get_metrics--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontMetrics"--- throws : False--- Skip return : False--foreign import ccall "pango_fontset_get_metrics" pango_fontset_get_metrics :: -    Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"-    IO (Ptr FontMetrics)---fontsetGetMetrics ::-    (MonadIO m, FontsetK a) =>-    a ->                                    -- _obj-    m FontMetrics-fontsetGetMetrics _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_fontset_get_metrics _obj'-    checkUnexpectedReturnNULL "pango_fontset_get_metrics" result-    result' <- (wrapBoxed FontMetrics) result-    touchManagedPtr _obj-    return result'--
− GI/Pango/Objects/Fontset.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.Fontset where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Fontset = Fontset (ForeignPtr Fontset)-instance GObject Fontset where-class GObject o => FontsetK o-instance (GObject o, IsDescendantOf Fontset o) => FontsetK o
− GI/Pango/Objects/FontsetSimple.hs 
@@ -1,151 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.FontsetSimple-    ( ---- * Exported types-    FontsetSimple(..)                       ,-    FontsetSimpleK                          ,-    toFontsetSimple                         ,-    noFontsetSimple                         ,--- -- * Methods--- ** fontsetSimpleAppend-    fontsetSimpleAppend                     ,----- ** fontsetSimpleNew-    fontsetSimpleNew                        ,----- ** fontsetSimpleSize-    fontsetSimpleSize                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype FontsetSimple = FontsetSimple (ForeignPtr FontsetSimple)-foreign import ccall "pango_fontset_simple_get_type"-    c_pango_fontset_simple_get_type :: IO GType--type instance ParentTypes FontsetSimple = FontsetSimpleParentTypes-type FontsetSimpleParentTypes = '[Fontset, GObject.Object]--instance GObject FontsetSimple where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_fontset_simple_get_type-    --class GObject o => FontsetSimpleK o-instance (GObject o, IsDescendantOf FontsetSimple o) => FontsetSimpleK o--toFontsetSimple :: FontsetSimpleK o => o -> IO FontsetSimple-toFontsetSimple = unsafeCastTo FontsetSimple--noFontsetSimple :: Maybe FontsetSimple-noFontsetSimple = Nothing--type instance AttributeList FontsetSimple = FontsetSimpleAttributeList-type FontsetSimpleAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FontsetSimple = FontsetSimpleSignalList-type FontsetSimpleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FontsetSimple::new--- method type : Constructor--- Args : [Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontsetSimple"--- throws : False--- Skip return : False--foreign import ccall "pango_fontset_simple_new" pango_fontset_simple_new :: -    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    IO (Ptr FontsetSimple)---fontsetSimpleNew ::-    (MonadIO m) =>-    Language ->                             -- language-    m FontsetSimple-fontsetSimpleNew language = liftIO $ do-    let language' = unsafeManagedPtrGetPtr language-    result <- pango_fontset_simple_new language'-    checkUnexpectedReturnNULL "pango_fontset_simple_new" result-    result' <- (wrapObject FontsetSimple) result-    touchManagedPtr language-    return result'---- method FontsetSimple::append--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_fontset_simple_append" pango_fontset_simple_append :: -    Ptr FontsetSimple ->                    -- _obj : TInterface "Pango" "FontsetSimple"-    Ptr Font ->                             -- font : TInterface "Pango" "Font"-    IO ()---fontsetSimpleAppend ::-    (MonadIO m, FontsetSimpleK a, FontK b) =>-    a ->                                    -- _obj-    b ->                                    -- font-    m ()-fontsetSimpleAppend _obj font = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let font' = unsafeManagedPtrCastPtr font-    pango_fontset_simple_append _obj' font'-    touchManagedPtr _obj-    touchManagedPtr font-    return ()---- method FontsetSimple::size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_fontset_simple_size" pango_fontset_simple_size :: -    Ptr FontsetSimple ->                    -- _obj : TInterface "Pango" "FontsetSimple"-    IO Int32---fontsetSimpleSize ::-    (MonadIO m, FontsetSimpleK a) =>-    a ->                                    -- _obj-    m Int32-fontsetSimpleSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_fontset_simple_size _obj'-    touchManagedPtr _obj-    return result--
− GI/Pango/Objects/FontsetSimple.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.FontsetSimple where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontsetSimple = FontsetSimple (ForeignPtr FontsetSimple)-instance GObject FontsetSimple where-class GObject o => FontsetSimpleK o-instance (GObject o, IsDescendantOf FontsetSimple o) => FontsetSimpleK o
− GI/Pango/Objects/Layout.hs 
@@ -1,1873 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.Layout-    ( ---- * Exported types-    Layout(..)                              ,-    LayoutK                                 ,-    toLayout                                ,-    noLayout                                ,--- -- * Methods--- ** layoutContextChanged-    layoutContextChanged                    ,----- ** layoutCopy-    layoutCopy                              ,----- ** layoutGetAlignment-    layoutGetAlignment                      ,----- ** layoutGetAttributes-    layoutGetAttributes                     ,----- ** layoutGetAutoDir-    layoutGetAutoDir                        ,----- ** layoutGetBaseline-    layoutGetBaseline                       ,----- ** layoutGetCharacterCount-    layoutGetCharacterCount                 ,----- ** layoutGetContext-    layoutGetContext                        ,----- ** layoutGetCursorPos-    layoutGetCursorPos                      ,----- ** layoutGetEllipsize-    layoutGetEllipsize                      ,----- ** layoutGetExtents-    layoutGetExtents                        ,----- ** layoutGetFontDescription-    layoutGetFontDescription                ,----- ** layoutGetHeight-    layoutGetHeight                         ,----- ** layoutGetIndent-    layoutGetIndent                         ,----- ** layoutGetIter-    layoutGetIter                           ,----- ** layoutGetJustify-    layoutGetJustify                        ,----- ** layoutGetLine-    layoutGetLine                           ,----- ** layoutGetLineCount-    layoutGetLineCount                      ,----- ** layoutGetLineReadonly-    layoutGetLineReadonly                   ,----- ** layoutGetLines-    layoutGetLines                          ,----- ** layoutGetLinesReadonly-    layoutGetLinesReadonly                  ,----- ** layoutGetLogAttrs-    layoutGetLogAttrs                       ,----- ** layoutGetLogAttrsReadonly-    layoutGetLogAttrsReadonly               ,----- ** layoutGetPixelExtents-    layoutGetPixelExtents                   ,----- ** layoutGetPixelSize-    layoutGetPixelSize                      ,----- ** layoutGetSerial-    layoutGetSerial                         ,----- ** layoutGetSingleParagraphMode-    layoutGetSingleParagraphMode            ,----- ** layoutGetSize-    layoutGetSize                           ,----- ** layoutGetSpacing-    layoutGetSpacing                        ,----- ** layoutGetTabs-    layoutGetTabs                           ,----- ** layoutGetText-    layoutGetText                           ,----- ** layoutGetUnknownGlyphsCount-    layoutGetUnknownGlyphsCount             ,----- ** layoutGetWidth-    layoutGetWidth                          ,----- ** layoutGetWrap-    layoutGetWrap                           ,----- ** layoutIndexToLineX-    layoutIndexToLineX                      ,----- ** layoutIndexToPos-    layoutIndexToPos                        ,----- ** layoutIsEllipsized-    layoutIsEllipsized                      ,----- ** layoutIsWrapped-    layoutIsWrapped                         ,----- ** layoutMoveCursorVisually-    layoutMoveCursorVisually                ,----- ** layoutNew-    layoutNew                               ,----- ** layoutSetAlignment-    layoutSetAlignment                      ,----- ** layoutSetAttributes-    layoutSetAttributes                     ,----- ** layoutSetAutoDir-    layoutSetAutoDir                        ,----- ** layoutSetEllipsize-    layoutSetEllipsize                      ,----- ** layoutSetFontDescription-    layoutSetFontDescription                ,----- ** layoutSetHeight-    layoutSetHeight                         ,----- ** layoutSetIndent-    layoutSetIndent                         ,----- ** layoutSetJustify-    layoutSetJustify                        ,----- ** layoutSetMarkup-    layoutSetMarkup                         ,----- ** layoutSetMarkupWithAccel-    layoutSetMarkupWithAccel                ,----- ** layoutSetSingleParagraphMode-    layoutSetSingleParagraphMode            ,----- ** layoutSetSpacing-    layoutSetSpacing                        ,----- ** layoutSetTabs-    layoutSetTabs                           ,----- ** layoutSetText-    layoutSetText                           ,----- ** layoutSetWidth-    layoutSetWidth                          ,----- ** layoutSetWrap-    layoutSetWrap                           ,----- ** layoutXyToIndex-    layoutXyToIndex                         ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype Layout = Layout (ForeignPtr Layout)-foreign import ccall "pango_layout_get_type"-    c_pango_layout_get_type :: IO GType--type instance ParentTypes Layout = LayoutParentTypes-type LayoutParentTypes = '[GObject.Object]--instance GObject Layout where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_layout_get_type-    --class GObject o => LayoutK o-instance (GObject o, IsDescendantOf Layout o) => LayoutK o--toLayout :: LayoutK o => o -> IO Layout-toLayout = unsafeCastTo Layout--noLayout :: Maybe Layout-noLayout = Nothing--type instance AttributeList Layout = LayoutAttributeList-type LayoutAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Layout = LayoutSignalList-type LayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Layout::new--- method type : Constructor--- Args : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Layout"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_new" pango_layout_new :: -    Ptr Context ->                          -- context : TInterface "Pango" "Context"-    IO (Ptr Layout)---layoutNew ::-    (MonadIO m, ContextK a) =>-    a ->                                    -- context-    m Layout-layoutNew context = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    result <- pango_layout_new context'-    checkUnexpectedReturnNULL "pango_layout_new" result-    result' <- (wrapObject Layout) result-    touchManagedPtr context-    return result'---- method Layout::context_changed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_context_changed" pango_layout_context_changed :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO ()---layoutContextChanged ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m ()-layoutContextChanged _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_layout_context_changed _obj'-    touchManagedPtr _obj-    return ()---- method Layout::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Layout"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_copy" pango_layout_copy :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr Layout)---layoutCopy ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Layout-layoutCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_copy _obj'-    checkUnexpectedReturnNULL "pango_layout_copy" result-    result' <- (wrapObject Layout) result-    touchManagedPtr _obj-    return result'---- method Layout::get_alignment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Alignment"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_alignment" pango_layout_get_alignment :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CUInt---layoutGetAlignment ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Alignment-layoutGetAlignment _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_alignment _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Layout::get_attributes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "AttrList"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_attributes" pango_layout_get_attributes :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr AttrList)---layoutGetAttributes ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m AttrList-layoutGetAttributes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_attributes _obj'-    checkUnexpectedReturnNULL "pango_layout_get_attributes" result-    result' <- (newBoxed AttrList) result-    touchManagedPtr _obj-    return result'---- method Layout::get_auto_dir--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_auto_dir" pango_layout_get_auto_dir :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CInt---layoutGetAutoDir ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool-layoutGetAutoDir _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_auto_dir _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Layout::get_baseline--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_baseline" pango_layout_get_baseline :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetBaseline ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetBaseline _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_baseline _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_character_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_character_count" pango_layout_get_character_count :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetCharacterCount ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetCharacterCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_character_count _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Context"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_context" pango_layout_get_context :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr Context)---layoutGetContext ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Context-layoutGetContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_context _obj'-    checkUnexpectedReturnNULL "pango_layout_get_context" result-    result' <- (newObject Context) result-    touchManagedPtr _obj-    return result'---- method Layout::get_cursor_pos--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weak_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", 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 "pango_layout_get_cursor_pos" pango_layout_get_cursor_pos :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- index_ : TBasicType TInt32-    Ptr Rectangle ->                        -- strong_pos : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- weak_pos : TInterface "Pango" "Rectangle"-    IO ()---layoutGetCursorPos ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m (Rectangle,Rectangle)-layoutGetCursorPos _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    strong_pos <- callocBytes 16 :: IO (Ptr Rectangle)-    weak_pos <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_get_cursor_pos _obj' index_ strong_pos weak_pos-    strong_pos' <- (wrapPtr Rectangle) strong_pos-    weak_pos' <- (wrapPtr Rectangle) weak_pos-    touchManagedPtr _obj-    return (strong_pos', weak_pos')---- method Layout::get_ellipsize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "EllipsizeMode"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_ellipsize" pango_layout_get_ellipsize :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CUInt---layoutGetEllipsize ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m EllipsizeMode-layoutGetEllipsize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_ellipsize _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Layout::get_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_extents" pango_layout_get_extents :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutGetExtents ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Rectangle,Rectangle)-layoutGetExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_get_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method Layout::get_font_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_font_description" pango_layout_get_font_description :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr FontDescription)---layoutGetFontDescription ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m FontDescription-layoutGetFontDescription _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_font_description _obj'-    checkUnexpectedReturnNULL "pango_layout_get_font_description" result-    result' <- (newBoxed FontDescription) result-    touchManagedPtr _obj-    return result'---- method Layout::get_height--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_height" pango_layout_get_height :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetHeight ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_height _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_indent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_indent" pango_layout_get_indent :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetIndent ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetIndent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_indent _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_iter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutIter"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_iter" pango_layout_get_iter :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr LayoutIter)---layoutGetIter ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m LayoutIter-layoutGetIter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_iter _obj'-    checkUnexpectedReturnNULL "pango_layout_get_iter" result-    result' <- (wrapBoxed LayoutIter) result-    touchManagedPtr _obj-    return result'---- method Layout::get_justify--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_justify" pango_layout_get_justify :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CInt---layoutGetJustify ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool-layoutGetJustify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_justify _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Layout::get_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutLine"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_line" pango_layout_get_line :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- line : TBasicType TInt32-    IO (Ptr LayoutLine)---layoutGetLine ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- line-    m LayoutLine-layoutGetLine _obj line = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_line _obj' line-    checkUnexpectedReturnNULL "pango_layout_get_line" result-    result' <- (newBoxed LayoutLine) result-    touchManagedPtr _obj-    return result'---- method Layout::get_line_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_line_count" pango_layout_get_line_count :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetLineCount ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetLineCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_line_count _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_line_readonly--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutLine"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_line_readonly" pango_layout_get_line_readonly :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- line : TBasicType TInt32-    IO (Ptr LayoutLine)---layoutGetLineReadonly ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- line-    m LayoutLine-layoutGetLineReadonly _obj line = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_line_readonly _obj' line-    checkUnexpectedReturnNULL "pango_layout_get_line_readonly" result-    result' <- (newBoxed LayoutLine) result-    touchManagedPtr _obj-    return result'---- method Layout::get_lines--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Pango" "LayoutLine")--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_lines" pango_layout_get_lines :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr (GSList (Ptr LayoutLine)))---layoutGetLines ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m [LayoutLine]-layoutGetLines _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_lines _obj'-    checkUnexpectedReturnNULL "pango_layout_get_lines" result-    result' <- unpackGSList result-    result'' <- mapM (newBoxed LayoutLine) result'-    touchManagedPtr _obj-    return result''---- method Layout::get_lines_readonly--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Pango" "LayoutLine")--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_lines_readonly" pango_layout_get_lines_readonly :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr (GSList (Ptr LayoutLine)))---layoutGetLinesReadonly ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m [LayoutLine]-layoutGetLinesReadonly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_lines_readonly _obj'-    checkUnexpectedReturnNULL "pango_layout_get_lines_readonly" result-    result' <- unpackGSList result-    result'' <- mapM (newBoxed LayoutLine) result'-    touchManagedPtr _obj-    return result''---- method Layout::get_log_attrs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TCArray False (-1) 2 (TInterface "Pango" "LogAttr"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_log_attrs" pango_layout_get_log_attrs :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr (Ptr LogAttr) ->                    -- attrs : TCArray False (-1) 2 (TInterface "Pango" "LogAttr")-    Ptr Int32 ->                            -- n_attrs : TBasicType TInt32-    IO ()---layoutGetLogAttrs ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m ([LogAttr])-layoutGetLogAttrs _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    attrs <- allocMem :: IO (Ptr (Ptr LogAttr))-    n_attrs <- allocMem :: IO (Ptr Int32)-    pango_layout_get_log_attrs _obj' attrs n_attrs-    n_attrs' <- peek n_attrs-    attrs' <- peek attrs-    attrs'' <- (unpackBlockArrayWithLength 52 n_attrs') attrs'-    attrs''' <- mapM (newPtr 52 LogAttr) attrs''-    freeMem attrs'-    touchManagedPtr _obj-    freeMem attrs-    freeMem n_attrs-    return attrs'''---- method Layout::get_log_attrs_readonly--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 1 (TInterface "Pango" "LogAttr")--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_log_attrs_readonly" pango_layout_get_log_attrs_readonly :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Int32 ->                            -- n_attrs : TBasicType TInt32-    IO (Ptr LogAttr)---layoutGetLogAttrsReadonly ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m [LogAttr]-layoutGetLogAttrsReadonly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    n_attrs <- allocMem :: IO (Ptr Int32)-    result <- pango_layout_get_log_attrs_readonly _obj' n_attrs-    n_attrs' <- peek n_attrs-    checkUnexpectedReturnNULL "pango_layout_get_log_attrs_readonly" result-    result' <- (unpackBlockArrayWithLength 52 n_attrs') result-    result'' <- mapM (newPtr 52 LogAttr) result'-    touchManagedPtr _obj-    freeMem n_attrs-    return result''---- method Layout::get_pixel_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_pixel_extents" pango_layout_get_pixel_extents :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutGetPixelExtents ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Rectangle,Rectangle)-layoutGetPixelExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_get_pixel_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method Layout::get_pixel_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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 = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_pixel_size" pango_layout_get_pixel_size :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Int32 ->                            -- width : TBasicType TInt32-    Ptr Int32 ->                            -- height : TBasicType TInt32-    IO ()---layoutGetPixelSize ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Int32,Int32)-layoutGetPixelSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    width <- allocMem :: IO (Ptr Int32)-    height <- allocMem :: IO (Ptr Int32)-    pango_layout_get_pixel_size _obj' width height-    width' <- peek width-    height' <- peek height-    touchManagedPtr _obj-    freeMem width-    freeMem height-    return (width', height')---- method Layout::get_serial--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_serial" pango_layout_get_serial :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Word32---layoutGetSerial ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Word32-layoutGetSerial _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_serial _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_single_paragraph_mode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_single_paragraph_mode" pango_layout_get_single_paragraph_mode :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CInt---layoutGetSingleParagraphMode ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool-layoutGetSingleParagraphMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_single_paragraph_mode _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Layout::get_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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 = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_size" pango_layout_get_size :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Int32 ->                            -- width : TBasicType TInt32-    Ptr Int32 ->                            -- height : TBasicType TInt32-    IO ()---layoutGetSize ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Int32,Int32)-layoutGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    width <- allocMem :: IO (Ptr Int32)-    height <- allocMem :: IO (Ptr Int32)-    pango_layout_get_size _obj' width height-    width' <- peek width-    height' <- peek height-    touchManagedPtr _obj-    freeMem width-    freeMem height-    return (width', height')---- method Layout::get_spacing--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_spacing" pango_layout_get_spacing :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetSpacing ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetSpacing _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_spacing _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_tabs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "TabArray"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_tabs" pango_layout_get_tabs :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO (Ptr TabArray)---layoutGetTabs ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m TabArray-layoutGetTabs _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_tabs _obj'-    checkUnexpectedReturnNULL "pango_layout_get_tabs" result-    result' <- (wrapBoxed TabArray) result-    touchManagedPtr _obj-    return result'---- method Layout::get_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_text" pango_layout_get_text :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CString---layoutGetText ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m T.Text-layoutGetText _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_text _obj'-    checkUnexpectedReturnNULL "pango_layout_get_text" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Layout::get_unknown_glyphs_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_unknown_glyphs_count" pango_layout_get_unknown_glyphs_count :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetUnknownGlyphsCount ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetUnknownGlyphsCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_unknown_glyphs_count _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_width" pango_layout_get_width :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO Int32---layoutGetWidth ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32-layoutGetWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_width _obj'-    touchManagedPtr _obj-    return result---- method Layout::get_wrap--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "WrapMode"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_get_wrap" pango_layout_get_wrap :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CUInt---layoutGetWrap ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m WrapMode-layoutGetWrap _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_get_wrap _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Layout::index_to_line_x--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", 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 "pango_layout_index_to_line_x" pango_layout_index_to_line_x :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- index_ : TBasicType TInt32-    CInt ->                                 -- trailing : TBasicType TBoolean-    Ptr Int32 ->                            -- line : TBasicType TInt32-    Ptr Int32 ->                            -- x_pos : TBasicType TInt32-    IO ()---layoutIndexToLineX ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    Bool ->                                 -- trailing-    m (Int32,Int32)-layoutIndexToLineX _obj index_ trailing = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let trailing' = (fromIntegral . fromEnum) trailing-    line <- allocMem :: IO (Ptr Int32)-    x_pos <- allocMem :: IO (Ptr Int32)-    pango_layout_index_to_line_x _obj' index_ trailing' line x_pos-    line' <- peek line-    x_pos' <- peek x_pos-    touchManagedPtr _obj-    freeMem line-    freeMem x_pos-    return (line', x_pos')---- method Layout::index_to_pos--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", 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 "pango_layout_index_to_pos" pango_layout_index_to_pos :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- index_ : TBasicType TInt32-    Ptr Rectangle ->                        -- pos : TInterface "Pango" "Rectangle"-    IO ()---layoutIndexToPos ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m (Rectangle)-layoutIndexToPos _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pos <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_index_to_pos _obj' index_ pos-    pos' <- (wrapPtr Rectangle) pos-    touchManagedPtr _obj-    return pos'---- method Layout::is_ellipsized--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_is_ellipsized" pango_layout_is_ellipsized :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CInt---layoutIsEllipsized ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool-layoutIsEllipsized _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_is_ellipsized _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Layout::is_wrapped--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_is_wrapped" pango_layout_is_wrapped :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    IO CInt---layoutIsWrapped ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool-layoutIsWrapped _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_layout_is_wrapped _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Layout::move_cursor_visually--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_trailing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "new_trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strong", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_trailing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", 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 "pango_layout_move_cursor_visually" pango_layout_move_cursor_visually :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CInt ->                                 -- strong : TBasicType TBoolean-    Int32 ->                                -- old_index : TBasicType TInt32-    Int32 ->                                -- old_trailing : TBasicType TInt32-    Int32 ->                                -- direction : TBasicType TInt32-    Ptr Int32 ->                            -- new_index : TBasicType TInt32-    Ptr Int32 ->                            -- new_trailing : TBasicType TInt32-    IO ()---layoutMoveCursorVisually ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- strong-    Int32 ->                                -- old_index-    Int32 ->                                -- old_trailing-    Int32 ->                                -- direction-    m (Int32,Int32)-layoutMoveCursorVisually _obj strong old_index old_trailing direction = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let strong' = (fromIntegral . fromEnum) strong-    new_index <- allocMem :: IO (Ptr Int32)-    new_trailing <- allocMem :: IO (Ptr Int32)-    pango_layout_move_cursor_visually _obj' strong' old_index old_trailing direction new_index new_trailing-    new_index' <- peek new_index-    new_trailing' <- peek new_trailing-    touchManagedPtr _obj-    freeMem new_index-    freeMem new_trailing-    return (new_index', new_trailing')---- method Layout::set_alignment--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_alignment" pango_layout_set_alignment :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CUInt ->                                -- alignment : TInterface "Pango" "Alignment"-    IO ()---layoutSetAlignment ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Alignment ->                            -- alignment-    m ()-layoutSetAlignment _obj alignment = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let alignment' = (fromIntegral . fromEnum) alignment-    pango_layout_set_alignment _obj' alignment'-    touchManagedPtr _obj-    return ()---- method Layout::set_attributes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_attributes" pango_layout_set_attributes :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"-    IO ()---layoutSetAttributes ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Maybe (AttrList) ->                     -- attrs-    m ()-layoutSetAttributes _obj attrs = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeAttrs <- case attrs of-        Nothing -> return nullPtr-        Just jAttrs -> do-            let jAttrs' = unsafeManagedPtrGetPtr jAttrs-            return jAttrs'-    pango_layout_set_attributes _obj' maybeAttrs-    touchManagedPtr _obj-    whenJust attrs touchManagedPtr-    return ()---- method Layout::set_auto_dir--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_dir", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auto_dir", 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 "pango_layout_set_auto_dir" pango_layout_set_auto_dir :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CInt ->                                 -- auto_dir : TBasicType TBoolean-    IO ()---layoutSetAutoDir ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- auto_dir-    m ()-layoutSetAutoDir _obj auto_dir = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let auto_dir' = (fromIntegral . fromEnum) auto_dir-    pango_layout_set_auto_dir _obj' auto_dir'-    touchManagedPtr _obj-    return ()---- method Layout::set_ellipsize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_ellipsize" pango_layout_set_ellipsize :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CUInt ->                                -- ellipsize : TInterface "Pango" "EllipsizeMode"-    IO ()---layoutSetEllipsize ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    EllipsizeMode ->                        -- ellipsize-    m ()-layoutSetEllipsize _obj ellipsize = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let ellipsize' = (fromIntegral . fromEnum) ellipsize-    pango_layout_set_ellipsize _obj' ellipsize'-    touchManagedPtr _obj-    return ()---- method Layout::set_font_description--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_font_description" pango_layout_set_font_description :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    IO ()---layoutSetFontDescription ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Maybe (FontDescription) ->              -- desc-    m ()-layoutSetFontDescription _obj desc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeDesc <- case desc of-        Nothing -> return nullPtr-        Just jDesc -> do-            let jDesc' = unsafeManagedPtrGetPtr jDesc-            return jDesc'-    pango_layout_set_font_description _obj' maybeDesc-    touchManagedPtr _obj-    whenJust desc touchManagedPtr-    return ()---- method Layout::set_height--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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 "Pango" "Layout", 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 "pango_layout_set_height" pango_layout_set_height :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- height : TBasicType TInt32-    IO ()---layoutSetHeight ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- height-    m ()-layoutSetHeight _obj height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_layout_set_height _obj' height-    touchManagedPtr _obj-    return ()---- method Layout::set_indent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "indent", 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 "pango_layout_set_indent" pango_layout_set_indent :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- indent : TBasicType TInt32-    IO ()---layoutSetIndent ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- indent-    m ()-layoutSetIndent _obj indent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_layout_set_indent _obj' indent-    touchManagedPtr _obj-    return ()---- method Layout::set_justify--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "justify", 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 "pango_layout_set_justify" pango_layout_set_justify :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CInt ->                                 -- justify : TBasicType TBoolean-    IO ()---layoutSetJustify ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- justify-    m ()-layoutSetJustify _obj justify = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let justify' = (fromIntegral . fromEnum) justify-    pango_layout_set_justify _obj' justify'-    touchManagedPtr _obj-    return ()---- method Layout::set_markup--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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 "pango_layout_set_markup" pango_layout_set_markup :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CString ->                              -- markup : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    IO ()---layoutSetMarkup ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- markup-    Int32 ->                                -- length-    m ()-layoutSetMarkup _obj markup length_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    markup' <- textToCString markup-    pango_layout_set_markup _obj' markup' length_-    touchManagedPtr _obj-    freeMem markup'-    return ()---- method Layout::set_markup_with_accel--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_markup_with_accel" pango_layout_set_markup_with_accel :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CString ->                              -- markup : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    CInt ->                                 -- accel_marker : TBasicType TUniChar-    Ptr CInt ->                             -- accel_char : TBasicType TUniChar-    IO ()---layoutSetMarkupWithAccel ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- markup-    Int32 ->                                -- length-    Char ->                                 -- accel_marker-    m (Char)-layoutSetMarkupWithAccel _obj markup length_ accel_marker = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    markup' <- textToCString markup-    let accel_marker' = (fromIntegral . ord) accel_marker-    accel_char <- allocMem :: IO (Ptr CInt)-    pango_layout_set_markup_with_accel _obj' markup' length_ accel_marker' accel_char-    accel_char' <- peek accel_char-    let accel_char'' = (chr . fromIntegral) accel_char'-    touchManagedPtr _obj-    freeMem markup'-    freeMem accel_char-    return accel_char''---- method Layout::set_single_paragraph_mode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", 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 "pango_layout_set_single_paragraph_mode" pango_layout_set_single_paragraph_mode :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CInt ->                                 -- setting : TBasicType TBoolean-    IO ()---layoutSetSingleParagraphMode ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- setting-    m ()-layoutSetSingleParagraphMode _obj setting = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let setting' = (fromIntegral . fromEnum) setting-    pango_layout_set_single_paragraph_mode _obj' setting'-    touchManagedPtr _obj-    return ()---- method Layout::set_spacing--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", 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 "pango_layout_set_spacing" pango_layout_set_spacing :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- spacing : TBasicType TInt32-    IO ()---layoutSetSpacing ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- spacing-    m ()-layoutSetSpacing _obj spacing = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_layout_set_spacing _obj' spacing-    touchManagedPtr _obj-    return ()---- method Layout::set_tabs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_tabs" pango_layout_set_tabs :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr TabArray ->                         -- tabs : TInterface "Pango" "TabArray"-    IO ()---layoutSetTabs ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Maybe (TabArray) ->                     -- tabs-    m ()-layoutSetTabs _obj tabs = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeTabs <- case tabs of-        Nothing -> return nullPtr-        Just jTabs -> do-            let jTabs' = unsafeManagedPtrGetPtr jTabs-            return jTabs'-    pango_layout_set_tabs _obj' maybeTabs-    touchManagedPtr _obj-    whenJust tabs touchManagedPtr-    return ()---- method Layout::set_text--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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 "pango_layout_set_text" pango_layout_set_text :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    IO ()---layoutSetText ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- text-    Int32 ->                                -- length-    m ()-layoutSetText _obj text length_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    text' <- textToCString text-    pango_layout_set_text _obj' text' length_-    touchManagedPtr _obj-    freeMem text'-    return ()---- method Layout::set_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", 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}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_width" pango_layout_set_width :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- width : TBasicType TInt32-    IO ()---layoutSetWidth ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    m ()-layoutSetWidth _obj width = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_layout_set_width _obj' width-    touchManagedPtr _obj-    return ()---- method Layout::set_wrap--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wrap", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_set_wrap" pango_layout_set_wrap :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    CUInt ->                                -- wrap : TInterface "Pango" "WrapMode"-    IO ()---layoutSetWrap ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    WrapMode ->                             -- wrap-    m ()-layoutSetWrap _obj wrap = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let wrap' = (fromIntegral . fromEnum) wrap-    pango_layout_set_wrap _obj' wrap'-    touchManagedPtr _obj-    return ()---- method Layout::xy_to_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_xy_to_index" pango_layout_xy_to_index :: -    Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Ptr Int32 ->                            -- index_ : TBasicType TInt32-    Ptr Int32 ->                            -- trailing : TBasicType TInt32-    IO CInt---layoutXyToIndex ::-    (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    m (Bool,Int32,Int32)-layoutXyToIndex _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    index_ <- allocMem :: IO (Ptr Int32)-    trailing <- allocMem :: IO (Ptr Int32)-    result <- pango_layout_xy_to_index _obj' x y index_ trailing-    let result' = (/= 0) result-    index_' <- peek index_-    trailing' <- peek trailing-    touchManagedPtr _obj-    freeMem index_-    freeMem trailing-    return (result', index_', trailing')--
− GI/Pango/Objects/Layout.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.Layout where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Layout = Layout (ForeignPtr Layout)-instance GObject Layout where-class GObject o => LayoutK o-instance (GObject o, IsDescendantOf Layout o) => LayoutK o
− GI/Pango/Objects/Renderer.hs 
@@ -1,666 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Objects.Renderer-    ( ---- * Exported types-    Renderer(..)                            ,-    RendererK                               ,-    toRenderer                              ,-    noRenderer                              ,--- -- * Methods--- ** rendererActivate-    rendererActivate                        ,----- ** rendererDeactivate-    rendererDeactivate                      ,----- ** rendererDrawErrorUnderline-    rendererDrawErrorUnderline              ,----- ** rendererDrawGlyph-    rendererDrawGlyph                       ,----- ** rendererDrawGlyphItem-    rendererDrawGlyphItem                   ,----- ** rendererDrawGlyphs-    rendererDrawGlyphs                      ,----- ** rendererDrawLayout-    rendererDrawLayout                      ,----- ** rendererDrawLayoutLine-    rendererDrawLayoutLine                  ,----- ** rendererDrawRectangle-    rendererDrawRectangle                   ,----- ** rendererDrawTrapezoid-    rendererDrawTrapezoid                   ,----- ** rendererGetColor-    rendererGetColor                        ,----- ** rendererGetLayout-    rendererGetLayout                       ,----- ** rendererGetLayoutLine-    rendererGetLayoutLine                   ,----- ** rendererGetMatrix-    rendererGetMatrix                       ,----- ** rendererPartChanged-    rendererPartChanged                     ,----- ** rendererSetColor-    rendererSetColor                        ,----- ** rendererSetMatrix-    rendererSetMatrix                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks-import qualified GI.GObject as GObject--newtype Renderer = Renderer (ForeignPtr Renderer)-foreign import ccall "pango_renderer_get_type"-    c_pango_renderer_get_type :: IO GType--type instance ParentTypes Renderer = RendererParentTypes-type RendererParentTypes = '[GObject.Object]--instance GObject Renderer where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_pango_renderer_get_type-    --class GObject o => RendererK o-instance (GObject o, IsDescendantOf Renderer o) => RendererK o--toRenderer :: RendererK o => o -> IO Renderer-toRenderer = unsafeCastTo Renderer--noRenderer :: Maybe Renderer-noRenderer = Nothing--type instance AttributeList Renderer = RendererAttributeList-type RendererAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Renderer = RendererSignalList-type RendererSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Renderer::activate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_activate" pango_renderer_activate :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    IO ()---rendererActivate ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    m ()-rendererActivate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_renderer_activate _obj'-    touchManagedPtr _obj-    return ()---- method Renderer::deactivate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_deactivate" pango_renderer_deactivate :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    IO ()---rendererDeactivate ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    m ()-rendererDeactivate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_renderer_deactivate _obj'-    touchManagedPtr _obj-    return ()---- method Renderer::draw_error_underline--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_draw_error_underline" pango_renderer_draw_error_underline :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO ()---rendererDrawErrorUnderline ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()-rendererDrawErrorUnderline _obj x y width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    pango_renderer_draw_error_underline _obj' x y width height-    touchManagedPtr _obj-    return ()---- method Renderer::draw_glyph--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_draw_glyph" pango_renderer_draw_glyph :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    Ptr Font ->                             -- font : TInterface "Pango" "Font"-    Word32 ->                               -- glyph : TBasicType TUInt32-    CDouble ->                              -- x : TBasicType TDouble-    CDouble ->                              -- y : TBasicType TDouble-    IO ()---rendererDrawGlyph ::-    (MonadIO m, RendererK a, FontK b) =>-    a ->                                    -- _obj-    b ->                                    -- font-    Word32 ->                               -- glyph-    Double ->                               -- x-    Double ->                               -- y-    m ()-rendererDrawGlyph _obj font glyph x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let font' = unsafeManagedPtrCastPtr font-    let x' = realToFrac x-    let y' = realToFrac y-    pango_renderer_draw_glyph _obj' font' glyph x' y'-    touchManagedPtr _obj-    touchManagedPtr font-    return ()---- method Renderer::draw_glyph_item--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_glyph_item" pango_renderer_draw_glyph_item :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    CString ->                              -- text : TBasicType TUTF8-    Ptr GlyphItem ->                        -- glyph_item : TInterface "Pango" "GlyphItem"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO ()---rendererDrawGlyphItem ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- text-    GlyphItem ->                            -- glyph_item-    Int32 ->                                -- x-    Int32 ->                                -- y-    m ()-rendererDrawGlyphItem _obj text glyph_item x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeText <- case text of-        Nothing -> return nullPtr-        Just jText -> do-            jText' <- textToCString jText-            return jText'-    let glyph_item' = unsafeManagedPtrGetPtr glyph_item-    pango_renderer_draw_glyph_item _obj' maybeText glyph_item' x y-    touchManagedPtr _obj-    touchManagedPtr glyph_item-    freeMem maybeText-    return ()---- method Renderer::draw_glyphs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_glyphs" pango_renderer_draw_glyphs :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    Ptr Font ->                             -- font : TInterface "Pango" "Font"-    Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO ()---rendererDrawGlyphs ::-    (MonadIO m, RendererK a, FontK b) =>-    a ->                                    -- _obj-    b ->                                    -- font-    GlyphString ->                          -- glyphs-    Int32 ->                                -- x-    Int32 ->                                -- y-    m ()-rendererDrawGlyphs _obj font glyphs x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let font' = unsafeManagedPtrCastPtr font-    let glyphs' = unsafeManagedPtrGetPtr glyphs-    pango_renderer_draw_glyphs _obj' font' glyphs' x y-    touchManagedPtr _obj-    touchManagedPtr font-    touchManagedPtr glyphs-    return ()---- method Renderer::draw_layout--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_layout" pango_renderer_draw_layout :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    Ptr Layout ->                           -- layout : TInterface "Pango" "Layout"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO ()---rendererDrawLayout ::-    (MonadIO m, RendererK a, LayoutK b) =>-    a ->                                    -- _obj-    b ->                                    -- layout-    Int32 ->                                -- x-    Int32 ->                                -- y-    m ()-rendererDrawLayout _obj layout x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let layout' = unsafeManagedPtrCastPtr layout-    pango_renderer_draw_layout _obj' layout' x y-    touchManagedPtr _obj-    touchManagedPtr layout-    return ()---- method Renderer::draw_layout_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "pango_renderer_draw_layout_line" pango_renderer_draw_layout_line :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    Ptr LayoutLine ->                       -- line : TInterface "Pango" "LayoutLine"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO ()---rendererDrawLayoutLine ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    LayoutLine ->                           -- line-    Int32 ->                                -- x-    Int32 ->                                -- y-    m ()-rendererDrawLayoutLine _obj line x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let line' = unsafeManagedPtrGetPtr line-    pango_renderer_draw_layout_line _obj' line' x y-    touchManagedPtr _obj-    touchManagedPtr line-    return ()---- method Renderer::draw_rectangle--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_draw_rectangle" pango_renderer_draw_rectangle :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    CUInt ->                                -- part : TInterface "Pango" "RenderPart"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO ()---rendererDrawRectangle ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    RenderPart ->                           -- part-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()-rendererDrawRectangle _obj part x y width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let part' = (fromIntegral . fromEnum) part-    pango_renderer_draw_rectangle _obj' part' x y width height-    touchManagedPtr _obj-    return ()---- method Renderer::draw_trapezoid--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x11", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x21", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x12", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x22", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y1_", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x11", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x21", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y2", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x12", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x22", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_draw_trapezoid" pango_renderer_draw_trapezoid :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    CUInt ->                                -- part : TInterface "Pango" "RenderPart"-    CDouble ->                              -- y1_ : TBasicType TDouble-    CDouble ->                              -- x11 : TBasicType TDouble-    CDouble ->                              -- x21 : TBasicType TDouble-    CDouble ->                              -- y2 : TBasicType TDouble-    CDouble ->                              -- x12 : TBasicType TDouble-    CDouble ->                              -- x22 : TBasicType TDouble-    IO ()---rendererDrawTrapezoid ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    RenderPart ->                           -- part-    Double ->                               -- y1_-    Double ->                               -- x11-    Double ->                               -- x21-    Double ->                               -- y2-    Double ->                               -- x12-    Double ->                               -- x22-    m ()-rendererDrawTrapezoid _obj part y1_ x11 x21 y2 x12 x22 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let part' = (fromIntegral . fromEnum) part-    let y1_' = realToFrac y1_-    let x11' = realToFrac x11-    let x21' = realToFrac x21-    let y2' = realToFrac y2-    let x12' = realToFrac x12-    let x22' = realToFrac x22-    pango_renderer_draw_trapezoid _obj' part' y1_' x11' x21' y2' x12' x22'-    touchManagedPtr _obj-    return ()---- method Renderer::get_color--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Color"--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_get_color" pango_renderer_get_color :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    CUInt ->                                -- part : TInterface "Pango" "RenderPart"-    IO (Ptr Color)---rendererGetColor ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    RenderPart ->                           -- part-    m Color-rendererGetColor _obj part = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let part' = (fromIntegral . fromEnum) part-    result <- pango_renderer_get_color _obj' part'-    checkUnexpectedReturnNULL "pango_renderer_get_color" result-    result' <- (newBoxed Color) result-    touchManagedPtr _obj-    return result'---- method Renderer::get_layout--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Layout"--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_get_layout" pango_renderer_get_layout :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    IO (Ptr Layout)---rendererGetLayout ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    m Layout-rendererGetLayout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_renderer_get_layout _obj'-    checkUnexpectedReturnNULL "pango_renderer_get_layout" result-    result' <- (newObject Layout) result-    touchManagedPtr _obj-    return result'---- method Renderer::get_layout_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutLine"--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_get_layout_line" pango_renderer_get_layout_line :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    IO (Ptr LayoutLine)---rendererGetLayoutLine ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    m LayoutLine-rendererGetLayoutLine _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_renderer_get_layout_line _obj'-    checkUnexpectedReturnNULL "pango_renderer_get_layout_line" result-    result' <- (newBoxed LayoutLine) result-    touchManagedPtr _obj-    return result'---- method Renderer::get_matrix--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Matrix"--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_get_matrix" pango_renderer_get_matrix :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    IO (Ptr Matrix)---rendererGetMatrix ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    m Matrix-rendererGetMatrix _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- pango_renderer_get_matrix _obj'-    checkUnexpectedReturnNULL "pango_renderer_get_matrix" result-    result' <- (newBoxed Matrix) result-    touchManagedPtr _obj-    return result'---- method Renderer::part_changed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_part_changed" pango_renderer_part_changed :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    CUInt ->                                -- part : TInterface "Pango" "RenderPart"-    IO ()---rendererPartChanged ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    RenderPart ->                           -- part-    m ()-rendererPartChanged _obj part = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let part' = (fromIntegral . fromEnum) part-    pango_renderer_part_changed _obj' part'-    touchManagedPtr _obj-    return ()---- method Renderer::set_color--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_set_color" pango_renderer_set_color :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    CUInt ->                                -- part : TInterface "Pango" "RenderPart"-    Ptr Color ->                            -- color : TInterface "Pango" "Color"-    IO ()---rendererSetColor ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    RenderPart ->                           -- part-    Maybe (Color) ->                        -- color-    m ()-rendererSetColor _obj part color = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let part' = (fromIntegral . fromEnum) part-    maybeColor <- case color of-        Nothing -> return nullPtr-        Just jColor -> do-            let jColor' = unsafeManagedPtrGetPtr jColor-            return jColor'-    pango_renderer_set_color _obj' part' maybeColor-    touchManagedPtr _obj-    whenJust color touchManagedPtr-    return ()---- method Renderer::set_matrix--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_renderer_set_matrix" pango_renderer_set_matrix :: -    Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    Ptr Matrix ->                           -- matrix : TInterface "Pango" "Matrix"-    IO ()---rendererSetMatrix ::-    (MonadIO m, RendererK a) =>-    a ->                                    -- _obj-    Maybe (Matrix) ->                       -- matrix-    m ()-rendererSetMatrix _obj matrix = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeMatrix <- case matrix of-        Nothing -> return nullPtr-        Just jMatrix -> do-            let jMatrix' = unsafeManagedPtrGetPtr jMatrix-            return jMatrix'-    pango_renderer_set_matrix _obj' maybeMatrix-    touchManagedPtr _obj-    whenJust matrix touchManagedPtr-    return ()--
− GI/Pango/Objects/Renderer.hs-boot 
@@ -1,13 +0,0 @@-module GI.Pango.Objects.Renderer where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Renderer = Renderer (ForeignPtr Renderer)-instance GObject Renderer where-class GObject o => RendererK o-instance (GObject o, IsDescendantOf Renderer o) => RendererK o
− GI/Pango/Structs.hs 
@@ -1,100 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Structs-    (     module GI.Pango.Structs.Analysis        ,-    module GI.Pango.Structs.AttrClass       ,-    module GI.Pango.Structs.AttrColor       ,-    module GI.Pango.Structs.AttrFloat       ,-    module GI.Pango.Structs.AttrFontDesc    ,-    module GI.Pango.Structs.AttrInt         ,-    module GI.Pango.Structs.AttrIterator    ,-    module GI.Pango.Structs.AttrLanguage    ,-    module GI.Pango.Structs.AttrList        ,-    module GI.Pango.Structs.AttrShape       ,-    module GI.Pango.Structs.AttrSize        ,-    module GI.Pango.Structs.AttrString      ,-    module GI.Pango.Structs.Attribute       ,-    module GI.Pango.Structs.Color           ,-    module GI.Pango.Structs.Coverage        ,-    module GI.Pango.Structs.EngineInfo      ,-    module GI.Pango.Structs.EngineScriptInfo,-    module GI.Pango.Structs.FontDescription ,-    module GI.Pango.Structs.FontMetrics     ,-    module GI.Pango.Structs.GlyphGeometry   ,-    module GI.Pango.Structs.GlyphInfo       ,-    module GI.Pango.Structs.GlyphItem       ,-    module GI.Pango.Structs.GlyphItemIter   ,-    module GI.Pango.Structs.GlyphString     ,-    module GI.Pango.Structs.GlyphVisAttr    ,-    module GI.Pango.Structs.IncludedModule  ,-    module GI.Pango.Structs.Item            ,-    module GI.Pango.Structs.Language        ,-    module GI.Pango.Structs.LayoutIter      ,-    module GI.Pango.Structs.LayoutLine      ,-    module GI.Pango.Structs.LogAttr         ,-    module GI.Pango.Structs.Map             ,-    module GI.Pango.Structs.MapEntry        ,-    module GI.Pango.Structs.Matrix          ,-    module GI.Pango.Structs.Rectangle       ,-    module GI.Pango.Structs.ScriptForLang   ,-    module GI.Pango.Structs.ScriptIter      ,-    module GI.Pango.Structs.TabArray        ,---    ) where--import GI.Pango.Structs.Analysis-import GI.Pango.Structs.AttrClass-import GI.Pango.Structs.AttrColor-import GI.Pango.Structs.AttrFloat-import GI.Pango.Structs.AttrFontDesc-import GI.Pango.Structs.AttrInt-import GI.Pango.Structs.AttrIterator-import GI.Pango.Structs.AttrLanguage-import GI.Pango.Structs.AttrList-import GI.Pango.Structs.AttrShape-import GI.Pango.Structs.AttrSize-import GI.Pango.Structs.AttrString-import GI.Pango.Structs.Attribute-import GI.Pango.Structs.Color-import GI.Pango.Structs.Coverage-import GI.Pango.Structs.EngineInfo-import GI.Pango.Structs.EngineScriptInfo-import GI.Pango.Structs.FontDescription-import GI.Pango.Structs.FontMetrics-import GI.Pango.Structs.GlyphGeometry-import GI.Pango.Structs.GlyphInfo-import GI.Pango.Structs.GlyphItem-import GI.Pango.Structs.GlyphItemIter-import GI.Pango.Structs.GlyphString-import GI.Pango.Structs.GlyphVisAttr-import GI.Pango.Structs.IncludedModule-import GI.Pango.Structs.Item-import GI.Pango.Structs.Language-import GI.Pango.Structs.LayoutIter-import GI.Pango.Structs.LayoutLine-import GI.Pango.Structs.LogAttr-import GI.Pango.Structs.Map-import GI.Pango.Structs.MapEntry-import GI.Pango.Structs.Matrix-import GI.Pango.Structs.Rectangle-import GI.Pango.Structs.ScriptForLang-import GI.Pango.Structs.ScriptIter-import GI.Pango.Structs.TabArray--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--
− GI/Pango/Structs/Analysis.hs 
@@ -1,124 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAnalysis structure stores information about-the properties of a segment of text.--}--module GI.Pango.Structs.Analysis-    ( ---- * Exported types-    Analysis(..)                            ,-    noAnalysis                              ,--- -- * Properties--- ** ExtraAttrs-    analysisReadExtraAttrs                  ,----- ** Flags-    analysisReadFlags                       ,----- ** Font-    analysisReadFont                        ,----- ** Gravity-    analysisReadGravity                     ,----- ** LangEngine-    analysisReadLangEngine                  ,----- ** Language-    analysisReadLanguage                    ,----- ** Level-    analysisReadLevel                       ,----- ** Script-    analysisReadScript                      ,----- ** ShapeEngine-    analysisReadShapeEngine                 ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Analysis = Analysis (ForeignPtr Analysis)-noAnalysis :: Maybe Analysis-noAnalysis = Nothing--analysisReadShapeEngine :: Analysis -> IO EngineShape-analysisReadShapeEngine s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EngineShape)-    val' <- (newObject EngineShape) val-    return val'--analysisReadLangEngine :: Analysis -> IO EngineLang-analysisReadLangEngine s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr EngineLang)-    val' <- (newObject EngineLang) val-    return val'--analysisReadFont :: Analysis -> IO Font-analysisReadFont s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Font)-    val' <- (newObject Font) val-    return val'--analysisReadLevel :: Analysis -> IO Word8-analysisReadLevel s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Word8-    return val--analysisReadGravity :: Analysis -> IO Word8-analysisReadGravity s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 25) :: IO Word8-    return val--analysisReadFlags :: Analysis -> IO Word8-analysisReadFlags s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 26) :: IO Word8-    return val--analysisReadScript :: Analysis -> IO Word8-analysisReadScript s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 27) :: IO Word8-    return val--analysisReadLanguage :: Analysis -> IO Language-analysisReadLanguage s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Language)-    val' <- (newBoxed Language) val-    return val'--analysisReadExtraAttrs :: Analysis -> IO ([Ptr ()])-analysisReadExtraAttrs s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr (GSList (Ptr ())))-    val' <- unpackGSList val-    return val'--
− GI/Pango/Structs/Analysis.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.Analysis where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Analysis = Analysis (ForeignPtr Analysis)
− GI/Pango/Structs/AttrClass.hs 
@@ -1,54 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrClass structure stores the type and operations for-a particular type of attribute. The functions in this structure should-not be called directly. Instead, one should use the wrapper functions-provided for #PangoAttribute.--}--module GI.Pango.Structs.AttrClass-    ( ---- * Exported types-    AttrClass(..)                           ,-    noAttrClass                             ,--- -- * Properties--- ** Type-    attrClassReadType                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrClass = AttrClass (ForeignPtr AttrClass)-noAttrClass :: Maybe AttrClass-noAttrClass = Nothing--attrClassReadType :: AttrClass -> IO AttrType-attrClassReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'---- XXX Skipped getter for "AttrClass:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "AttrClass:equal" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/Pango/Structs/AttrClass.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrClass where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrClass = AttrClass (ForeignPtr AttrClass)
− GI/Pango/Structs/AttrColor.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrColor structure is used to represent attributes that-are colors.--}--module GI.Pango.Structs.AttrColor-    ( ---- * Exported types-    AttrColor(..)                           ,-    noAttrColor                             ,--- -- * Properties--- ** Attr-    attrColorReadAttr                       ,----- ** Color-    attrColorReadColor                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrColor = AttrColor (ForeignPtr AttrColor)-noAttrColor :: Maybe AttrColor-noAttrColor = Nothing--attrColorReadAttr :: AttrColor -> IO Attribute-attrColorReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrColorReadColor :: AttrColor -> IO Color-attrColorReadColor s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Color)-    val' <- (newBoxed Color) val-    return val'--
− GI/Pango/Structs/AttrColor.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrColor where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrColor = AttrColor (ForeignPtr AttrColor)
− GI/Pango/Structs/AttrFloat.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrFloat structure is used to represent attributes with-a float or double value.--}--module GI.Pango.Structs.AttrFloat-    ( ---- * Exported types-    AttrFloat(..)                           ,-    noAttrFloat                             ,--- -- * Properties--- ** Attr-    attrFloatReadAttr                       ,----- ** Value-    attrFloatReadValue                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrFloat = AttrFloat (ForeignPtr AttrFloat)-noAttrFloat :: Maybe AttrFloat-noAttrFloat = Nothing--attrFloatReadAttr :: AttrFloat -> IO Attribute-attrFloatReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrFloatReadValue :: AttrFloat -> IO Double-attrFloatReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CDouble-    let val' = realToFrac val-    return val'--
− GI/Pango/Structs/AttrFloat.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrFloat where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrFloat = AttrFloat (ForeignPtr AttrFloat)
− GI/Pango/Structs/AttrFontDesc.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrFontDesc structure is used to store an attribute that-sets all aspects of the font description at once.--}--module GI.Pango.Structs.AttrFontDesc-    ( ---- * Exported types-    AttrFontDesc(..)                        ,-    noAttrFontDesc                          ,--- -- * Properties--- ** Attr-    attrFontDescReadAttr                    ,----- ** Desc-    attrFontDescReadDesc                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrFontDesc = AttrFontDesc (ForeignPtr AttrFontDesc)-noAttrFontDesc :: Maybe AttrFontDesc-noAttrFontDesc = Nothing--attrFontDescReadAttr :: AttrFontDesc -> IO Attribute-attrFontDescReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrFontDescReadDesc :: AttrFontDesc -> IO FontDescription-attrFontDescReadDesc s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr FontDescription)-    val' <- (newBoxed FontDescription) val-    return val'--
− GI/Pango/Structs/AttrFontDesc.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrFontDesc where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrFontDesc = AttrFontDesc (ForeignPtr AttrFontDesc)
− GI/Pango/Structs/AttrInt.hs 
@@ -1,57 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrInt structure is used to represent attributes with-an integer or enumeration value.--}--module GI.Pango.Structs.AttrInt-    ( ---- * Exported types-    AttrInt(..)                             ,-    noAttrInt                               ,--- -- * Properties--- ** Attr-    attrIntReadAttr                         ,----- ** Value-    attrIntReadValue                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrInt = AttrInt (ForeignPtr AttrInt)-noAttrInt :: Maybe AttrInt-noAttrInt = Nothing--attrIntReadAttr :: AttrInt -> IO Attribute-attrIntReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrIntReadValue :: AttrInt -> IO Int32-attrIntReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--
− GI/Pango/Structs/AttrInt.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrInt where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrInt = AttrInt (ForeignPtr AttrInt)
− GI/Pango/Structs/AttrIterator.hs 
@@ -1,213 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrIterator structure is used to represent an-iterator through a #PangoAttrList. A new iterator is created-with pango_attr_list_get_iterator(). Once the iterator-is created, it can be advanced through the style changes-in the text using pango_attr_iterator_next(). At each-style change, the range of the current style segment and the-attributes currently in effect can be queried.--}--module GI.Pango.Structs.AttrIterator-    ( ---- * Exported types-    AttrIterator(..)                        ,-    noAttrIterator                          ,--- -- * Methods--- ** attrIteratorDestroy-    attrIteratorDestroy                     ,----- ** attrIteratorGetAttrs-    attrIteratorGetAttrs                    ,----- ** attrIteratorGetFont-    attrIteratorGetFont                     ,----- ** attrIteratorNext-    attrIteratorNext                        ,----- ** attrIteratorRange-    attrIteratorRange                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrIterator = AttrIterator (ForeignPtr AttrIterator)-noAttrIterator :: Maybe AttrIterator-noAttrIterator = Nothing---- method AttrIterator::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attr_iterator_destroy" pango_attr_iterator_destroy :: -    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"-    IO ()---attrIteratorDestroy ::-    (MonadIO m) =>-    AttrIterator ->                         -- _obj-    m ()-attrIteratorDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_attr_iterator_destroy _obj'-    touchManagedPtr _obj-    return ()---- method AttrIterator::get_attrs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Pango" "Attribute")--- throws : False--- Skip return : False--foreign import ccall "pango_attr_iterator_get_attrs" pango_attr_iterator_get_attrs :: -    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"-    IO (Ptr (GSList (Ptr Attribute)))---attrIteratorGetAttrs ::-    (MonadIO m) =>-    AttrIterator ->                         -- _obj-    m [Attribute]-attrIteratorGetAttrs _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_attr_iterator_get_attrs _obj'-    checkUnexpectedReturnNULL "pango_attr_iterator_get_attrs" result-    result' <- unpackGSList result-    result'' <- mapM (wrapPtr Attribute) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method AttrIterator::get_font--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_attrs", argType = TGSList (TInterface "Pango" "Attribute"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "extra_attrs", argType = TGSList (TInterface "Pango" "Attribute"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attr_iterator_get_font" pango_attr_iterator_get_font :: -    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"-    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"-    Ptr Language ->                         -- language : TInterface "Pango" "Language"-    Ptr (GSList (Ptr Attribute)) ->         -- extra_attrs : TGSList (TInterface "Pango" "Attribute")-    IO ()---attrIteratorGetFont ::-    (MonadIO m) =>-    AttrIterator ->                         -- _obj-    FontDescription ->                      -- desc-    Maybe (Language) ->                     -- language-    [Attribute] ->                          -- extra_attrs-    m ()-attrIteratorGetFont _obj desc language extra_attrs = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let desc' = unsafeManagedPtrGetPtr desc-    maybeLanguage <- case language of-        Nothing -> return nullPtr-        Just jLanguage -> do-            let jLanguage' = unsafeManagedPtrGetPtr jLanguage-            return jLanguage'-    let extra_attrs' = map unsafeManagedPtrGetPtr extra_attrs-    extra_attrs'' <- packGSList extra_attrs'-    pango_attr_iterator_get_font _obj' desc' maybeLanguage extra_attrs''-    touchManagedPtr _obj-    touchManagedPtr desc-    whenJust language touchManagedPtr-    mapM_ touchManagedPtr extra_attrs-    return ()---- method AttrIterator::next--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_attr_iterator_next" pango_attr_iterator_next :: -    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"-    IO CInt---attrIteratorNext ::-    (MonadIO m) =>-    AttrIterator ->                         -- _obj-    m Bool-attrIteratorNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_attr_iterator_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method AttrIterator::range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attr_iterator_range" pango_attr_iterator_range :: -    Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"-    Ptr Int32 ->                            -- start : TBasicType TInt32-    Ptr Int32 ->                            -- end : TBasicType TInt32-    IO ()---attrIteratorRange ::-    (MonadIO m) =>-    AttrIterator ->                         -- _obj-    m (Int32,Int32)-attrIteratorRange _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    start <- allocMem :: IO (Ptr Int32)-    end <- allocMem :: IO (Ptr Int32)-    pango_attr_iterator_range _obj' start end-    start' <- peek start-    end' <- peek end-    touchManagedPtr _obj-    freeMem start-    freeMem end-    return (start', end')--
− GI/Pango/Structs/AttrIterator.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrIterator where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrIterator = AttrIterator (ForeignPtr AttrIterator)
− GI/Pango/Structs/AttrLanguage.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrLanguage structure is used to represent attributes that-are languages.--}--module GI.Pango.Structs.AttrLanguage-    ( ---- * Exported types-    AttrLanguage(..)                        ,-    noAttrLanguage                          ,--- -- * Properties--- ** Attr-    attrLanguageReadAttr                    ,----- ** Value-    attrLanguageReadValue                   ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrLanguage = AttrLanguage (ForeignPtr AttrLanguage)-noAttrLanguage :: Maybe AttrLanguage-noAttrLanguage = Nothing--attrLanguageReadAttr :: AttrLanguage -> IO Attribute-attrLanguageReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrLanguageReadValue :: AttrLanguage -> IO Language-attrLanguageReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Language)-    val' <- (newBoxed Language) val-    return val'--
− GI/Pango/Structs/AttrLanguage.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrLanguage where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrLanguage = AttrLanguage (ForeignPtr AttrLanguage)
− GI/Pango/Structs/AttrList.hs 
@@ -1,334 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrList structure represents a list of attributes-that apply to a section of text. The attributes are, in general,-allowed to overlap in an arbitrary fashion, however, if the-attributes are manipulated only through pango_attr_list_change(),-the overlap between properties will meet stricter criteria.--Since the #PangoAttrList structure is stored as a linear list,-it is not suitable for storing attributes for large amounts-of text. In general, you should not use a single #PangoAttrList-for more than one paragraph of text.--}--module GI.Pango.Structs.AttrList-    ( ---- * Exported types-    AttrList(..)                            ,-    noAttrList                              ,--- -- * Methods--- ** attrListChange-    attrListChange                          ,----- ** attrListCopy-    attrListCopy                            ,----- ** attrListFilter-    attrListFilter                          ,----- ** attrListInsert-    attrListInsert                          ,----- ** attrListInsertBefore-    attrListInsertBefore                    ,----- ** attrListNew-    attrListNew                             ,----- ** attrListRef-    attrListRef                             ,----- ** attrListSplice-    attrListSplice                          ,----- ** attrListUnref-    attrListUnref                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrList = AttrList (ForeignPtr AttrList)-foreign import ccall "pango_attr_list_get_type" c_pango_attr_list_get_type :: -    IO GType--instance BoxedObject AttrList where-    boxedType _ = c_pango_attr_list_get_type--noAttrList :: Maybe AttrList-noAttrList = Nothing---- method AttrList::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Pango" "AttrList"--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_new" pango_attr_list_new :: -    IO (Ptr AttrList)---attrListNew ::-    (MonadIO m) =>-    m AttrList-attrListNew  = liftIO $ do-    result <- pango_attr_list_new-    checkUnexpectedReturnNULL "pango_attr_list_new" result-    result' <- (wrapBoxed AttrList) result-    return result'---- method AttrList::change--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_change" pango_attr_list_change :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    Ptr Attribute ->                        -- attr : TInterface "Pango" "Attribute"-    IO ()---attrListChange ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    Attribute ->                            -- attr-    m ()-attrListChange _obj attr = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let attr' = unsafeManagedPtrGetPtr attr-    pango_attr_list_change _obj' attr'-    touchManagedPtr _obj-    touchManagedPtr attr-    return ()---- method AttrList::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "AttrList"--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_copy" pango_attr_list_copy :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    IO (Ptr AttrList)---attrListCopy ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    m AttrList-attrListCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_attr_list_copy _obj'-    checkUnexpectedReturnNULL "pango_attr_list_copy" result-    result' <- (wrapBoxed AttrList) result-    touchManagedPtr _obj-    return result'---- method AttrList::filter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "AttrFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Pango" "AttrFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "AttrList"--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_filter" pango_attr_list_filter :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    FunPtr AttrFilterFuncC ->               -- func : TInterface "Pango" "AttrFilterFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    IO (Ptr AttrList)---attrListFilter ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    AttrFilterFunc ->                       -- func-    m AttrList-attrListFilter _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    func' <- mkAttrFilterFunc (attrFilterFuncWrapper Nothing func)-    let data_ = nullPtr-    result <- pango_attr_list_filter _obj' func' data_-    checkUnexpectedReturnNULL "pango_attr_list_filter" result-    result' <- (wrapBoxed AttrList) result-    safeFreeFunPtr $ castFunPtrToPtr func'-    touchManagedPtr _obj-    return result'---- method AttrList::insert--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_insert" pango_attr_list_insert :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    Ptr Attribute ->                        -- attr : TInterface "Pango" "Attribute"-    IO ()---attrListInsert ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    Attribute ->                            -- attr-    m ()-attrListInsert _obj attr = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let attr' = unsafeManagedPtrGetPtr attr-    pango_attr_list_insert _obj' attr'-    touchManagedPtr _obj-    touchManagedPtr attr-    return ()---- method AttrList::insert_before--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_insert_before" pango_attr_list_insert_before :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    Ptr Attribute ->                        -- attr : TInterface "Pango" "Attribute"-    IO ()---attrListInsertBefore ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    Attribute ->                            -- attr-    m ()-attrListInsertBefore _obj attr = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let attr' = unsafeManagedPtrGetPtr attr-    pango_attr_list_insert_before _obj' attr'-    touchManagedPtr _obj-    touchManagedPtr attr-    return ()---- method AttrList::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "AttrList"--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_ref" pango_attr_list_ref :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    IO (Ptr AttrList)---attrListRef ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    m AttrList-attrListRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_attr_list_ref _obj'-    checkUnexpectedReturnNULL "pango_attr_list_ref" result-    result' <- (wrapBoxed AttrList) result-    touchManagedPtr _obj-    return result'---- method AttrList::splice--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", 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 "pango_attr_list_splice" pango_attr_list_splice :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    Ptr AttrList ->                         -- other : TInterface "Pango" "AttrList"-    Int32 ->                                -- pos : TBasicType TInt32-    Int32 ->                                -- len : TBasicType TInt32-    IO ()---attrListSplice ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    AttrList ->                             -- other-    Int32 ->                                -- pos-    Int32 ->                                -- len-    m ()-attrListSplice _obj other pos len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let other' = unsafeManagedPtrGetPtr other-    pango_attr_list_splice _obj' other' pos len-    touchManagedPtr _obj-    touchManagedPtr other-    return ()---- method AttrList::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attr_list_unref" pango_attr_list_unref :: -    Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"-    IO ()---attrListUnref ::-    (MonadIO m) =>-    AttrList ->                             -- _obj-    m ()-attrListUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_attr_list_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/Pango/Structs/AttrList.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.AttrList where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrList = AttrList (ForeignPtr AttrList)-instance BoxedObject AttrList where
− GI/Pango/Structs/AttrShape.hs 
@@ -1,79 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrShape structure is used to represent attributes which-impose shape restrictions.--}--module GI.Pango.Structs.AttrShape-    ( ---- * Exported types-    AttrShape(..)                           ,-    noAttrShape                             ,--- -- * Properties--- ** Attr-    attrShapeReadAttr                       ,----- ** Data-    attrShapeReadData                       ,----- ** InkRect-    attrShapeReadInkRect                    ,----- ** LogicalRect-    attrShapeReadLogicalRect                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrShape = AttrShape (ForeignPtr AttrShape)-noAttrShape :: Maybe AttrShape-noAttrShape = Nothing--attrShapeReadAttr :: AttrShape -> IO Attribute-attrShapeReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrShapeReadInkRect :: AttrShape -> IO Rectangle-attrShapeReadInkRect s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Rectangle)-    val' <- (newPtr 16 Rectangle) val-    return val'--attrShapeReadLogicalRect :: AttrShape -> IO Rectangle-attrShapeReadLogicalRect s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Rectangle)-    val' <- (newPtr 16 Rectangle) val-    return val'--attrShapeReadData :: AttrShape -> IO (Ptr ())-attrShapeReadData s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr ())-    return val---- XXX Skipped getter for "AttrShape:destroy_func" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/Pango/Structs/AttrShape.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrShape where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrShape = AttrShape (ForeignPtr AttrShape)
− GI/Pango/Structs/AttrSize.hs 
@@ -1,66 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrSize structure is used to represent attributes which-set font size.--}--module GI.Pango.Structs.AttrSize-    ( ---- * Exported types-    AttrSize(..)                            ,-    noAttrSize                              ,--- -- * Properties--- ** Absolute-    attrSizeReadAbsolute                    ,----- ** Attr-    attrSizeReadAttr                        ,----- ** Size-    attrSizeReadSize                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrSize = AttrSize (ForeignPtr AttrSize)-noAttrSize :: Maybe AttrSize-noAttrSize = Nothing--attrSizeReadAttr :: AttrSize -> IO Attribute-attrSizeReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrSizeReadSize :: AttrSize -> IO Int32-attrSizeReadSize s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--attrSizeReadAbsolute :: AttrSize -> IO Word32-attrSizeReadAbsolute s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--
− GI/Pango/Structs/AttrSize.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrSize where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrSize = AttrSize (ForeignPtr AttrSize)
− GI/Pango/Structs/AttrString.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttrString structure is used to represent attributes with-a string value.--}--module GI.Pango.Structs.AttrString-    ( ---- * Exported types-    AttrString(..)                          ,-    noAttrString                            ,--- -- * Properties--- ** Attr-    attrStringReadAttr                      ,----- ** Value-    attrStringReadValue                     ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype AttrString = AttrString (ForeignPtr AttrString)-noAttrString :: Maybe AttrString-noAttrString = Nothing--attrStringReadAttr :: AttrString -> IO Attribute-attrStringReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'--attrStringReadValue :: AttrString -> IO T.Text-attrStringReadValue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'--
− GI/Pango/Structs/AttrString.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.AttrString where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AttrString = AttrString (ForeignPtr AttrString)
− GI/Pango/Structs/Attribute.hs 
@@ -1,166 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoAttribute structure represents the common portions of all-attributes. Particular types of attributes include this structure-as their initial portion. The common portion of the attribute holds-the range to which the value in the type-specific part of the attribute-applies and should be initialized using pango_attribute_init().-By default an attribute will have an all-inclusive range of [0,%G_MAXUINT].--}--module GI.Pango.Structs.Attribute-    ( ---- * Exported types-    Attribute(..)                           ,-    noAttribute                             ,--- -- * Methods--- ** attributeDestroy-    attributeDestroy                        ,----- ** attributeEqual-    attributeEqual                          ,----- ** attributeInit-    attributeInit                           ,----- -- * Properties--- ** EndIndex-    attributeReadEndIndex                   ,----- ** Klass-    attributeReadKlass                      ,----- ** StartIndex-    attributeReadStartIndex                 ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Attribute = Attribute (ForeignPtr Attribute)-noAttribute :: Maybe Attribute-noAttribute = Nothing--attributeReadKlass :: Attribute -> IO AttrClass-attributeReadKlass s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr AttrClass)-    val' <- (newPtr 32 AttrClass) val-    return val'--attributeReadStartIndex :: Attribute -> IO Word32-attributeReadStartIndex s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--attributeReadEndIndex :: Attribute -> IO Word32-attributeReadEndIndex s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Word32-    return val---- method Attribute::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attribute_destroy" pango_attribute_destroy :: -    Ptr Attribute ->                        -- _obj : TInterface "Pango" "Attribute"-    IO ()---attributeDestroy ::-    (MonadIO m) =>-    Attribute ->                            -- _obj-    m ()-attributeDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_attribute_destroy _obj'-    touchManagedPtr _obj-    return ()---- method Attribute::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr2", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr2", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_attribute_equal" pango_attribute_equal :: -    Ptr Attribute ->                        -- _obj : TInterface "Pango" "Attribute"-    Ptr Attribute ->                        -- attr2 : TInterface "Pango" "Attribute"-    IO CInt---attributeEqual ::-    (MonadIO m) =>-    Attribute ->                            -- _obj-    Attribute ->                            -- attr2-    m Bool-attributeEqual _obj attr2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let attr2' = unsafeManagedPtrGetPtr attr2-    result <- pango_attribute_equal _obj' attr2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr attr2-    return result'---- method Attribute::init--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "klass", argType = TInterface "Pango" "AttrClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "klass", argType = TInterface "Pango" "AttrClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_attribute_init" pango_attribute_init :: -    Ptr Attribute ->                        -- _obj : TInterface "Pango" "Attribute"-    Ptr AttrClass ->                        -- klass : TInterface "Pango" "AttrClass"-    IO ()---attributeInit ::-    (MonadIO m) =>-    Attribute ->                            -- _obj-    AttrClass ->                            -- klass-    m ()-attributeInit _obj klass = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let klass' = unsafeManagedPtrGetPtr klass-    pango_attribute_init _obj' klass'-    touchManagedPtr _obj-    touchManagedPtr klass-    return ()--
− GI/Pango/Structs/Attribute.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.Attribute where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Attribute = Attribute (ForeignPtr Attribute)
− GI/Pango/Structs/Color.hs 
@@ -1,196 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoColor structure is used to-represent a color in an uncalibrated RGB color-space.--}--module GI.Pango.Structs.Color-    ( ---- * Exported types-    Color(..)                               ,-    noColor                                 ,--- -- * Methods--- ** colorCopy-    colorCopy                               ,----- ** colorFree-    colorFree                               ,----- ** colorParse-    colorParse                              ,----- ** colorToString-    colorToString                           ,----- -- * Properties--- ** Blue-    colorReadBlue                           ,----- ** Green-    colorReadGreen                          ,----- ** Red-    colorReadRed                            ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Color = Color (ForeignPtr Color)-foreign import ccall "pango_color_get_type" c_pango_color_get_type :: -    IO GType--instance BoxedObject Color where-    boxedType _ = c_pango_color_get_type--noColor :: Maybe Color-noColor = Nothing--colorReadRed :: Color -> IO Word16-colorReadRed s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word16-    return val--colorReadGreen :: Color -> IO Word16-colorReadGreen s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 2) :: IO Word16-    return val--colorReadBlue :: Color -> IO Word16-colorReadBlue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word16-    return val---- method Color::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Color"--- throws : False--- Skip return : False--foreign import ccall "pango_color_copy" pango_color_copy :: -    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"-    IO (Ptr Color)---colorCopy ::-    (MonadIO m) =>-    Color ->                                -- _obj-    m Color-colorCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_color_copy _obj'-    checkUnexpectedReturnNULL "pango_color_copy" result-    result' <- (wrapBoxed Color) result-    touchManagedPtr _obj-    return result'---- method Color::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_color_free" pango_color_free :: -    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"-    IO ()---colorFree ::-    (MonadIO m) =>-    Color ->                                -- _obj-    m ()-colorFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_color_free _obj'-    touchManagedPtr _obj-    return ()---- method Color::parse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_color_parse" pango_color_parse :: -    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"-    CString ->                              -- spec : TBasicType TUTF8-    IO CInt---colorParse ::-    (MonadIO m) =>-    Color ->                                -- _obj-    T.Text ->                               -- spec-    m Bool-colorParse _obj spec = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    spec' <- textToCString spec-    result <- pango_color_parse _obj' spec'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem spec'-    return result'---- method Color::to_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_color_to_string" pango_color_to_string :: -    Ptr Color ->                            -- _obj : TInterface "Pango" "Color"-    IO CString---colorToString ::-    (MonadIO m) =>-    Color ->                                -- _obj-    m T.Text-colorToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_color_to_string _obj'-    checkUnexpectedReturnNULL "pango_color_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--
− GI/Pango/Structs/Color.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.Color where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Color = Color (ForeignPtr Color)-instance BoxedObject Color where
− GI/Pango/Structs/Coverage.hs 
@@ -1,200 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoCoverage structure represents a map from Unicode characters-to #PangoCoverageLevel. It is an opaque structure with no public fields.--}--module GI.Pango.Structs.Coverage-    ( ---- * Exported types-    Coverage(..)                            ,-    noCoverage                              ,--- -- * Methods--- ** coverageGet-    coverageGet                             ,----- ** coverageMax-    coverageMax                             ,----- ** coverageSet-    coverageSet                             ,----- ** coverageToBytes-    coverageToBytes                         ,----- ** coverageUnref-    coverageUnref                           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Coverage = Coverage (ForeignPtr Coverage)-noCoverage :: Maybe Coverage-noCoverage = Nothing---- method Coverage::get--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "CoverageLevel"--- throws : False--- Skip return : False--foreign import ccall "pango_coverage_get" pango_coverage_get :: -    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"-    Int32 ->                                -- index_ : TBasicType TInt32-    IO CUInt---coverageGet ::-    (MonadIO m) =>-    Coverage ->                             -- _obj-    Int32 ->                                -- index_-    m CoverageLevel-coverageGet _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_coverage_get _obj' index_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Coverage::max--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "other", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_coverage_max" pango_coverage_max :: -    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"-    Ptr Coverage ->                         -- other : TInterface "Pango" "Coverage"-    IO ()---coverageMax ::-    (MonadIO m) =>-    Coverage ->                             -- _obj-    Coverage ->                             -- other-    m ()-coverageMax _obj other = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let other' = unsafeManagedPtrGetPtr other-    pango_coverage_max _obj' other'-    touchManagedPtr _obj-    touchManagedPtr other-    return ()---- method Coverage::set--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TInterface "Pango" "CoverageLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "level", argType = TInterface "Pango" "CoverageLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_coverage_set" pango_coverage_set :: -    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"-    Int32 ->                                -- index_ : TBasicType TInt32-    CUInt ->                                -- level : TInterface "Pango" "CoverageLevel"-    IO ()---coverageSet ::-    (MonadIO m) =>-    Coverage ->                             -- _obj-    Int32 ->                                -- index_-    CoverageLevel ->                        -- level-    m ()-coverageSet _obj index_ level = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let level' = (fromIntegral . fromEnum) level-    pango_coverage_set _obj' index_ level'-    touchManagedPtr _obj-    return ()---- method Coverage::to_bytes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_bytes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_bytes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_coverage_to_bytes" pango_coverage_to_bytes :: -    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"-    Ptr (Ptr Word8) ->                      -- bytes : TCArray False (-1) 2 (TBasicType TUInt8)-    Ptr Int32 ->                            -- n_bytes : TBasicType TInt32-    IO ()---coverageToBytes ::-    (MonadIO m) =>-    Coverage ->                             -- _obj-    m (ByteString)-coverageToBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    bytes <- allocMem :: IO (Ptr (Ptr Word8))-    n_bytes <- allocMem :: IO (Ptr Int32)-    pango_coverage_to_bytes _obj' bytes n_bytes-    n_bytes' <- peek n_bytes-    bytes' <- peek bytes-    bytes'' <- (unpackByteStringWithLength n_bytes') bytes'-    freeMem bytes'-    touchManagedPtr _obj-    freeMem bytes-    freeMem n_bytes-    return bytes''---- method Coverage::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_coverage_unref" pango_coverage_unref :: -    Ptr Coverage ->                         -- _obj : TInterface "Pango" "Coverage"-    IO ()---coverageUnref ::-    (MonadIO m) =>-    Coverage ->                             -- _obj-    m ()-coverageUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_coverage_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/Pango/Structs/Coverage.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.Coverage where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Coverage = Coverage (ForeignPtr Coverage)
− GI/Pango/Structs/EngineInfo.hs 
@@ -1,87 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoEngineInfo structure contains information about a particular-engine. It contains the following fields:--}--module GI.Pango.Structs.EngineInfo-    ( ---- * Exported types-    EngineInfo(..)                          ,-    noEngineInfo                            ,--- -- * Properties--- ** EngineType-    engineInfoReadEngineType                ,----- ** Id-    engineInfoReadId                        ,----- ** NScripts-    engineInfoReadNScripts                  ,----- ** RenderType-    engineInfoReadRenderType                ,----- ** Scripts-    engineInfoReadScripts                   ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype EngineInfo = EngineInfo (ForeignPtr EngineInfo)-noEngineInfo :: Maybe EngineInfo-noEngineInfo = Nothing--engineInfoReadId :: EngineInfo -> IO T.Text-engineInfoReadId s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--engineInfoReadEngineType :: EngineInfo -> IO T.Text-engineInfoReadEngineType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'--engineInfoReadRenderType :: EngineInfo -> IO T.Text-engineInfoReadRenderType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'--engineInfoReadScripts :: EngineInfo -> IO EngineScriptInfo-engineInfoReadScripts s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr EngineScriptInfo)-    val' <- (newPtr 16 EngineScriptInfo) val-    return val'--engineInfoReadNScripts :: EngineInfo -> IO Int32-engineInfoReadNScripts s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--
− GI/Pango/Structs/EngineInfo.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.EngineInfo where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EngineInfo = EngineInfo (ForeignPtr EngineInfo)
− GI/Pango/Structs/EngineScriptInfo.hs 
@@ -1,58 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoEngineScriptInfo structure contains-information about how the shaper covers a particular script.--}--module GI.Pango.Structs.EngineScriptInfo-    ( ---- * Exported types-    EngineScriptInfo(..)                    ,-    noEngineScriptInfo                      ,--- -- * Properties--- ** Langs-    engineScriptInfoReadLangs               ,----- ** Script-    engineScriptInfoReadScript              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype EngineScriptInfo = EngineScriptInfo (ForeignPtr EngineScriptInfo)-noEngineScriptInfo :: Maybe EngineScriptInfo-noEngineScriptInfo = Nothing--engineScriptInfoReadScript :: EngineScriptInfo -> IO Script-engineScriptInfoReadScript s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--engineScriptInfoReadLangs :: EngineScriptInfo -> IO T.Text-engineScriptInfoReadLangs s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'--
− GI/Pango/Structs/EngineScriptInfo.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.EngineScriptInfo where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EngineScriptInfo = EngineScriptInfo (ForeignPtr EngineScriptInfo)
− GI/Pango/Structs/FontDescription.hs 
@@ -1,970 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoFontDescription structure represents the description-of an ideal font. These structures are used both to list-what fonts are available on the system and also for specifying-the characteristics of a font to load.--}--module GI.Pango.Structs.FontDescription-    ( ---- * Exported types-    FontDescription(..)                     ,-    noFontDescription                       ,--- -- * Methods--- ** fontDescriptionBetterMatch-    fontDescriptionBetterMatch              ,----- ** fontDescriptionCopy-    fontDescriptionCopy                     ,----- ** fontDescriptionCopyStatic-    fontDescriptionCopyStatic               ,----- ** fontDescriptionEqual-    fontDescriptionEqual                    ,----- ** fontDescriptionFree-    fontDescriptionFree                     ,----- ** fontDescriptionGetFamily-    fontDescriptionGetFamily                ,----- ** fontDescriptionGetGravity-    fontDescriptionGetGravity               ,----- ** fontDescriptionGetSetFields-    fontDescriptionGetSetFields             ,----- ** fontDescriptionGetSize-    fontDescriptionGetSize                  ,----- ** fontDescriptionGetSizeIsAbsolute-    fontDescriptionGetSizeIsAbsolute        ,----- ** fontDescriptionGetStretch-    fontDescriptionGetStretch               ,----- ** fontDescriptionGetStyle-    fontDescriptionGetStyle                 ,----- ** fontDescriptionGetVariant-    fontDescriptionGetVariant               ,----- ** fontDescriptionGetWeight-    fontDescriptionGetWeight                ,----- ** fontDescriptionHash-    fontDescriptionHash                     ,----- ** fontDescriptionMerge-    fontDescriptionMerge                    ,----- ** fontDescriptionMergeStatic-    fontDescriptionMergeStatic              ,----- ** fontDescriptionNew-    fontDescriptionNew                      ,----- ** fontDescriptionSetAbsoluteSize-    fontDescriptionSetAbsoluteSize          ,----- ** fontDescriptionSetFamily-    fontDescriptionSetFamily                ,----- ** fontDescriptionSetFamilyStatic-    fontDescriptionSetFamilyStatic          ,----- ** fontDescriptionSetGravity-    fontDescriptionSetGravity               ,----- ** fontDescriptionSetSize-    fontDescriptionSetSize                  ,----- ** fontDescriptionSetStretch-    fontDescriptionSetStretch               ,----- ** fontDescriptionSetStyle-    fontDescriptionSetStyle                 ,----- ** fontDescriptionSetVariant-    fontDescriptionSetVariant               ,----- ** fontDescriptionSetWeight-    fontDescriptionSetWeight                ,----- ** fontDescriptionToFilename-    fontDescriptionToFilename               ,----- ** fontDescriptionToString-    fontDescriptionToString                 ,----- ** fontDescriptionUnsetFields-    fontDescriptionUnsetFields              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype FontDescription = FontDescription (ForeignPtr FontDescription)-foreign import ccall "pango_font_description_get_type" c_pango_font_description_get_type :: -    IO GType--instance BoxedObject FontDescription where-    boxedType _ = c_pango_font_description_get_type--noFontDescription :: Maybe FontDescription-noFontDescription = Nothing---- method FontDescription::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_new" pango_font_description_new :: -    IO (Ptr FontDescription)---fontDescriptionNew ::-    (MonadIO m) =>-    m FontDescription-fontDescriptionNew  = liftIO $ do-    result <- pango_font_description_new-    checkUnexpectedReturnNULL "pango_font_description_new" result-    result' <- (wrapBoxed FontDescription) result-    return result'---- method FontDescription::better_match--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_better_match" pango_font_description_better_match :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    Ptr FontDescription ->                  -- old_match : TInterface "Pango" "FontDescription"-    Ptr FontDescription ->                  -- new_match : TInterface "Pango" "FontDescription"-    IO CInt---fontDescriptionBetterMatch ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Maybe (FontDescription) ->              -- old_match-    FontDescription ->                      -- new_match-    m Bool-fontDescriptionBetterMatch _obj old_match new_match = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeOld_match <- case old_match of-        Nothing -> return nullPtr-        Just jOld_match -> do-            let jOld_match' = unsafeManagedPtrGetPtr jOld_match-            return jOld_match'-    let new_match' = unsafeManagedPtrGetPtr new_match-    result <- pango_font_description_better_match _obj' maybeOld_match new_match'-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust old_match touchManagedPtr-    touchManagedPtr new_match-    return result'---- method FontDescription::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_copy" pango_font_description_copy :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO (Ptr FontDescription)---fontDescriptionCopy ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m FontDescription-fontDescriptionCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_copy _obj'-    checkUnexpectedReturnNULL "pango_font_description_copy" result-    result' <- (wrapBoxed FontDescription) result-    touchManagedPtr _obj-    return result'---- method FontDescription::copy_static--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontDescription"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_copy_static" pango_font_description_copy_static :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO (Ptr FontDescription)---fontDescriptionCopyStatic ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m FontDescription-fontDescriptionCopyStatic _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_copy_static _obj'-    checkUnexpectedReturnNULL "pango_font_description_copy_static" result-    result' <- (wrapBoxed FontDescription) result-    touchManagedPtr _obj-    return result'---- method FontDescription::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc2", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc2", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_equal" pango_font_description_equal :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    Ptr FontDescription ->                  -- desc2 : TInterface "Pango" "FontDescription"-    IO CInt---fontDescriptionEqual ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    FontDescription ->                      -- desc2-    m Bool-fontDescriptionEqual _obj desc2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let desc2' = unsafeManagedPtrGetPtr desc2-    result <- pango_font_description_equal _obj' desc2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr desc2-    return result'---- method FontDescription::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_free" pango_font_description_free :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO ()---fontDescriptionFree ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m ()-fontDescriptionFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_font_description_free _obj'-    touchManagedPtr _obj-    return ()---- method FontDescription::get_family--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_family" pango_font_description_get_family :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CString---fontDescriptionGetFamily ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m T.Text-fontDescriptionGetFamily _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_family _obj'-    checkUnexpectedReturnNULL "pango_font_description_get_family" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method FontDescription::get_gravity--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Gravity"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_gravity" pango_font_description_get_gravity :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CUInt---fontDescriptionGetGravity ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Gravity-fontDescriptionGetGravity _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_gravity _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method FontDescription::get_set_fields--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontMask"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_set_fields" pango_font_description_get_set_fields :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CUInt---fontDescriptionGetSetFields ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m [FontMask]-fontDescriptionGetSetFields _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_set_fields _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method FontDescription::get_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_size" pango_font_description_get_size :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO Int32---fontDescriptionGetSize ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Int32-fontDescriptionGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_size _obj'-    touchManagedPtr _obj-    return result---- method FontDescription::get_size_is_absolute--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_size_is_absolute" pango_font_description_get_size_is_absolute :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CInt---fontDescriptionGetSizeIsAbsolute ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Bool-fontDescriptionGetSizeIsAbsolute _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_size_is_absolute _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method FontDescription::get_stretch--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Stretch"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_stretch" pango_font_description_get_stretch :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CUInt---fontDescriptionGetStretch ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Stretch-fontDescriptionGetStretch _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_stretch _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method FontDescription::get_style--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Style"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_style" pango_font_description_get_style :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CUInt---fontDescriptionGetStyle ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Style-fontDescriptionGetStyle _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_style _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method FontDescription::get_variant--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Variant"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_variant" pango_font_description_get_variant :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CUInt---fontDescriptionGetVariant ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Variant-fontDescriptionGetVariant _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_variant _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method FontDescription::get_weight--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Weight"--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_get_weight" pango_font_description_get_weight :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CUInt---fontDescriptionGetWeight ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Weight-fontDescriptionGetWeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_get_weight _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method FontDescription::hash--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_hash" pango_font_description_hash :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO Word32---fontDescriptionHash ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m Word32-fontDescriptionHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_hash _obj'-    touchManagedPtr _obj-    return result---- method FontDescription::merge--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", 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 "pango_font_description_merge" pango_font_description_merge :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    Ptr FontDescription ->                  -- desc_to_merge : TInterface "Pango" "FontDescription"-    CInt ->                                 -- replace_existing : TBasicType TBoolean-    IO ()---fontDescriptionMerge ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Maybe (FontDescription) ->              -- desc_to_merge-    Bool ->                                 -- replace_existing-    m ()-fontDescriptionMerge _obj desc_to_merge replace_existing = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeDesc_to_merge <- case desc_to_merge of-        Nothing -> return nullPtr-        Just jDesc_to_merge -> do-            let jDesc_to_merge' = unsafeManagedPtrGetPtr jDesc_to_merge-            return jDesc_to_merge'-    let replace_existing' = (fromIntegral . fromEnum) replace_existing-    pango_font_description_merge _obj' maybeDesc_to_merge replace_existing'-    touchManagedPtr _obj-    whenJust desc_to_merge touchManagedPtr-    return ()---- method FontDescription::merge_static--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replace_existing", 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 "pango_font_description_merge_static" pango_font_description_merge_static :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    Ptr FontDescription ->                  -- desc_to_merge : TInterface "Pango" "FontDescription"-    CInt ->                                 -- replace_existing : TBasicType TBoolean-    IO ()---fontDescriptionMergeStatic ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    FontDescription ->                      -- desc_to_merge-    Bool ->                                 -- replace_existing-    m ()-fontDescriptionMergeStatic _obj desc_to_merge replace_existing = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let desc_to_merge' = unsafeManagedPtrGetPtr desc_to_merge-    let replace_existing' = (fromIntegral . fromEnum) replace_existing-    pango_font_description_merge_static _obj' desc_to_merge' replace_existing'-    touchManagedPtr _obj-    touchManagedPtr desc_to_merge-    return ()---- method FontDescription::set_absolute_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_absolute_size" pango_font_description_set_absolute_size :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CDouble ->                              -- size : TBasicType TDouble-    IO ()---fontDescriptionSetAbsoluteSize ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Double ->                               -- size-    m ()-fontDescriptionSetAbsoluteSize _obj size = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let size' = realToFrac size-    pango_font_description_set_absolute_size _obj' size'-    touchManagedPtr _obj-    return ()---- method FontDescription::set_family--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_family" pango_font_description_set_family :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CString ->                              -- family : TBasicType TUTF8-    IO ()---fontDescriptionSetFamily ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    T.Text ->                               -- family-    m ()-fontDescriptionSetFamily _obj family = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    family' <- textToCString family-    pango_font_description_set_family _obj' family'-    touchManagedPtr _obj-    freeMem family'-    return ()---- method FontDescription::set_family_static--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_family_static" pango_font_description_set_family_static :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CString ->                              -- family : TBasicType TUTF8-    IO ()---fontDescriptionSetFamilyStatic ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    T.Text ->                               -- family-    m ()-fontDescriptionSetFamilyStatic _obj family = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    family' <- textToCString family-    pango_font_description_set_family_static _obj' family'-    touchManagedPtr _obj-    freeMem family'-    return ()---- method FontDescription::set_gravity--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_gravity" pango_font_description_set_gravity :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CUInt ->                                -- gravity : TInterface "Pango" "Gravity"-    IO ()---fontDescriptionSetGravity ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Gravity ->                              -- gravity-    m ()-fontDescriptionSetGravity _obj gravity = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let gravity' = (fromIntegral . fromEnum) gravity-    pango_font_description_set_gravity _obj' gravity'-    touchManagedPtr _obj-    return ()---- method FontDescription::set_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", 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 "pango_font_description_set_size" pango_font_description_set_size :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    Int32 ->                                -- size : TBasicType TInt32-    IO ()---fontDescriptionSetSize ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Int32 ->                                -- size-    m ()-fontDescriptionSetSize _obj size = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_font_description_set_size _obj' size-    touchManagedPtr _obj-    return ()---- method FontDescription::set_stretch--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_stretch" pango_font_description_set_stretch :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CUInt ->                                -- stretch : TInterface "Pango" "Stretch"-    IO ()---fontDescriptionSetStretch ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Stretch ->                              -- stretch-    m ()-fontDescriptionSetStretch _obj stretch = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let stretch' = (fromIntegral . fromEnum) stretch-    pango_font_description_set_stretch _obj' stretch'-    touchManagedPtr _obj-    return ()---- method FontDescription::set_style--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Pango" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Pango" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_style" pango_font_description_set_style :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CUInt ->                                -- style : TInterface "Pango" "Style"-    IO ()---fontDescriptionSetStyle ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Style ->                                -- style-    m ()-fontDescriptionSetStyle _obj style = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let style' = (fromIntegral . fromEnum) style-    pango_font_description_set_style _obj' style'-    touchManagedPtr _obj-    return ()---- method FontDescription::set_variant--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_variant" pango_font_description_set_variant :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CUInt ->                                -- variant : TInterface "Pango" "Variant"-    IO ()---fontDescriptionSetVariant ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Variant ->                              -- variant-    m ()-fontDescriptionSetVariant _obj variant = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let variant' = (fromIntegral . fromEnum) variant-    pango_font_description_set_variant _obj' variant'-    touchManagedPtr _obj-    return ()---- method FontDescription::set_weight--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_set_weight" pango_font_description_set_weight :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CUInt ->                                -- weight : TInterface "Pango" "Weight"-    IO ()---fontDescriptionSetWeight ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    Weight ->                               -- weight-    m ()-fontDescriptionSetWeight _obj weight = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let weight' = (fromIntegral . fromEnum) weight-    pango_font_description_set_weight _obj' weight'-    touchManagedPtr _obj-    return ()---- method FontDescription::to_filename--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_to_filename" pango_font_description_to_filename :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CString---fontDescriptionToFilename ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m T.Text-fontDescriptionToFilename _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_to_filename _obj'-    checkUnexpectedReturnNULL "pango_font_description_to_filename" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method FontDescription::to_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_to_string" pango_font_description_to_string :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    IO CString---fontDescriptionToString ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    m T.Text-fontDescriptionToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_description_to_string _obj'-    checkUnexpectedReturnNULL "pango_font_description_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method FontDescription::unset_fields--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_unset", argType = TInterface "Pango" "FontMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_unset", argType = TInterface "Pango" "FontMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_description_unset_fields" pango_font_description_unset_fields :: -    Ptr FontDescription ->                  -- _obj : TInterface "Pango" "FontDescription"-    CUInt ->                                -- to_unset : TInterface "Pango" "FontMask"-    IO ()---fontDescriptionUnsetFields ::-    (MonadIO m) =>-    FontDescription ->                      -- _obj-    [FontMask] ->                           -- to_unset-    m ()-fontDescriptionUnsetFields _obj to_unset = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let to_unset' = gflagsToWord to_unset-    pango_font_description_unset_fields _obj' to_unset'-    touchManagedPtr _obj-    return ()--
− GI/Pango/Structs/FontDescription.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.FontDescription where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontDescription = FontDescription (ForeignPtr FontDescription)-instance BoxedObject FontDescription where
− GI/Pango/Structs/FontMetrics.hs 
@@ -1,439 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoFontMetrics structure holds the overall metric information-for a font (possibly restricted to a script). The fields of this-structure are private to implementations of a font backend. See-the documentation of the corresponding getters for documentation-of their meaning.--}--module GI.Pango.Structs.FontMetrics-    ( ---- * Exported types-    FontMetrics(..)                         ,-    noFontMetrics                           ,--- -- * Methods--- ** fontMetricsGetApproximateCharWidth-    fontMetricsGetApproximateCharWidth      ,----- ** fontMetricsGetApproximateDigitWidth-    fontMetricsGetApproximateDigitWidth     ,----- ** fontMetricsGetAscent-    fontMetricsGetAscent                    ,----- ** fontMetricsGetDescent-    fontMetricsGetDescent                   ,----- ** fontMetricsGetStrikethroughPosition-    fontMetricsGetStrikethroughPosition     ,----- ** fontMetricsGetStrikethroughThickness-    fontMetricsGetStrikethroughThickness    ,----- ** fontMetricsGetUnderlinePosition-    fontMetricsGetUnderlinePosition         ,----- ** fontMetricsGetUnderlineThickness-    fontMetricsGetUnderlineThickness        ,----- ** fontMetricsNew-    fontMetricsNew                          ,----- ** fontMetricsRef-    fontMetricsRef                          ,----- ** fontMetricsUnref-    fontMetricsUnref                        ,----- -- * Properties--- ** ApproximateCharWidth-    fontMetricsReadApproximateCharWidth     ,----- ** ApproximateDigitWidth-    fontMetricsReadApproximateDigitWidth    ,----- ** Ascent-    fontMetricsReadAscent                   ,----- ** Descent-    fontMetricsReadDescent                  ,----- ** RefCount-    fontMetricsReadRefCount                 ,----- ** StrikethroughPosition-    fontMetricsReadStrikethroughPosition    ,----- ** StrikethroughThickness-    fontMetricsReadStrikethroughThickness   ,----- ** UnderlinePosition-    fontMetricsReadUnderlinePosition        ,----- ** UnderlineThickness-    fontMetricsReadUnderlineThickness       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype FontMetrics = FontMetrics (ForeignPtr FontMetrics)-foreign import ccall "pango_font_metrics_get_type" c_pango_font_metrics_get_type :: -    IO GType--instance BoxedObject FontMetrics where-    boxedType _ = c_pango_font_metrics_get_type--noFontMetrics :: Maybe FontMetrics-noFontMetrics = Nothing--fontMetricsReadRefCount :: FontMetrics -> IO Word32-fontMetricsReadRefCount s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--fontMetricsReadAscent :: FontMetrics -> IO Int32-fontMetricsReadAscent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--fontMetricsReadDescent :: FontMetrics -> IO Int32-fontMetricsReadDescent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--fontMetricsReadApproximateCharWidth :: FontMetrics -> IO Int32-fontMetricsReadApproximateCharWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--fontMetricsReadApproximateDigitWidth :: FontMetrics -> IO Int32-fontMetricsReadApproximateDigitWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--fontMetricsReadUnderlinePosition :: FontMetrics -> IO Int32-fontMetricsReadUnderlinePosition s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--fontMetricsReadUnderlineThickness :: FontMetrics -> IO Int32-fontMetricsReadUnderlineThickness s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--fontMetricsReadStrikethroughPosition :: FontMetrics -> IO Int32-fontMetricsReadStrikethroughPosition s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--fontMetricsReadStrikethroughThickness :: FontMetrics -> IO Int32-fontMetricsReadStrikethroughThickness s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val---- method FontMetrics::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Pango" "FontMetrics"--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_new" pango_font_metrics_new :: -    IO (Ptr FontMetrics)---fontMetricsNew ::-    (MonadIO m) =>-    m FontMetrics-fontMetricsNew  = liftIO $ do-    result <- pango_font_metrics_new-    checkUnexpectedReturnNULL "pango_font_metrics_new" result-    result' <- (wrapBoxed FontMetrics) result-    return result'---- method FontMetrics::get_approximate_char_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_approximate_char_width" pango_font_metrics_get_approximate_char_width :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetApproximateCharWidth ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetApproximateCharWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_approximate_char_width _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::get_approximate_digit_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_approximate_digit_width" pango_font_metrics_get_approximate_digit_width :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetApproximateDigitWidth ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetApproximateDigitWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_approximate_digit_width _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::get_ascent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_ascent" pango_font_metrics_get_ascent :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetAscent ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetAscent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_ascent _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::get_descent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_descent" pango_font_metrics_get_descent :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetDescent ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetDescent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_descent _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::get_strikethrough_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_strikethrough_position" pango_font_metrics_get_strikethrough_position :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetStrikethroughPosition ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetStrikethroughPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_strikethrough_position _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::get_strikethrough_thickness--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_strikethrough_thickness" pango_font_metrics_get_strikethrough_thickness :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetStrikethroughThickness ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetStrikethroughThickness _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_strikethrough_thickness _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::get_underline_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_underline_position" pango_font_metrics_get_underline_position :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetUnderlinePosition ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetUnderlinePosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_underline_position _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::get_underline_thickness--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_get_underline_thickness" pango_font_metrics_get_underline_thickness :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO Int32---fontMetricsGetUnderlineThickness ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m Int32-fontMetricsGetUnderlineThickness _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_get_underline_thickness _obj'-    touchManagedPtr _obj-    return result---- method FontMetrics::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "FontMetrics"--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_ref" pango_font_metrics_ref :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO (Ptr FontMetrics)---fontMetricsRef ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m FontMetrics-fontMetricsRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_font_metrics_ref _obj'-    checkUnexpectedReturnNULL "pango_font_metrics_ref" result-    result' <- (wrapBoxed FontMetrics) result-    touchManagedPtr _obj-    return result'---- method FontMetrics::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_font_metrics_unref" pango_font_metrics_unref :: -    Ptr FontMetrics ->                      -- _obj : TInterface "Pango" "FontMetrics"-    IO ()---fontMetricsUnref ::-    (MonadIO m) =>-    FontMetrics ->                          -- _obj-    m ()-fontMetricsUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_font_metrics_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/Pango/Structs/FontMetrics.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.FontMetrics where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FontMetrics = FontMetrics (ForeignPtr FontMetrics)-instance BoxedObject FontMetrics where
− GI/Pango/Structs/GlyphGeometry.hs 
@@ -1,65 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoGlyphGeometry structure contains width and positioning-information for a single glyph.--}--module GI.Pango.Structs.GlyphGeometry-    ( ---- * Exported types-    GlyphGeometry(..)                       ,-    noGlyphGeometry                         ,--- -- * Properties--- ** Width-    glyphGeometryReadWidth                  ,----- ** XOffset-    glyphGeometryReadXOffset                ,----- ** YOffset-    glyphGeometryReadYOffset                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype GlyphGeometry = GlyphGeometry (ForeignPtr GlyphGeometry)-noGlyphGeometry :: Maybe GlyphGeometry-noGlyphGeometry = Nothing--glyphGeometryReadWidth :: GlyphGeometry -> IO Int32-glyphGeometryReadWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--glyphGeometryReadXOffset :: GlyphGeometry -> IO Int32-glyphGeometryReadXOffset s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--glyphGeometryReadYOffset :: GlyphGeometry -> IO Int32-glyphGeometryReadYOffset s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--
− GI/Pango/Structs/GlyphGeometry.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.GlyphGeometry where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GlyphGeometry = GlyphGeometry (ForeignPtr GlyphGeometry)
− GI/Pango/Structs/GlyphInfo.hs 
@@ -1,68 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoGlyphInfo structure represents a single glyph together with-positioning information and visual attributes.-It contains the following fields.--}--module GI.Pango.Structs.GlyphInfo-    ( ---- * Exported types-    GlyphInfo(..)                           ,-    noGlyphInfo                             ,--- -- * Properties--- ** Attr-    glyphInfoReadAttr                       ,----- ** Geometry-    glyphInfoReadGeometry                   ,----- ** Glyph-    glyphInfoReadGlyph                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype GlyphInfo = GlyphInfo (ForeignPtr GlyphInfo)-noGlyphInfo :: Maybe GlyphInfo-noGlyphInfo = Nothing--glyphInfoReadGlyph :: GlyphInfo -> IO Word32-glyphInfoReadGlyph s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--glyphInfoReadGeometry :: GlyphInfo -> IO GlyphGeometry-glyphInfoReadGeometry s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO (Ptr GlyphGeometry)-    val' <- (newPtr 12 GlyphGeometry) val-    return val'--glyphInfoReadAttr :: GlyphInfo -> IO GlyphVisAttr-glyphInfoReadAttr s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr GlyphVisAttr)-    val' <- (newPtr 4 GlyphVisAttr) val-    return val'--
− GI/Pango/Structs/GlyphInfo.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.GlyphInfo where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GlyphInfo = GlyphInfo (ForeignPtr GlyphInfo)
− GI/Pango/Structs/GlyphItem.hs 
@@ -1,274 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoGlyphItem is a pair of a #PangoItem and the glyphs-resulting from shaping the text corresponding to an item.-As an example of the usage of #PangoGlyphItem, the results-of shaping text with #PangoLayout is a list of #PangoLayoutLine,-each of which contains a list of #PangoGlyphItem.--}--module GI.Pango.Structs.GlyphItem-    ( ---- * Exported types-    GlyphItem(..)                           ,-    noGlyphItem                             ,--- -- * Methods--- ** glyphItemApplyAttrs-    glyphItemApplyAttrs                     ,----- ** glyphItemCopy-    glyphItemCopy                           ,----- ** glyphItemFree-    glyphItemFree                           ,----- ** glyphItemGetLogicalWidths-    glyphItemGetLogicalWidths               ,----- ** glyphItemLetterSpace-    glyphItemLetterSpace                    ,----- ** glyphItemSplit-    glyphItemSplit                          ,----- -- * Properties--- ** Glyphs-    glyphItemReadGlyphs                     ,----- ** Item-    glyphItemReadItem                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype GlyphItem = GlyphItem (ForeignPtr GlyphItem)-foreign import ccall "pango_glyph_item_get_type" c_pango_glyph_item_get_type :: -    IO GType--instance BoxedObject GlyphItem where-    boxedType _ = c_pango_glyph_item_get_type--noGlyphItem :: Maybe GlyphItem-noGlyphItem = Nothing--glyphItemReadItem :: GlyphItem -> IO Item-glyphItemReadItem s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Item)-    val' <- (newBoxed Item) val-    return val'--glyphItemReadGlyphs :: GlyphItem -> IO GlyphString-glyphItemReadGlyphs s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr GlyphString)-    val' <- (newBoxed GlyphString) val-    return val'---- method GlyphItem::apply_attrs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TGSList (TInterface "Pango" "GlyphItem")--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_apply_attrs" pango_glyph_item_apply_attrs :: -    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"-    CString ->                              -- text : TBasicType TUTF8-    Ptr AttrList ->                         -- list : TInterface "Pango" "AttrList"-    IO (Ptr (GSList (Ptr GlyphItem)))---glyphItemApplyAttrs ::-    (MonadIO m) =>-    GlyphItem ->                            -- _obj-    T.Text ->                               -- text-    AttrList ->                             -- list-    m [GlyphItem]-glyphItemApplyAttrs _obj text list = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    let list' = unsafeManagedPtrGetPtr list-    result <- pango_glyph_item_apply_attrs _obj' text' list'-    checkUnexpectedReturnNULL "pango_glyph_item_apply_attrs" result-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed GlyphItem) result'-    g_slist_free result-    touchManagedPtr _obj-    touchManagedPtr list-    freeMem text'-    return result''---- method GlyphItem::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "GlyphItem"--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_copy" pango_glyph_item_copy :: -    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"-    IO (Ptr GlyphItem)---glyphItemCopy ::-    (MonadIO m) =>-    GlyphItem ->                            -- _obj-    m GlyphItem-glyphItemCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_glyph_item_copy _obj'-    checkUnexpectedReturnNULL "pango_glyph_item_copy" result-    result' <- (wrapBoxed GlyphItem) result-    touchManagedPtr _obj-    return result'---- method GlyphItem::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_free" pango_glyph_item_free :: -    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"-    IO ()---glyphItemFree ::-    (MonadIO m) =>-    GlyphItem ->                            -- _obj-    m ()-glyphItemFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_glyph_item_free _obj'-    touchManagedPtr _obj-    return ()---- method GlyphItem::get_logical_widths--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (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 "pango_glyph_item_get_logical_widths" pango_glyph_item_get_logical_widths :: -    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"-    CString ->                              -- text : TBasicType TUTF8-    Ptr Int32 ->                            -- logical_widths : TCArray False (-1) (-1) (TBasicType TInt32)-    IO ()---glyphItemGetLogicalWidths ::-    (MonadIO m) =>-    GlyphItem ->                            -- _obj-    T.Text ->                               -- text-    Ptr Int32 ->                            -- logical_widths-    m ()-glyphItemGetLogicalWidths _obj text logical_widths = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    pango_glyph_item_get_logical_widths _obj' text' logical_widths-    touchManagedPtr _obj-    freeMem text'-    return ()---- method GlyphItem::letter_space--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) (-1) (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "letter_spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_attrs", argType = TCArray False (-1) (-1) (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "letter_spacing", 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 "pango_glyph_item_letter_space" pango_glyph_item_letter_space :: -    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"-    CString ->                              -- text : TBasicType TUTF8-    Ptr (Ptr LogAttr) ->                    -- log_attrs : TCArray False (-1) (-1) (TInterface "Pango" "LogAttr")-    Int32 ->                                -- letter_spacing : TBasicType TInt32-    IO ()---glyphItemLetterSpace ::-    (MonadIO m) =>-    GlyphItem ->                            -- _obj-    T.Text ->                               -- text-    Ptr (Ptr LogAttr) ->                    -- log_attrs-    Int32 ->                                -- letter_spacing-    m ()-glyphItemLetterSpace _obj text log_attrs letter_spacing = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    pango_glyph_item_letter_space _obj' text' log_attrs letter_spacing-    touchManagedPtr _obj-    freeMem text'-    return ()---- method GlyphItem::split--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "GlyphItem"--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_split" pango_glyph_item_split :: -    Ptr GlyphItem ->                        -- _obj : TInterface "Pango" "GlyphItem"-    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- split_index : TBasicType TInt32-    IO (Ptr GlyphItem)---glyphItemSplit ::-    (MonadIO m) =>-    GlyphItem ->                            -- _obj-    T.Text ->                               -- text-    Int32 ->                                -- split_index-    m GlyphItem-glyphItemSplit _obj text split_index = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    result <- pango_glyph_item_split _obj' text' split_index-    checkUnexpectedReturnNULL "pango_glyph_item_split" result-    result' <- (wrapBoxed GlyphItem) result-    touchManagedPtr _obj-    freeMem text'-    return result'--
− GI/Pango/Structs/GlyphItem.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.GlyphItem where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GlyphItem = GlyphItem (ForeignPtr GlyphItem)-instance BoxedObject GlyphItem where
− GI/Pango/Structs/GlyphItemIter.hs 
@@ -1,346 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoGlyphItemIter is an iterator over the clusters in a-#PangoGlyphItem.  The <firstterm>forward direction</firstterm> of the-iterator is the logical direction of text.  That is, with increasing-@start_index and @start_char values.  If @glyph_item is right-to-left-(that is, if <literal>@glyph_item->item->analysis.level</literal> is odd),-then @start_glyph decreases as the iterator moves forward.  Moreover,-in right-to-left cases, @start_glyph is greater than @end_glyph.--An iterator should be initialized using either of-pango_glyph_item_iter_init_start() and-pango_glyph_item_iter_init_end(), for forward and backward iteration-respectively, and walked over using any desired mixture of-pango_glyph_item_iter_next_cluster() and-pango_glyph_item_iter_prev_cluster().  A common idiom for doing a-forward iteration over the clusters is:-<programlisting>-PangoGlyphItemIter cluster_iter;-gboolean have_cluster;--for (have_cluster = pango_glyph_item_iter_init_start (&amp;cluster_iter,-                                                      glyph_item, text);-     have_cluster;-     have_cluster = pango_glyph_item_iter_next_cluster (&amp;cluster_iter))-{-  ...-}-</programlisting>--Note that @text is the start of the text for layout, which is then-indexed by <literal>@glyph_item->item->offset</literal> to get to the-text of @glyph_item.  The @start_index and @end_index values can directly-index into @text.  The @start_glyph, @end_glyph, @start_char, and @end_char-values however are zero-based for the @glyph_item.  For each cluster, the-item pointed at by the start variables is included in the cluster while-the one pointed at by end variables is not.--None of the members of a #PangoGlyphItemIter should be modified manually.--}--module GI.Pango.Structs.GlyphItemIter-    ( ---- * Exported types-    GlyphItemIter(..)                       ,-    noGlyphItemIter                         ,--- -- * Methods--- ** glyphItemIterCopy-    glyphItemIterCopy                       ,----- ** glyphItemIterFree-    glyphItemIterFree                       ,----- ** glyphItemIterInitEnd-    glyphItemIterInitEnd                    ,----- ** glyphItemIterInitStart-    glyphItemIterInitStart                  ,----- ** glyphItemIterNextCluster-    glyphItemIterNextCluster                ,----- ** glyphItemIterPrevCluster-    glyphItemIterPrevCluster                ,----- -- * Properties--- ** EndChar-    glyphItemIterReadEndChar                ,----- ** EndGlyph-    glyphItemIterReadEndGlyph               ,----- ** EndIndex-    glyphItemIterReadEndIndex               ,----- ** GlyphItem-    glyphItemIterReadGlyphItem              ,----- ** StartChar-    glyphItemIterReadStartChar              ,----- ** StartGlyph-    glyphItemIterReadStartGlyph             ,----- ** StartIndex-    glyphItemIterReadStartIndex             ,----- ** Text-    glyphItemIterReadText                   ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype GlyphItemIter = GlyphItemIter (ForeignPtr GlyphItemIter)-foreign import ccall "pango_glyph_item_iter_get_type" c_pango_glyph_item_iter_get_type :: -    IO GType--instance BoxedObject GlyphItemIter where-    boxedType _ = c_pango_glyph_item_iter_get_type--noGlyphItemIter :: Maybe GlyphItemIter-noGlyphItemIter = Nothing--glyphItemIterReadGlyphItem :: GlyphItemIter -> IO GlyphItem-glyphItemIterReadGlyphItem s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr GlyphItem)-    val' <- (newBoxed GlyphItem) val-    return val'--glyphItemIterReadText :: GlyphItemIter -> IO T.Text-glyphItemIterReadText s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    val' <- cstringToText val-    return val'--glyphItemIterReadStartGlyph :: GlyphItemIter -> IO Int32-glyphItemIterReadStartGlyph s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--glyphItemIterReadStartIndex :: GlyphItemIter -> IO Int32-glyphItemIterReadStartIndex s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--glyphItemIterReadStartChar :: GlyphItemIter -> IO Int32-glyphItemIterReadStartChar s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--glyphItemIterReadEndGlyph :: GlyphItemIter -> IO Int32-glyphItemIterReadEndGlyph s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--glyphItemIterReadEndIndex :: GlyphItemIter -> IO Int32-glyphItemIterReadEndIndex s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--glyphItemIterReadEndChar :: GlyphItemIter -> IO Int32-glyphItemIterReadEndChar s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 36) :: IO Int32-    return val---- method GlyphItemIter::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "GlyphItemIter"--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_iter_copy" pango_glyph_item_iter_copy :: -    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"-    IO (Ptr GlyphItemIter)---glyphItemIterCopy ::-    (MonadIO m) =>-    GlyphItemIter ->                        -- _obj-    m GlyphItemIter-glyphItemIterCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_glyph_item_iter_copy _obj'-    checkUnexpectedReturnNULL "pango_glyph_item_iter_copy" result-    result' <- (wrapBoxed GlyphItemIter) result-    touchManagedPtr _obj-    return result'---- method GlyphItemIter::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_iter_free" pango_glyph_item_iter_free :: -    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"-    IO ()---glyphItemIterFree ::-    (MonadIO m) =>-    GlyphItemIter ->                        -- _obj-    m ()-glyphItemIterFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_glyph_item_iter_free _obj'-    touchManagedPtr _obj-    return ()---- method GlyphItemIter::init_end--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_iter_init_end" pango_glyph_item_iter_init_end :: -    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"-    Ptr GlyphItem ->                        -- glyph_item : TInterface "Pango" "GlyphItem"-    CString ->                              -- text : TBasicType TUTF8-    IO CInt---glyphItemIterInitEnd ::-    (MonadIO m) =>-    GlyphItemIter ->                        -- _obj-    GlyphItem ->                            -- glyph_item-    T.Text ->                               -- text-    m Bool-glyphItemIterInitEnd _obj glyph_item text = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let glyph_item' = unsafeManagedPtrGetPtr glyph_item-    text' <- textToCString text-    result <- pango_glyph_item_iter_init_end _obj' glyph_item' text'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr glyph_item-    freeMem text'-    return result'---- method GlyphItemIter::init_start--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_iter_init_start" pango_glyph_item_iter_init_start :: -    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"-    Ptr GlyphItem ->                        -- glyph_item : TInterface "Pango" "GlyphItem"-    CString ->                              -- text : TBasicType TUTF8-    IO CInt---glyphItemIterInitStart ::-    (MonadIO m) =>-    GlyphItemIter ->                        -- _obj-    GlyphItem ->                            -- glyph_item-    T.Text ->                               -- text-    m Bool-glyphItemIterInitStart _obj glyph_item text = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let glyph_item' = unsafeManagedPtrGetPtr glyph_item-    text' <- textToCString text-    result <- pango_glyph_item_iter_init_start _obj' glyph_item' text'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr glyph_item-    freeMem text'-    return result'---- method GlyphItemIter::next_cluster--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_iter_next_cluster" pango_glyph_item_iter_next_cluster :: -    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"-    IO CInt---glyphItemIterNextCluster ::-    (MonadIO m) =>-    GlyphItemIter ->                        -- _obj-    m Bool-glyphItemIterNextCluster _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_glyph_item_iter_next_cluster _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method GlyphItemIter::prev_cluster--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_item_iter_prev_cluster" pango_glyph_item_iter_prev_cluster :: -    Ptr GlyphItemIter ->                    -- _obj : TInterface "Pango" "GlyphItemIter"-    IO CInt---glyphItemIterPrevCluster ::-    (MonadIO m) =>-    GlyphItemIter ->                        -- _obj-    m Bool-glyphItemIterPrevCluster _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_glyph_item_iter_prev_cluster _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--
− GI/Pango/Structs/GlyphItemIter.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.GlyphItemIter where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GlyphItemIter = GlyphItemIter (ForeignPtr GlyphItemIter)-instance BoxedObject GlyphItemIter where
− GI/Pango/Structs/GlyphString.hs 
@@ -1,432 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoGlyphString structure is used to store strings-of glyphs with geometry and visual attribute information.-The storage for the glyph information is owned-by the structure which simplifies memory management.--}--module GI.Pango.Structs.GlyphString-    ( ---- * Exported types-    GlyphString(..)                         ,-    noGlyphString                           ,--- -- * Methods--- ** glyphStringCopy-    glyphStringCopy                         ,----- ** glyphStringExtents-    glyphStringExtents                      ,----- ** glyphStringExtentsRange-    glyphStringExtentsRange                 ,----- ** glyphStringFree-    glyphStringFree                         ,----- ** glyphStringGetLogicalWidths-    glyphStringGetLogicalWidths             ,----- ** glyphStringGetWidth-    glyphStringGetWidth                     ,----- ** glyphStringIndexToX-    glyphStringIndexToX                     ,----- ** glyphStringNew-    glyphStringNew                          ,----- ** glyphStringSetSize-    glyphStringSetSize                      ,----- ** glyphStringXToIndex-    glyphStringXToIndex                     ,----- -- * Properties--- ** Glyphs-    glyphStringReadGlyphs                   ,----- ** LogClusters-    glyphStringReadLogClusters              ,----- ** NumGlyphs-    glyphStringReadNumGlyphs                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype GlyphString = GlyphString (ForeignPtr GlyphString)-foreign import ccall "pango_glyph_string_get_type" c_pango_glyph_string_get_type :: -    IO GType--instance BoxedObject GlyphString where-    boxedType _ = c_pango_glyph_string_get_type--noGlyphString :: Maybe GlyphString-noGlyphString = Nothing--glyphStringReadNumGlyphs :: GlyphString -> IO Int32-glyphStringReadNumGlyphs s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--glyphStringReadGlyphs :: GlyphString -> IO GlyphInfo-glyphStringReadGlyphs s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr GlyphInfo)-    val' <- (newPtr 20 GlyphInfo) val-    return val'--glyphStringReadLogClusters :: GlyphString -> IO Int32-glyphStringReadLogClusters s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val---- method GlyphString::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Pango" "GlyphString"--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_string_new" pango_glyph_string_new :: -    IO (Ptr GlyphString)---glyphStringNew ::-    (MonadIO m) =>-    m GlyphString-glyphStringNew  = liftIO $ do-    result <- pango_glyph_string_new-    checkUnexpectedReturnNULL "pango_glyph_string_new" result-    result' <- (wrapBoxed GlyphString) result-    return result'---- method GlyphString::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "GlyphString"--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_string_copy" pango_glyph_string_copy :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    IO (Ptr GlyphString)---glyphStringCopy ::-    (MonadIO m) =>-    GlyphString ->                          -- _obj-    m GlyphString-glyphStringCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_glyph_string_copy _obj'-    checkUnexpectedReturnNULL "pango_glyph_string_copy" result-    result' <- (wrapBoxed GlyphString) result-    touchManagedPtr _obj-    return result'---- method GlyphString::extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_string_extents" pango_glyph_string_extents :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    Ptr Font ->                             -- font : TInterface "Pango" "Font"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---glyphStringExtents ::-    (MonadIO m, FontK a) =>-    GlyphString ->                          -- _obj-    a ->                                    -- font-    m (Rectangle,Rectangle)-glyphStringExtents _obj font = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let font' = unsafeManagedPtrCastPtr font-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_glyph_string_extents _obj' font' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    touchManagedPtr font-    return (ink_rect', logical_rect')---- method GlyphString::extents_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_string_extents_range" pango_glyph_string_extents_range :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    Int32 ->                                -- start : TBasicType TInt32-    Int32 ->                                -- end : TBasicType TInt32-    Ptr Font ->                             -- font : TInterface "Pango" "Font"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---glyphStringExtentsRange ::-    (MonadIO m, FontK a) =>-    GlyphString ->                          -- _obj-    Int32 ->                                -- start-    Int32 ->                                -- end-    a ->                                    -- font-    m (Rectangle,Rectangle)-glyphStringExtentsRange _obj start end font = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let font' = unsafeManagedPtrCastPtr font-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_glyph_string_extents_range _obj' start end font' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    touchManagedPtr font-    return (ink_rect', logical_rect')---- method GlyphString::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_string_free" pango_glyph_string_free :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    IO ()---glyphStringFree ::-    (MonadIO m) =>-    GlyphString ->                          -- _obj-    m ()-glyphStringFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_glyph_string_free _obj'-    touchManagedPtr _obj-    return ()---- method GlyphString::get_logical_widths--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedding_level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (TBasicType TInt32), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedding_level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_widths", argType = TCArray False (-1) (-1) (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 "pango_glyph_string_get_logical_widths" pango_glyph_string_get_logical_widths :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Int32 ->                                -- embedding_level : TBasicType TInt32-    Ptr Int32 ->                            -- logical_widths : TCArray False (-1) (-1) (TBasicType TInt32)-    IO ()---glyphStringGetLogicalWidths ::-    (MonadIO m) =>-    GlyphString ->                          -- _obj-    T.Text ->                               -- text-    Int32 ->                                -- length-    Int32 ->                                -- embedding_level-    Ptr Int32 ->                            -- logical_widths-    m ()-glyphStringGetLogicalWidths _obj text length_ embedding_level logical_widths = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    pango_glyph_string_get_logical_widths _obj' text' length_ embedding_level logical_widths-    touchManagedPtr _obj-    freeMem text'-    return ()---- method GlyphString::get_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_glyph_string_get_width" pango_glyph_string_get_width :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    IO Int32---glyphStringGetWidth ::-    (MonadIO m) =>-    GlyphString ->                          -- _obj-    m Int32-glyphStringGetWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_glyph_string_get_width _obj'-    touchManagedPtr _obj-    return result---- method GlyphString::index_to_x--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", 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 "pango_glyph_string_index_to_x" pango_glyph_string_index_to_x :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"-    Int32 ->                                -- index_ : TBasicType TInt32-    CInt ->                                 -- trailing : TBasicType TBoolean-    Ptr Int32 ->                            -- x_pos : TBasicType TInt32-    IO ()---glyphStringIndexToX ::-    (MonadIO m) =>-    GlyphString ->                          -- _obj-    T.Text ->                               -- text-    Int32 ->                                -- length-    Analysis ->                             -- analysis-    Int32 ->                                -- index_-    Bool ->                                 -- trailing-    m (Int32)-glyphStringIndexToX _obj text length_ analysis index_ trailing = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    let analysis' = unsafeManagedPtrGetPtr analysis-    let trailing' = (fromIntegral . fromEnum) trailing-    x_pos <- allocMem :: IO (Ptr Int32)-    pango_glyph_string_index_to_x _obj' text' length_ analysis' index_ trailing' x_pos-    x_pos' <- peek x_pos-    touchManagedPtr _obj-    touchManagedPtr analysis-    freeMem text'-    freeMem x_pos-    return x_pos'---- method GlyphString::set_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_len", 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 "pango_glyph_string_set_size" pango_glyph_string_set_size :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    Int32 ->                                -- new_len : TBasicType TInt32-    IO ()---glyphStringSetSize ::-    (MonadIO m) =>-    GlyphString ->                          -- _obj-    Int32 ->                                -- new_len-    m ()-glyphStringSetSize _obj new_len = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_glyph_string_set_size _obj' new_len-    touchManagedPtr _obj-    return ()---- method GlyphString::x_to_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", 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 "pango_glyph_string_x_to_index" pango_glyph_string_x_to_index :: -    Ptr GlyphString ->                      -- _obj : TInterface "Pango" "GlyphString"-    CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"-    Int32 ->                                -- x_pos : TBasicType TInt32-    Ptr Int32 ->                            -- index_ : TBasicType TInt32-    Ptr Int32 ->                            -- trailing : TBasicType TInt32-    IO ()---glyphStringXToIndex ::-    (MonadIO m) =>-    GlyphString ->                          -- _obj-    T.Text ->                               -- text-    Int32 ->                                -- length-    Analysis ->                             -- analysis-    Int32 ->                                -- x_pos-    m (Int32,Int32)-glyphStringXToIndex _obj text length_ analysis x_pos = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    text' <- textToCString text-    let analysis' = unsafeManagedPtrGetPtr analysis-    index_ <- allocMem :: IO (Ptr Int32)-    trailing <- allocMem :: IO (Ptr Int32)-    pango_glyph_string_x_to_index _obj' text' length_ analysis' x_pos index_ trailing-    index_' <- peek index_-    trailing' <- peek trailing-    touchManagedPtr _obj-    touchManagedPtr analysis-    freeMem text'-    freeMem index_-    freeMem trailing-    return (index_', trailing')--
− GI/Pango/Structs/GlyphString.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.GlyphString where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GlyphString = GlyphString (ForeignPtr GlyphString)-instance BoxedObject GlyphString where
− GI/Pango/Structs/GlyphVisAttr.hs 
@@ -1,48 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The PangoGlyphVisAttr is used to communicate information between-the shaping phase and the rendering phase.  More attributes may be-added in the future.--}--module GI.Pango.Structs.GlyphVisAttr-    ( ---- * Exported types-    GlyphVisAttr(..)                        ,-    noGlyphVisAttr                          ,--- -- * Properties--- ** IsClusterStart-    glyphVisAttrReadIsClusterStart          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype GlyphVisAttr = GlyphVisAttr (ForeignPtr GlyphVisAttr)-noGlyphVisAttr :: Maybe GlyphVisAttr-noGlyphVisAttr = Nothing--glyphVisAttrReadIsClusterStart :: GlyphVisAttr -> IO Word32-glyphVisAttrReadIsClusterStart s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--
− GI/Pango/Structs/GlyphVisAttr.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.GlyphVisAttr where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GlyphVisAttr = GlyphVisAttr (ForeignPtr GlyphVisAttr)
− GI/Pango/Structs/IncludedModule.hs 
@@ -1,42 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoIncludedModule structure for a statically linked module-contains the functions that would otherwise be loaded from a dynamically-loaded module.--}--module GI.Pango.Structs.IncludedModule-    ( ---- * Exported types-    IncludedModule(..)                      ,-    noIncludedModule                        ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype IncludedModule = IncludedModule (ForeignPtr IncludedModule)-noIncludedModule :: Maybe IncludedModule-noIncludedModule = Nothing---- XXX Skipped getter for "IncludedModule:list" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IncludedModule:init" :: Not implemented: "Wrapping foreign callbacks is not supported yet"---- XXX Skipped getter for "IncludedModule:exit" :: Not implemented: "Wrapping foreign callbacks is not supported yet"--
− GI/Pango/Structs/IncludedModule.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.IncludedModule where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype IncludedModule = IncludedModule (ForeignPtr IncludedModule)
− GI/Pango/Structs/Item.hs 
@@ -1,201 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoItem structure stores information about a segment of text.--}--module GI.Pango.Structs.Item-    ( ---- * Exported types-    Item(..)                                ,-    noItem                                  ,--- -- * Methods--- ** itemCopy-    itemCopy                                ,----- ** itemFree-    itemFree                                ,----- ** itemNew-    itemNew                                 ,----- ** itemSplit-    itemSplit                               ,----- -- * Properties--- ** Analysis-    itemReadAnalysis                        ,----- ** Length-    itemReadLength                          ,----- ** NumChars-    itemReadNumChars                        ,----- ** Offset-    itemReadOffset                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Item = Item (ForeignPtr Item)-foreign import ccall "pango_item_get_type" c_pango_item_get_type :: -    IO GType--instance BoxedObject Item where-    boxedType _ = c_pango_item_get_type--noItem :: Maybe Item-noItem = Nothing--itemReadOffset :: Item -> IO Int32-itemReadOffset s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--itemReadLength :: Item -> IO Int32-itemReadLength s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--itemReadNumChars :: Item -> IO Int32-itemReadNumChars s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--itemReadAnalysis :: Item -> IO Analysis-itemReadAnalysis s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Analysis)-    val' <- (newPtr 48 Analysis) val-    return val'---- method Item::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Pango" "Item"--- throws : False--- Skip return : False--foreign import ccall "pango_item_new" pango_item_new :: -    IO (Ptr Item)---itemNew ::-    (MonadIO m) =>-    m Item-itemNew  = liftIO $ do-    result <- pango_item_new-    checkUnexpectedReturnNULL "pango_item_new" result-    result' <- (wrapBoxed Item) result-    return result'---- method Item::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Item"--- throws : False--- Skip return : False--foreign import ccall "pango_item_copy" pango_item_copy :: -    Ptr Item ->                             -- _obj : TInterface "Pango" "Item"-    IO (Ptr Item)---itemCopy ::-    (MonadIO m) =>-    Item ->                                 -- _obj-    m Item-itemCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_item_copy _obj'-    checkUnexpectedReturnNULL "pango_item_copy" result-    result' <- (wrapBoxed Item) result-    touchManagedPtr _obj-    return result'---- method Item::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_item_free" pango_item_free :: -    Ptr Item ->                             -- _obj : TInterface "Pango" "Item"-    IO ()---itemFree ::-    (MonadIO m) =>-    Item ->                                 -- _obj-    m ()-itemFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_item_free _obj'-    touchManagedPtr _obj-    return ()---- method Item::split--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "split_offset", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Item"--- throws : False--- Skip return : False--foreign import ccall "pango_item_split" pango_item_split :: -    Ptr Item ->                             -- _obj : TInterface "Pango" "Item"-    Int32 ->                                -- split_index : TBasicType TInt32-    Int32 ->                                -- split_offset : TBasicType TInt32-    IO (Ptr Item)---itemSplit ::-    (MonadIO m) =>-    Item ->                                 -- _obj-    Int32 ->                                -- split_index-    Int32 ->                                -- split_offset-    m Item-itemSplit _obj split_index split_offset = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_item_split _obj' split_index split_offset-    checkUnexpectedReturnNULL "pango_item_split" result-    result' <- (wrapBoxed Item) result-    touchManagedPtr _obj-    return result'--
− GI/Pango/Structs/Item.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.Item where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Item = Item (ForeignPtr Item)-instance BoxedObject Item where
− GI/Pango/Structs/Language.hs 
@@ -1,207 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoLanguage structure is used to-represent a language.--#PangoLanguage pointers can be efficiently-copied and compared with each other.--}--module GI.Pango.Structs.Language-    ( ---- * Exported types-    Language(..)                            ,-    noLanguage                              ,--- -- * Methods--- ** languageGetSampleString-    languageGetSampleString                 ,----- ** languageGetScripts-    languageGetScripts                      ,----- ** languageIncludesScript-    languageIncludesScript                  ,----- ** languageMatches-    languageMatches                         ,----- ** languageToString-    languageToString                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Language = Language (ForeignPtr Language)-foreign import ccall "pango_language_get_type" c_pango_language_get_type :: -    IO GType--instance BoxedObject Language where-    boxedType _ = c_pango_language_get_type--noLanguage :: Maybe Language-noLanguage = Nothing---- method Language::get_sample_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_language_get_sample_string" pango_language_get_sample_string :: -    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"-    IO CString---languageGetSampleString ::-    (MonadIO m) =>-    Language ->                             -- _obj-    m T.Text-languageGetSampleString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_language_get_sample_string _obj'-    checkUnexpectedReturnNULL "pango_language_get_sample_string" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Language::get_scripts--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "num_scripts", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "num_scripts", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TCArray False (-1) 1 (TInterface "Pango" "Script")--- throws : False--- Skip return : False--foreign import ccall "pango_language_get_scripts" pango_language_get_scripts :: -    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"-    Ptr Int32 ->                            -- num_scripts : TBasicType TInt32-    IO (Ptr CUInt)---languageGetScripts ::-    (MonadIO m) =>-    Language ->                             -- _obj-    m [Script]-languageGetScripts _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    num_scripts <- allocMem :: IO (Ptr Int32)-    result <- pango_language_get_scripts _obj' num_scripts-    num_scripts' <- peek num_scripts-    checkUnexpectedReturnNULL "pango_language_get_scripts" result-    result' <- (unpackStorableArrayWithLength num_scripts') result-    let result'' = map (toEnum . fromIntegral) result'-    touchManagedPtr _obj-    freeMem num_scripts-    return result''---- method Language::includes_script--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_language_includes_script" pango_language_includes_script :: -    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"-    CUInt ->                                -- script : TInterface "Pango" "Script"-    IO CInt---languageIncludesScript ::-    (MonadIO m) =>-    Language ->                             -- _obj-    Script ->                               -- script-    m Bool-languageIncludesScript _obj script = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let script' = (fromIntegral . fromEnum) script-    result <- pango_language_includes_script _obj' script'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Language::matches--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_language_matches" pango_language_matches :: -    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"-    CString ->                              -- range_list : TBasicType TUTF8-    IO CInt---languageMatches ::-    (MonadIO m) =>-    Language ->                             -- _obj-    T.Text ->                               -- range_list-    m Bool-languageMatches _obj range_list = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    range_list' <- textToCString range_list-    result <- pango_language_matches _obj' range_list'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem range_list'-    return result'---- method Language::to_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "pango_language_to_string" pango_language_to_string :: -    Ptr Language ->                         -- _obj : TInterface "Pango" "Language"-    IO CString---languageToString ::-    (MonadIO m) =>-    Language ->                             -- _obj-    m T.Text-languageToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_language_to_string _obj'-    checkUnexpectedReturnNULL "pango_language_to_string" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--
− GI/Pango/Structs/Language.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.Language where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Language = Language (ForeignPtr Language)-instance BoxedObject Language where
− GI/Pango/Structs/LayoutIter.hs 
@@ -1,659 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoLayoutIter structure can be used to-iterate over the visual extents of a #PangoLayout.--The #PangoLayoutIter structure is opaque, and-has no user-visible fields.--}--module GI.Pango.Structs.LayoutIter-    ( ---- * Exported types-    LayoutIter(..)                          ,-    noLayoutIter                            ,--- -- * Methods--- ** layoutIterAtLastLine-    layoutIterAtLastLine                    ,----- ** layoutIterCopy-    layoutIterCopy                          ,----- ** layoutIterFree-    layoutIterFree                          ,----- ** layoutIterGetBaseline-    layoutIterGetBaseline                   ,----- ** layoutIterGetCharExtents-    layoutIterGetCharExtents                ,----- ** layoutIterGetClusterExtents-    layoutIterGetClusterExtents             ,----- ** layoutIterGetIndex-    layoutIterGetIndex                      ,----- ** layoutIterGetLayout-    layoutIterGetLayout                     ,----- ** layoutIterGetLayoutExtents-    layoutIterGetLayoutExtents              ,----- ** layoutIterGetLine-    layoutIterGetLine                       ,----- ** layoutIterGetLineExtents-    layoutIterGetLineExtents                ,----- ** layoutIterGetLineReadonly-    layoutIterGetLineReadonly               ,----- ** layoutIterGetLineYrange-    layoutIterGetLineYrange                 ,----- ** layoutIterGetRun-    layoutIterGetRun                        ,----- ** layoutIterGetRunExtents-    layoutIterGetRunExtents                 ,----- ** layoutIterGetRunReadonly-    layoutIterGetRunReadonly                ,----- ** layoutIterNextChar-    layoutIterNextChar                      ,----- ** layoutIterNextCluster-    layoutIterNextCluster                   ,----- ** layoutIterNextLine-    layoutIterNextLine                      ,----- ** layoutIterNextRun-    layoutIterNextRun                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype LayoutIter = LayoutIter (ForeignPtr LayoutIter)-foreign import ccall "pango_layout_iter_get_type" c_pango_layout_iter_get_type :: -    IO GType--instance BoxedObject LayoutIter where-    boxedType _ = c_pango_layout_iter_get_type--noLayoutIter :: Maybe LayoutIter-noLayoutIter = Nothing---- method LayoutIter::at_last_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_at_last_line" pango_layout_iter_at_last_line :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO CInt---layoutIterAtLastLine ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Bool-layoutIterAtLastLine _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_at_last_line _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutIter"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_copy" pango_layout_iter_copy :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO (Ptr LayoutIter)---layoutIterCopy ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m LayoutIter-layoutIterCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_copy _obj'-    checkUnexpectedReturnNULL "pango_layout_iter_copy" result-    result' <- (wrapBoxed LayoutIter) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_free" pango_layout_iter_free :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO ()---layoutIterFree ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m ()-layoutIterFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_layout_iter_free _obj'-    touchManagedPtr _obj-    return ()---- method LayoutIter::get_baseline--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_baseline" pango_layout_iter_get_baseline :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO Int32---layoutIterGetBaseline ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Int32-layoutIterGetBaseline _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_get_baseline _obj'-    touchManagedPtr _obj-    return result---- method LayoutIter::get_char_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_char_extents" pango_layout_iter_get_char_extents :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutIterGetCharExtents ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m (Rectangle)-layoutIterGetCharExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_iter_get_char_extents _obj' logical_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return logical_rect'---- method LayoutIter::get_cluster_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_cluster_extents" pango_layout_iter_get_cluster_extents :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutIterGetClusterExtents ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m (Rectangle,Rectangle)-layoutIterGetClusterExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_iter_get_cluster_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method LayoutIter::get_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_index" pango_layout_iter_get_index :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO Int32---layoutIterGetIndex ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Int32-layoutIterGetIndex _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_get_index _obj'-    touchManagedPtr _obj-    return result---- method LayoutIter::get_layout--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Layout"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_layout" pango_layout_iter_get_layout :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO (Ptr Layout)---layoutIterGetLayout ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Layout-layoutIterGetLayout _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_get_layout _obj'-    checkUnexpectedReturnNULL "pango_layout_iter_get_layout" result-    result' <- (newObject Layout) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::get_layout_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_layout_extents" pango_layout_iter_get_layout_extents :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutIterGetLayoutExtents ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m (Rectangle,Rectangle)-layoutIterGetLayoutExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_iter_get_layout_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method LayoutIter::get_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutLine"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_line" pango_layout_iter_get_line :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO (Ptr LayoutLine)---layoutIterGetLine ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m LayoutLine-layoutIterGetLine _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_get_line _obj'-    checkUnexpectedReturnNULL "pango_layout_iter_get_line" result-    result' <- (wrapBoxed LayoutLine) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::get_line_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_line_extents" pango_layout_iter_get_line_extents :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutIterGetLineExtents ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m (Rectangle,Rectangle)-layoutIterGetLineExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_iter_get_line_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method LayoutIter::get_line_readonly--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutLine"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_line_readonly" pango_layout_iter_get_line_readonly :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO (Ptr LayoutLine)---layoutIterGetLineReadonly ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m LayoutLine-layoutIterGetLineReadonly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_get_line_readonly _obj'-    checkUnexpectedReturnNULL "pango_layout_iter_get_line_readonly" result-    result' <- (newBoxed LayoutLine) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::get_line_yrange--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y0_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y1_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_line_yrange" pango_layout_iter_get_line_yrange :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    Ptr Int32 ->                            -- y0_ : TBasicType TInt32-    Ptr Int32 ->                            -- y1_ : TBasicType TInt32-    IO ()---layoutIterGetLineYrange ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m (Int32,Int32)-layoutIterGetLineYrange _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    y0_ <- allocMem :: IO (Ptr Int32)-    y1_ <- allocMem :: IO (Ptr Int32)-    pango_layout_iter_get_line_yrange _obj' y0_ y1_-    y0_' <- peek y0_-    y1_' <- peek y1_-    touchManagedPtr _obj-    freeMem y0_-    freeMem y1_-    return (y0_', y1_')---- method LayoutIter::get_run--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "GlyphItem"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_run" pango_layout_iter_get_run :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO (Ptr GlyphItem)---layoutIterGetRun ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m GlyphItem-layoutIterGetRun _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_get_run _obj'-    checkUnexpectedReturnNULL "pango_layout_iter_get_run" result-    result' <- (newBoxed GlyphItem) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::get_run_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_run_extents" pango_layout_iter_get_run_extents :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutIterGetRunExtents ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m (Rectangle,Rectangle)-layoutIterGetRunExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_iter_get_run_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method LayoutIter::get_run_readonly--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "GlyphItem"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_get_run_readonly" pango_layout_iter_get_run_readonly :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO (Ptr GlyphItem)---layoutIterGetRunReadonly ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m GlyphItem-layoutIterGetRunReadonly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_get_run_readonly _obj'-    checkUnexpectedReturnNULL "pango_layout_iter_get_run_readonly" result-    result' <- (newBoxed GlyphItem) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::next_char--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_next_char" pango_layout_iter_next_char :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO CInt---layoutIterNextChar ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Bool-layoutIterNextChar _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_next_char _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::next_cluster--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_next_cluster" pango_layout_iter_next_cluster :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO CInt---layoutIterNextCluster ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Bool-layoutIterNextCluster _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_next_cluster _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::next_line--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_next_line" pango_layout_iter_next_line :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO CInt---layoutIterNextLine ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Bool-layoutIterNextLine _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_next_line _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method LayoutIter::next_run--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_iter_next_run" pango_layout_iter_next_run :: -    Ptr LayoutIter ->                       -- _obj : TInterface "Pango" "LayoutIter"-    IO CInt---layoutIterNextRun ::-    (MonadIO m) =>-    LayoutIter ->                           -- _obj-    m Bool-layoutIterNextRun _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_iter_next_run _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--
− GI/Pango/Structs/LayoutIter.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.LayoutIter where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype LayoutIter = LayoutIter (ForeignPtr LayoutIter)-instance BoxedObject LayoutIter where
− GI/Pango/Structs/LayoutLine.hs 
@@ -1,353 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoLayoutLine structure represents one of the lines resulting-from laying out a paragraph via #PangoLayout. #PangoLayoutLine-structures are obtained by calling pango_layout_get_line() and-are only valid until the text, attributes, or settings of the-parent #PangoLayout are modified.--Routines for rendering PangoLayout objects are provided in-code specific to each rendering system.--}--module GI.Pango.Structs.LayoutLine-    ( ---- * Exported types-    LayoutLine(..)                          ,-    noLayoutLine                            ,--- -- * Methods--- ** layoutLineGetExtents-    layoutLineGetExtents                    ,----- ** layoutLineGetPixelExtents-    layoutLineGetPixelExtents               ,----- ** layoutLineGetXRanges-    layoutLineGetXRanges                    ,----- ** layoutLineIndexToX-    layoutLineIndexToX                      ,----- ** layoutLineRef-    layoutLineRef                           ,----- ** layoutLineUnref-    layoutLineUnref                         ,----- ** layoutLineXToIndex-    layoutLineXToIndex                      ,----- -- * Properties--- ** IsParagraphStart-    layoutLineReadIsParagraphStart          ,----- ** Layout-    layoutLineReadLayout                    ,----- ** Length-    layoutLineReadLength                    ,----- ** ResolvedDir-    layoutLineReadResolvedDir               ,----- ** Runs-    layoutLineReadRuns                      ,----- ** StartIndex-    layoutLineReadStartIndex                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype LayoutLine = LayoutLine (ForeignPtr LayoutLine)-foreign import ccall "pango_layout_line_get_type" c_pango_layout_line_get_type :: -    IO GType--instance BoxedObject LayoutLine where-    boxedType _ = c_pango_layout_line_get_type--noLayoutLine :: Maybe LayoutLine-noLayoutLine = Nothing--layoutLineReadLayout :: LayoutLine -> IO Layout-layoutLineReadLayout s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr Layout)-    val' <- (newObject Layout) val-    return val'--layoutLineReadStartIndex :: LayoutLine -> IO Int32-layoutLineReadStartIndex s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--layoutLineReadLength :: LayoutLine -> IO Int32-layoutLineReadLength s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--layoutLineReadRuns :: LayoutLine -> IO ([Ptr ()])-layoutLineReadRuns s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GSList (Ptr ())))-    val' <- unpackGSList val-    return val'--layoutLineReadIsParagraphStart :: LayoutLine -> IO Word32-layoutLineReadIsParagraphStart s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Word32-    return val--layoutLineReadResolvedDir :: LayoutLine -> IO Word32-layoutLineReadResolvedDir s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Word32-    return val---- method LayoutLine::get_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_line_get_extents" pango_layout_line_get_extents :: -    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutLineGetExtents ::-    (MonadIO m) =>-    LayoutLine ->                           -- _obj-    m (Rectangle,Rectangle)-layoutLineGetExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_line_get_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method LayoutLine::get_pixel_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_line_get_pixel_extents" pango_layout_line_get_pixel_extents :: -    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"-    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"-    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"-    IO ()---layoutLineGetPixelExtents ::-    (MonadIO m) =>-    LayoutLine ->                           -- _obj-    m (Rectangle,Rectangle)-layoutLineGetPixelExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ink_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    logical_rect <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_line_get_pixel_extents _obj' ink_rect logical_rect-    ink_rect' <- (wrapPtr Rectangle) ink_rect-    logical_rect' <- (wrapPtr Rectangle) logical_rect-    touchManagedPtr _obj-    return (ink_rect', logical_rect')---- method LayoutLine::get_x_ranges--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TCArray False (-1) 4 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_ranges", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_index", 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 "pango_layout_line_get_x_ranges" pango_layout_line_get_x_ranges :: -    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"-    Int32 ->                                -- start_index : TBasicType TInt32-    Int32 ->                                -- end_index : TBasicType TInt32-    Ptr (Ptr Int32) ->                      -- ranges : TCArray False (-1) 4 (TBasicType TInt32)-    Ptr Int32 ->                            -- n_ranges : TBasicType TInt32-    IO ()---layoutLineGetXRanges ::-    (MonadIO m) =>-    LayoutLine ->                           -- _obj-    Int32 ->                                -- start_index-    Int32 ->                                -- end_index-    m ([Int32])-layoutLineGetXRanges _obj start_index end_index = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ranges <- allocMem :: IO (Ptr (Ptr Int32))-    n_ranges <- allocMem :: IO (Ptr Int32)-    pango_layout_line_get_x_ranges _obj' start_index end_index ranges n_ranges-    n_ranges' <- peek n_ranges-    ranges' <- peek ranges-    ranges'' <- (unpackStorableArrayWithLength n_ranges') ranges'-    freeMem ranges'-    touchManagedPtr _obj-    freeMem ranges-    freeMem n_ranges-    return ranges''---- method LayoutLine::index_to_x--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "trailing", 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 "pango_layout_line_index_to_x" pango_layout_line_index_to_x :: -    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"-    Int32 ->                                -- index_ : TBasicType TInt32-    CInt ->                                 -- trailing : TBasicType TBoolean-    Ptr Int32 ->                            -- x_pos : TBasicType TInt32-    IO ()---layoutLineIndexToX ::-    (MonadIO m) =>-    LayoutLine ->                           -- _obj-    Int32 ->                                -- index_-    Bool ->                                 -- trailing-    m (Int32)-layoutLineIndexToX _obj index_ trailing = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let trailing' = (fromIntegral . fromEnum) trailing-    x_pos <- allocMem :: IO (Ptr Int32)-    pango_layout_line_index_to_x _obj' index_ trailing' x_pos-    x_pos' <- peek x_pos-    touchManagedPtr _obj-    freeMem x_pos-    return x_pos'---- method LayoutLine::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "LayoutLine"--- throws : False--- Skip return : False--foreign import ccall "pango_layout_line_ref" pango_layout_line_ref :: -    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"-    IO (Ptr LayoutLine)---layoutLineRef ::-    (MonadIO m) =>-    LayoutLine ->                           -- _obj-    m LayoutLine-layoutLineRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_layout_line_ref _obj'-    checkUnexpectedReturnNULL "pango_layout_line_ref" result-    result' <- (wrapBoxed LayoutLine) result-    touchManagedPtr _obj-    return result'---- method LayoutLine::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_layout_line_unref" pango_layout_line_unref :: -    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"-    IO ()---layoutLineUnref ::-    (MonadIO m) =>-    LayoutLine ->                           -- _obj-    m ()-layoutLineUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_layout_line_unref _obj'-    touchManagedPtr _obj-    return ()---- method LayoutLine::x_to_index--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_layout_line_x_to_index" pango_layout_line_x_to_index :: -    Ptr LayoutLine ->                       -- _obj : TInterface "Pango" "LayoutLine"-    Int32 ->                                -- x_pos : TBasicType TInt32-    Ptr Int32 ->                            -- index_ : TBasicType TInt32-    Ptr Int32 ->                            -- trailing : TBasicType TInt32-    IO CInt---layoutLineXToIndex ::-    (MonadIO m) =>-    LayoutLine ->                           -- _obj-    Int32 ->                                -- x_pos-    m (Bool,Int32,Int32)-layoutLineXToIndex _obj x_pos = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    index_ <- allocMem :: IO (Ptr Int32)-    trailing <- allocMem :: IO (Ptr Int32)-    result <- pango_layout_line_x_to_index _obj' x_pos index_ trailing-    let result' = (/= 0) result-    index_' <- peek index_-    trailing' <- peek trailing-    touchManagedPtr _obj-    freeMem index_-    freeMem trailing-    return (result', index_', trailing')--
− GI/Pango/Structs/LayoutLine.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.LayoutLine where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype LayoutLine = LayoutLine (ForeignPtr LayoutLine)-instance BoxedObject LayoutLine where
− GI/Pango/Structs/LogAttr.hs 
@@ -1,155 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoLogAttr structure stores information-about the attributes of a single character.--}--module GI.Pango.Structs.LogAttr-    ( ---- * Exported types-    LogAttr(..)                             ,-    noLogAttr                               ,--- -- * Properties--- ** BackspaceDeletesCharacter-    logAttrReadBackspaceDeletesCharacter    ,----- ** IsCharBreak-    logAttrReadIsCharBreak                  ,----- ** IsCursorPosition-    logAttrReadIsCursorPosition             ,----- ** IsExpandableSpace-    logAttrReadIsExpandableSpace            ,----- ** IsLineBreak-    logAttrReadIsLineBreak                  ,----- ** IsMandatoryBreak-    logAttrReadIsMandatoryBreak             ,----- ** IsSentenceBoundary-    logAttrReadIsSentenceBoundary           ,----- ** IsSentenceEnd-    logAttrReadIsSentenceEnd                ,----- ** IsSentenceStart-    logAttrReadIsSentenceStart              ,----- ** IsWhite-    logAttrReadIsWhite                      ,----- ** IsWordBoundary-    logAttrReadIsWordBoundary               ,----- ** IsWordEnd-    logAttrReadIsWordEnd                    ,----- ** IsWordStart-    logAttrReadIsWordStart                  ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype LogAttr = LogAttr (ForeignPtr LogAttr)-noLogAttr :: Maybe LogAttr-noLogAttr = Nothing--logAttrReadIsLineBreak :: LogAttr -> IO Word32-logAttrReadIsLineBreak s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--logAttrReadIsMandatoryBreak :: LogAttr -> IO Word32-logAttrReadIsMandatoryBreak s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word32-    return val--logAttrReadIsCharBreak :: LogAttr -> IO Word32-logAttrReadIsCharBreak s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word32-    return val--logAttrReadIsWhite :: LogAttr -> IO Word32-logAttrReadIsWhite s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Word32-    return val--logAttrReadIsCursorPosition :: LogAttr -> IO Word32-logAttrReadIsCursorPosition s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Word32-    return val--logAttrReadIsWordStart :: LogAttr -> IO Word32-logAttrReadIsWordStart s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--logAttrReadIsWordEnd :: LogAttr -> IO Word32-logAttrReadIsWordEnd s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Word32-    return val--logAttrReadIsSentenceBoundary :: LogAttr -> IO Word32-logAttrReadIsSentenceBoundary s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Word32-    return val--logAttrReadIsSentenceStart :: LogAttr -> IO Word32-logAttrReadIsSentenceStart s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--logAttrReadIsSentenceEnd :: LogAttr -> IO Word32-logAttrReadIsSentenceEnd s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 36) :: IO Word32-    return val--logAttrReadBackspaceDeletesCharacter :: LogAttr -> IO Word32-logAttrReadBackspaceDeletesCharacter s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO Word32-    return val--logAttrReadIsExpandableSpace :: LogAttr -> IO Word32-logAttrReadIsExpandableSpace s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 44) :: IO Word32-    return val--logAttrReadIsWordBoundary :: LogAttr -> IO Word32-logAttrReadIsWordBoundary s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word32-    return val--
− GI/Pango/Structs/LogAttr.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.LogAttr where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype LogAttr = LogAttr (ForeignPtr LogAttr)
− GI/Pango/Structs/Map.hs 
@@ -1,35 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoMap structure can be used to determine the engine to-use for each character.--}--module GI.Pango.Structs.Map-    ( ---- * Exported types-    Map(..)                                 ,-    noMap                                   ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Map = Map (ForeignPtr Map)-noMap :: Maybe Map-noMap = Nothing--
− GI/Pango/Structs/Map.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.Map where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Map = Map (ForeignPtr Map)
− GI/Pango/Structs/MapEntry.hs 
@@ -1,36 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoMapEntry contains information about the engine that should be used-for the codepoint to which this entry belongs and also whether the engine-matches the language tag for this entry's map exactly or just approximately.--}--module GI.Pango.Structs.MapEntry-    ( ---- * Exported types-    MapEntry(..)                            ,-    noMapEntry                              ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype MapEntry = MapEntry (ForeignPtr MapEntry)-noMapEntry :: Maybe MapEntry-noMapEntry = Nothing--
− GI/Pango/Structs/MapEntry.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.MapEntry where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MapEntry = MapEntry (ForeignPtr MapEntry)
− GI/Pango/Structs/Matrix.hs 
@@ -1,423 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A structure specifying a transformation between user-space-coordinates and device coordinates. The transformation-is given by--<programlisting>-x_device = x_user * matrix->xx + y_user * matrix->xy + matrix->x0;-y_device = x_user * matrix->yx + y_user * matrix->yy + matrix->y0;-</programlisting>--}--module GI.Pango.Structs.Matrix-    ( ---- * Exported types-    Matrix(..)                              ,-    noMatrix                                ,--- -- * Methods--- ** matrixConcat-    matrixConcat                            ,----- ** matrixCopy-    matrixCopy                              ,----- ** matrixFree-    matrixFree                              ,----- ** matrixGetFontScaleFactor-    matrixGetFontScaleFactor                ,----- ** matrixRotate-    matrixRotate                            ,----- ** matrixScale-    matrixScale                             ,----- ** matrixTransformDistance-    matrixTransformDistance                 ,----- ** matrixTransformPoint-    matrixTransformPoint                    ,----- ** matrixTranslate-    matrixTranslate                         ,----- -- * Properties--- ** X0-    matrixReadX0                            ,----- ** Xx-    matrixReadXx                            ,----- ** Xy-    matrixReadXy                            ,----- ** Y0-    matrixReadY0                            ,----- ** Yx-    matrixReadYx                            ,----- ** Yy-    matrixReadYy                            ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Matrix = Matrix (ForeignPtr Matrix)-foreign import ccall "pango_matrix_get_type" c_pango_matrix_get_type :: -    IO GType--instance BoxedObject Matrix where-    boxedType _ = c_pango_matrix_get_type--noMatrix :: Maybe Matrix-noMatrix = Nothing--matrixReadXx :: Matrix -> IO Double-matrixReadXx s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CDouble-    let val' = realToFrac val-    return val'--matrixReadXy :: Matrix -> IO Double-matrixReadXy s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--matrixReadYx :: Matrix -> IO Double-matrixReadYx s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CDouble-    let val' = realToFrac val-    return val'--matrixReadYy :: Matrix -> IO Double-matrixReadYy s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--matrixReadX0 :: Matrix -> IO Double-matrixReadX0 s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--matrixReadY0 :: Matrix -> IO Double-matrixReadY0 s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'---- method Matrix::concat--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_concat" pango_matrix_concat :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    Ptr Matrix ->                           -- new_matrix : TInterface "Pango" "Matrix"-    IO ()---matrixConcat ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    Matrix ->                               -- new_matrix-    m ()-matrixConcat _obj new_matrix = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let new_matrix' = unsafeManagedPtrGetPtr new_matrix-    pango_matrix_concat _obj' new_matrix'-    touchManagedPtr _obj-    touchManagedPtr new_matrix-    return ()---- method Matrix::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "Matrix"--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_copy" pango_matrix_copy :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    IO (Ptr Matrix)---matrixCopy ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    m Matrix-matrixCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_matrix_copy _obj'-    checkUnexpectedReturnNULL "pango_matrix_copy" result-    result' <- (wrapBoxed Matrix) result-    touchManagedPtr _obj-    return result'---- method Matrix::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_free" pango_matrix_free :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    IO ()---matrixFree ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    m ()-matrixFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_matrix_free _obj'-    touchManagedPtr _obj-    return ()---- method Matrix::get_font_scale_factor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TDouble--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_get_font_scale_factor" pango_matrix_get_font_scale_factor :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    IO CDouble---matrixGetFontScaleFactor ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    m Double-matrixGetFontScaleFactor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_matrix_get_font_scale_factor _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Matrix::rotate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "degrees", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "degrees", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_rotate" pango_matrix_rotate :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    CDouble ->                              -- degrees : TBasicType TDouble-    IO ()---matrixRotate ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    Double ->                               -- degrees-    m ()-matrixRotate _obj degrees = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let degrees' = realToFrac degrees-    pango_matrix_rotate _obj' degrees'-    touchManagedPtr _obj-    return ()---- method Matrix::scale--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", 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}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", 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}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_scale" pango_matrix_scale :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    CDouble ->                              -- scale_x : TBasicType TDouble-    CDouble ->                              -- scale_y : TBasicType TDouble-    IO ()---matrixScale ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    Double ->                               -- scale_x-    Double ->                               -- scale_y-    m ()-matrixScale _obj scale_x scale_y = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let scale_x' = realToFrac scale_x-    let scale_y' = realToFrac scale_y-    pango_matrix_scale _obj' scale_x' scale_y'-    touchManagedPtr _obj-    return ()---- method Matrix::transform_distance--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "dy", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "dy", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_transform_distance" pango_matrix_transform_distance :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    Ptr CDouble ->                          -- dx : TBasicType TDouble-    Ptr CDouble ->                          -- dy : TBasicType TDouble-    IO ()---matrixTransformDistance ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    Double ->                               -- dx-    Double ->                               -- dy-    m (Double,Double)-matrixTransformDistance _obj dx dy = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let dx' = realToFrac dx-    dx'' <- allocMem :: IO (Ptr CDouble)-    poke dx'' dx'-    let dy' = realToFrac dy-    dy'' <- allocMem :: IO (Ptr CDouble)-    poke dy'' dy'-    pango_matrix_transform_distance _obj' dx'' dy''-    dx''' <- peek dx''-    let dx'''' = realToFrac dx'''-    dy''' <- peek dy''-    let dy'''' = realToFrac dy'''-    touchManagedPtr _obj-    freeMem dx''-    freeMem dy''-    return (dx'''', dy'''')---- XXX Could not generate method Matrix::transform_pixel_rectangle--- Error was : Not implemented: "Nullable inout structs not supported"--- method Matrix::transform_point--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_transform_point" pango_matrix_transform_point :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    Ptr CDouble ->                          -- x : TBasicType TDouble-    Ptr CDouble ->                          -- y : TBasicType TDouble-    IO ()---matrixTransformPoint ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    Double ->                               -- x-    Double ->                               -- y-    m (Double,Double)-matrixTransformPoint _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let x' = realToFrac x-    x'' <- allocMem :: IO (Ptr CDouble)-    poke x'' x'-    let y' = realToFrac y-    y'' <- allocMem :: IO (Ptr CDouble)-    poke y'' y'-    pango_matrix_transform_point _obj' x'' y''-    x''' <- peek x''-    let x'''' = realToFrac x'''-    y''' <- peek y''-    let y'''' = realToFrac y'''-    touchManagedPtr _obj-    freeMem x''-    freeMem y''-    return (x'''', y'''')---- XXX Could not generate method Matrix::transform_rectangle--- Error was : Not implemented: "Nullable inout structs not supported"--- method Matrix::translate--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tx", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ty", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_matrix_translate" pango_matrix_translate :: -    Ptr Matrix ->                           -- _obj : TInterface "Pango" "Matrix"-    CDouble ->                              -- tx : TBasicType TDouble-    CDouble ->                              -- ty : TBasicType TDouble-    IO ()---matrixTranslate ::-    (MonadIO m) =>-    Matrix ->                               -- _obj-    Double ->                               -- tx-    Double ->                               -- ty-    m ()-matrixTranslate _obj tx ty = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let tx' = realToFrac tx-    let ty' = realToFrac ty-    pango_matrix_translate _obj' tx' ty'-    touchManagedPtr _obj-    return ()--
− GI/Pango/Structs/Matrix.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.Matrix where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Matrix = Matrix (ForeignPtr Matrix)-instance BoxedObject Matrix where
− GI/Pango/Structs/Rectangle.hs 
@@ -1,75 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #PangoRectangle structure represents a rectangle. It is frequently-used to represent the logical or ink extents of a single glyph or section-of text. (See, for instance, pango_font_get_glyph_extents())--}--module GI.Pango.Structs.Rectangle-    ( ---- * Exported types-    Rectangle(..)                           ,-    noRectangle                             ,--- -- * Properties--- ** Height-    rectangleReadHeight                     ,----- ** Width-    rectangleReadWidth                      ,----- ** X-    rectangleReadX                          ,----- ** Y-    rectangleReadY                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype Rectangle = Rectangle (ForeignPtr Rectangle)-noRectangle :: Maybe Rectangle-noRectangle = Nothing--rectangleReadX :: Rectangle -> IO Int32-rectangleReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--rectangleReadY :: Rectangle -> IO Int32-rectangleReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--rectangleReadWidth :: Rectangle -> IO Int32-rectangleReadWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--rectangleReadHeight :: Rectangle -> IO Int32-rectangleReadHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--
− GI/Pango/Structs/Rectangle.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.Rectangle where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Rectangle = Rectangle (ForeignPtr Rectangle)
− GI/Pango/Structs/ScriptForLang.hs 
@@ -1,36 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Pango.Structs.ScriptForLang-    ( ---- * Exported types-    ScriptForLang(..)                       ,-    noScriptForLang                         ,---    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype ScriptForLang = ScriptForLang (ForeignPtr ScriptForLang)-noScriptForLang :: Maybe ScriptForLang-noScriptForLang = Nothing---- XXX Skipped getter for "ScriptForLang:lang" :: Not implemented: "Don't know how to unpack C array of type TCArray False 7 (-1) (TBasicType TInt8)"---- XXX Skipped getter for "ScriptForLang:scripts" :: Not implemented: "Don't know how to unpack C array of type TCArray False 3 (-1) (TInterface \"Pango\" \"Script\")"--
− GI/Pango/Structs/ScriptForLang.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.ScriptForLang where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ScriptForLang = ScriptForLang (ForeignPtr ScriptForLang)
− GI/Pango/Structs/ScriptIter.hs 
@@ -1,140 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoScriptIter is used to iterate through a string-and identify ranges in different scripts.--}--module GI.Pango.Structs.ScriptIter-    ( ---- * Exported types-    ScriptIter(..)                          ,-    noScriptIter                            ,--- -- * Methods--- ** scriptIterFree-    scriptIterFree                          ,----- ** scriptIterGetRange-    scriptIterGetRange                      ,----- ** scriptIterNext-    scriptIterNext                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype ScriptIter = ScriptIter (ForeignPtr ScriptIter)-noScriptIter :: Maybe ScriptIter-noScriptIter = Nothing---- method ScriptIter::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_script_iter_free" pango_script_iter_free :: -    Ptr ScriptIter ->                       -- _obj : TInterface "Pango" "ScriptIter"-    IO ()---scriptIterFree ::-    (MonadIO m) =>-    ScriptIter ->                           -- _obj-    m ()-scriptIterFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_script_iter_free _obj'-    touchManagedPtr _obj-    return ()---- method ScriptIter::get_range--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "script", argType = TInterface "Pango" "Script", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_script_iter_get_range" pango_script_iter_get_range :: -    Ptr ScriptIter ->                       -- _obj : TInterface "Pango" "ScriptIter"-    Ptr CString ->                          -- start : TBasicType TUTF8-    Ptr CString ->                          -- end : TBasicType TUTF8-    Ptr CUInt ->                            -- script : TInterface "Pango" "Script"-    IO ()---scriptIterGetRange ::-    (MonadIO m) =>-    ScriptIter ->                           -- _obj-    m (T.Text,T.Text,Script)-scriptIterGetRange _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    start <- allocMem :: IO (Ptr CString)-    end <- allocMem :: IO (Ptr CString)-    script <- allocMem :: IO (Ptr CUInt)-    pango_script_iter_get_range _obj' start end script-    start' <- peek start-    start'' <- cstringToText start'-    freeMem start'-    end' <- peek end-    end'' <- cstringToText end'-    freeMem end'-    script' <- peek script-    let script'' = (toEnum . fromIntegral) script'-    touchManagedPtr _obj-    freeMem start-    freeMem end-    freeMem script-    return (start'', end'', script'')---- method ScriptIter::next--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_script_iter_next" pango_script_iter_next :: -    Ptr ScriptIter ->                       -- _obj : TInterface "Pango" "ScriptIter"-    IO CInt---scriptIterNext ::-    (MonadIO m) =>-    ScriptIter ->                           -- _obj-    m Bool-scriptIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_script_iter_next _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--
− GI/Pango/Structs/ScriptIter.hs-boot 
@@ -1,10 +0,0 @@-module GI.Pango.Structs.ScriptIter where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ScriptIter = ScriptIter (ForeignPtr ScriptIter)
− GI/Pango/Structs/TabArray.hs 
@@ -1,331 +0,0 @@--{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #PangoTabArray struct contains an array-of tab stops. Each tab stop has an alignment and a position.--}--module GI.Pango.Structs.TabArray-    ( ---- * Exported types-    TabArray(..)                            ,-    noTabArray                              ,--- -- * Methods--- ** tabArrayCopy-    tabArrayCopy                            ,----- ** tabArrayFree-    tabArrayFree                            ,----- ** tabArrayGetPositionsInPixels-    tabArrayGetPositionsInPixels            ,----- ** tabArrayGetSize-    tabArrayGetSize                         ,----- ** tabArrayGetTab-    tabArrayGetTab                          ,----- ** tabArrayGetTabs-    tabArrayGetTabs                         ,----- ** tabArrayNew-    tabArrayNew                             ,----- ** tabArrayResize-    tabArrayResize                          ,----- ** tabArraySetTab-    tabArraySetTab                          ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Pango.Types-import GI.Pango.Callbacks--newtype TabArray = TabArray (ForeignPtr TabArray)-foreign import ccall "pango_tab_array_get_type" c_pango_tab_array_get_type :: -    IO GType--instance BoxedObject TabArray where-    boxedType _ = c_pango_tab_array_get_type--noTabArray :: Maybe TabArray-noTabArray = Nothing---- method TabArray::new--- method type : Constructor--- Args : [Arg {argName = "initial_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "positions_in_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "initial_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "positions_in_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "TabArray"--- throws : False--- Skip return : False--foreign import ccall "pango_tab_array_new" pango_tab_array_new :: -    Int32 ->                                -- initial_size : TBasicType TInt32-    CInt ->                                 -- positions_in_pixels : TBasicType TBoolean-    IO (Ptr TabArray)---tabArrayNew ::-    (MonadIO m) =>-    Int32 ->                                -- initial_size-    Bool ->                                 -- positions_in_pixels-    m TabArray-tabArrayNew initial_size positions_in_pixels = liftIO $ do-    let positions_in_pixels' = (fromIntegral . fromEnum) positions_in_pixels-    result <- pango_tab_array_new initial_size positions_in_pixels'-    checkUnexpectedReturnNULL "pango_tab_array_new" result-    result' <- (wrapBoxed TabArray) result-    return result'---- method TabArray::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TInterface "Pango" "TabArray"--- throws : False--- Skip return : False--foreign import ccall "pango_tab_array_copy" pango_tab_array_copy :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    IO (Ptr TabArray)---tabArrayCopy ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    m TabArray-tabArrayCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_tab_array_copy _obj'-    checkUnexpectedReturnNULL "pango_tab_array_copy" result-    result' <- (wrapBoxed TabArray) result-    touchManagedPtr _obj-    return result'---- method TabArray::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_tab_array_free" pango_tab_array_free :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    IO ()---tabArrayFree ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    m ()-tabArrayFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_tab_array_free _obj'-    touchManagedPtr _obj-    return ()---- method TabArray::get_positions_in_pixels--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "pango_tab_array_get_positions_in_pixels" pango_tab_array_get_positions_in_pixels :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    IO CInt---tabArrayGetPositionsInPixels ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    m Bool-tabArrayGetPositionsInPixels _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_tab_array_get_positions_in_pixels _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method TabArray::get_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "pango_tab_array_get_size" pango_tab_array_get_size :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    IO Int32---tabArrayGetSize ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    m Int32-tabArrayGetSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- pango_tab_array_get_size _obj'-    touchManagedPtr _obj-    return result---- method TabArray::get_tab--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "location", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", 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 "pango_tab_array_get_tab" pango_tab_array_get_tab :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    Int32 ->                                -- tab_index : TBasicType TInt32-    Ptr CUInt ->                            -- alignment : TInterface "Pango" "TabAlign"-    Ptr Int32 ->                            -- location : TBasicType TInt32-    IO ()---tabArrayGetTab ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    Int32 ->                                -- tab_index-    m (TabAlign,Int32)-tabArrayGetTab _obj tab_index = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    alignment <- allocMem :: IO (Ptr CUInt)-    location <- allocMem :: IO (Ptr Int32)-    pango_tab_array_get_tab _obj' tab_index alignment location-    alignment' <- peek alignment-    let alignment'' = (toEnum . fromIntegral) alignment'-    location' <- peek location-    touchManagedPtr _obj-    freeMem alignment-    freeMem location-    return (alignment'', location')---- method TabArray::get_tabs--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignments", argType = TInterface "Pango" "TabAlign", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "locations", argType = TCArray False (-1) (-1) (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "pango_tab_array_get_tabs" pango_tab_array_get_tabs :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    Ptr CUInt ->                            -- alignments : TInterface "Pango" "TabAlign"-    Ptr (Ptr Int32) ->                      -- locations : TCArray False (-1) (-1) (TBasicType TInt32)-    IO ()---tabArrayGetTabs ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    m (TabAlign,(Ptr Int32))-tabArrayGetTabs _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    alignments <- allocMem :: IO (Ptr CUInt)-    locations <- allocMem :: IO (Ptr (Ptr Int32))-    pango_tab_array_get_tabs _obj' alignments locations-    alignments' <- peek alignments-    let alignments'' = (toEnum . fromIntegral) alignments'-    locations' <- peek locations-    touchManagedPtr _obj-    freeMem alignments-    freeMem locations-    return (alignments'', locations')---- method TabArray::resize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_size", 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 "pango_tab_array_resize" pango_tab_array_resize :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    Int32 ->                                -- new_size : TBasicType TInt32-    IO ()---tabArrayResize ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    Int32 ->                                -- new_size-    m ()-tabArrayResize _obj new_size = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    pango_tab_array_resize _obj' new_size-    touchManagedPtr _obj-    return ()---- method TabArray::set_tab--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tab_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "location", 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 "pango_tab_array_set_tab" pango_tab_array_set_tab :: -    Ptr TabArray ->                         -- _obj : TInterface "Pango" "TabArray"-    Int32 ->                                -- tab_index : TBasicType TInt32-    CUInt ->                                -- alignment : TInterface "Pango" "TabAlign"-    Int32 ->                                -- location : TBasicType TInt32-    IO ()---tabArraySetTab ::-    (MonadIO m) =>-    TabArray ->                             -- _obj-    Int32 ->                                -- tab_index-    TabAlign ->                             -- alignment-    Int32 ->                                -- location-    m ()-tabArraySetTab _obj tab_index alignment location = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let alignment' = (fromIntegral . fromEnum) alignment-    pango_tab_array_set_tab _obj' tab_index alignment' location-    touchManagedPtr _obj-    return ()--
− GI/Pango/Structs/TabArray.hs-boot 
@@ -1,11 +0,0 @@-module GI.Pango.Structs.TabArray where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TabArray = TabArray (ForeignPtr TabArray)-instance BoxedObject TabArray where
− GI/Pango/Types.hs 
@@ -1,112 +0,0 @@-module GI.Pango.Types-    (     module GI.Pango.Objects.Context         ,-    module GI.Pango.Objects.Engine          ,-    module GI.Pango.Objects.EngineLang      ,-    module GI.Pango.Objects.EngineShape     ,-    module GI.Pango.Objects.Font            ,-    module GI.Pango.Objects.FontFace        ,-    module GI.Pango.Objects.FontFamily      ,-    module GI.Pango.Objects.FontMap         ,-    module GI.Pango.Objects.Fontset         ,-    module GI.Pango.Objects.FontsetSimple   ,-    module GI.Pango.Objects.Layout          ,-    module GI.Pango.Objects.Renderer        ,-    module GI.Pango.Structs.Analysis        ,-    module GI.Pango.Structs.AttrClass       ,-    module GI.Pango.Structs.AttrColor       ,-    module GI.Pango.Structs.AttrFloat       ,-    module GI.Pango.Structs.AttrFontDesc    ,-    module GI.Pango.Structs.AttrInt         ,-    module GI.Pango.Structs.AttrIterator    ,-    module GI.Pango.Structs.AttrLanguage    ,-    module GI.Pango.Structs.AttrList        ,-    module GI.Pango.Structs.AttrShape       ,-    module GI.Pango.Structs.AttrSize        ,-    module GI.Pango.Structs.AttrString      ,-    module GI.Pango.Structs.Attribute       ,-    module GI.Pango.Structs.Color           ,-    module GI.Pango.Structs.Coverage        ,-    module GI.Pango.Structs.EngineInfo      ,-    module GI.Pango.Structs.EngineScriptInfo,-    module GI.Pango.Structs.FontDescription ,-    module GI.Pango.Structs.FontMetrics     ,-    module GI.Pango.Structs.GlyphGeometry   ,-    module GI.Pango.Structs.GlyphInfo       ,-    module GI.Pango.Structs.GlyphItem       ,-    module GI.Pango.Structs.GlyphItemIter   ,-    module GI.Pango.Structs.GlyphString     ,-    module GI.Pango.Structs.GlyphVisAttr    ,-    module GI.Pango.Structs.IncludedModule  ,-    module GI.Pango.Structs.Item            ,-    module GI.Pango.Structs.Language        ,-    module GI.Pango.Structs.LayoutIter      ,-    module GI.Pango.Structs.LayoutLine      ,-    module GI.Pango.Structs.LogAttr         ,-    module GI.Pango.Structs.Map             ,-    module GI.Pango.Structs.MapEntry        ,-    module GI.Pango.Structs.Matrix          ,-    module GI.Pango.Structs.Rectangle       ,-    module GI.Pango.Structs.ScriptForLang   ,-    module GI.Pango.Structs.ScriptIter      ,-    module GI.Pango.Structs.TabArray        ,-    module GI.Pango.Enums                   ,-    module GI.Pango.Flags                   ,---    ) where---import {-# SOURCE #-} GI.Pango.Objects.Context-import {-# SOURCE #-} GI.Pango.Objects.Engine-import {-# SOURCE #-} GI.Pango.Objects.EngineLang-import {-# SOURCE #-} GI.Pango.Objects.EngineShape-import {-# SOURCE #-} GI.Pango.Objects.Font-import {-# SOURCE #-} GI.Pango.Objects.FontFace-import {-# SOURCE #-} GI.Pango.Objects.FontFamily-import {-# SOURCE #-} GI.Pango.Objects.FontMap-import {-# SOURCE #-} GI.Pango.Objects.Fontset-import {-# SOURCE #-} GI.Pango.Objects.FontsetSimple-import {-# SOURCE #-} GI.Pango.Objects.Layout-import {-# SOURCE #-} GI.Pango.Objects.Renderer-import {-# SOURCE #-} GI.Pango.Structs.Analysis-import {-# SOURCE #-} GI.Pango.Structs.AttrClass-import {-# SOURCE #-} GI.Pango.Structs.AttrColor-import {-# SOURCE #-} GI.Pango.Structs.AttrFloat-import {-# SOURCE #-} GI.Pango.Structs.AttrFontDesc-import {-# SOURCE #-} GI.Pango.Structs.AttrInt-import {-# SOURCE #-} GI.Pango.Structs.AttrIterator-import {-# SOURCE #-} GI.Pango.Structs.AttrLanguage-import {-# SOURCE #-} GI.Pango.Structs.AttrList-import {-# SOURCE #-} GI.Pango.Structs.AttrShape-import {-# SOURCE #-} GI.Pango.Structs.AttrSize-import {-# SOURCE #-} GI.Pango.Structs.AttrString-import {-# SOURCE #-} GI.Pango.Structs.Attribute-import {-# SOURCE #-} GI.Pango.Structs.Color-import {-# SOURCE #-} GI.Pango.Structs.Coverage-import {-# SOURCE #-} GI.Pango.Structs.EngineInfo-import {-# SOURCE #-} GI.Pango.Structs.EngineScriptInfo-import {-# SOURCE #-} GI.Pango.Structs.FontDescription-import {-# SOURCE #-} GI.Pango.Structs.FontMetrics-import {-# SOURCE #-} GI.Pango.Structs.GlyphGeometry-import {-# SOURCE #-} GI.Pango.Structs.GlyphInfo-import {-# SOURCE #-} GI.Pango.Structs.GlyphItem-import {-# SOURCE #-} GI.Pango.Structs.GlyphItemIter-import {-# SOURCE #-} GI.Pango.Structs.GlyphString-import {-# SOURCE #-} GI.Pango.Structs.GlyphVisAttr-import {-# SOURCE #-} GI.Pango.Structs.IncludedModule-import {-# SOURCE #-} GI.Pango.Structs.Item-import {-# SOURCE #-} GI.Pango.Structs.Language-import {-# SOURCE #-} GI.Pango.Structs.LayoutIter-import {-# SOURCE #-} GI.Pango.Structs.LayoutLine-import {-# SOURCE #-} GI.Pango.Structs.LogAttr-import {-# SOURCE #-} GI.Pango.Structs.Map-import {-# SOURCE #-} GI.Pango.Structs.MapEntry-import {-# SOURCE #-} GI.Pango.Structs.Matrix-import {-# SOURCE #-} GI.Pango.Structs.Rectangle-import {-# SOURCE #-} GI.Pango.Structs.ScriptForLang-import {-# SOURCE #-} GI.Pango.Structs.ScriptIter-import {-# SOURCE #-} GI.Pango.Structs.TabArray--import GI.Pango.Enums-import GI.Pango.Flags-
+ GI/PangoAttributes.hs view
@@ -0,0 +1,72 @@+{-# 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.PangoAttributes 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 GI.Pango++type instance AttributeList Context = '[ ]++type instance AttributeList Engine = '[ ]++type instance AttributeList EngineLang = '[ ]++type instance AttributeList EngineShape = '[ ]++type instance AttributeList Font = '[ ]++type instance AttributeList FontFace = '[ ]++type instance AttributeList FontFamily = '[ ]++type instance AttributeList FontMap = '[ ]++type instance AttributeList Fontset = '[ ]++type instance AttributeList FontsetSimple = '[ ]++type instance AttributeList Layout = '[ ]++type instance AttributeList Renderer = '[ ]+
+ GI/PangoSignals.hs view
@@ -0,0 +1,41 @@+-- Generated code.++{-# OPTIONS_GHC -fno-warn-orphans #-}++{-# LANGUAGE DataKinds,    FlexibleInstances,+             TypeFamilies, MultiParamTypeClasses,+               TypeOperators #-}++module GI.PangoSignals 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.Pango++type instance SignalList Context = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList Engine = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList EngineLang = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList EngineShape = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList Font = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList FontFace = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList FontFamily = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList FontMap = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList Fontset = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList FontsetSimple = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList Layout = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList Renderer = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]+
gi-pango.cabal view
@@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name:               gi-pango-version:            0.1.36.12+version:            0.1.38.10 synopsis:           Pango bindings description:        Bindings for Pango, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -14,73 +14,12 @@  library     default-language:   Haskell2010-    default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts-    other-extensions:   PatternSynonyms ScopedTypeVariables, ViewPatterns-    ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations-    exposed-modules:    GI.Pango.Types-                        GI.Pango-                        GI.Pango.Callbacks-                        GI.Pango.Constants-                        GI.Pango.Enums-                        GI.Pango.Flags-                        GI.Pango.Functions-                        GI.Pango.Objects-                        GI.Pango.Objects.Context-                        GI.Pango.Objects.Engine-                        GI.Pango.Objects.EngineLang-                        GI.Pango.Objects.EngineShape-                        GI.Pango.Objects.Font-                        GI.Pango.Objects.FontFace-                        GI.Pango.Objects.FontFamily-                        GI.Pango.Objects.FontMap-                        GI.Pango.Objects.Fontset-                        GI.Pango.Objects.FontsetSimple-                        GI.Pango.Objects.Layout-                        GI.Pango.Objects.Renderer-                        GI.Pango.Structs-                        GI.Pango.Structs.Analysis-                        GI.Pango.Structs.AttrClass-                        GI.Pango.Structs.AttrColor-                        GI.Pango.Structs.AttrFloat-                        GI.Pango.Structs.AttrFontDesc-                        GI.Pango.Structs.AttrInt-                        GI.Pango.Structs.AttrIterator-                        GI.Pango.Structs.AttrLanguage-                        GI.Pango.Structs.AttrList-                        GI.Pango.Structs.AttrShape-                        GI.Pango.Structs.AttrSize-                        GI.Pango.Structs.AttrString-                        GI.Pango.Structs.Attribute-                        GI.Pango.Structs.Color-                        GI.Pango.Structs.Coverage-                        GI.Pango.Structs.EngineInfo-                        GI.Pango.Structs.EngineScriptInfo-                        GI.Pango.Structs.FontDescription-                        GI.Pango.Structs.FontMetrics-                        GI.Pango.Structs.GlyphGeometry-                        GI.Pango.Structs.GlyphInfo-                        GI.Pango.Structs.GlyphItem-                        GI.Pango.Structs.GlyphItemIter-                        GI.Pango.Structs.GlyphString-                        GI.Pango.Structs.GlyphVisAttr-                        GI.Pango.Structs.IncludedModule-                        GI.Pango.Structs.Item-                        GI.Pango.Structs.Language-                        GI.Pango.Structs.LayoutIter-                        GI.Pango.Structs.LayoutLine-                        GI.Pango.Structs.LogAttr-                        GI.Pango.Structs.Map-                        GI.Pango.Structs.MapEntry-                        GI.Pango.Structs.Matrix-                        GI.Pango.Structs.Rectangle-                        GI.Pango.Structs.ScriptForLang-                        GI.Pango.Structs.ScriptIter-                        GI.Pango.Structs.TabArray-    pkgconfig-depends:  pango >= 1.36+    exposed-modules:    GI.Pango, GI.PangoAttributes, GI.PangoSignals+    pkgconfig-depends:  pango >= 1.38     build-depends: base >= 4.7 && <5,-        haskell-gi-base >= 0.12 && < 1,-        gi-glib >= 0.2.44.12 && < 0.2.45,-        gi-gobject >= 0.2.44.12 && < 0.2.45,+        haskell-gi-base >= 0.10 && < 1,+        gi-glib >= 0.2.46.10 && < 0.3,+        gi-gobject >= 0.2.46.10 && < 0.3,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,