gi-pango 0.1.38.12 → 0.1.38.13

raw patch · 86 files changed

+4514/−2241 lines, 86 filesdep ~gi-glibdep ~gi-gobjectdep ~haskell-gi-basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• GI/Pango.hs +6/−0
• GI/Pango/Callbacks.hs +3/−2
• GI/Pango/Constants.hs +1/−0
• GI/Pango/Enums.hs +1/−0
• GI/Pango/Flags.hs +1/−0
• GI/Pango/Functions.hs +271/−677
• GI/Pango/Objects.hs +1/−0
• GI/Pango/Objects/Context.hs +247/−109
• GI/Pango/Objects/Context.hs-boot +21/−0
• GI/Pango/Objects/Engine.hs +35/−1
• GI/Pango/Objects/EngineLang.hs +35/−1
• GI/Pango/Objects/EngineShape.hs +35/−1
• GI/Pango/Objects/Font.hs +94/−36
• GI/Pango/Objects/Font.hs-boot +5/−0
• GI/Pango/Objects/FontFace.hs +77/−23
• GI/Pango/Objects/FontFace.hs-boot +4/−0
• GI/Pango/Objects/FontFamily.hs +68/−19
• GI/Pango/Objects/FontFamily.hs-boot +3/−0
• GI/Pango/Objects/FontMap.hs +109/−40
• GI/Pango/Objects/FontMap.hs-boot +7/−0
• GI/Pango/Objects/Fontset.hs +64/−15
• GI/Pango/Objects/Fontset.hs-boot +3/−0
• GI/Pango/Objects/FontsetSimple.hs +60/−14
• GI/Pango/Objects/FontsetSimple.hs-boot +2/−0
• GI/Pango/Objects/Layout.hs +638/−325
• GI/Pango/Objects/Layout.hs-boot +56/−0
• GI/Pango/Objects/Renderer.hs +255/−126
• GI/Pango/Objects/Renderer.hs-boot +19/−0
• GI/Pango/Structs.hs +1/−0
• GI/Pango/Structs/Analysis.hs +17/−0
• GI/Pango/Structs/AttrClass.hs +17/−0
• GI/Pango/Structs/AttrColor.hs +17/−0
• GI/Pango/Structs/AttrFloat.hs +17/−0
• GI/Pango/Structs/AttrFontDesc.hs +17/−0
• GI/Pango/Structs/AttrFontFeatures.hs +17/−0
• GI/Pango/Structs/AttrInt.hs +17/−0
• GI/Pango/Structs/AttrIterator.hs +65/−28
• GI/Pango/Structs/AttrIterator.hs-boot +5/−0
• GI/Pango/Structs/AttrLanguage.hs +17/−0
• GI/Pango/Structs/AttrList.hs +92/−41
• GI/Pango/Structs/AttrList.hs-boot +8/−0
• GI/Pango/Structs/AttrShape.hs +17/−0
• GI/Pango/Structs/AttrSize.hs +17/−0
• GI/Pango/Structs/AttrString.hs +17/−0
• GI/Pango/Structs/Attribute.hs +46/−14
• GI/Pango/Structs/Attribute.hs-boot +3/−0
• GI/Pango/Structs/Color.hs +54/−17
• GI/Pango/Structs/Color.hs-boot +4/−0
• GI/Pango/Structs/Coverage.hs +71/−34
• GI/Pango/Structs/Coverage.hs-boot +5/−0
• GI/Pango/Structs/EngineInfo.hs +17/−0
• GI/Pango/Structs/EngineScriptInfo.hs +17/−0
• GI/Pango/Structs/FontDescription.hs +345/−160
• GI/Pango/Structs/FontDescription.hs-boot +29/−0
• GI/Pango/Structs/FontMetrics.hs +108/−42
• GI/Pango/Structs/FontMetrics.hs-boot +10/−0
• GI/Pango/Structs/GlyphGeometry.hs +17/−0
• GI/Pango/Structs/GlyphInfo.hs +17/−0
• GI/Pango/Structs/GlyphItem.hs +86/−39
• GI/Pango/Structs/GlyphItem.hs-boot +6/−0
• GI/Pango/Structs/GlyphItemIter.hs +83/−36
• GI/Pango/Structs/GlyphItemIter.hs-boot +6/−0
• GI/Pango/Structs/GlyphString.hs +145/−84
• GI/Pango/Structs/GlyphString.hs-boot +9/−0
• GI/Pango/Structs/GlyphVisAttr.hs +17/−0
• GI/Pango/Structs/IncludedModule.hs +17/−0
• GI/Pango/Structs/Item.hs +49/−18
• GI/Pango/Structs/Item.hs-boot +3/−0
• GI/Pango/Structs/Language.hs +127/−32
• GI/Pango/Structs/Language.hs-boot +5/−0
• GI/Pango/Structs/LayoutIter.hs +228/−116
• GI/Pango/Structs/LayoutIter.hs-boot +20/−0
• GI/Pango/Structs/LayoutLine.hs +116/−64
• GI/Pango/Structs/LayoutLine.hs-boot +7/−0
• GI/Pango/Structs/LogAttr.hs +17/−0
• GI/Pango/Structs/Map.hs +12/−0
• GI/Pango/Structs/MapEntry.hs +12/−0
• GI/Pango/Structs/Matrix.hs +125/−58
• GI/Pango/Structs/Matrix.hs-boot +10/−0
• GI/Pango/Structs/Rectangle.hs +17/−0
• GI/Pango/Structs/ScriptForLang.hs +17/−0
• GI/Pango/Structs/ScriptIter.hs +39/−12
• GI/Pango/Structs/ScriptIter.hs-boot +3/−0
• GI/Pango/Structs/TabArray.hs +102/−51
• GI/Pango/Structs/TabArray.hs-boot +8/−0
• gi-pango.cabal +6/−6

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -15,6 +16,10 @@     module GI.Pango.Structs                 ,  ++    module Data.GI.Base                     ,++     ) where  import GI.Pango.Callbacks@@ -35,4 +40,5 @@ import GI.Pango.Types import GI.Pango.Callbacks +import Data.GI.Base 

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -114,9 +115,9 @@     Ptr EngineInfo ->     Int32 ->     IO ()-includedModuleListFieldCallbackWrapper funptrptr _cb engines n_engines = do+includedModuleListFieldCallbackWrapper funptrptr _cb engines nEngines = do     engines' <- (newPtr 40 EngineInfo) engines-    _cb  engines' n_engines+    _cb  engines' nEngines     maybeReleaseFunPtr funptrptr  -- callback IncludedModuleInitFieldCallback

@@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -9,18 +10,6 @@     (    -- * Methods--- ** attrTypeGetName-    attrTypeGetName                         ,----- ** attrTypeRegister-    attrTypeRegister                        ,----- ** bidiTypeForUnichar-    bidiTypeForUnichar                      ,-- -- ** break     break                                   , @@ -49,10 +38,6 @@     findParagraphBoundary                   ,  --- ** fontDescriptionFromString-    fontDescriptionFromString               ,-- -- ** getLibSubdirectory     getLibSubdirectory                      , @@ -69,22 +54,6 @@     getSysconfSubdirectory                  ,  --- ** gravityGetForMatrix-    gravityGetForMatrix                     ,----- ** gravityGetForScript-    gravityGetForScript                     ,----- ** gravityGetForScriptAndWidth-    gravityGetForScriptAndWidth             ,----- ** gravityToRotation-    gravityToRotation                       ,-- -- ** isZeroWidth     isZeroWidth                             , @@ -97,14 +66,6 @@     itemizeWithBaseDir                      ,  --- ** languageFromString-    languageFromString                      ,----- ** languageGetDefault-    languageGetDefault                      ,-- -- ** log2visGetEmbeddingLevels     log2visGetEmbeddingLevels               , @@ -173,14 +134,6 @@     scanWord                                ,  --- ** scriptForUnichar-    scriptForUnichar                        ,----- ** scriptGetSampleLanguage-    scriptGetSampleLanguage                 ,-- -- ** shape     shape                                   , @@ -243,7 +196,6 @@ -- function pango_version_string -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -254,7 +206,7 @@  versionString ::     (MonadIO m) =>-    m T.Text+    m T.Text                                -- result versionString  = liftIO $ do     result <- pango_version_string     checkUnexpectedReturnNULL "pango_version_string" result@@ -263,9 +215,8 @@   -- 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}]+-- Args : [Arg {argCName = "required_major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -279,12 +230,12 @@  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+    Int32                                   -- requiredMajor+    -> Int32                                -- requiredMinor+    -> Int32                                -- requiredMicro+    -> m T.Text                             -- result+versionCheck requiredMajor requiredMinor requiredMicro = liftIO $ do+    result <- pango_version_check requiredMajor requiredMinor requiredMicro     checkUnexpectedReturnNULL "pango_version_check" result     result' <- cstringToText result     return result'@@ -293,7 +244,6 @@ -- function pango_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -304,16 +254,15 @@  version ::     (MonadIO m) =>-    m Int32+    m Int32                                 -- result 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}]+-- Args : [Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -325,8 +274,8 @@  unitsToDouble ::     (MonadIO m) =>-    Int32 ->                                -- i-    m Double+    Int32                                   -- i+    -> m Double                             -- result unitsToDouble i = liftIO $ do     result <- pango_units_to_double i     let result' = realToFrac result@@ -334,9 +283,8 @@   -- function pango_units_from_double--- Args : [Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -348,8 +296,8 @@  unitsFromDouble ::     (MonadIO m) =>-    Double ->                               -- d-    m Int32+    Double                                  -- d+    -> m Int32                              -- result unitsFromDouble d = liftIO $ do     let d' = realToFrac d     result <- pango_units_from_double d'@@ -357,9 +305,8 @@   -- function pango_unichar_direction--- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -371,8 +318,8 @@  unicharDirection ::     (MonadIO m) =>-    Char ->                                 -- ch-    m Direction+    Char                                    -- ch+    -> m Direction                          -- result unicharDirection ch = liftIO $ do     let ch' = (fromIntegral . ord) ch     result <- pango_unichar_direction ch'@@ -381,9 +328,8 @@   -- function pango_trim_string--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -395,8 +341,8 @@ {-# DEPRECATED trimString ["(Since version 1.38)"]#-} trimString ::     (MonadIO m) =>-    T.Text ->                               -- str-    m T.Text+    T.Text                                  -- str+    -> m T.Text                             -- result trimString str = liftIO $ do     str' <- textToCString str     result <- pango_trim_string str'@@ -408,9 +354,8 @@   -- function pango_split_file_list--- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -422,8 +367,8 @@ {-# DEPRECATED splitFileList ["(Since version 1.38)"]#-} splitFileList ::     (MonadIO m) =>-    T.Text ->                               -- str-    m [T.Text]+    T.Text                                  -- str+    -> m [T.Text]                           -- result splitFileList str = liftIO $ do     str' <- textToCString str     result <- pango_split_file_list str'@@ -436,9 +381,8 @@   -- function pango_skip_space--- Args : [Arg {argName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -450,8 +394,8 @@ {-# DEPRECATED skipSpace ["(Since version 1.38)"]#-} skipSpace ::     (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text)+    T.Text                                  -- pos+    -> m (Bool,T.Text)                      -- result skipSpace pos = liftIO $ do     pos' <- textToCString pos     pos'' <- allocMem :: IO (Ptr CString)@@ -466,9 +410,8 @@   -- 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}]+-- Args : [Arg {argCName = "item_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paragraph_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paragraph_length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -485,34 +428,33 @@  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+    T.Text                                  -- itemText+    -> Int32                                -- itemLength+    -> Maybe (T.Text)                       -- paragraphText+    -> Int32                                -- paragraphLength+    -> Analysis                             -- analysis+    -> GlyphString                          -- glyphs+    -> m ()                                 -- result+shapeFull itemText itemLength paragraphText paragraphLength analysis glyphs = liftIO $ do+    itemText' <- textToCString itemText+    maybeParagraphText <- case paragraphText of         Nothing -> return nullPtr-        Just jParagraph_text -> do-            jParagraph_text' <- textToCString jParagraph_text-            return jParagraph_text'+        Just jParagraphText -> do+            jParagraphText' <- textToCString jParagraphText+            return jParagraphText'     let analysis' = unsafeManagedPtrGetPtr analysis     let glyphs' = unsafeManagedPtrGetPtr glyphs-    pango_shape_full item_text' item_length maybeParagraph_text paragraph_length analysis' glyphs'+    pango_shape_full itemText' itemLength maybeParagraphText paragraphLength analysis' glyphs'     touchManagedPtr analysis     touchManagedPtr glyphs-    freeMem item_text'-    freeMem maybeParagraph_text+    freeMem itemText'+    freeMem maybeParagraphText     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}]+-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -527,11 +469,11 @@  shape ::     (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Analysis ->                             -- analysis-    GlyphString ->                          -- glyphs-    m ()+    T.Text                                  -- text+    -> Int32                                -- length_+    -> Analysis                             -- analysis+    -> GlyphString                          -- glyphs+    -> m ()                                 -- result shape text length_ analysis glyphs = liftIO $ do     text' <- textToCString text     let analysis' = unsafeManagedPtrGetPtr analysis@@ -543,59 +485,9 @@     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}]+-- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -608,8 +500,8 @@ {-# DEPRECATED scanWord ["(Since version 1.38)"]#-} scanWord ::     (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text,GLib.String)+    T.Text                                  -- pos+    -> m (Bool,T.Text,GLib.String)          -- result scanWord pos = liftIO $ do     pos' <- textToCString pos     pos'' <- allocMem :: IO (Ptr CString)@@ -626,9 +518,8 @@   -- 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}]+-- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -641,8 +532,8 @@ {-# DEPRECATED scanString ["(Since version 1.38)"]#-} scanString ::     (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text,GLib.String)+    T.Text                                  -- pos+    -> m (Bool,T.Text,GLib.String)          -- result scanString pos = liftIO $ do     pos' <- textToCString pos     pos'' <- allocMem :: IO (Ptr CString)@@ -659,9 +550,8 @@   -- 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}]+-- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -674,8 +564,8 @@ {-# DEPRECATED scanInt ["(Since version 1.38)"]#-} scanInt ::     (MonadIO m) =>-    T.Text ->                               -- pos-    m (Bool,T.Text,Int32)+    T.Text                                  -- pos+    -> m (Bool,T.Text,Int32)                -- result scanInt pos = liftIO $ do     pos' <- textToCString pos     pos'' <- allocMem :: IO (Ptr CString)@@ -693,9 +583,8 @@   -- 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}]+-- Args : [Arg {argCName = "logical_items", argType = TGList (TInterface "Pango" "Item"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -707,25 +596,24 @@  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''+    [Item]                                  -- logicalItems+    -> m [Item]                             -- result+reorderItems logicalItems = liftIO $ do+    let logicalItems' = map unsafeManagedPtrGetPtr logicalItems+    logicalItems'' <- packGList logicalItems'+    result <- pango_reorder_items logicalItems''     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''+    mapM_ touchManagedPtr logicalItems+    g_list_free logicalItems''     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}]+-- Args : [Arg {argCName = "stream", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -738,8 +626,8 @@ {-# DEPRECATED readLine ["(Since version 1.38)"]#-} readLine ::     (MonadIO m) =>-    Ptr () ->                               -- stream-    m (Int32,GLib.String)+    Ptr ()                                  -- stream+    -> m (Int32,GLib.String)                -- result readLine stream = liftIO $ do     str <- callocBoxedBytes 24 :: IO (Ptr GLib.String)     result <- pango_read_line stream str@@ -748,9 +636,8 @@   -- 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}]+-- Args : [Arg {argCName = "thickness", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "position", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -763,9 +650,9 @@  quantizeLineGeometry ::     (MonadIO m) =>-    Int32 ->                                -- thickness-    Int32 ->                                -- position-    m (Int32,Int32)+    Int32                                   -- thickness+    -> Int32                                -- position+    -> m (Int32,Int32)                      -- result quantizeLineGeometry thickness position = liftIO $ do     thickness' <- allocMem :: IO (Ptr Int32)     poke thickness' thickness@@ -780,9 +667,8 @@   -- 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}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -796,9 +682,9 @@  parseWeight ::     (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Weight)+    T.Text                                  -- str+    -> Bool                                 -- warn+    -> m (Bool,Weight)                      -- result parseWeight str warn = liftIO $ do     str' <- textToCString str     weight <- allocMem :: IO (Ptr CUInt)@@ -813,9 +699,8 @@   -- 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}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -829,9 +714,9 @@  parseVariant ::     (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Variant)+    T.Text                                  -- str+    -> Bool                                 -- warn+    -> m (Bool,Variant)                     -- result parseVariant str warn = liftIO $ do     str' <- textToCString str     variant <- allocMem :: IO (Ptr CUInt)@@ -846,9 +731,8 @@   -- 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}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Pango" "Style", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -862,9 +746,9 @@  parseStyle ::     (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Style)+    T.Text                                  -- str+    -> Bool                                 -- warn+    -> m (Bool,Style)                       -- result parseStyle str warn = liftIO $ do     str' <- textToCString str     style <- allocMem :: IO (Ptr CUInt)@@ -879,9 +763,8 @@   -- 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}]+-- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -895,9 +778,9 @@  parseStretch ::     (MonadIO m) =>-    T.Text ->                               -- str-    Bool ->                                 -- warn-    m (Bool,Stretch)+    T.Text                                  -- str+    -> Bool                                 -- warn+    -> m (Bool,Stretch)                     -- result parseStretch str warn = liftIO $ do     str' <- textToCString str     stretch <- allocMem :: IO (Ptr CUInt)@@ -912,9 +795,8 @@   -- 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}]+-- Args : [Arg {argCName = "markup_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -932,42 +814,41 @@  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))+    T.Text                                  -- markupText+    -> Int32                                -- length_+    -> Char                                 -- accelMarker+    -> m (AttrList,T.Text,Char)             -- result+parseMarkup markupText length_ accelMarker = liftIO $ do+    markupText' <- textToCString markupText+    let accelMarker' = (fromIntegral . ord) accelMarker+    attrList <- allocMem :: IO (Ptr (Ptr AttrList))     text <- allocMem :: IO (Ptr CString)-    accel_char <- allocMem :: IO (Ptr CInt)+    accelChar <- 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'+        _ <- propagateGError $ pango_parse_markup markupText' length_ accelMarker' attrList text accelChar+        attrList' <- peek attrList+        attrList'' <- (wrapBoxed AttrList) attrList'         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+        accelChar' <- peek accelChar+        let accelChar'' = (chr . fromIntegral) accelChar'+        freeMem markupText'+        freeMem attrList         freeMem text-        freeMem accel_char-        return (attr_list'', text'', accel_char'')+        freeMem accelChar+        return (attrList'', text'', accelChar'')      ) (do-        freeMem markup_text'-        freeMem attr_list+        freeMem markupText'+        freeMem attrList         freeMem text-        freeMem accel_char+        freeMem accelChar      )   -- 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}]+-- Args : [Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "possible_values", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -983,10 +864,10 @@ {-# DEPRECATED parseEnum ["(Since version 1.38)"]#-} parseEnum ::     (MonadIO m) =>-    GType ->                                -- type-    Maybe (T.Text) ->                       -- str-    Bool ->                                 -- warn-    m (Bool,Int32,T.Text)+    GType                                   -- type_+    -> Maybe (T.Text)                       -- str+    -> Bool                                 -- warn+    -> m (Bool,Int32,T.Text)                -- result parseEnum type_ str warn = liftIO $ do     let type_' = gtypeToCGType type_     maybeStr <- case str of@@ -996,23 +877,22 @@             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+    possibleValues <- allocMem :: IO (Ptr CString)+    result <- pango_parse_enum type_' maybeStr value warn' possibleValues     let result' = (/= 0) result     value' <- peek value-    possible_values' <- peek possible_values-    possible_values'' <- cstringToText possible_values'-    freeMem possible_values'+    possibleValues' <- peek possibleValues+    possibleValues'' <- cstringToText possibleValues'+    freeMem possibleValues'     freeMem maybeStr     freeMem value-    freeMem possible_values-    return (result', value', possible_values'')+    freeMem possibleValues+    return (result', value', possibleValues'')   -- function pango_module_register--- Args : [Arg {argName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1024,8 +904,8 @@ {-# DEPRECATED moduleRegister ["(Since version 1.38)"]#-} moduleRegister ::     (MonadIO m) =>-    IncludedModule ->                       -- module-    m ()+    IncludedModule                          -- module_+    -> m ()                                 -- result moduleRegister module_ = liftIO $ do     let module_' = unsafeManagedPtrGetPtr module_     pango_module_register module_'@@ -1034,9 +914,8 @@   -- 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}]+-- Args : [Arg {argCName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1048,20 +927,19 @@  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'+    Char                                    -- accelMarker+    -> m GLib.MarkupParseContext            -- result+markupParserNew accelMarker = liftIO $ do+    let accelMarker' = (fromIntegral . ord) accelMarker+    result <- pango_markup_parser_new accelMarker'     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}]+-- Args : [Arg {argCName = "context", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1077,38 +955,37 @@  markupParserFinish ::     (MonadIO m) =>-    GLib.MarkupParseContext ->              -- context-    m (AttrList,T.Text,Char)+    GLib.MarkupParseContext                 -- context+    -> m (AttrList,T.Text,Char)             -- result markupParserFinish context = liftIO $ do     let context' = unsafeManagedPtrGetPtr context-    attr_list <- allocMem :: IO (Ptr (Ptr AttrList))+    attrList <- allocMem :: IO (Ptr (Ptr AttrList))     text <- allocMem :: IO (Ptr CString)-    accel_char <- allocMem :: IO (Ptr CInt)+    accelChar <- 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'+        _ <- propagateGError $ pango_markup_parser_finish context' attrList text accelChar+        attrList' <- peek attrList+        attrList'' <- (wrapBoxed AttrList) attrList'         text' <- peek text         text'' <- cstringToText text'         freeMem text'-        accel_char' <- peek accel_char-        let accel_char'' = (chr . fromIntegral) accel_char'+        accelChar' <- peek accelChar+        let accelChar'' = (chr . fromIntegral) accelChar'         touchManagedPtr context-        freeMem attr_list+        freeMem attrList         freeMem text-        freeMem accel_char-        return (attr_list'', text'', accel_char'')+        freeMem accelChar+        return (attrList'', text'', accelChar'')      ) (do-        freeMem attr_list+        freeMem attrList         freeMem text-        freeMem accel_char+        freeMem accelChar      )   -- 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}]+-- Args : [Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "families", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1122,28 +999,27 @@ {-# DEPRECATED lookupAliases ["(Since version 1.32)","This function is not thread-safe."]#-} lookupAliases ::     (MonadIO m) =>-    T.Text ->                               -- fontname-    m ([T.Text])+    T.Text                                  -- fontname+    -> m ([T.Text])                         -- result 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+    nFamilies <- allocMem :: IO (Ptr Int32)+    pango_lookup_aliases fontname' families nFamilies+    nFamilies' <- peek nFamilies     families' <- peek families-    families'' <- (unpackUTF8CArrayWithLength n_families') families'-    (mapCArrayWithLength n_families') freeMem families'+    families'' <- (unpackUTF8CArrayWithLength nFamilies') families'+    (mapCArrayWithLength nFamilies') freeMem families'     freeMem families'     freeMem fontname'     freeMem families-    freeMem n_families+    freeMem nFamilies     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}]+-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pbase_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1157,74 +1033,21 @@  log2visGetEmbeddingLevels ::     (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Direction ->                            -- pbase_dir-    m Word8-log2visGetEmbeddingLevels text length_ pbase_dir = liftIO $ do+    T.Text                                  -- text+    -> Int32                                -- length_+    -> Direction                            -- pbaseDir+    -> m Word8                              -- result+log2visGetEmbeddingLevels text length_ pbaseDir = liftIO $ do     text' <- textToCString text-    let pbase_dir' = (fromIntegral . fromEnum) pbase_dir-    result <- pango_log2vis_get_embedding_levels text' length_ pbase_dir'+    let pbaseDir' = (fromIntegral . fromEnum) pbaseDir+    result <- pango_log2vis_get_embedding_levels text' length_ pbaseDir'     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}]+-- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1242,40 +1065,39 @@  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+    a                                       -- context+    -> Direction                            -- baseDir+    -> T.Text                               -- text+    -> Int32                                -- startIndex+    -> Int32                                -- length_+    -> AttrList                             -- attrs+    -> Maybe (AttrIterator)                 -- cachedIter+    -> m [Item]                             -- result+itemizeWithBaseDir context baseDir text startIndex length_ attrs cachedIter = liftIO $ do     let context' = unsafeManagedPtrCastPtr context-    let base_dir' = (fromIntegral . fromEnum) base_dir+    let baseDir' = (fromIntegral . fromEnum) baseDir     text' <- textToCString text     let attrs' = unsafeManagedPtrGetPtr attrs-    maybeCached_iter <- case cached_iter of+    maybeCachedIter <- case cachedIter 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+        Just jCachedIter -> do+            let jCachedIter' = unsafeManagedPtrGetPtr jCachedIter+            return jCachedIter'+    result <- pango_itemize_with_base_dir context' baseDir' text' startIndex length_ attrs' maybeCachedIter     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+    whenJust cachedIter 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}]+-- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1292,38 +1114,37 @@  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+    a                                       -- context+    -> T.Text                               -- text+    -> Int32                                -- startIndex+    -> Int32                                -- length_+    -> AttrList                             -- attrs+    -> Maybe (AttrIterator)                 -- cachedIter+    -> m [Item]                             -- result+itemize context text startIndex length_ attrs cachedIter = liftIO $ do     let context' = unsafeManagedPtrCastPtr context     text' <- textToCString text     let attrs' = unsafeManagedPtrGetPtr attrs-    maybeCached_iter <- case cached_iter of+    maybeCachedIter <- case cachedIter 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+        Just jCachedIter -> do+            let jCachedIter' = unsafeManagedPtrGetPtr jCachedIter+            return jCachedIter'+    result <- pango_itemize context' text' startIndex length_ attrs' maybeCachedIter     checkUnexpectedReturnNULL "pango_itemize" result     result' <- unpackGList result     result'' <- mapM (wrapBoxed Item) result'     g_list_free result     touchManagedPtr context     touchManagedPtr attrs-    whenJust cached_iter touchManagedPtr+    whenJust cachedIter 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}]+-- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1335,8 +1156,8 @@  isZeroWidth ::     (MonadIO m) =>-    Char ->                                 -- ch-    m Bool+    Char                                    -- ch+    -> m Bool                               -- result isZeroWidth ch = liftIO $ do     let ch' = (fromIntegral . ord) ch     result <- pango_is_zero_width ch'@@ -1344,126 +1165,9 @@     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 = 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_get_sysconf_subdirectory -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -1474,7 +1178,7 @@ {-# DEPRECATED getSysconfSubdirectory ["(Since version 1.38)"]#-} getSysconfSubdirectory ::     (MonadIO m) =>-    m T.Text+    m T.Text                                -- result getSysconfSubdirectory  = liftIO $ do     result <- pango_get_sysconf_subdirectory     checkUnexpectedReturnNULL "pango_get_sysconf_subdirectory" result@@ -1483,9 +1187,8 @@   -- 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}]+-- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1498,21 +1201,20 @@  getMirrorChar ::     (MonadIO m) =>-    Char ->                                 -- ch-    Char ->                                 -- mirrored_ch-    m Bool-getMirrorChar ch mirrored_ch = liftIO $ do+    Char                                    -- ch+    -> Char                                 -- mirroredCh+    -> m Bool                               -- result+getMirrorChar ch mirroredCh = liftIO $ do     let ch' = (fromIntegral . ord) ch-    let mirrored_ch' = (fromIntegral . ord) mirrored_ch-    result <- pango_get_mirror_char ch' mirrored_ch'+    let mirroredCh' = (fromIntegral . ord) mirroredCh+    result <- pango_get_mirror_char ch' mirroredCh'     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}]+-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "log_attrs", argType = TCArray False (-1) 5 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1529,30 +1231,29 @@  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+    T.Text                                  -- text+    -> Int32                                -- length_+    -> Int32                                -- level+    -> Language                             -- language+    -> [LogAttr]                            -- logAttrs+    -> m ()                                 -- result+getLogAttrs text length_ level language logAttrs = liftIO $ do+    let attrsLen = fromIntegral $ length logAttrs     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+    let logAttrs' = map unsafeManagedPtrGetPtr logAttrs+    logAttrs'' <- packBlockArray 52 logAttrs'+    pango_get_log_attrs text' length_ level language' logAttrs'' attrsLen     touchManagedPtr language-    mapM_ touchManagedPtr log_attrs+    mapM_ touchManagedPtr logAttrs     freeMem text'-    freeMem log_attrs''+    freeMem logAttrs''     return ()   -- function pango_get_lib_subdirectory -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -1563,7 +1264,7 @@ {-# DEPRECATED getLibSubdirectory ["(Since version 1.38)"]#-} getLibSubdirectory ::     (MonadIO m) =>-    m T.Text+    m T.Text                                -- result getLibSubdirectory  = liftIO $ do     result <- pango_get_lib_subdirectory     checkUnexpectedReturnNULL "pango_get_lib_subdirectory" result@@ -1571,36 +1272,9 @@     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}]+-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paragraph_delimiter_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "next_paragraph_start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1615,26 +1289,25 @@  findParagraphBoundary ::     (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    m (Int32,Int32)+    T.Text                                  -- text+    -> Int32                                -- length_+    -> m (Int32,Int32)                      -- result 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+    paragraphDelimiterIndex <- allocMem :: IO (Ptr Int32)+    nextParagraphStart <- allocMem :: IO (Ptr Int32)+    pango_find_paragraph_boundary text' length_ paragraphDelimiterIndex nextParagraphStart+    paragraphDelimiterIndex' <- peek paragraphDelimiterIndex+    nextParagraphStart' <- peek nextParagraphStart     freeMem text'-    freeMem paragraph_delimiter_index-    freeMem next_paragraph_start-    return (paragraph_delimiter_index', next_paragraph_start')+    freeMem paragraphDelimiterIndex+    freeMem nextParagraphStart+    return (paragraphDelimiterIndex', nextParagraphStart')   -- 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}]+-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1647,9 +1320,9 @@  findBaseDir ::     (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    m Direction+    T.Text                                  -- text+    -> Int32                                -- length_+    -> m Direction                          -- result findBaseDir text length_ = liftIO $ do     text' <- textToCString text     result <- pango_find_base_dir text' length_@@ -1659,9 +1332,8 @@   -- 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}]+-- Args : [Arg {argCName = "inclusive", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nearest", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1674,9 +1346,9 @@  extentsToPixels ::     (MonadIO m) =>-    Maybe (Rectangle) ->                    -- inclusive-    Maybe (Rectangle) ->                    -- nearest-    m ()+    Maybe (Rectangle)                       -- inclusive+    -> Maybe (Rectangle)                    -- nearest+    -> m ()                                 -- result extentsToPixels inclusive nearest = liftIO $ do     maybeInclusive <- case inclusive of         Nothing -> return nullPtr@@ -1695,9 +1367,8 @@   -- 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}]+-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "LogAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1713,13 +1384,13 @@  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+    T.Text                                  -- text+    -> Int32                                -- length_+    -> Maybe (Analysis)                     -- analysis+    -> LogAttr                              -- attrs+    -> Int32                                -- attrsLen+    -> m ()                                 -- result+defaultBreak text length_ analysis attrs attrsLen = liftIO $ do     text' <- textToCString text     maybeAnalysis <- case analysis of         Nothing -> return nullPtr@@ -1727,7 +1398,7 @@             let jAnalysis' = unsafeManagedPtrGetPtr jAnalysis             return jAnalysis'     let attrs' = unsafeManagedPtrGetPtr attrs-    pango_default_break text' length_ maybeAnalysis attrs' attrs_len+    pango_default_break text' length_ maybeAnalysis attrs' attrsLen     whenJust analysis touchManagedPtr     touchManagedPtr attrs     freeMem text'@@ -1735,9 +1406,8 @@   -- 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}]+-- Args : [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1749,8 +1419,8 @@ {-# DEPRECATED configKeyGetSystem ["(Since version 1.38)"]#-} configKeyGetSystem ::     (MonadIO m) =>-    T.Text ->                               -- key-    m T.Text+    T.Text                                  -- key+    -> m T.Text                             -- result configKeyGetSystem key = liftIO $ do     key' <- textToCString key     result <- pango_config_key_get_system key'@@ -1762,9 +1432,8 @@   -- function pango_config_key_get--- Args : [Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1776,8 +1445,8 @@ {-# DEPRECATED configKeyGet ["(Since version 1.38)"]#-} configKeyGet ::     (MonadIO m) =>-    T.Text ->                               -- key-    m T.Text+    T.Text                                  -- key+    -> m T.Text                             -- result configKeyGet key = liftIO $ do     key' <- textToCString key     result <- pango_config_key_get key'@@ -1789,9 +1458,8 @@   -- 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}]+-- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TCArray False (-1) 4 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "attrs_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1807,97 +1475,23 @@  break ::     (MonadIO m) =>-    T.Text ->                               -- text-    Int32 ->                                -- length-    Analysis ->                             -- analysis-    [LogAttr] ->                            -- attrs-    m ()+    T.Text                                  -- text+    -> Int32                                -- length_+    -> Analysis                             -- analysis+    -> [LogAttr]                            -- attrs+    -> m ()                                 -- result break text length_ analysis attrs = liftIO $ do-    let attrs_len = fromIntegral $ length attrs+    let attrsLen = 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+    pango_break text' length_ analysis' attrs'' attrsLen     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'   

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,58 +18,72 @@   -- * Methods -- ** contextChanged+    ContextChangedMethodInfo                ,     contextChanged                          ,   -- ** contextGetBaseDir+    ContextGetBaseDirMethodInfo             ,     contextGetBaseDir                       ,   -- ** contextGetBaseGravity+    ContextGetBaseGravityMethodInfo         ,     contextGetBaseGravity                   ,   -- ** contextGetFontDescription+    ContextGetFontDescriptionMethodInfo     ,     contextGetFontDescription               ,   -- ** contextGetFontMap+    ContextGetFontMapMethodInfo             ,     contextGetFontMap                       ,   -- ** contextGetGravity+    ContextGetGravityMethodInfo             ,     contextGetGravity                       ,   -- ** contextGetGravityHint+    ContextGetGravityHintMethodInfo         ,     contextGetGravityHint                   ,   -- ** contextGetLanguage+    ContextGetLanguageMethodInfo            ,     contextGetLanguage                      ,   -- ** contextGetMatrix+    ContextGetMatrixMethodInfo              ,     contextGetMatrix                        ,   -- ** contextGetMetrics+    ContextGetMetricsMethodInfo             ,     contextGetMetrics                       ,   -- ** contextGetSerial+    ContextGetSerialMethodInfo              ,     contextGetSerial                        ,   -- ** contextListFamilies+    ContextListFamiliesMethodInfo           ,     contextListFamilies                     ,   -- ** contextLoadFont+    ContextLoadFontMethodInfo               ,     contextLoadFont                         ,   -- ** contextLoadFontset+    ContextLoadFontsetMethodInfo            ,     contextLoadFontset                      ,  @@ -77,30 +92,37 @@   -- ** contextSetBaseDir+    ContextSetBaseDirMethodInfo             ,     contextSetBaseDir                       ,   -- ** contextSetBaseGravity+    ContextSetBaseGravityMethodInfo         ,     contextSetBaseGravity                   ,   -- ** contextSetFontDescription+    ContextSetFontDescriptionMethodInfo     ,     contextSetFontDescription               ,   -- ** contextSetFontMap+    ContextSetFontMapMethodInfo             ,     contextSetFontMap                       ,   -- ** contextSetGravityHint+    ContextSetGravityHintMethodInfo         ,     contextSetGravityHint                   ,   -- ** contextSetLanguage+    ContextSetLanguageMethodInfo            ,     contextSetLanguage                      ,   -- ** contextSetMatrix+    ContextSetMatrixMethodInfo              ,     contextSetMatrix                        ,  @@ -140,17 +162,70 @@ noContext :: Maybe Context noContext = Nothing +type family ResolveContextMethod (t :: Symbol) (o :: *) :: * where+    ResolveContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveContextMethod "changed" o = ContextChangedMethodInfo+    ResolveContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveContextMethod "listFamilies" o = ContextListFamiliesMethodInfo+    ResolveContextMethod "loadFont" o = ContextLoadFontMethodInfo+    ResolveContextMethod "loadFontset" o = ContextLoadFontsetMethodInfo+    ResolveContextMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveContextMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveContextMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveContextMethod "getBaseDir" o = ContextGetBaseDirMethodInfo+    ResolveContextMethod "getBaseGravity" o = ContextGetBaseGravityMethodInfo+    ResolveContextMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveContextMethod "getFontDescription" o = ContextGetFontDescriptionMethodInfo+    ResolveContextMethod "getFontMap" o = ContextGetFontMapMethodInfo+    ResolveContextMethod "getGravity" o = ContextGetGravityMethodInfo+    ResolveContextMethod "getGravityHint" o = ContextGetGravityHintMethodInfo+    ResolveContextMethod "getLanguage" o = ContextGetLanguageMethodInfo+    ResolveContextMethod "getMatrix" o = ContextGetMatrixMethodInfo+    ResolveContextMethod "getMetrics" o = ContextGetMetricsMethodInfo+    ResolveContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveContextMethod "getSerial" o = ContextGetSerialMethodInfo+    ResolveContextMethod "setBaseDir" o = ContextSetBaseDirMethodInfo+    ResolveContextMethod "setBaseGravity" o = ContextSetBaseGravityMethodInfo+    ResolveContextMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveContextMethod "setFontDescription" o = ContextSetFontDescriptionMethodInfo+    ResolveContextMethod "setFontMap" o = ContextSetFontMapMethodInfo+    ResolveContextMethod "setGravityHint" o = ContextSetGravityHintMethodInfo+    ResolveContextMethod "setLanguage" o = ContextSetLanguageMethodInfo+    ResolveContextMethod "setMatrix" o = ContextSetMatrixMethodInfo+    ResolveContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveContextMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveContextMethod t Context, MethodInfo info Context p) => IsLabelProxy t (Context -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveContextMethod t Context, MethodInfo info Context p) => IsLabel t (Context -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Context = ContextAttributeList type ContextAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Context = ContextSignalList-type ContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type ContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Context::new -- method type : Constructor -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TInterface "Pango" "Context" -- throws : False -- Skip return : False@@ -161,7 +236,7 @@  contextNew ::     (MonadIO m) =>-    m Context+    m Context                               -- result contextNew  = liftIO $ do     result <- pango_context_new     checkUnexpectedReturnNULL "pango_context_new" result@@ -170,9 +245,8 @@  -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -184,19 +258,22 @@  contextChanged ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result contextChanged _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pango_context_changed _obj'     touchManagedPtr _obj     return () +data ContextChangedMethodInfo+instance (signature ~ (m ()), MonadIO m, ContextK a) => MethodInfo ContextChangedMethodInfo a signature where+    overloadedMethod _ = contextChanged+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -208,8 +285,8 @@  contextGetBaseDir ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Direction+    a                                       -- _obj+    -> m Direction                          -- result contextGetBaseDir _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_base_dir _obj'@@ -217,11 +294,14 @@     touchManagedPtr _obj     return result' +data ContextGetBaseDirMethodInfo+instance (signature ~ (m Direction), MonadIO m, ContextK a) => MethodInfo ContextGetBaseDirMethodInfo a signature where+    overloadedMethod _ = contextGetBaseDir+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -233,8 +313,8 @@  contextGetBaseGravity ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Gravity+    a                                       -- _obj+    -> m Gravity                            -- result contextGetBaseGravity _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_base_gravity _obj'@@ -242,11 +322,14 @@     touchManagedPtr _obj     return result' +data ContextGetBaseGravityMethodInfo+instance (signature ~ (m Gravity), MonadIO m, ContextK a) => MethodInfo ContextGetBaseGravityMethodInfo a signature where+    overloadedMethod _ = contextGetBaseGravity+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -258,8 +341,8 @@  contextGetFontDescription ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m FontDescription+    a                                       -- _obj+    -> m FontDescription                    -- result contextGetFontDescription _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_font_description _obj'@@ -268,11 +351,14 @@     touchManagedPtr _obj     return result' +data ContextGetFontDescriptionMethodInfo+instance (signature ~ (m FontDescription), MonadIO m, ContextK a) => MethodInfo ContextGetFontDescriptionMethodInfo a signature where+    overloadedMethod _ = contextGetFontDescription+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -284,8 +370,8 @@  contextGetFontMap ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m FontMap+    a                                       -- _obj+    -> m FontMap                            -- result contextGetFontMap _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_font_map _obj'@@ -294,11 +380,14 @@     touchManagedPtr _obj     return result' +data ContextGetFontMapMethodInfo+instance (signature ~ (m FontMap), MonadIO m, ContextK a) => MethodInfo ContextGetFontMapMethodInfo a signature where+    overloadedMethod _ = contextGetFontMap+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -310,8 +399,8 @@  contextGetGravity ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Gravity+    a                                       -- _obj+    -> m Gravity                            -- result contextGetGravity _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_gravity _obj'@@ -319,11 +408,14 @@     touchManagedPtr _obj     return result' +data ContextGetGravityMethodInfo+instance (signature ~ (m Gravity), MonadIO m, ContextK a) => MethodInfo ContextGetGravityMethodInfo a signature where+    overloadedMethod _ = contextGetGravity+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -335,8 +427,8 @@  contextGetGravityHint ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m GravityHint+    a                                       -- _obj+    -> m GravityHint                        -- result contextGetGravityHint _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_gravity_hint _obj'@@ -344,11 +436,14 @@     touchManagedPtr _obj     return result' +data ContextGetGravityHintMethodInfo+instance (signature ~ (m GravityHint), MonadIO m, ContextK a) => MethodInfo ContextGetGravityHintMethodInfo a signature where+    overloadedMethod _ = contextGetGravityHint+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -360,8 +455,8 @@  contextGetLanguage ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Language+    a                                       -- _obj+    -> m Language                           -- result contextGetLanguage _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_language _obj'@@ -370,11 +465,14 @@     touchManagedPtr _obj     return result' +data ContextGetLanguageMethodInfo+instance (signature ~ (m Language), MonadIO m, ContextK a) => MethodInfo ContextGetLanguageMethodInfo a signature where+    overloadedMethod _ = contextGetLanguage+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -386,8 +484,8 @@  contextGetMatrix ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Matrix+    a                                       -- _obj+    -> m Matrix                             -- result contextGetMatrix _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_matrix _obj'@@ -396,11 +494,14 @@     touchManagedPtr _obj     return result' +data ContextGetMatrixMethodInfo+instance (signature ~ (m Matrix), MonadIO m, ContextK a) => MethodInfo ContextGetMatrixMethodInfo a signature where+    overloadedMethod _ = contextGetMatrix+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -414,10 +515,10 @@  contextGetMetrics ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Maybe (FontDescription) ->              -- desc-    Maybe (Language) ->                     -- language-    m FontMetrics+    a                                       -- _obj+    -> Maybe (FontDescription)              -- desc+    -> Maybe (Language)                     -- language+    -> m FontMetrics                        -- result contextGetMetrics _obj desc language = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeDesc <- case desc of@@ -438,11 +539,14 @@     whenJust language touchManagedPtr     return result' +data ContextGetMetricsMethodInfo+instance (signature ~ (Maybe (FontDescription) -> Maybe (Language) -> m FontMetrics), MonadIO m, ContextK a) => MethodInfo ContextGetMetricsMethodInfo a signature where+    overloadedMethod _ = contextGetMetrics+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -454,19 +558,22 @@  contextGetSerial ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result contextGetSerial _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_serial _obj'     touchManagedPtr _obj     return result +data ContextGetSerialMethodInfo+instance (signature ~ (m Word32), MonadIO m, ContextK a) => MethodInfo ContextGetSerialMethodInfo a signature where+    overloadedMethod _ = contextGetSerial+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -480,28 +587,31 @@  contextListFamilies ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    m ([FontFamily])+    a                                       -- _obj+    -> m ([FontFamily])                     -- result 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+    nFamilies <- allocMem :: IO (Ptr Int32)+    pango_context_list_families _obj' families nFamilies+    nFamilies' <- peek nFamilies     families' <- peek families-    families'' <- (unpackPtrArrayWithLength n_families') families'+    families'' <- (unpackPtrArrayWithLength nFamilies') families'     families''' <- mapM (newObject FontFamily) families''     freeMem families'     touchManagedPtr _obj     freeMem families-    freeMem n_families+    freeMem nFamilies     return families''' +data ContextListFamiliesMethodInfo+instance (signature ~ (m ([FontFamily])), MonadIO m, ContextK a) => MethodInfo ContextListFamiliesMethodInfo a signature where+    overloadedMethod _ = contextListFamilies+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -514,9 +624,9 @@  contextLoadFont ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    FontDescription ->                      -- desc-    m Font+    a                                       -- _obj+    -> FontDescription                      -- desc+    -> m Font                               -- result contextLoadFont _obj desc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let desc' = unsafeManagedPtrGetPtr desc@@ -527,11 +637,14 @@     touchManagedPtr desc     return result' +data ContextLoadFontMethodInfo+instance (signature ~ (FontDescription -> m Font), MonadIO m, ContextK a) => MethodInfo ContextLoadFontMethodInfo a signature where+    overloadedMethod _ = contextLoadFont+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -545,10 +658,10 @@  contextLoadFontset ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    FontDescription ->                      -- desc-    Language ->                             -- language-    m Fontset+    a                                       -- _obj+    -> FontDescription                      -- desc+    -> Language                             -- language+    -> m Fontset                            -- result contextLoadFontset _obj desc language = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let desc' = unsafeManagedPtrGetPtr desc@@ -561,11 +674,14 @@     touchManagedPtr language     return result' +data ContextLoadFontsetMethodInfo+instance (signature ~ (FontDescription -> Language -> m Fontset), MonadIO m, ContextK a) => MethodInfo ContextLoadFontsetMethodInfo a signature where+    overloadedMethod _ = contextLoadFontset+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -578,9 +694,9 @@  contextSetBaseDir ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Direction ->                            -- direction-    m ()+    a                                       -- _obj+    -> Direction                            -- direction+    -> m ()                                 -- result contextSetBaseDir _obj direction = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let direction' = (fromIntegral . fromEnum) direction@@ -588,11 +704,14 @@     touchManagedPtr _obj     return () +data ContextSetBaseDirMethodInfo+instance (signature ~ (Direction -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetBaseDirMethodInfo a signature where+    overloadedMethod _ = contextSetBaseDir+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -605,9 +724,9 @@  contextSetBaseGravity ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Gravity ->                              -- gravity-    m ()+    a                                       -- _obj+    -> Gravity                              -- gravity+    -> m ()                                 -- result contextSetBaseGravity _obj gravity = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let gravity' = (fromIntegral . fromEnum) gravity@@ -615,11 +734,14 @@     touchManagedPtr _obj     return () +data ContextSetBaseGravityMethodInfo+instance (signature ~ (Gravity -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetBaseGravityMethodInfo a signature where+    overloadedMethod _ = contextSetBaseGravity+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -632,9 +754,9 @@  contextSetFontDescription ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    FontDescription ->                      -- desc-    m ()+    a                                       -- _obj+    -> FontDescription                      -- desc+    -> m ()                                 -- result contextSetFontDescription _obj desc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let desc' = unsafeManagedPtrGetPtr desc@@ -643,11 +765,14 @@     touchManagedPtr desc     return () +data ContextSetFontDescriptionMethodInfo+instance (signature ~ (FontDescription -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetFontDescriptionMethodInfo a signature where+    overloadedMethod _ = contextSetFontDescription+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -660,22 +785,25 @@  contextSetFontMap ::     (MonadIO m, ContextK a, FontMapK b) =>-    a ->                                    -- _obj-    b ->                                    -- font_map-    m ()-contextSetFontMap _obj font_map = liftIO $ do+    a                                       -- _obj+    -> b                                    -- fontMap+    -> m ()                                 -- result+contextSetFontMap _obj fontMap = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let font_map' = unsafeManagedPtrCastPtr font_map-    pango_context_set_font_map _obj' font_map'+    let fontMap' = unsafeManagedPtrCastPtr fontMap+    pango_context_set_font_map _obj' fontMap'     touchManagedPtr _obj-    touchManagedPtr font_map+    touchManagedPtr fontMap     return () +data ContextSetFontMapMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, ContextK a, FontMapK b) => MethodInfo ContextSetFontMapMethodInfo a signature where+    overloadedMethod _ = contextSetFontMap+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -688,9 +816,9 @@  contextSetGravityHint ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    GravityHint ->                          -- hint-    m ()+    a                                       -- _obj+    -> GravityHint                          -- hint+    -> m ()                                 -- result contextSetGravityHint _obj hint = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let hint' = (fromIntegral . fromEnum) hint@@ -698,11 +826,14 @@     touchManagedPtr _obj     return () +data ContextSetGravityHintMethodInfo+instance (signature ~ (GravityHint -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetGravityHintMethodInfo a signature where+    overloadedMethod _ = contextSetGravityHint+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -715,9 +846,9 @@  contextSetLanguage ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Language ->                             -- language-    m ()+    a                                       -- _obj+    -> Language                             -- language+    -> m ()                                 -- result contextSetLanguage _obj language = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let language' = unsafeManagedPtrGetPtr language@@ -726,11 +857,14 @@     touchManagedPtr language     return () +data ContextSetLanguageMethodInfo+instance (signature ~ (Language -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetLanguageMethodInfo a signature where+    overloadedMethod _ = contextSetLanguage+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -743,9 +877,9 @@  contextSetMatrix ::     (MonadIO m, ContextK a) =>-    a ->                                    -- _obj-    Maybe (Matrix) ->                       -- matrix-    m ()+    a                                       -- _obj+    -> Maybe (Matrix)                       -- matrix+    -> m ()                                 -- result contextSetMatrix _obj matrix = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeMatrix <- case matrix of@@ -757,5 +891,9 @@     touchManagedPtr _obj     whenJust matrix touchManagedPtr     return ()++data ContextSetMatrixMethodInfo+instance (signature ~ (Maybe (Matrix) -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetMatrixMethodInfo a signature where+    overloadedMethod _ = contextSetMatrix  

@@ -11,3 +11,24 @@ instance GObject Context where class GObject o => ContextK o instance (GObject o, IsDescendantOf Context o) => ContextK o+data ContextChangedMethodInfo+data ContextGetBaseDirMethodInfo+data ContextGetBaseGravityMethodInfo+data ContextGetFontDescriptionMethodInfo+data ContextGetFontMapMethodInfo+data ContextGetGravityMethodInfo+data ContextGetGravityHintMethodInfo+data ContextGetLanguageMethodInfo+data ContextGetMatrixMethodInfo+data ContextGetMetricsMethodInfo+data ContextGetSerialMethodInfo+data ContextListFamiliesMethodInfo+data ContextLoadFontMethodInfo+data ContextLoadFontsetMethodInfo+data ContextSetBaseDirMethodInfo+data ContextSetBaseGravityMethodInfo+data ContextSetFontDescriptionMethodInfo+data ContextSetFontMapMethodInfo+data ContextSetGravityHintMethodInfo+data ContextSetLanguageMethodInfo+data ContextSetMatrixMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -49,10 +50,43 @@ noEngine :: Maybe Engine noEngine = Nothing +type family ResolveEngineMethod (t :: Symbol) (o :: *) :: * where+    ResolveEngineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveEngineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveEngineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveEngineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveEngineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveEngineMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveEngineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveEngineMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveEngineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveEngineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveEngineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveEngineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveEngineMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveEngineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveEngineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveEngineMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveEngineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveEngineMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveEngineMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveEngineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveEngineMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveEngineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveEngineMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveEngineMethod t Engine, MethodInfo info Engine p) => IsLabelProxy t (Engine -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveEngineMethod t Engine, MethodInfo info Engine p) => IsLabel t (Engine -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Engine = EngineAttributeList type EngineAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Engine = EngineSignalList-type EngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type EngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -49,10 +50,43 @@ noEngineLang :: Maybe EngineLang noEngineLang = Nothing +type family ResolveEngineLangMethod (t :: Symbol) (o :: *) :: * where+    ResolveEngineLangMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveEngineLangMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveEngineLangMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveEngineLangMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveEngineLangMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveEngineLangMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveEngineLangMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveEngineLangMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveEngineLangMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveEngineLangMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveEngineLangMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveEngineLangMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveEngineLangMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveEngineLangMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveEngineLangMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveEngineLangMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveEngineLangMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveEngineLangMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveEngineLangMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveEngineLangMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveEngineLangMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveEngineLangMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveEngineLangMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveEngineLangMethod t EngineLang, MethodInfo info EngineLang p) => IsLabelProxy t (EngineLang -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveEngineLangMethod t EngineLang, MethodInfo info EngineLang p) => IsLabel t (EngineLang -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList EngineLang = EngineLangAttributeList type EngineLangAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList EngineLang = EngineLangSignalList-type EngineLangSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type EngineLangSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -49,10 +50,43 @@ noEngineShape :: Maybe EngineShape noEngineShape = Nothing +type family ResolveEngineShapeMethod (t :: Symbol) (o :: *) :: * where+    ResolveEngineShapeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveEngineShapeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveEngineShapeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveEngineShapeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveEngineShapeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveEngineShapeMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveEngineShapeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveEngineShapeMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveEngineShapeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveEngineShapeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveEngineShapeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveEngineShapeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveEngineShapeMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveEngineShapeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveEngineShapeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveEngineShapeMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveEngineShapeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveEngineShapeMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveEngineShapeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveEngineShapeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveEngineShapeMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveEngineShapeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveEngineShapeMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveEngineShapeMethod t EngineShape, MethodInfo info EngineShape p) => IsLabelProxy t (EngineShape -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveEngineShapeMethod t EngineShape, MethodInfo info EngineShape p) => IsLabel t (EngineShape -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList EngineShape = EngineShapeAttributeList type EngineShapeAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList EngineShape = EngineShapeSignalList-type EngineShapeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type EngineShapeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,10 +18,12 @@   -- * Methods -- ** fontDescribe+    FontDescribeMethodInfo                  ,     fontDescribe                            ,   -- ** fontDescribeWithAbsoluteSize+    FontDescribeWithAbsoluteSizeMethodInfo  ,     fontDescribeWithAbsoluteSize            ,  @@ -29,14 +32,17 @@   -- ** fontGetFontMap+    FontGetFontMapMethodInfo                ,     fontGetFontMap                          ,   -- ** fontGetGlyphExtents+    FontGetGlyphExtentsMethodInfo           ,     fontGetGlyphExtents                     ,   -- ** fontGetMetrics+    FontGetMetricsMethodInfo                ,     fontGetMetrics                          ,  @@ -76,17 +82,54 @@ noFont :: Maybe Font noFont = Nothing +type family ResolveFontMethod (t :: Symbol) (o :: *) :: * where+    ResolveFontMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFontMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFontMethod "describe" o = FontDescribeMethodInfo+    ResolveFontMethod "describeWithAbsoluteSize" o = FontDescribeWithAbsoluteSizeMethodInfo+    ResolveFontMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFontMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFontMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFontMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFontMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFontMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFontMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFontMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFontMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFontMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFontMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFontMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFontMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFontMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFontMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFontMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFontMethod "getFontMap" o = FontGetFontMapMethodInfo+    ResolveFontMethod "getGlyphExtents" o = FontGetGlyphExtentsMethodInfo+    ResolveFontMethod "getMetrics" o = FontGetMetricsMethodInfo+    ResolveFontMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFontMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFontMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFontMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFontMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFontMethod t Font, MethodInfo info Font p) => IsLabelProxy t (Font -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFontMethod t Font, MethodInfo info Font p) => IsLabel t (Font -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Font = FontAttributeList type FontAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Font = FontSignalList-type FontSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FontSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -98,8 +141,8 @@  fontDescribe ::     (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    m FontDescription+    a                                       -- _obj+    -> m FontDescription                    -- result fontDescribe _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_describe _obj'@@ -108,11 +151,14 @@     touchManagedPtr _obj     return result' +data FontDescribeMethodInfo+instance (signature ~ (m FontDescription), MonadIO m, FontK a) => MethodInfo FontDescribeMethodInfo a signature where+    overloadedMethod _ = fontDescribe+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -124,8 +170,8 @@  fontDescribeWithAbsoluteSize ::     (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    m FontDescription+    a                                       -- _obj+    -> m FontDescription                    -- result fontDescribeWithAbsoluteSize _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_describe_with_absolute_size _obj'@@ -134,11 +180,14 @@     touchManagedPtr _obj     return result' +data FontDescribeWithAbsoluteSizeMethodInfo+instance (signature ~ (m FontDescription), MonadIO m, FontK a) => MethodInfo FontDescribeWithAbsoluteSizeMethodInfo a signature where+    overloadedMethod _ = fontDescribeWithAbsoluteSize+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -150,8 +199,8 @@  fontGetFontMap ::     (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    m FontMap+    a                                       -- _obj+    -> m FontMap                            -- result fontGetFontMap _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_get_font_map _obj'@@ -160,11 +209,14 @@     touchManagedPtr _obj     return result' +data FontGetFontMapMethodInfo+instance (signature ~ (m FontMap), MonadIO m, FontK a) => MethodInfo FontGetFontMapMethodInfo a signature where+    overloadedMethod _ = fontGetFontMap+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -179,24 +231,27 @@  fontGetGlyphExtents ::     (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- glyph-    m (Rectangle,Rectangle)+    a                                       -- _obj+    -> Word32                               -- glyph+    -> m (Rectangle,Rectangle)              -- result 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+    inkRect <- callocBytes 16 :: IO (Ptr Rectangle)+    logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_font_get_glyph_extents _obj' glyph inkRect logicalRect+    inkRect' <- (wrapPtr Rectangle) inkRect+    logicalRect' <- (wrapPtr Rectangle) logicalRect     touchManagedPtr _obj-    return (ink_rect', logical_rect')+    return (inkRect', logicalRect') +data FontGetGlyphExtentsMethodInfo+instance (signature ~ (Word32 -> m (Rectangle,Rectangle)), MonadIO m, FontK a) => MethodInfo FontGetGlyphExtentsMethodInfo a signature where+    overloadedMethod _ = fontGetGlyphExtents+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -209,9 +264,9 @@  fontGetMetrics ::     (MonadIO m, FontK a) =>-    a ->                                    -- _obj-    Maybe (Language) ->                     -- language-    m FontMetrics+    a                                       -- _obj+    -> Maybe (Language)                     -- language+    -> m FontMetrics                        -- result fontGetMetrics _obj language = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeLanguage <- case language of@@ -226,11 +281,14 @@     whenJust language touchManagedPtr     return result' +data FontGetMetricsMethodInfo+instance (signature ~ (Maybe (Language) -> m FontMetrics), MonadIO m, FontK a) => MethodInfo FontGetMetricsMethodInfo a signature where+    overloadedMethod _ = fontGetMetrics+ -- 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}]+-- Args : [Arg {argCName = "descs", argType = TCArray False (-1) 1 (TInterface "Pango" "FontDescription"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_descs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_descs", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -243,10 +301,10 @@  fontDescriptionsFree ::     (MonadIO m) =>-    Maybe ([FontDescription]) ->            -- descs-    m ()+    Maybe ([FontDescription])               -- descs+    -> m ()                                 -- result fontDescriptionsFree descs = liftIO $ do-    let n_descs = case descs of+    let nDescs = case descs of             Nothing -> 0             Just jDescs -> fromIntegral $ length jDescs     maybeDescs <- case descs of@@ -255,7 +313,7 @@             jDescs' <- mapM copyBoxed jDescs             jDescs'' <- packPtrArray jDescs'             return jDescs''-    pango_font_descriptions_free maybeDescs n_descs+    pango_font_descriptions_free maybeDescs nDescs     whenJust descs (mapM_ touchManagedPtr)     return () 

@@ -11,3 +11,8 @@ instance GObject Font where class GObject o => FontK o instance (GObject o, IsDescendantOf Font o) => FontK o+data FontDescribeMethodInfo+data FontDescribeWithAbsoluteSizeMethodInfo+data FontGetFontMapMethodInfo+data FontGetGlyphExtentsMethodInfo+data FontGetMetricsMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,18 +18,22 @@   -- * Methods -- ** fontFaceDescribe+    FontFaceDescribeMethodInfo              ,     fontFaceDescribe                        ,   -- ** fontFaceGetFaceName+    FontFaceGetFaceNameMethodInfo           ,     fontFaceGetFaceName                     ,   -- ** fontFaceIsSynthesized+    FontFaceIsSynthesizedMethodInfo         ,     fontFaceIsSynthesized                   ,   -- ** fontFaceListSizes+    FontFaceListSizesMethodInfo             ,     fontFaceListSizes                       ,  @@ -68,17 +73,53 @@ noFontFace :: Maybe FontFace noFontFace = Nothing +type family ResolveFontFaceMethod (t :: Symbol) (o :: *) :: * where+    ResolveFontFaceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFontFaceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFontFaceMethod "describe" o = FontFaceDescribeMethodInfo+    ResolveFontFaceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFontFaceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFontFaceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFontFaceMethod "isSynthesized" o = FontFaceIsSynthesizedMethodInfo+    ResolveFontFaceMethod "listSizes" o = FontFaceListSizesMethodInfo+    ResolveFontFaceMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFontFaceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFontFaceMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFontFaceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFontFaceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFontFaceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFontFaceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFontFaceMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFontFaceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFontFaceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFontFaceMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFontFaceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFontFaceMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFontFaceMethod "getFaceName" o = FontFaceGetFaceNameMethodInfo+    ResolveFontFaceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFontFaceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFontFaceMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFontFaceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFontFaceMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFontFaceMethod t FontFace, MethodInfo info FontFace p) => IsLabelProxy t (FontFace -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFontFaceMethod t FontFace, MethodInfo info FontFace p) => IsLabel t (FontFace -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList FontFace = FontFaceAttributeList type FontFaceAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList FontFace = FontFaceSignalList-type FontFaceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FontFaceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -90,8 +131,8 @@  fontFaceDescribe ::     (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m FontDescription+    a                                       -- _obj+    -> m FontDescription                    -- result fontFaceDescribe _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_face_describe _obj'@@ -100,11 +141,14 @@     touchManagedPtr _obj     return result' +data FontFaceDescribeMethodInfo+instance (signature ~ (m FontDescription), MonadIO m, FontFaceK a) => MethodInfo FontFaceDescribeMethodInfo a signature where+    overloadedMethod _ = fontFaceDescribe+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -116,8 +160,8 @@  fontFaceGetFaceName ::     (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result fontFaceGetFaceName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_face_get_face_name _obj'@@ -126,11 +170,14 @@     touchManagedPtr _obj     return result' +data FontFaceGetFaceNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FontFaceK a) => MethodInfo FontFaceGetFaceNameMethodInfo a signature where+    overloadedMethod _ = fontFaceGetFaceName+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -142,8 +189,8 @@  fontFaceIsSynthesized ::     (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result fontFaceIsSynthesized _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_face_is_synthesized _obj'@@ -151,11 +198,14 @@     touchManagedPtr _obj     return result' +data FontFaceIsSynthesizedMethodInfo+instance (signature ~ (m Bool), MonadIO m, FontFaceK a) => MethodInfo FontFaceIsSynthesizedMethodInfo a signature where+    overloadedMethod _ = fontFaceIsSynthesized+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt32), direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_sizes", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -169,22 +219,26 @@  fontFaceListSizes ::     (MonadIO m, FontFaceK a) =>-    a ->                                    -- _obj-    m ((Maybe [Int32]))+    a                                       -- _obj+    -> m ((Maybe [Int32]))                  -- result 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+    nSizes <- allocMem :: IO (Ptr Int32)+    pango_font_face_list_sizes _obj' sizes nSizes+    nSizes' <- peek nSizes     sizes' <- peek sizes     maybeSizes' <- convertIfNonNull sizes' $ \sizes'' -> do-        sizes''' <- (unpackStorableArrayWithLength n_sizes') sizes''+        sizes''' <- (unpackStorableArrayWithLength nSizes') sizes''         freeMem sizes''         return sizes'''     touchManagedPtr _obj     freeMem sizes-    freeMem n_sizes+    freeMem nSizes     return maybeSizes'++data FontFaceListSizesMethodInfo+instance (signature ~ (m ((Maybe [Int32]))), MonadIO m, FontFaceK a) => MethodInfo FontFaceListSizesMethodInfo a signature where+    overloadedMethod _ = fontFaceListSizes  

@@ -11,3 +11,7 @@ instance GObject FontFace where class GObject o => FontFaceK o instance (GObject o, IsDescendantOf FontFace o) => FontFaceK o+data FontFaceDescribeMethodInfo+data FontFaceGetFaceNameMethodInfo+data FontFaceIsSynthesizedMethodInfo+data FontFaceListSizesMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,14 +18,17 @@   -- * Methods -- ** fontFamilyGetName+    FontFamilyGetNameMethodInfo             ,     fontFamilyGetName                       ,   -- ** fontFamilyIsMonospace+    FontFamilyIsMonospaceMethodInfo         ,     fontFamilyIsMonospace                   ,   -- ** fontFamilyListFaces+    FontFamilyListFacesMethodInfo           ,     fontFamilyListFaces                     ,  @@ -64,17 +68,52 @@ noFontFamily :: Maybe FontFamily noFontFamily = Nothing +type family ResolveFontFamilyMethod (t :: Symbol) (o :: *) :: * where+    ResolveFontFamilyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFontFamilyMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFontFamilyMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFontFamilyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFontFamilyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFontFamilyMethod "isMonospace" o = FontFamilyIsMonospaceMethodInfo+    ResolveFontFamilyMethod "listFaces" o = FontFamilyListFacesMethodInfo+    ResolveFontFamilyMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFontFamilyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFontFamilyMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFontFamilyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFontFamilyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFontFamilyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFontFamilyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFontFamilyMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFontFamilyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFontFamilyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFontFamilyMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFontFamilyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFontFamilyMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFontFamilyMethod "getName" o = FontFamilyGetNameMethodInfo+    ResolveFontFamilyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFontFamilyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFontFamilyMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFontFamilyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFontFamilyMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFontFamilyMethod t FontFamily, MethodInfo info FontFamily p) => IsLabelProxy t (FontFamily -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFontFamilyMethod t FontFamily, MethodInfo info FontFamily p) => IsLabel t (FontFamily -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList FontFamily = FontFamilyAttributeList type FontFamilyAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList FontFamily = FontFamilySignalList-type FontFamilySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FontFamilySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -86,8 +125,8 @@  fontFamilyGetName ::     (MonadIO m, FontFamilyK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result fontFamilyGetName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_family_get_name _obj'@@ -96,11 +135,14 @@     touchManagedPtr _obj     return result' +data FontFamilyGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FontFamilyK a) => MethodInfo FontFamilyGetNameMethodInfo a signature where+    overloadedMethod _ = fontFamilyGetName+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -112,8 +154,8 @@  fontFamilyIsMonospace ::     (MonadIO m, FontFamilyK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result fontFamilyIsMonospace _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_family_is_monospace _obj'@@ -121,11 +163,14 @@     touchManagedPtr _obj     return result' +data FontFamilyIsMonospaceMethodInfo+instance (signature ~ (m Bool), MonadIO m, FontFamilyK a) => MethodInfo FontFamilyIsMonospaceMethodInfo a signature where+    overloadedMethod _ = fontFamilyIsMonospace+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "faces", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFace"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_faces", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_faces", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -139,21 +184,25 @@  fontFamilyListFaces ::     (MonadIO m, FontFamilyK a) =>-    a ->                                    -- _obj-    m ([FontFace])+    a                                       -- _obj+    -> m ([FontFace])                       -- result 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+    nFaces <- allocMem :: IO (Ptr Int32)+    pango_font_family_list_faces _obj' faces nFaces+    nFaces' <- peek nFaces     faces' <- peek faces-    faces'' <- (unpackPtrArrayWithLength n_faces') faces'+    faces'' <- (unpackPtrArrayWithLength nFaces') faces'     faces''' <- mapM (newObject FontFace) faces''     freeMem faces'     touchManagedPtr _obj     freeMem faces-    freeMem n_faces+    freeMem nFaces     return faces'''++data FontFamilyListFacesMethodInfo+instance (signature ~ (m ([FontFace])), MonadIO m, FontFamilyK a) => MethodInfo FontFamilyListFacesMethodInfo a signature where+    overloadedMethod _ = fontFamilyListFaces  

@@ -11,3 +11,6 @@ instance GObject FontFamily where class GObject o => FontFamilyK o instance (GObject o, IsDescendantOf FontFamily o) => FontFamilyK o+data FontFamilyGetNameMethodInfo+data FontFamilyIsMonospaceMethodInfo+data FontFamilyListFacesMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,30 +18,37 @@   -- * Methods -- ** fontMapChanged+    FontMapChangedMethodInfo                ,     fontMapChanged                          ,   -- ** fontMapCreateContext+    FontMapCreateContextMethodInfo          ,     fontMapCreateContext                    ,   -- ** fontMapGetSerial+    FontMapGetSerialMethodInfo              ,     fontMapGetSerial                        ,   -- ** fontMapGetShapeEngineType+    FontMapGetShapeEngineTypeMethodInfo     ,     fontMapGetShapeEngineType               ,   -- ** fontMapListFamilies+    FontMapListFamiliesMethodInfo           ,     fontMapListFamilies                     ,   -- ** fontMapLoadFont+    FontMapLoadFontMethodInfo               ,     fontMapLoadFont                         ,   -- ** fontMapLoadFontset+    FontMapLoadFontsetMethodInfo            ,     fontMapLoadFontset                      ,  @@ -80,17 +88,56 @@ noFontMap :: Maybe FontMap noFontMap = Nothing +type family ResolveFontMapMethod (t :: Symbol) (o :: *) :: * where+    ResolveFontMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFontMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFontMapMethod "changed" o = FontMapChangedMethodInfo+    ResolveFontMapMethod "createContext" o = FontMapCreateContextMethodInfo+    ResolveFontMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFontMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFontMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFontMapMethod "listFamilies" o = FontMapListFamiliesMethodInfo+    ResolveFontMapMethod "loadFont" o = FontMapLoadFontMethodInfo+    ResolveFontMapMethod "loadFontset" o = FontMapLoadFontsetMethodInfo+    ResolveFontMapMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFontMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFontMapMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFontMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFontMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFontMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFontMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFontMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFontMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFontMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFontMapMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFontMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFontMapMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFontMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFontMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFontMapMethod "getSerial" o = FontMapGetSerialMethodInfo+    ResolveFontMapMethod "getShapeEngineType" o = FontMapGetShapeEngineTypeMethodInfo+    ResolveFontMapMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFontMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFontMapMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFontMapMethod t FontMap, MethodInfo info FontMap p) => IsLabelProxy t (FontMap -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFontMapMethod t FontMap, MethodInfo info FontMap p) => IsLabel t (FontMap -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList FontMap = FontMapAttributeList type FontMapAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList FontMap = FontMapSignalList-type FontMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FontMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -102,19 +149,22 @@  fontMapChanged ::     (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result fontMapChanged _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pango_font_map_changed _obj'     touchManagedPtr _obj     return () +data FontMapChangedMethodInfo+instance (signature ~ (m ()), MonadIO m, FontMapK a) => MethodInfo FontMapChangedMethodInfo a signature where+    overloadedMethod _ = fontMapChanged+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -126,8 +176,8 @@  fontMapCreateContext ::     (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m Context+    a                                       -- _obj+    -> m Context                            -- result fontMapCreateContext _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_map_create_context _obj'@@ -136,11 +186,14 @@     touchManagedPtr _obj     return result' +data FontMapCreateContextMethodInfo+instance (signature ~ (m Context), MonadIO m, FontMapK a) => MethodInfo FontMapCreateContextMethodInfo a signature where+    overloadedMethod _ = fontMapCreateContext+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -152,19 +205,22 @@  fontMapGetSerial ::     (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result fontMapGetSerial _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_map_get_serial _obj'     touchManagedPtr _obj     return result +data FontMapGetSerialMethodInfo+instance (signature ~ (m Word32), MonadIO m, FontMapK a) => MethodInfo FontMapGetSerialMethodInfo a signature where+    overloadedMethod _ = fontMapGetSerial+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -176,8 +232,8 @@ {-# DEPRECATED fontMapGetShapeEngineType ["(Since version 1.38)"]#-} fontMapGetShapeEngineType ::     (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result fontMapGetShapeEngineType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_map_get_shape_engine_type _obj'@@ -186,11 +242,14 @@     touchManagedPtr _obj     return result' +data FontMapGetShapeEngineTypeMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FontMapK a) => MethodInfo FontMapGetShapeEngineTypeMethodInfo a signature where+    overloadedMethod _ = fontMapGetShapeEngineType+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -204,28 +263,31 @@  fontMapListFamilies ::     (MonadIO m, FontMapK a) =>-    a ->                                    -- _obj-    m ([FontFamily])+    a                                       -- _obj+    -> m ([FontFamily])                     -- result 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+    nFamilies <- allocMem :: IO (Ptr Int32)+    pango_font_map_list_families _obj' families nFamilies+    nFamilies' <- peek nFamilies     families' <- peek families-    families'' <- (unpackPtrArrayWithLength n_families') families'+    families'' <- (unpackPtrArrayWithLength nFamilies') families'     families''' <- mapM (newObject FontFamily) families''     freeMem families'     touchManagedPtr _obj     freeMem families-    freeMem n_families+    freeMem nFamilies     return families''' +data FontMapListFamiliesMethodInfo+instance (signature ~ (m ([FontFamily])), MonadIO m, FontMapK a) => MethodInfo FontMapListFamiliesMethodInfo a signature where+    overloadedMethod _ = fontMapListFamilies+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -239,10 +301,10 @@  fontMapLoadFont ::     (MonadIO m, FontMapK a, ContextK b) =>-    a ->                                    -- _obj-    b ->                                    -- context-    FontDescription ->                      -- desc-    m Font+    a                                       -- _obj+    -> b                                    -- context+    -> FontDescription                      -- desc+    -> m Font                               -- result fontMapLoadFont _obj context desc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let context' = unsafeManagedPtrCastPtr context@@ -255,11 +317,14 @@     touchManagedPtr desc     return result' +data FontMapLoadFontMethodInfo+instance (signature ~ (b -> FontDescription -> m Font), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontMethodInfo a signature where+    overloadedMethod _ = fontMapLoadFont+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -274,11 +339,11 @@  fontMapLoadFontset ::     (MonadIO m, FontMapK a, ContextK b) =>-    a ->                                    -- _obj-    b ->                                    -- context-    FontDescription ->                      -- desc-    Language ->                             -- language-    m Fontset+    a                                       -- _obj+    -> b                                    -- context+    -> FontDescription                      -- desc+    -> Language                             -- language+    -> m Fontset                            -- result fontMapLoadFontset _obj context desc language = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let context' = unsafeManagedPtrCastPtr context@@ -292,5 +357,9 @@     touchManagedPtr desc     touchManagedPtr language     return result'++data FontMapLoadFontsetMethodInfo+instance (signature ~ (b -> FontDescription -> Language -> m Fontset), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontsetMethodInfo a signature where+    overloadedMethod _ = fontMapLoadFontset  

@@ -11,3 +11,10 @@ instance GObject FontMap where class GObject o => FontMapK o instance (GObject o, IsDescendantOf FontMap o) => FontMapK o+data FontMapChangedMethodInfo+data FontMapCreateContextMethodInfo+data FontMapGetSerialMethodInfo+data FontMapGetShapeEngineTypeMethodInfo+data FontMapListFamiliesMethodInfo+data FontMapLoadFontMethodInfo+data FontMapLoadFontsetMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,14 +18,17 @@   -- * Methods -- ** fontsetForeach+    FontsetForeachMethodInfo                ,     fontsetForeach                          ,   -- ** fontsetGetFont+    FontsetGetFontMethodInfo                ,     fontsetGetFont                          ,   -- ** fontsetGetMetrics+    FontsetGetMetricsMethodInfo             ,     fontsetGetMetrics                       ,  @@ -64,17 +68,52 @@ noFontset :: Maybe Fontset noFontset = Nothing +type family ResolveFontsetMethod (t :: Symbol) (o :: *) :: * where+    ResolveFontsetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFontsetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFontsetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFontsetMethod "foreach" o = FontsetForeachMethodInfo+    ResolveFontsetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFontsetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFontsetMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFontsetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFontsetMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFontsetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFontsetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFontsetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFontsetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFontsetMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFontsetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFontsetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFontsetMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFontsetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFontsetMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFontsetMethod "getFont" o = FontsetGetFontMethodInfo+    ResolveFontsetMethod "getMetrics" o = FontsetGetMetricsMethodInfo+    ResolveFontsetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFontsetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFontsetMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFontsetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFontsetMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFontsetMethod t Fontset, MethodInfo info Fontset p) => IsLabelProxy t (Fontset -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFontsetMethod t Fontset, MethodInfo info Fontset p) => IsLabel t (Fontset -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Fontset = FontsetAttributeList type FontsetAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Fontset = FontsetSignalList-type FontsetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FontsetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Pango" "FontsetForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -88,9 +127,9 @@  fontsetForeach ::     (MonadIO m, FontsetK a) =>-    a ->                                    -- _obj-    FontsetForeachFunc ->                   -- func-    m ()+    a                                       -- _obj+    -> FontsetForeachFunc                   -- func+    -> m ()                                 -- result fontsetForeach _obj func = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     func' <- mkFontsetForeachFunc (fontsetForeachFuncWrapper Nothing func)@@ -100,11 +139,14 @@     touchManagedPtr _obj     return () +data FontsetForeachMethodInfo+instance (signature ~ (FontsetForeachFunc -> m ()), MonadIO m, FontsetK a) => MethodInfo FontsetForeachMethodInfo a signature where+    overloadedMethod _ = fontsetForeach+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -117,9 +159,9 @@  fontsetGetFont ::     (MonadIO m, FontsetK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- wc-    m Font+    a                                       -- _obj+    -> Word32                               -- wc+    -> m Font                               -- result fontsetGetFont _obj wc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_fontset_get_font _obj' wc@@ -128,11 +170,14 @@     touchManagedPtr _obj     return result' +data FontsetGetFontMethodInfo+instance (signature ~ (Word32 -> m Font), MonadIO m, FontsetK a) => MethodInfo FontsetGetFontMethodInfo a signature where+    overloadedMethod _ = fontsetGetFont+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -144,8 +189,8 @@  fontsetGetMetrics ::     (MonadIO m, FontsetK a) =>-    a ->                                    -- _obj-    m FontMetrics+    a                                       -- _obj+    -> m FontMetrics                        -- result fontsetGetMetrics _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_fontset_get_metrics _obj'@@ -153,5 +198,9 @@     result' <- (wrapBoxed FontMetrics) result     touchManagedPtr _obj     return result'++data FontsetGetMetricsMethodInfo+instance (signature ~ (m FontMetrics), MonadIO m, FontsetK a) => MethodInfo FontsetGetMetricsMethodInfo a signature where+    overloadedMethod _ = fontsetGetMetrics  

@@ -11,3 +11,6 @@ instance GObject Fontset where class GObject o => FontsetK o instance (GObject o, IsDescendantOf Fontset o) => FontsetK o+data FontsetForeachMethodInfo+data FontsetGetFontMethodInfo+data FontsetGetMetricsMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** fontsetSimpleAppend+    FontsetSimpleAppendMethodInfo           ,     fontsetSimpleAppend                     ,  @@ -25,6 +27,7 @@   -- ** fontsetSimpleSize+    FontsetSimpleSizeMethodInfo             ,     fontsetSimpleSize                       ,  @@ -64,17 +67,54 @@ noFontsetSimple :: Maybe FontsetSimple noFontsetSimple = Nothing +type family ResolveFontsetSimpleMethod (t :: Symbol) (o :: *) :: * where+    ResolveFontsetSimpleMethod "append" o = FontsetSimpleAppendMethodInfo+    ResolveFontsetSimpleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFontsetSimpleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFontsetSimpleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFontsetSimpleMethod "foreach" o = FontsetForeachMethodInfo+    ResolveFontsetSimpleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFontsetSimpleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFontsetSimpleMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFontsetSimpleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFontsetSimpleMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFontsetSimpleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFontsetSimpleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFontsetSimpleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFontsetSimpleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFontsetSimpleMethod "size" o = FontsetSimpleSizeMethodInfo+    ResolveFontsetSimpleMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFontsetSimpleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFontsetSimpleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFontsetSimpleMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFontsetSimpleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFontsetSimpleMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFontsetSimpleMethod "getFont" o = FontsetGetFontMethodInfo+    ResolveFontsetSimpleMethod "getMetrics" o = FontsetGetMetricsMethodInfo+    ResolveFontsetSimpleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFontsetSimpleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFontsetSimpleMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFontsetSimpleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFontsetSimpleMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFontsetSimpleMethod t FontsetSimple, MethodInfo info FontsetSimple p) => IsLabelProxy t (FontsetSimple -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFontsetSimpleMethod t FontsetSimple, MethodInfo info FontsetSimple p) => IsLabel t (FontsetSimple -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList FontsetSimple = FontsetSimpleAttributeList type FontsetSimpleAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList FontsetSimple = FontsetSimpleSignalList-type FontsetSimpleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FontsetSimpleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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}]+-- Args : [Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -86,8 +126,8 @@  fontsetSimpleNew ::     (MonadIO m) =>-    Language ->                             -- language-    m FontsetSimple+    Language                                -- language+    -> m FontsetSimple                      -- result fontsetSimpleNew language = liftIO $ do     let language' = unsafeManagedPtrGetPtr language     result <- pango_fontset_simple_new language'@@ -98,9 +138,8 @@  -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -113,9 +152,9 @@  fontsetSimpleAppend ::     (MonadIO m, FontsetSimpleK a, FontK b) =>-    a ->                                    -- _obj-    b ->                                    -- font-    m ()+    a                                       -- _obj+    -> b                                    -- font+    -> m ()                                 -- result fontsetSimpleAppend _obj font = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let font' = unsafeManagedPtrCastPtr font@@ -124,11 +163,14 @@     touchManagedPtr font     return () +data FontsetSimpleAppendMethodInfo+instance (signature ~ (b -> m ()), MonadIO m, FontsetSimpleK a, FontK b) => MethodInfo FontsetSimpleAppendMethodInfo a signature where+    overloadedMethod _ = fontsetSimpleAppend+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -140,12 +182,16 @@  fontsetSimpleSize ::     (MonadIO m, FontsetSimpleK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result fontsetSimpleSize _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_fontset_simple_size _obj'     touchManagedPtr _obj     return result++data FontsetSimpleSizeMethodInfo+instance (signature ~ (m Int32), MonadIO m, FontsetSimpleK a) => MethodInfo FontsetSimpleSizeMethodInfo a signature where+    overloadedMethod _ = fontsetSimpleSize  

@@ -11,3 +11,5 @@ instance GObject FontsetSimple where class GObject o => FontsetSimpleK o instance (GObject o, IsDescendantOf FontsetSimple o) => FontsetSimpleK o+data FontsetSimpleAppendMethodInfo+data FontsetSimpleSizeMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,158 +18,197 @@   -- * Methods -- ** layoutContextChanged+    LayoutContextChangedMethodInfo          ,     layoutContextChanged                    ,   -- ** layoutCopy+    LayoutCopyMethodInfo                    ,     layoutCopy                              ,   -- ** layoutGetAlignment+    LayoutGetAlignmentMethodInfo            ,     layoutGetAlignment                      ,   -- ** layoutGetAttributes+    LayoutGetAttributesMethodInfo           ,     layoutGetAttributes                     ,   -- ** layoutGetAutoDir+    LayoutGetAutoDirMethodInfo              ,     layoutGetAutoDir                        ,   -- ** layoutGetBaseline+    LayoutGetBaselineMethodInfo             ,     layoutGetBaseline                       ,   -- ** layoutGetCharacterCount+    LayoutGetCharacterCountMethodInfo       ,     layoutGetCharacterCount                 ,   -- ** layoutGetContext+    LayoutGetContextMethodInfo              ,     layoutGetContext                        ,   -- ** layoutGetCursorPos+    LayoutGetCursorPosMethodInfo            ,     layoutGetCursorPos                      ,   -- ** layoutGetEllipsize+    LayoutGetEllipsizeMethodInfo            ,     layoutGetEllipsize                      ,   -- ** layoutGetExtents+    LayoutGetExtentsMethodInfo              ,     layoutGetExtents                        ,   -- ** layoutGetFontDescription+    LayoutGetFontDescriptionMethodInfo      ,     layoutGetFontDescription                ,   -- ** layoutGetHeight+    LayoutGetHeightMethodInfo               ,     layoutGetHeight                         ,   -- ** layoutGetIndent+    LayoutGetIndentMethodInfo               ,     layoutGetIndent                         ,   -- ** layoutGetIter+    LayoutGetIterMethodInfo                 ,     layoutGetIter                           ,   -- ** layoutGetJustify+    LayoutGetJustifyMethodInfo              ,     layoutGetJustify                        ,   -- ** layoutGetLine+    LayoutGetLineMethodInfo                 ,     layoutGetLine                           ,   -- ** layoutGetLineCount+    LayoutGetLineCountMethodInfo            ,     layoutGetLineCount                      ,   -- ** layoutGetLineReadonly+    LayoutGetLineReadonlyMethodInfo         ,     layoutGetLineReadonly                   ,   -- ** layoutGetLines+    LayoutGetLinesMethodInfo                ,     layoutGetLines                          ,   -- ** layoutGetLinesReadonly+    LayoutGetLinesReadonlyMethodInfo        ,     layoutGetLinesReadonly                  ,   -- ** layoutGetLogAttrs+    LayoutGetLogAttrsMethodInfo             ,     layoutGetLogAttrs                       ,   -- ** layoutGetLogAttrsReadonly+    LayoutGetLogAttrsReadonlyMethodInfo     ,     layoutGetLogAttrsReadonly               ,   -- ** layoutGetPixelExtents+    LayoutGetPixelExtentsMethodInfo         ,     layoutGetPixelExtents                   ,   -- ** layoutGetPixelSize+    LayoutGetPixelSizeMethodInfo            ,     layoutGetPixelSize                      ,   -- ** layoutGetSerial+    LayoutGetSerialMethodInfo               ,     layoutGetSerial                         ,   -- ** layoutGetSingleParagraphMode+    LayoutGetSingleParagraphModeMethodInfo  ,     layoutGetSingleParagraphMode            ,   -- ** layoutGetSize+    LayoutGetSizeMethodInfo                 ,     layoutGetSize                           ,   -- ** layoutGetSpacing+    LayoutGetSpacingMethodInfo              ,     layoutGetSpacing                        ,   -- ** layoutGetTabs+    LayoutGetTabsMethodInfo                 ,     layoutGetTabs                           ,   -- ** layoutGetText+    LayoutGetTextMethodInfo                 ,     layoutGetText                           ,   -- ** layoutGetUnknownGlyphsCount+    LayoutGetUnknownGlyphsCountMethodInfo   ,     layoutGetUnknownGlyphsCount             ,   -- ** layoutGetWidth+    LayoutGetWidthMethodInfo                ,     layoutGetWidth                          ,   -- ** layoutGetWrap+    LayoutGetWrapMethodInfo                 ,     layoutGetWrap                           ,   -- ** layoutIndexToLineX+    LayoutIndexToLineXMethodInfo            ,     layoutIndexToLineX                      ,   -- ** layoutIndexToPos+    LayoutIndexToPosMethodInfo              ,     layoutIndexToPos                        ,   -- ** layoutIsEllipsized+    LayoutIsEllipsizedMethodInfo            ,     layoutIsEllipsized                      ,   -- ** layoutIsWrapped+    LayoutIsWrappedMethodInfo               ,     layoutIsWrapped                         ,   -- ** layoutMoveCursorVisually+    LayoutMoveCursorVisuallyMethodInfo      ,     layoutMoveCursorVisually                ,  @@ -177,70 +217,87 @@   -- ** layoutSetAlignment+    LayoutSetAlignmentMethodInfo            ,     layoutSetAlignment                      ,   -- ** layoutSetAttributes+    LayoutSetAttributesMethodInfo           ,     layoutSetAttributes                     ,   -- ** layoutSetAutoDir+    LayoutSetAutoDirMethodInfo              ,     layoutSetAutoDir                        ,   -- ** layoutSetEllipsize+    LayoutSetEllipsizeMethodInfo            ,     layoutSetEllipsize                      ,   -- ** layoutSetFontDescription+    LayoutSetFontDescriptionMethodInfo      ,     layoutSetFontDescription                ,   -- ** layoutSetHeight+    LayoutSetHeightMethodInfo               ,     layoutSetHeight                         ,   -- ** layoutSetIndent+    LayoutSetIndentMethodInfo               ,     layoutSetIndent                         ,   -- ** layoutSetJustify+    LayoutSetJustifyMethodInfo              ,     layoutSetJustify                        ,   -- ** layoutSetMarkup+    LayoutSetMarkupMethodInfo               ,     layoutSetMarkup                         ,   -- ** layoutSetMarkupWithAccel+    LayoutSetMarkupWithAccelMethodInfo      ,     layoutSetMarkupWithAccel                ,   -- ** layoutSetSingleParagraphMode+    LayoutSetSingleParagraphModeMethodInfo  ,     layoutSetSingleParagraphMode            ,   -- ** layoutSetSpacing+    LayoutSetSpacingMethodInfo              ,     layoutSetSpacing                        ,   -- ** layoutSetTabs+    LayoutSetTabsMethodInfo                 ,     layoutSetTabs                           ,   -- ** layoutSetText+    LayoutSetTextMethodInfo                 ,     layoutSetText                           ,   -- ** layoutSetWidth+    LayoutSetWidthMethodInfo                ,     layoutSetWidth                          ,   -- ** layoutSetWrap+    LayoutSetWrapMethodInfo                 ,     layoutSetWrap                           ,   -- ** layoutXyToIndex+    LayoutXyToIndexMethodInfo               ,     layoutXyToIndex                         ,  @@ -280,17 +337,105 @@ noLayout :: Maybe Layout noLayout = Nothing +type family ResolveLayoutMethod (t :: Symbol) (o :: *) :: * where+    ResolveLayoutMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveLayoutMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveLayoutMethod "contextChanged" o = LayoutContextChangedMethodInfo+    ResolveLayoutMethod "copy" o = LayoutCopyMethodInfo+    ResolveLayoutMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveLayoutMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveLayoutMethod "indexToLineX" o = LayoutIndexToLineXMethodInfo+    ResolveLayoutMethod "indexToPos" o = LayoutIndexToPosMethodInfo+    ResolveLayoutMethod "isEllipsized" o = LayoutIsEllipsizedMethodInfo+    ResolveLayoutMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveLayoutMethod "isWrapped" o = LayoutIsWrappedMethodInfo+    ResolveLayoutMethod "moveCursorVisually" o = LayoutMoveCursorVisuallyMethodInfo+    ResolveLayoutMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveLayoutMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveLayoutMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveLayoutMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveLayoutMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveLayoutMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveLayoutMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveLayoutMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveLayoutMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveLayoutMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveLayoutMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveLayoutMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveLayoutMethod "xyToIndex" o = LayoutXyToIndexMethodInfo+    ResolveLayoutMethod "getAlignment" o = LayoutGetAlignmentMethodInfo+    ResolveLayoutMethod "getAttributes" o = LayoutGetAttributesMethodInfo+    ResolveLayoutMethod "getAutoDir" o = LayoutGetAutoDirMethodInfo+    ResolveLayoutMethod "getBaseline" o = LayoutGetBaselineMethodInfo+    ResolveLayoutMethod "getCharacterCount" o = LayoutGetCharacterCountMethodInfo+    ResolveLayoutMethod "getContext" o = LayoutGetContextMethodInfo+    ResolveLayoutMethod "getCursorPos" o = LayoutGetCursorPosMethodInfo+    ResolveLayoutMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveLayoutMethod "getEllipsize" o = LayoutGetEllipsizeMethodInfo+    ResolveLayoutMethod "getExtents" o = LayoutGetExtentsMethodInfo+    ResolveLayoutMethod "getFontDescription" o = LayoutGetFontDescriptionMethodInfo+    ResolveLayoutMethod "getHeight" o = LayoutGetHeightMethodInfo+    ResolveLayoutMethod "getIndent" o = LayoutGetIndentMethodInfo+    ResolveLayoutMethod "getIter" o = LayoutGetIterMethodInfo+    ResolveLayoutMethod "getJustify" o = LayoutGetJustifyMethodInfo+    ResolveLayoutMethod "getLine" o = LayoutGetLineMethodInfo+    ResolveLayoutMethod "getLineCount" o = LayoutGetLineCountMethodInfo+    ResolveLayoutMethod "getLineReadonly" o = LayoutGetLineReadonlyMethodInfo+    ResolveLayoutMethod "getLines" o = LayoutGetLinesMethodInfo+    ResolveLayoutMethod "getLinesReadonly" o = LayoutGetLinesReadonlyMethodInfo+    ResolveLayoutMethod "getLogAttrs" o = LayoutGetLogAttrsMethodInfo+    ResolveLayoutMethod "getLogAttrsReadonly" o = LayoutGetLogAttrsReadonlyMethodInfo+    ResolveLayoutMethod "getPixelExtents" o = LayoutGetPixelExtentsMethodInfo+    ResolveLayoutMethod "getPixelSize" o = LayoutGetPixelSizeMethodInfo+    ResolveLayoutMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveLayoutMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveLayoutMethod "getSerial" o = LayoutGetSerialMethodInfo+    ResolveLayoutMethod "getSingleParagraphMode" o = LayoutGetSingleParagraphModeMethodInfo+    ResolveLayoutMethod "getSize" o = LayoutGetSizeMethodInfo+    ResolveLayoutMethod "getSpacing" o = LayoutGetSpacingMethodInfo+    ResolveLayoutMethod "getTabs" o = LayoutGetTabsMethodInfo+    ResolveLayoutMethod "getText" o = LayoutGetTextMethodInfo+    ResolveLayoutMethod "getUnknownGlyphsCount" o = LayoutGetUnknownGlyphsCountMethodInfo+    ResolveLayoutMethod "getWidth" o = LayoutGetWidthMethodInfo+    ResolveLayoutMethod "getWrap" o = LayoutGetWrapMethodInfo+    ResolveLayoutMethod "setAlignment" o = LayoutSetAlignmentMethodInfo+    ResolveLayoutMethod "setAttributes" o = LayoutSetAttributesMethodInfo+    ResolveLayoutMethod "setAutoDir" o = LayoutSetAutoDirMethodInfo+    ResolveLayoutMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveLayoutMethod "setEllipsize" o = LayoutSetEllipsizeMethodInfo+    ResolveLayoutMethod "setFontDescription" o = LayoutSetFontDescriptionMethodInfo+    ResolveLayoutMethod "setHeight" o = LayoutSetHeightMethodInfo+    ResolveLayoutMethod "setIndent" o = LayoutSetIndentMethodInfo+    ResolveLayoutMethod "setJustify" o = LayoutSetJustifyMethodInfo+    ResolveLayoutMethod "setMarkup" o = LayoutSetMarkupMethodInfo+    ResolveLayoutMethod "setMarkupWithAccel" o = LayoutSetMarkupWithAccelMethodInfo+    ResolveLayoutMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveLayoutMethod "setSingleParagraphMode" o = LayoutSetSingleParagraphModeMethodInfo+    ResolveLayoutMethod "setSpacing" o = LayoutSetSpacingMethodInfo+    ResolveLayoutMethod "setTabs" o = LayoutSetTabsMethodInfo+    ResolveLayoutMethod "setText" o = LayoutSetTextMethodInfo+    ResolveLayoutMethod "setWidth" o = LayoutSetWidthMethodInfo+    ResolveLayoutMethod "setWrap" o = LayoutSetWrapMethodInfo+    ResolveLayoutMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabelProxy t (Layout -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabel t (Layout -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Layout = LayoutAttributeList type LayoutAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Layout = LayoutSignalList-type LayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type LayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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}]+-- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -302,8 +447,8 @@  layoutNew ::     (MonadIO m, ContextK a) =>-    a ->                                    -- context-    m Layout+    a                                       -- context+    -> m Layout                             -- result layoutNew context = liftIO $ do     let context' = unsafeManagedPtrCastPtr context     result <- pango_layout_new context'@@ -314,9 +459,8 @@  -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -328,19 +472,22 @@  layoutContextChanged ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result layoutContextChanged _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pango_layout_context_changed _obj'     touchManagedPtr _obj     return () +data LayoutContextChangedMethodInfo+instance (signature ~ (m ()), MonadIO m, LayoutK a) => MethodInfo LayoutContextChangedMethodInfo a signature where+    overloadedMethod _ = layoutContextChanged+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -352,8 +499,8 @@  layoutCopy ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Layout+    a                                       -- _obj+    -> m Layout                             -- result layoutCopy _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_copy _obj'@@ -362,11 +509,14 @@     touchManagedPtr _obj     return result' +data LayoutCopyMethodInfo+instance (signature ~ (m Layout), MonadIO m, LayoutK a) => MethodInfo LayoutCopyMethodInfo a signature where+    overloadedMethod _ = layoutCopy+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -378,8 +528,8 @@  layoutGetAlignment ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Alignment+    a                                       -- _obj+    -> m Alignment                          -- result layoutGetAlignment _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_alignment _obj'@@ -387,11 +537,14 @@     touchManagedPtr _obj     return result' +data LayoutGetAlignmentMethodInfo+instance (signature ~ (m Alignment), MonadIO m, LayoutK a) => MethodInfo LayoutGetAlignmentMethodInfo a signature where+    overloadedMethod _ = layoutGetAlignment+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -403,8 +556,8 @@  layoutGetAttributes ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m AttrList+    a                                       -- _obj+    -> m AttrList                           -- result layoutGetAttributes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_attributes _obj'@@ -413,11 +566,14 @@     touchManagedPtr _obj     return result' +data LayoutGetAttributesMethodInfo+instance (signature ~ (m AttrList), MonadIO m, LayoutK a) => MethodInfo LayoutGetAttributesMethodInfo a signature where+    overloadedMethod _ = layoutGetAttributes+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -429,8 +585,8 @@  layoutGetAutoDir ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result layoutGetAutoDir _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_auto_dir _obj'@@ -438,11 +594,14 @@     touchManagedPtr _obj     return result' +data LayoutGetAutoDirMethodInfo+instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutGetAutoDirMethodInfo a signature where+    overloadedMethod _ = layoutGetAutoDir+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -454,19 +613,22 @@  layoutGetBaseline ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetBaseline _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_baseline _obj'     touchManagedPtr _obj     return result +data LayoutGetBaselineMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetBaselineMethodInfo a signature where+    overloadedMethod _ = layoutGetBaseline+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -478,19 +640,22 @@  layoutGetCharacterCount ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetCharacterCount _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_character_count _obj'     touchManagedPtr _obj     return result +data LayoutGetCharacterCountMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetCharacterCountMethodInfo a signature where+    overloadedMethod _ = layoutGetCharacterCount+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -502,8 +667,8 @@  layoutGetContext ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Context+    a                                       -- _obj+    -> m Context                            -- result layoutGetContext _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_context _obj'@@ -512,11 +677,14 @@     touchManagedPtr _obj     return result' +data LayoutGetContextMethodInfo+instance (signature ~ (m Context), MonadIO m, LayoutK a) => MethodInfo LayoutGetContextMethodInfo a signature where+    overloadedMethod _ = layoutGetContext+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strong_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "weak_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -531,24 +699,27 @@  layoutGetCursorPos ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m (Rectangle,Rectangle)-layoutGetCursorPos _obj index_ = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- index+    -> m (Rectangle,Rectangle)              -- result+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+    strongPos <- callocBytes 16 :: IO (Ptr Rectangle)+    weakPos <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_get_cursor_pos _obj' index strongPos weakPos+    strongPos' <- (wrapPtr Rectangle) strongPos+    weakPos' <- (wrapPtr Rectangle) weakPos     touchManagedPtr _obj-    return (strong_pos', weak_pos')+    return (strongPos', weakPos') +data LayoutGetCursorPosMethodInfo+instance (signature ~ (Int32 -> m (Rectangle,Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutGetCursorPosMethodInfo a signature where+    overloadedMethod _ = layoutGetCursorPos+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -560,8 +731,8 @@  layoutGetEllipsize ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m EllipsizeMode+    a                                       -- _obj+    -> m EllipsizeMode                      -- result layoutGetEllipsize _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_ellipsize _obj'@@ -569,11 +740,14 @@     touchManagedPtr _obj     return result' +data LayoutGetEllipsizeMethodInfo+instance (signature ~ (m EllipsizeMode), MonadIO m, LayoutK a) => MethodInfo LayoutGetEllipsizeMethodInfo a signature where+    overloadedMethod _ = layoutGetEllipsize+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -587,23 +761,26 @@  layoutGetExtents ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Rectangle,Rectangle)+    a                                       -- _obj+    -> m (Rectangle,Rectangle)              -- result 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+    inkRect <- callocBytes 16 :: IO (Ptr Rectangle)+    logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_get_extents _obj' inkRect logicalRect+    inkRect' <- (wrapPtr Rectangle) inkRect+    logicalRect' <- (wrapPtr Rectangle) logicalRect     touchManagedPtr _obj-    return (ink_rect', logical_rect')+    return (inkRect', logicalRect') +data LayoutGetExtentsMethodInfo+instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutGetExtentsMethodInfo a signature where+    overloadedMethod _ = layoutGetExtents+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -615,8 +792,8 @@  layoutGetFontDescription ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m FontDescription+    a                                       -- _obj+    -> m FontDescription                    -- result layoutGetFontDescription _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_font_description _obj'@@ -625,11 +802,14 @@     touchManagedPtr _obj     return result' +data LayoutGetFontDescriptionMethodInfo+instance (signature ~ (m FontDescription), MonadIO m, LayoutK a) => MethodInfo LayoutGetFontDescriptionMethodInfo a signature where+    overloadedMethod _ = layoutGetFontDescription+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -641,19 +821,22 @@  layoutGetHeight ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetHeight _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_height _obj'     touchManagedPtr _obj     return result +data LayoutGetHeightMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetHeightMethodInfo a signature where+    overloadedMethod _ = layoutGetHeight+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -665,19 +848,22 @@  layoutGetIndent ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetIndent _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_indent _obj'     touchManagedPtr _obj     return result +data LayoutGetIndentMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetIndentMethodInfo a signature where+    overloadedMethod _ = layoutGetIndent+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -689,8 +875,8 @@  layoutGetIter ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m LayoutIter+    a                                       -- _obj+    -> m LayoutIter                         -- result layoutGetIter _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_iter _obj'@@ -699,11 +885,14 @@     touchManagedPtr _obj     return result' +data LayoutGetIterMethodInfo+instance (signature ~ (m LayoutIter), MonadIO m, LayoutK a) => MethodInfo LayoutGetIterMethodInfo a signature where+    overloadedMethod _ = layoutGetIter+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -715,8 +904,8 @@  layoutGetJustify ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result layoutGetJustify _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_justify _obj'@@ -724,11 +913,14 @@     touchManagedPtr _obj     return result' +data LayoutGetJustifyMethodInfo+instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutGetJustifyMethodInfo a signature where+    overloadedMethod _ = layoutGetJustify+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -741,9 +933,9 @@  layoutGetLine ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- line-    m LayoutLine+    a                                       -- _obj+    -> Int32                                -- line+    -> m LayoutLine                         -- result layoutGetLine _obj line = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_line _obj' line@@ -752,11 +944,14 @@     touchManagedPtr _obj     return result' +data LayoutGetLineMethodInfo+instance (signature ~ (Int32 -> m LayoutLine), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineMethodInfo a signature where+    overloadedMethod _ = layoutGetLine+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -768,19 +963,22 @@  layoutGetLineCount ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetLineCount _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_line_count _obj'     touchManagedPtr _obj     return result +data LayoutGetLineCountMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineCountMethodInfo a signature where+    overloadedMethod _ = layoutGetLineCount+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -793,9 +991,9 @@  layoutGetLineReadonly ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- line-    m LayoutLine+    a                                       -- _obj+    -> Int32                                -- line+    -> m LayoutLine                         -- result layoutGetLineReadonly _obj line = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_line_readonly _obj' line@@ -804,11 +1002,14 @@     touchManagedPtr _obj     return result' +data LayoutGetLineReadonlyMethodInfo+instance (signature ~ (Int32 -> m LayoutLine), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineReadonlyMethodInfo a signature where+    overloadedMethod _ = layoutGetLineReadonly+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -820,8 +1021,8 @@  layoutGetLines ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m [LayoutLine]+    a                                       -- _obj+    -> m [LayoutLine]                       -- result layoutGetLines _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_lines _obj'@@ -831,11 +1032,14 @@     touchManagedPtr _obj     return result'' +data LayoutGetLinesMethodInfo+instance (signature ~ (m [LayoutLine]), MonadIO m, LayoutK a) => MethodInfo LayoutGetLinesMethodInfo a signature where+    overloadedMethod _ = layoutGetLines+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -847,8 +1051,8 @@  layoutGetLinesReadonly ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m [LayoutLine]+    a                                       -- _obj+    -> m [LayoutLine]                       -- result layoutGetLinesReadonly _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_lines_readonly _obj'@@ -858,11 +1062,14 @@     touchManagedPtr _obj     return result'' +data LayoutGetLinesReadonlyMethodInfo+instance (signature ~ (m [LayoutLine]), MonadIO m, LayoutK a) => MethodInfo LayoutGetLinesReadonlyMethodInfo a signature where+    overloadedMethod _ = layoutGetLinesReadonly+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TCArray False (-1) 2 (TInterface "Pango" "LogAttr"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -876,28 +1083,31 @@  layoutGetLogAttrs ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m ([LogAttr])+    a                                       -- _obj+    -> m ([LogAttr])                        -- result 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+    nAttrs <- allocMem :: IO (Ptr Int32)+    pango_layout_get_log_attrs _obj' attrs nAttrs+    nAttrs' <- peek nAttrs     attrs' <- peek attrs-    attrs'' <- (unpackBlockArrayWithLength 52 n_attrs') attrs'+    attrs'' <- (unpackBlockArrayWithLength 52 nAttrs') attrs'     attrs''' <- mapM (newPtr 52 LogAttr) attrs''     freeMem attrs'     touchManagedPtr _obj     freeMem attrs-    freeMem n_attrs+    freeMem nAttrs     return attrs''' +data LayoutGetLogAttrsMethodInfo+instance (signature ~ (m ([LogAttr])), MonadIO m, LayoutK a) => MethodInfo LayoutGetLogAttrsMethodInfo a signature where+    overloadedMethod _ = layoutGetLogAttrs+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_attrs", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- returnType : TCArray False (-1) 1 (TInterface "Pango" "LogAttr") -- throws : False -- Skip return : False@@ -910,25 +1120,28 @@  layoutGetLogAttrsReadonly ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m [LogAttr]+    a                                       -- _obj+    -> m [LogAttr]                          -- result 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+    nAttrs <- allocMem :: IO (Ptr Int32)+    result <- pango_layout_get_log_attrs_readonly _obj' nAttrs+    nAttrs' <- peek nAttrs     checkUnexpectedReturnNULL "pango_layout_get_log_attrs_readonly" result-    result' <- (unpackBlockArrayWithLength 52 n_attrs') result+    result' <- (unpackBlockArrayWithLength 52 nAttrs') result     result'' <- mapM (newPtr 52 LogAttr) result'     touchManagedPtr _obj-    freeMem n_attrs+    freeMem nAttrs     return result'' +data LayoutGetLogAttrsReadonlyMethodInfo+instance (signature ~ (m [LogAttr]), MonadIO m, LayoutK a) => MethodInfo LayoutGetLogAttrsReadonlyMethodInfo a signature where+    overloadedMethod _ = layoutGetLogAttrsReadonly+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -942,23 +1155,26 @@  layoutGetPixelExtents ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Rectangle,Rectangle)+    a                                       -- _obj+    -> m (Rectangle,Rectangle)              -- result 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+    inkRect <- callocBytes 16 :: IO (Ptr Rectangle)+    logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)+    pango_layout_get_pixel_extents _obj' inkRect logicalRect+    inkRect' <- (wrapPtr Rectangle) inkRect+    logicalRect' <- (wrapPtr Rectangle) logicalRect     touchManagedPtr _obj-    return (ink_rect', logical_rect')+    return (inkRect', logicalRect') +data LayoutGetPixelExtentsMethodInfo+instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutGetPixelExtentsMethodInfo a signature where+    overloadedMethod _ = layoutGetPixelExtents+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- 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@@ -972,8 +1188,8 @@  layoutGetPixelSize ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Int32,Int32)+    a                                       -- _obj+    -> m (Int32,Int32)                      -- result layoutGetPixelSize _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     width <- allocMem :: IO (Ptr Int32)@@ -986,11 +1202,14 @@     freeMem height     return (width', height') +data LayoutGetPixelSizeMethodInfo+instance (signature ~ (m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutGetPixelSizeMethodInfo a signature where+    overloadedMethod _ = layoutGetPixelSize+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1002,19 +1221,22 @@  layoutGetSerial ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result layoutGetSerial _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_serial _obj'     touchManagedPtr _obj     return result +data LayoutGetSerialMethodInfo+instance (signature ~ (m Word32), MonadIO m, LayoutK a) => MethodInfo LayoutGetSerialMethodInfo a signature where+    overloadedMethod _ = layoutGetSerial+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1026,8 +1248,8 @@  layoutGetSingleParagraphMode ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result layoutGetSingleParagraphMode _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_single_paragraph_mode _obj'@@ -1035,11 +1257,14 @@     touchManagedPtr _obj     return result' +data LayoutGetSingleParagraphModeMethodInfo+instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutGetSingleParagraphModeMethodInfo a signature where+    overloadedMethod _ = layoutGetSingleParagraphMode+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -1053,8 +1278,8 @@  layoutGetSize ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m (Int32,Int32)+    a                                       -- _obj+    -> m (Int32,Int32)                      -- result layoutGetSize _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     width <- allocMem :: IO (Ptr Int32)@@ -1067,11 +1292,14 @@     freeMem height     return (width', height') +data LayoutGetSizeMethodInfo+instance (signature ~ (m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutGetSizeMethodInfo a signature where+    overloadedMethod _ = layoutGetSize+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1083,19 +1311,22 @@  layoutGetSpacing ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetSpacing _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_spacing _obj'     touchManagedPtr _obj     return result +data LayoutGetSpacingMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetSpacingMethodInfo a signature where+    overloadedMethod _ = layoutGetSpacing+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1107,8 +1338,8 @@  layoutGetTabs ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m TabArray+    a                                       -- _obj+    -> m TabArray                           -- result layoutGetTabs _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_tabs _obj'@@ -1117,11 +1348,14 @@     touchManagedPtr _obj     return result' +data LayoutGetTabsMethodInfo+instance (signature ~ (m TabArray), MonadIO m, LayoutK a) => MethodInfo LayoutGetTabsMethodInfo a signature where+    overloadedMethod _ = layoutGetTabs+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1133,8 +1367,8 @@  layoutGetText ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result layoutGetText _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_text _obj'@@ -1143,11 +1377,14 @@     touchManagedPtr _obj     return result' +data LayoutGetTextMethodInfo+instance (signature ~ (m T.Text), MonadIO m, LayoutK a) => MethodInfo LayoutGetTextMethodInfo a signature where+    overloadedMethod _ = layoutGetText+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1159,19 +1396,22 @@  layoutGetUnknownGlyphsCount ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetUnknownGlyphsCount _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_unknown_glyphs_count _obj'     touchManagedPtr _obj     return result +data LayoutGetUnknownGlyphsCountMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetUnknownGlyphsCountMethodInfo a signature where+    overloadedMethod _ = layoutGetUnknownGlyphsCount+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1183,19 +1423,22 @@  layoutGetWidth ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layoutGetWidth _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_width _obj'     touchManagedPtr _obj     return result +data LayoutGetWidthMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetWidthMethodInfo a signature where+    overloadedMethod _ = layoutGetWidth+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1207,8 +1450,8 @@  layoutGetWrap ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m WrapMode+    a                                       -- _obj+    -> m WrapMode                           -- result layoutGetWrap _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_wrap _obj'@@ -1216,11 +1459,14 @@     touchManagedPtr _obj     return result' +data LayoutGetWrapMethodInfo+instance (signature ~ (m WrapMode), MonadIO m, LayoutK a) => MethodInfo LayoutGetWrapMethodInfo a signature where+    overloadedMethod _ = layoutGetWrap+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "x_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1236,28 +1482,31 @@  layoutIndexToLineX ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    Bool ->                                 -- trailing-    m (Int32,Int32)-layoutIndexToLineX _obj index_ trailing = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- index+    -> Bool                                 -- trailing+    -> m (Int32,Int32)                      -- result+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+    xPos <- allocMem :: IO (Ptr Int32)+    pango_layout_index_to_line_x _obj' index trailing' line xPos     line' <- peek line-    x_pos' <- peek x_pos+    xPos' <- peek xPos     touchManagedPtr _obj     freeMem line-    freeMem x_pos-    return (line', x_pos')+    freeMem xPos+    return (line', xPos') +data LayoutIndexToLineXMethodInfo+instance (signature ~ (Int32 -> Bool -> m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutIndexToLineXMethodInfo a signature where+    overloadedMethod _ = layoutIndexToLineX+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -1271,22 +1520,25 @@  layoutIndexToPos ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index_-    m (Rectangle)-layoutIndexToPos _obj index_ = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- index+    -> m (Rectangle)                        -- result+layoutIndexToPos _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pos <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_index_to_pos _obj' index_ pos+    pango_layout_index_to_pos _obj' index pos     pos' <- (wrapPtr Rectangle) pos     touchManagedPtr _obj     return pos' +data LayoutIndexToPosMethodInfo+instance (signature ~ (Int32 -> m (Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutIndexToPosMethodInfo a signature where+    overloadedMethod _ = layoutIndexToPos+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1298,8 +1550,8 @@  layoutIsEllipsized ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result layoutIsEllipsized _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_is_ellipsized _obj'@@ -1307,11 +1559,14 @@     touchManagedPtr _obj     return result' +data LayoutIsEllipsizedMethodInfo+instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutIsEllipsizedMethodInfo a signature where+    overloadedMethod _ = layoutIsEllipsized+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1323,8 +1578,8 @@  layoutIsWrapped ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result layoutIsWrapped _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_is_wrapped _obj'@@ -1332,11 +1587,14 @@     touchManagedPtr _obj     return result' +data LayoutIsWrappedMethodInfo+instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutIsWrappedMethodInfo a signature where+    overloadedMethod _ = layoutIsWrapped+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strong", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_trailing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_index", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "new_trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1354,30 +1612,33 @@  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+    a                                       -- _obj+    -> Bool                                 -- strong+    -> Int32                                -- oldIndex+    -> Int32                                -- oldTrailing+    -> Int32                                -- direction+    -> m (Int32,Int32)                      -- result+layoutMoveCursorVisually _obj strong oldIndex oldTrailing 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+    newIndex <- allocMem :: IO (Ptr Int32)+    newTrailing <- allocMem :: IO (Ptr Int32)+    pango_layout_move_cursor_visually _obj' strong' oldIndex oldTrailing direction newIndex newTrailing+    newIndex' <- peek newIndex+    newTrailing' <- peek newTrailing     touchManagedPtr _obj-    freeMem new_index-    freeMem new_trailing-    return (new_index', new_trailing')+    freeMem newIndex+    freeMem newTrailing+    return (newIndex', newTrailing') +data LayoutMoveCursorVisuallyMethodInfo+instance (signature ~ (Bool -> Int32 -> Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutMoveCursorVisuallyMethodInfo a signature where+    overloadedMethod _ = layoutMoveCursorVisually+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignment", argType = TInterface "Pango" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1390,9 +1651,9 @@  layoutSetAlignment ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Alignment ->                            -- alignment-    m ()+    a                                       -- _obj+    -> Alignment                            -- alignment+    -> m ()                                 -- result layoutSetAlignment _obj alignment = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let alignment' = (fromIntegral . fromEnum) alignment@@ -1400,11 +1661,14 @@     touchManagedPtr _obj     return () +data LayoutSetAlignmentMethodInfo+instance (signature ~ (Alignment -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetAlignmentMethodInfo a signature where+    overloadedMethod _ = layoutSetAlignment+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1417,9 +1681,9 @@  layoutSetAttributes ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Maybe (AttrList) ->                     -- attrs-    m ()+    a                                       -- _obj+    -> Maybe (AttrList)                     -- attrs+    -> m ()                                 -- result layoutSetAttributes _obj attrs = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeAttrs <- case attrs of@@ -1432,11 +1696,14 @@     whenJust attrs touchManagedPtr     return () +data LayoutSetAttributesMethodInfo+instance (signature ~ (Maybe (AttrList) -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetAttributesMethodInfo a signature where+    overloadedMethod _ = layoutSetAttributes+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_dir", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1449,21 +1716,24 @@  layoutSetAutoDir ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- auto_dir-    m ()-layoutSetAutoDir _obj auto_dir = liftIO $ do+    a                                       -- _obj+    -> Bool                                 -- autoDir+    -> m ()                                 -- result+layoutSetAutoDir _obj autoDir = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let auto_dir' = (fromIntegral . fromEnum) auto_dir-    pango_layout_set_auto_dir _obj' auto_dir'+    let autoDir' = (fromIntegral . fromEnum) autoDir+    pango_layout_set_auto_dir _obj' autoDir'     touchManagedPtr _obj     return () +data LayoutSetAutoDirMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetAutoDirMethodInfo a signature where+    overloadedMethod _ = layoutSetAutoDir+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1476,9 +1746,9 @@  layoutSetEllipsize ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    EllipsizeMode ->                        -- ellipsize-    m ()+    a                                       -- _obj+    -> EllipsizeMode                        -- ellipsize+    -> m ()                                 -- result layoutSetEllipsize _obj ellipsize = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let ellipsize' = (fromIntegral . fromEnum) ellipsize@@ -1486,11 +1756,14 @@     touchManagedPtr _obj     return () +data LayoutSetEllipsizeMethodInfo+instance (signature ~ (EllipsizeMode -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetEllipsizeMethodInfo a signature where+    overloadedMethod _ = layoutSetEllipsize+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1503,9 +1776,9 @@  layoutSetFontDescription ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Maybe (FontDescription) ->              -- desc-    m ()+    a                                       -- _obj+    -> Maybe (FontDescription)              -- desc+    -> m ()                                 -- result layoutSetFontDescription _obj desc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeDesc <- case desc of@@ -1518,11 +1791,14 @@     whenJust desc touchManagedPtr     return () +data LayoutSetFontDescriptionMethodInfo+instance (signature ~ (Maybe (FontDescription) -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetFontDescriptionMethodInfo a signature where+    overloadedMethod _ = layoutSetFontDescription+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- 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@@ -1535,20 +1811,23 @@  layoutSetHeight ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- height-    m ()+    a                                       -- _obj+    -> Int32                                -- height+    -> m ()                                 -- result layoutSetHeight _obj height = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pango_layout_set_height _obj' height     touchManagedPtr _obj     return () +data LayoutSetHeightMethodInfo+instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetHeightMethodInfo a signature where+    overloadedMethod _ = layoutSetHeight+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1561,20 +1840,23 @@  layoutSetIndent ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- indent-    m ()+    a                                       -- _obj+    -> Int32                                -- indent+    -> m ()                                 -- result layoutSetIndent _obj indent = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pango_layout_set_indent _obj' indent     touchManagedPtr _obj     return () +data LayoutSetIndentMethodInfo+instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetIndentMethodInfo a signature where+    overloadedMethod _ = layoutSetIndent+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "justify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1587,9 +1869,9 @@  layoutSetJustify ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- justify-    m ()+    a                                       -- _obj+    -> Bool                                 -- justify+    -> m ()                                 -- result layoutSetJustify _obj justify = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let justify' = (fromIntegral . fromEnum) justify@@ -1597,11 +1879,14 @@     touchManagedPtr _obj     return () +data LayoutSetJustifyMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetJustifyMethodInfo a signature where+    overloadedMethod _ = layoutSetJustify+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1615,10 +1900,10 @@  layoutSetMarkup ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- markup-    Int32 ->                                -- length-    m ()+    a                                       -- _obj+    -> T.Text                               -- markup+    -> Int32                                -- length_+    -> m ()                                 -- result layoutSetMarkup _obj markup length_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     markup' <- textToCString markup@@ -1627,11 +1912,14 @@     freeMem markup'     return () +data LayoutSetMarkupMethodInfo+instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetMarkupMethodInfo a signature where+    overloadedMethod _ = layoutSetMarkup+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, 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@@ -1647,29 +1935,32 @@  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+    a                                       -- _obj+    -> T.Text                               -- markup+    -> Int32                                -- length_+    -> Char                                 -- accelMarker+    -> m (Char)                             -- result+layoutSetMarkupWithAccel _obj markup length_ accelMarker = 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'+    let accelMarker' = (fromIntegral . ord) accelMarker+    accelChar <- allocMem :: IO (Ptr CInt)+    pango_layout_set_markup_with_accel _obj' markup' length_ accelMarker' accelChar+    accelChar' <- peek accelChar+    let accelChar'' = (chr . fromIntegral) accelChar'     touchManagedPtr _obj     freeMem markup'-    freeMem accel_char-    return accel_char''+    freeMem accelChar+    return accelChar'' +data LayoutSetMarkupWithAccelMethodInfo+instance (signature ~ (T.Text -> Int32 -> Char -> m (Char)), MonadIO m, LayoutK a) => MethodInfo LayoutSetMarkupWithAccelMethodInfo a signature where+    overloadedMethod _ = layoutSetMarkupWithAccel+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1682,9 +1973,9 @@  layoutSetSingleParagraphMode ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- setting-    m ()+    a                                       -- _obj+    -> Bool                                 -- setting+    -> m ()                                 -- result layoutSetSingleParagraphMode _obj setting = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let setting' = (fromIntegral . fromEnum) setting@@ -1692,11 +1983,14 @@     touchManagedPtr _obj     return () +data LayoutSetSingleParagraphModeMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetSingleParagraphModeMethodInfo a signature where+    overloadedMethod _ = layoutSetSingleParagraphMode+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1709,20 +2003,23 @@  layoutSetSpacing ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- spacing-    m ()+    a                                       -- _obj+    -> Int32                                -- spacing+    -> m ()                                 -- result layoutSetSpacing _obj spacing = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pango_layout_set_spacing _obj' spacing     touchManagedPtr _obj     return () +data LayoutSetSpacingMethodInfo+instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetSpacingMethodInfo a signature where+    overloadedMethod _ = layoutSetSpacing+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1735,9 +2032,9 @@  layoutSetTabs ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Maybe (TabArray) ->                     -- tabs-    m ()+    a                                       -- _obj+    -> Maybe (TabArray)                     -- tabs+    -> m ()                                 -- result layoutSetTabs _obj tabs = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeTabs <- case tabs of@@ -1750,11 +2047,14 @@     whenJust tabs touchManagedPtr     return () +data LayoutSetTabsMethodInfo+instance (signature ~ (Maybe (TabArray) -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetTabsMethodInfo a signature where+    overloadedMethod _ = layoutSetTabs+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1768,10 +2068,10 @@  layoutSetText ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- text-    Int32 ->                                -- length-    m ()+    a                                       -- _obj+    -> T.Text                               -- text+    -> Int32                                -- length_+    -> m ()                                 -- result layoutSetText _obj text length_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     text' <- textToCString text@@ -1780,11 +2080,14 @@     freeMem text'     return () +data LayoutSetTextMethodInfo+instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetTextMethodInfo a signature where+    overloadedMethod _ = layoutSetText+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- 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@@ -1797,20 +2100,23 @@  layoutSetWidth ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    m ()+    a                                       -- _obj+    -> Int32                                -- width+    -> m ()                                 -- result layoutSetWidth _obj width = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     pango_layout_set_width _obj' width     touchManagedPtr _obj     return () +data LayoutSetWidthMethodInfo+instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetWidthMethodInfo a signature where+    overloadedMethod _ = layoutSetWidth+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1823,9 +2129,9 @@  layoutSetWrap ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    WrapMode ->                             -- wrap-    m ()+    a                                       -- _obj+    -> WrapMode                             -- wrap+    -> m ()                                 -- result layoutSetWrap _obj wrap = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let wrap' = (fromIntegral . fromEnum) wrap@@ -1833,11 +2139,14 @@     touchManagedPtr _obj     return () +data LayoutSetWrapMethodInfo+instance (signature ~ (WrapMode -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetWrapMethodInfo a signature where+    overloadedMethod _ = layoutSetWrap+ -- 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "trailing", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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@@ -1853,21 +2162,25 @@  layoutXyToIndex ::     (MonadIO m, LayoutK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    m (Bool,Int32,Int32)+    a                                       -- _obj+    -> Int32                                -- x+    -> Int32                                -- y+    -> m (Bool,Int32,Int32)                 -- result layoutXyToIndex _obj x y = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    index_ <- allocMem :: IO (Ptr Int32)+    index <- allocMem :: IO (Ptr Int32)     trailing <- allocMem :: IO (Ptr Int32)-    result <- pango_layout_xy_to_index _obj' x y index_ trailing+    result <- pango_layout_xy_to_index _obj' x y index trailing     let result' = (/= 0) result-    index_' <- peek index_+    index' <- peek index     trailing' <- peek trailing     touchManagedPtr _obj-    freeMem index_+    freeMem index     freeMem trailing-    return (result', index_', trailing')+    return (result', index', trailing')++data LayoutXyToIndexMethodInfo+instance (signature ~ (Int32 -> Int32 -> m (Bool,Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutXyToIndexMethodInfo a signature where+    overloadedMethod _ = layoutXyToIndex