gi-pango 0.1.38.13 → 0.1.38.14

raw patch · 111 files changed

+4586/−1134 lines, 111 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 +1/−1
• GI/Pango/Callbacks.hs +1/−1
• GI/Pango/Constants.hs +1/−1
• GI/Pango/Enums.hs +1/−1
• GI/Pango/Flags.hs +3/−3
• GI/Pango/Functions.hs +640/−101
• GI/Pango/Objects.hs +1/−1
• GI/Pango/Objects/Context.hs +44/−41
• GI/Pango/Objects/Context.hs-boot +1/−1
• GI/Pango/Objects/Engine.hs +1/−1
• GI/Pango/Objects/Engine.hs-boot +1/−1
• GI/Pango/Objects/EngineLang.hs +1/−1
• GI/Pango/Objects/EngineLang.hs-boot +1/−1
• GI/Pango/Objects/EngineShape.hs +1/−1
• GI/Pango/Objects/EngineShape.hs-boot +1/−1
• GI/Pango/Objects/Font.hs +16/−15
• GI/Pango/Objects/Font.hs-boot +1/−1
• GI/Pango/Objects/FontFace.hs +9/−9
• GI/Pango/Objects/FontFace.hs-boot +1/−1
• GI/Pango/Objects/FontFamily.hs +7/−7
• GI/Pango/Objects/FontFamily.hs-boot +1/−1
• GI/Pango/Objects/FontMap.hs +23/−21
• GI/Pango/Objects/FontMap.hs-boot +1/−1
• GI/Pango/Objects/Fontset.hs +8/−8
• GI/Pango/Objects/Fontset.hs-boot +1/−1
• GI/Pango/Objects/FontsetSimple.hs +4/−4
• GI/Pango/Objects/FontsetSimple.hs-boot +1/−1
• GI/Pango/Objects/Layout.hs +145/−143
• GI/Pango/Objects/Layout.hs-boot +1/−1
• GI/Pango/Objects/Renderer.hs +70/−66
• GI/Pango/Objects/Renderer.hs-boot +1/−1
• GI/Pango/Structs.hs +1/−1
• GI/Pango/Structs/Analysis.hs +269/−27
• GI/Pango/Structs/Analysis.hs-boot +1/−1
• GI/Pango/Structs/AttrClass.hs +37/−5
• GI/Pango/Structs/AttrClass.hs-boot +1/−1
• GI/Pango/Structs/AttrColor.hs +78/−9
• GI/Pango/Structs/AttrColor.hs-boot +1/−1
• GI/Pango/Structs/AttrFloat.hs +70/−7
• GI/Pango/Structs/AttrFloat.hs-boot +1/−1
• GI/Pango/Structs/AttrFontDesc.hs +110/−9
• GI/Pango/Structs/AttrFontDesc.hs-boot +1/−1
• GI/Pango/Structs/AttrFontFeatures.hs +110/−9
• GI/Pango/Structs/AttrFontFeatures.hs-boot +1/−1
• GI/Pango/Structs/AttrInt.hs +69/−7
• GI/Pango/Structs/AttrInt.hs-boot +1/−1
• GI/Pango/Structs/AttrIterator.hs +13/−10
• GI/Pango/Structs/AttrIterator.hs-boot +1/−1
• GI/Pango/Structs/AttrLanguage.hs +110/−9
• GI/Pango/Structs/AttrLanguage.hs-boot +1/−1
• GI/Pango/Structs/AttrList.hs +31/−25
• GI/Pango/Structs/AttrList.hs-boot +1/−1
• GI/Pango/Structs/AttrShape.hs +176/−16
• GI/Pango/Structs/AttrShape.hs-boot +1/−1
• GI/Pango/Structs/AttrSize.hs +123/−9
• GI/Pango/Structs/AttrSize.hs-boot +1/−1
• GI/Pango/Structs/AttrString.hs +78/−9
• GI/Pango/Structs/AttrString.hs-boot +1/−1
• GI/Pango/Structs/Attribute.hs +96/−12
• GI/Pango/Structs/Attribute.hs-boot +1/−1
• GI/Pango/Structs/Color.hs +94/−16
• GI/Pango/Structs/Color.hs-boot +1/−1
• GI/Pango/Structs/Coverage.hs +23/−19
• GI/Pango/Structs/Coverage.hs-boot +1/−1
• GI/Pango/Structs/EngineInfo.hs +168/−19
• GI/Pango/Structs/EngineInfo.hs-boot +1/−1
• GI/Pango/Structs/EngineScriptInfo.hs +70/−7
• GI/Pango/Structs/EngineScriptInfo.hs-boot +1/−1
• GI/Pango/Structs/FontDescription.hs +56/−49
• GI/Pango/Structs/FontDescription.hs-boot +1/−1
• GI/Pango/Structs/FontMetrics.hs +29/−17
• GI/Pango/Structs/FontMetrics.hs-boot +1/−1
• GI/Pango/Structs/GlyphGeometry.hs +84/−7
• GI/Pango/Structs/GlyphGeometry.hs-boot +1/−1
• GI/Pango/Structs/GlyphInfo.hs +102/−11
• GI/Pango/Structs/GlyphInfo.hs-boot +1/−1
• GI/Pango/Structs/GlyphItem.hs +96/−27
• GI/Pango/Structs/GlyphItem.hs-boot +1/−1
• GI/Pango/Structs/GlyphItemIter.hs +234/−32
• GI/Pango/Structs/GlyphItemIter.hs-boot +1/−1
• GI/Pango/Structs/GlyphString.hs +102/−47
• GI/Pango/Structs/GlyphString.hs-boot +1/−1
• GI/Pango/Structs/GlyphVisAttr.hs +36/−3
• GI/Pango/Structs/GlyphVisAttr.hs-boot +1/−1
• GI/Pango/Structs/IncludedModule.hs +13/−5
• GI/Pango/Structs/IncludedModule.hs-boot +1/−1
• GI/Pango/Structs/Item.hs +130/−23
• GI/Pango/Structs/Item.hs-boot +1/−1
• GI/Pango/Structs/Language.hs +27/−21
• GI/Pango/Structs/Language.hs-boot +1/−1
• GI/Pango/Structs/LayoutIter.hs +54/−47
• GI/Pango/Structs/LayoutIter.hs-boot +1/−1
• GI/Pango/Structs/LayoutLine.hs +198/−43
• GI/Pango/Structs/LayoutLine.hs-boot +1/−1
• GI/Pango/Structs/LogAttr.hs +324/−27
• GI/Pango/Structs/LogAttr.hs-boot +1/−1
• GI/Pango/Structs/Map.hs +5/−1
• GI/Pango/Structs/Map.hs-boot +1/−1
• GI/Pango/Structs/MapEntry.hs +5/−1
• GI/Pango/Structs/MapEntry.hs-boot +1/−1
• GI/Pango/Structs/Matrix.hs +178/−28
• GI/Pango/Structs/Matrix.hs-boot +1/−1
• GI/Pango/Structs/Rectangle.hs +108/−9
• GI/Pango/Structs/Rectangle.hs-boot +1/−1
• GI/Pango/Structs/ScriptForLang.hs +12/−3
• GI/Pango/Structs/ScriptForLang.hs-boot +1/−1
• GI/Pango/Structs/ScriptIter.hs +8/−4
• GI/Pango/Structs/ScriptIter.hs-boot +1/−1
• GI/Pango/Structs/TabArray.hs +26/−22
• GI/Pango/Structs/TabArray.hs-boot +1/−1
• gi-pango.cabal +5/−5

@@ -30,9 +30,9 @@ import GI.Pango.Objects import GI.Pango.Structs -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -77,9 +77,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -24,9 +24,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -31,9 +31,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -15,9 +15,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -60,8 +60,8 @@ foreign import ccall "pango_font_mask_get_type" c_pango_font_mask_get_type ::      IO GType -instance BoxedEnum FontMask where-    boxedEnumType _ = c_pango_font_mask_get_type+instance BoxedFlags FontMask where+    boxedFlagsType _ = c_pango_font_mask_get_type  instance IsGFlag FontMask 

@@ -10,6 +10,82 @@     (    -- * Methods+-- ** attrBackgroundAlphaNew+    attrBackgroundAlphaNew                  ,+++-- ** attrBackgroundNew+    attrBackgroundNew                       ,+++-- ** attrFallbackNew+    attrFallbackNew                         ,+++-- ** attrFamilyNew+    attrFamilyNew                           ,+++-- ** attrForegroundAlphaNew+    attrForegroundAlphaNew                  ,+++-- ** attrForegroundNew+    attrForegroundNew                       ,+++-- ** attrGravityHintNew+    attrGravityHintNew                      ,+++-- ** attrGravityNew+    attrGravityNew                          ,+++-- ** attrLetterSpacingNew+    attrLetterSpacingNew                    ,+++-- ** attrRiseNew+    attrRiseNew                             ,+++-- ** attrScaleNew+    attrScaleNew                            ,+++-- ** attrStretchNew+    attrStretchNew                          ,+++-- ** attrStrikethroughColorNew+    attrStrikethroughColorNew               ,+++-- ** attrStrikethroughNew+    attrStrikethroughNew                    ,+++-- ** attrStyleNew+    attrStyleNew                            ,+++-- ** attrUnderlineColorNew+    attrUnderlineColorNew                   ,+++-- ** attrUnderlineNew+    attrUnderlineNew                        ,+++-- ** attrVariantNew+    attrVariantNew                          ,+++-- ** attrWeightNew+    attrWeightNew                           ,++ -- ** break     break                                   , @@ -182,9 +258,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -196,7 +272,7 @@ -- function pango_version_string -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -215,16 +291,16 @@   -- function pango_version_check--- 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}]+-- Args : [Arg {argCName = "required_major", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False  foreign import ccall "pango_version_check" pango_version_check :: -    Int32 ->                                -- required_major : TBasicType TInt32-    Int32 ->                                -- required_minor : TBasicType TInt32-    Int32 ->                                -- required_micro : TBasicType TInt32+    Int32 ->                                -- required_major : TBasicType TInt+    Int32 ->                                -- required_minor : TBasicType TInt+    Int32 ->                                -- required_micro : TBasicType TInt     IO CString  @@ -233,18 +309,19 @@     Int32                                   -- requiredMajor     -> Int32                                -- requiredMinor     -> Int32                                -- requiredMicro-    -> m T.Text                             -- result+    -> m (Maybe 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'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    return maybeResult   -- function pango_version -- Args : [] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -261,14 +338,14 @@   -- function pango_units_to_double--- Args : [Arg {argCName = "i", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "i", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TDouble+-- returnType : Just (TBasicType TDouble) -- throws : False -- Skip return : False  foreign import ccall "pango_units_to_double" pango_units_to_double :: -    Int32 ->                                -- i : TBasicType TInt32+    Int32 ->                                -- i : TBasicType TInt     IO CDouble  @@ -285,7 +362,7 @@ -- function pango_units_from_double -- Args : [Arg {argCName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -307,7 +384,7 @@ -- function pango_unichar_direction -- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Direction"+-- returnType : Just (TInterface "Pango" "Direction") -- throws : False -- Skip return : False @@ -330,7 +407,7 @@ -- function pango_trim_string -- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -356,7 +433,7 @@ -- function pango_split_file_list -- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)+-- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) -- throws : False -- Skip return : False @@ -383,7 +460,7 @@ -- function pango_skip_space -- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -410,17 +487,17 @@   -- function pango_shape_full--- 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}]+-- 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 TInt, 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 TInt, 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_shape_full" pango_shape_full ::      CString ->                              -- item_text : TBasicType TUTF8-    Int32 ->                                -- item_length : TBasicType TInt32+    Int32 ->                                -- item_length : TBasicType TInt     CString ->                              -- paragraph_text : TBasicType TUTF8-    Int32 ->                                -- paragraph_length : TBasicType TInt32+    Int32 ->                                -- paragraph_length : TBasicType TInt     Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"     Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"     IO ()@@ -453,15 +530,15 @@   -- function pango_shape--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_shape" pango_shape ::      CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"     Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"     IO ()@@ -488,7 +565,7 @@ -- function pango_scan_word -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -520,7 +597,7 @@ -- function pango_scan_string -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -550,15 +627,15 @@   -- function pango_scan_int--- 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}]+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "pango_scan_int" pango_scan_int ::      Ptr CString ->                          -- pos : TBasicType TUTF8-    Ptr Int32 ->                            -- out : TBasicType TInt32+    Ptr Int32 ->                            -- out : TBasicType TInt     IO CInt  {-# DEPRECATED scanInt ["(Since version 1.38)"]#-}@@ -585,7 +662,7 @@ -- function pango_reorder_items -- 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 : []--- returnType : TGList (TInterface "Pango" "Item")+-- returnType : Just (TGList (TInterface "Pango" "Item")) -- throws : False -- Skip return : False @@ -602,7 +679,6 @@     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@@ -612,14 +688,14 @@   -- function pango_read_line--- 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}]+-- Args : [Arg {argCName = "stream", argType = TBasicType TPtr, 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 : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False  foreign import ccall "pango_read_line" pango_read_line :: -    Ptr () ->                               -- stream : TBasicType TVoid+    Ptr () ->                               -- stream : TBasicType TPtr     Ptr GLib.String ->                      -- str : TInterface "GLib" "String"     IO Int32 @@ -636,15 +712,15 @@   -- function pango_quantize_line_geometry--- 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}]+-- Args : [Arg {argCName = "thickness", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_quantize_line_geometry" pango_quantize_line_geometry :: -    Ptr Int32 ->                            -- thickness : TBasicType TInt32-    Ptr Int32 ->                            -- position : TBasicType TInt32+    Ptr Int32 ->                            -- thickness : TBasicType TInt+    Ptr Int32 ->                            -- position : TBasicType TInt     IO ()  @@ -669,7 +745,7 @@ -- function pango_parse_weight -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -701,7 +777,7 @@ -- function pango_parse_variant -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -733,7 +809,7 @@ -- function pango_parse_style -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -765,7 +841,7 @@ -- function pango_parse_stretch -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -795,15 +871,15 @@   -- function pango_parse_markup--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False  foreign import ccall "pango_parse_markup" pango_parse_markup ::      CString ->                              -- markup_text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     CInt ->                                 -- accel_marker : TBasicType TUniChar     Ptr (Ptr AttrList) ->                   -- attr_list : TInterface "Pango" "AttrList"     Ptr CString ->                          -- text : TBasicType TUTF8@@ -847,16 +923,16 @@   -- function pango_parse_enum--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "pango_parse_enum" pango_parse_enum ::      CGType ->                               -- type : TBasicType TGType     CString ->                              -- str : TBasicType TUTF8-    Ptr Int32 ->                            -- value : TBasicType TInt32+    Ptr Int32 ->                            -- value : TBasicType TInt     CInt ->                                 -- warn : TBasicType TBoolean     Ptr CString ->                          -- possible_values : TBasicType TUTF8     IO CInt@@ -893,7 +969,7 @@ -- function pango_module_register -- Args : [Arg {argCName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -916,7 +992,7 @@ -- function pango_markup_parser_new -- Args : [Arg {argCName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GLib" "MarkupParseContext"+-- returnType : Just (TInterface "GLib" "MarkupParseContext") -- throws : False -- Skip return : False @@ -940,7 +1016,7 @@ -- function pango_markup_parser_finish -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : True -- Skip return : False @@ -984,16 +1060,16 @@   -- function pango_lookup_aliases--- 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+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_lookup_aliases" pango_lookup_aliases ::      CString ->                              -- fontname : TBasicType TUTF8     Ptr (Ptr CString) ->                    -- families : TCArray False (-1) 2 (TBasicType TUTF8)-    Ptr Int32 ->                            -- n_families : TBasicType TInt32+    Ptr Int32 ->                            -- n_families : TBasicType TInt     IO ()  {-# DEPRECATED lookupAliases ["(Since version 1.32)","This function is not thread-safe."]#-}@@ -1018,15 +1094,15 @@   -- function pango_log2vis_get_embedding_levels--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TUInt8+-- returnType : Just (TBasicType TUInt8) -- throws : False -- Skip return : False  foreign import ccall "pango_log2vis_get_embedding_levels" pango_log2vis_get_embedding_levels ::      CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     CUInt ->                                -- pbase_dir : TInterface "Pango" "Direction"     IO Word8 @@ -1046,9 +1122,9 @@   -- function pango_itemize_with_base_dir--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, 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 : []--- returnType : TGList (TInterface "Pango" "Item")+-- returnType : Just (TGList (TInterface "Pango" "Item")) -- throws : False -- Skip return : False @@ -1056,8 +1132,8 @@     Ptr Context ->                          -- context : TInterface "Pango" "Context"     CUInt ->                                -- base_dir : TInterface "Pango" "Direction"     CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- start_index : TBasicType TInt32-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- start_index : TBasicType TInt+    Int32 ->                                -- length : TBasicType TInt     Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"     Ptr AttrIterator ->                     -- cached_iter : TInterface "Pango" "AttrIterator"     IO (Ptr (GList (Ptr Item)))@@ -1084,7 +1160,6 @@             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@@ -1096,17 +1171,17 @@   -- function pango_itemize--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, 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 : []--- returnType : TGList (TInterface "Pango" "Item")+-- returnType : Just (TGList (TInterface "Pango" "Item")) -- throws : False -- Skip return : False  foreign import ccall "pango_itemize" pango_itemize ::      Ptr Context ->                          -- context : TInterface "Pango" "Context"     CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- start_index : TBasicType TInt32-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- start_index : TBasicType TInt+    Int32 ->                                -- length : TBasicType TInt     Ptr AttrList ->                         -- attrs : TInterface "Pango" "AttrList"     Ptr AttrIterator ->                     -- cached_iter : TInterface "Pango" "AttrIterator"     IO (Ptr (GList (Ptr Item)))@@ -1131,7 +1206,6 @@             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@@ -1145,7 +1219,7 @@ -- function pango_is_zero_width -- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1168,7 +1242,7 @@ -- function pango_get_sysconf_subdirectory -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1189,7 +1263,7 @@ -- function pango_get_mirror_char -- 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 : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1213,19 +1287,19 @@   -- function pango_get_log_attrs--- 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+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "attrs_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_get_log_attrs" pango_get_log_attrs ::      CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Int32 ->                                -- level : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt+    Int32 ->                                -- level : TBasicType TInt     Ptr Language ->                         -- language : TInterface "Pango" "Language"     Ptr LogAttr ->                          -- log_attrs : TCArray False (-1) 5 (TInterface "Pango" "LogAttr")-    Int32 ->                                -- attrs_len : TBasicType TInt32+    Int32 ->                                -- attrs_len : TBasicType TInt     IO ()  @@ -1254,7 +1328,7 @@ -- function pango_get_lib_subdirectory -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1273,17 +1347,17 @@   -- function pango_find_paragraph_boundary--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paragraph_delimiter_index", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "next_paragraph_start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_find_paragraph_boundary" pango_find_paragraph_boundary ::      CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32-    Ptr Int32 ->                            -- paragraph_delimiter_index : TBasicType TInt32-    Ptr Int32 ->                            -- next_paragraph_start : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt+    Ptr Int32 ->                            -- paragraph_delimiter_index : TBasicType TInt+    Ptr Int32 ->                            -- next_paragraph_start : TBasicType TInt     IO ()  @@ -1306,15 +1380,15 @@   -- function pango_find_base_dir--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Direction"+-- returnType : Just (TInterface "Pango" "Direction") -- throws : False -- Skip return : False  foreign import ccall "pango_find_base_dir" pango_find_base_dir ::      CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     IO CUInt  @@ -1334,7 +1408,7 @@ -- function pango_extents_to_pixels -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1367,18 +1441,18 @@   -- function pango_default_break--- 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}]+-- 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 TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_default_break" pango_default_break ::      CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"     Ptr LogAttr ->                          -- attrs : TInterface "Pango" "LogAttr"-    Int32 ->                                -- attrs_len : TBasicType TInt32+    Int32 ->                                -- attrs_len : TBasicType TInt     IO ()  @@ -1408,7 +1482,7 @@ -- function pango_config_key_get_system -- Args : [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1434,7 +1508,7 @@ -- function pango_config_key_get -- Args : [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1458,18 +1532,18 @@   -- function pango_break--- 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+-- 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 TInt, 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "attrs_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_break" pango_break ::      CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     Ptr Analysis ->                         -- analysis : TInterface "Pango" "Analysis"     Ptr LogAttr ->                          -- attrs : TCArray False (-1) 4 (TInterface "Pango" "LogAttr")-    Int32 ->                                -- attrs_len : TBasicType TInt32+    Int32 ->                                -- attrs_len : TBasicType TInt     IO ()  @@ -1492,6 +1566,471 @@     freeMem text'     freeMem attrs''     return ()+++-- function pango_attr_weight_new+-- Args : [Arg {argCName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_weight_new" pango_attr_weight_new :: +    CUInt ->                                -- weight : TInterface "Pango" "Weight"+    IO (Ptr Attribute)+++attrWeightNew ::+    (MonadIO m) =>+    Weight                                  -- weight+    -> m Attribute                          -- result+attrWeightNew weight = liftIO $ do+    let weight' = (fromIntegral . fromEnum) weight+    result <- pango_attr_weight_new weight'+    checkUnexpectedReturnNULL "pango_attr_weight_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_variant_new+-- Args : [Arg {argCName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_variant_new" pango_attr_variant_new :: +    CUInt ->                                -- variant : TInterface "Pango" "Variant"+    IO (Ptr Attribute)+++attrVariantNew ::+    (MonadIO m) =>+    Variant                                 -- variant+    -> m Attribute                          -- result+attrVariantNew variant = liftIO $ do+    let variant' = (fromIntegral . fromEnum) variant+    result <- pango_attr_variant_new variant'+    checkUnexpectedReturnNULL "pango_attr_variant_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_underline_new+-- Args : [Arg {argCName = "underline", argType = TInterface "Pango" "Underline", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_underline_new" pango_attr_underline_new :: +    CUInt ->                                -- underline : TInterface "Pango" "Underline"+    IO (Ptr Attribute)+++attrUnderlineNew ::+    (MonadIO m) =>+    Underline                               -- underline+    -> m Attribute                          -- result+attrUnderlineNew underline = liftIO $ do+    let underline' = (fromIntegral . fromEnum) underline+    result <- pango_attr_underline_new underline'+    checkUnexpectedReturnNULL "pango_attr_underline_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_underline_color_new+-- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_underline_color_new" pango_attr_underline_color_new :: +    Word16 ->                               -- red : TBasicType TUInt16+    Word16 ->                               -- green : TBasicType TUInt16+    Word16 ->                               -- blue : TBasicType TUInt16+    IO (Ptr Attribute)+++attrUnderlineColorNew ::+    (MonadIO m) =>+    Word16                                  -- red+    -> Word16                               -- green+    -> Word16                               -- blue+    -> m Attribute                          -- result+attrUnderlineColorNew red green blue = liftIO $ do+    result <- pango_attr_underline_color_new red green blue+    checkUnexpectedReturnNULL "pango_attr_underline_color_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_style_new+-- Args : [Arg {argCName = "style", argType = TInterface "Pango" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_style_new" pango_attr_style_new :: +    CUInt ->                                -- style : TInterface "Pango" "Style"+    IO (Ptr Attribute)+++attrStyleNew ::+    (MonadIO m) =>+    Style                                   -- style+    -> m Attribute                          -- result+attrStyleNew style = liftIO $ do+    let style' = (fromIntegral . fromEnum) style+    result <- pango_attr_style_new style'+    checkUnexpectedReturnNULL "pango_attr_style_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_strikethrough_new+-- Args : [Arg {argCName = "strikethrough", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_strikethrough_new" pango_attr_strikethrough_new :: +    CInt ->                                 -- strikethrough : TBasicType TBoolean+    IO (Ptr Attribute)+++attrStrikethroughNew ::+    (MonadIO m) =>+    Bool                                    -- strikethrough+    -> m Attribute                          -- result+attrStrikethroughNew strikethrough = liftIO $ do+    let strikethrough' = (fromIntegral . fromEnum) strikethrough+    result <- pango_attr_strikethrough_new strikethrough'+    checkUnexpectedReturnNULL "pango_attr_strikethrough_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_strikethrough_color_new+-- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_strikethrough_color_new" pango_attr_strikethrough_color_new :: +    Word16 ->                               -- red : TBasicType TUInt16+    Word16 ->                               -- green : TBasicType TUInt16+    Word16 ->                               -- blue : TBasicType TUInt16+    IO (Ptr Attribute)+++attrStrikethroughColorNew ::+    (MonadIO m) =>+    Word16                                  -- red+    -> Word16                               -- green+    -> Word16                               -- blue+    -> m Attribute                          -- result+attrStrikethroughColorNew red green blue = liftIO $ do+    result <- pango_attr_strikethrough_color_new red green blue+    checkUnexpectedReturnNULL "pango_attr_strikethrough_color_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_stretch_new+-- Args : [Arg {argCName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_stretch_new" pango_attr_stretch_new :: +    CUInt ->                                -- stretch : TInterface "Pango" "Stretch"+    IO (Ptr Attribute)+++attrStretchNew ::+    (MonadIO m) =>+    Stretch                                 -- stretch+    -> m Attribute                          -- result+attrStretchNew stretch = liftIO $ do+    let stretch' = (fromIntegral . fromEnum) stretch+    result <- pango_attr_stretch_new stretch'+    checkUnexpectedReturnNULL "pango_attr_stretch_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_scale_new+-- Args : [Arg {argCName = "scale_factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_scale_new" pango_attr_scale_new :: +    CDouble ->                              -- scale_factor : TBasicType TDouble+    IO (Ptr Attribute)+++attrScaleNew ::+    (MonadIO m) =>+    Double                                  -- scaleFactor+    -> m Attribute                          -- result+attrScaleNew scaleFactor = liftIO $ do+    let scaleFactor' = realToFrac scaleFactor+    result <- pango_attr_scale_new scaleFactor'+    checkUnexpectedReturnNULL "pango_attr_scale_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_rise_new+-- Args : [Arg {argCName = "rise", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_rise_new" pango_attr_rise_new :: +    Int32 ->                                -- rise : TBasicType TInt+    IO (Ptr Attribute)+++attrRiseNew ::+    (MonadIO m) =>+    Int32                                   -- rise+    -> m Attribute                          -- result+attrRiseNew rise = liftIO $ do+    result <- pango_attr_rise_new rise+    checkUnexpectedReturnNULL "pango_attr_rise_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_letter_spacing_new+-- Args : [Arg {argCName = "letter_spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_letter_spacing_new" pango_attr_letter_spacing_new :: +    Int32 ->                                -- letter_spacing : TBasicType TInt+    IO (Ptr Attribute)+++attrLetterSpacingNew ::+    (MonadIO m) =>+    Int32                                   -- letterSpacing+    -> m Attribute                          -- result+attrLetterSpacingNew letterSpacing = liftIO $ do+    result <- pango_attr_letter_spacing_new letterSpacing+    checkUnexpectedReturnNULL "pango_attr_letter_spacing_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_gravity_new+-- Args : [Arg {argCName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_gravity_new" pango_attr_gravity_new :: +    CUInt ->                                -- gravity : TInterface "Pango" "Gravity"+    IO (Ptr Attribute)+++attrGravityNew ::+    (MonadIO m) =>+    Gravity                                 -- gravity+    -> m Attribute                          -- result+attrGravityNew gravity = liftIO $ do+    let gravity' = (fromIntegral . fromEnum) gravity+    result <- pango_attr_gravity_new gravity'+    checkUnexpectedReturnNULL "pango_attr_gravity_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_gravity_hint_new+-- Args : [Arg {argCName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_gravity_hint_new" pango_attr_gravity_hint_new :: +    CUInt ->                                -- hint : TInterface "Pango" "GravityHint"+    IO (Ptr Attribute)+++attrGravityHintNew ::+    (MonadIO m) =>+    GravityHint                             -- hint+    -> m Attribute                          -- result+attrGravityHintNew hint = liftIO $ do+    let hint' = (fromIntegral . fromEnum) hint+    result <- pango_attr_gravity_hint_new hint'+    checkUnexpectedReturnNULL "pango_attr_gravity_hint_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_foreground_new+-- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_foreground_new" pango_attr_foreground_new :: +    Word16 ->                               -- red : TBasicType TUInt16+    Word16 ->                               -- green : TBasicType TUInt16+    Word16 ->                               -- blue : TBasicType TUInt16+    IO (Ptr Attribute)+++attrForegroundNew ::+    (MonadIO m) =>+    Word16                                  -- red+    -> Word16                               -- green+    -> Word16                               -- blue+    -> m Attribute                          -- result+attrForegroundNew red green blue = liftIO $ do+    result <- pango_attr_foreground_new red green blue+    checkUnexpectedReturnNULL "pango_attr_foreground_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_foreground_alpha_new+-- Args : [Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_foreground_alpha_new" pango_attr_foreground_alpha_new :: +    Word16 ->                               -- alpha : TBasicType TUInt16+    IO (Ptr Attribute)+++attrForegroundAlphaNew ::+    (MonadIO m) =>+    Word16                                  -- alpha+    -> m Attribute                          -- result+attrForegroundAlphaNew alpha = liftIO $ do+    result <- pango_attr_foreground_alpha_new alpha+    checkUnexpectedReturnNULL "pango_attr_foreground_alpha_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_family_new+-- Args : [Arg {argCName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_family_new" pango_attr_family_new :: +    CString ->                              -- family : TBasicType TUTF8+    IO (Ptr Attribute)+++attrFamilyNew ::+    (MonadIO m) =>+    T.Text                                  -- family+    -> m Attribute                          -- result+attrFamilyNew family = liftIO $ do+    family' <- textToCString family+    result <- pango_attr_family_new family'+    checkUnexpectedReturnNULL "pango_attr_family_new" result+    result' <- (wrapPtr Attribute) result+    freeMem family'+    return result'+++-- function pango_attr_fallback_new+-- Args : [Arg {argCName = "enable_fallback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_fallback_new" pango_attr_fallback_new :: +    CInt ->                                 -- enable_fallback : TBasicType TBoolean+    IO (Ptr Attribute)+++attrFallbackNew ::+    (MonadIO m) =>+    Bool                                    -- enableFallback+    -> m Attribute                          -- result+attrFallbackNew enableFallback = liftIO $ do+    let enableFallback' = (fromIntegral . fromEnum) enableFallback+    result <- pango_attr_fallback_new enableFallback'+    checkUnexpectedReturnNULL "pango_attr_fallback_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_background_new+-- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_background_new" pango_attr_background_new :: +    Word16 ->                               -- red : TBasicType TUInt16+    Word16 ->                               -- green : TBasicType TUInt16+    Word16 ->                               -- blue : TBasicType TUInt16+    IO (Ptr Attribute)+++attrBackgroundNew ::+    (MonadIO m) =>+    Word16                                  -- red+    -> Word16                               -- green+    -> Word16                               -- blue+    -> m Attribute                          -- result+attrBackgroundNew red green blue = liftIO $ do+    result <- pango_attr_background_new red green blue+    checkUnexpectedReturnNULL "pango_attr_background_new" result+    result' <- (wrapPtr Attribute) result+    return result'+++-- function pango_attr_background_alpha_new+-- Args : [Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_background_alpha_new" pango_attr_background_alpha_new :: +    Word16 ->                               -- alpha : TBasicType TUInt16+    IO (Ptr Attribute)+++attrBackgroundAlphaNew ::+    (MonadIO m) =>+    Word16                                  -- alpha+    -> m Attribute                          -- result+attrBackgroundAlphaNew alpha = liftIO $ do+    result <- pango_attr_background_alpha_new alpha+    checkUnexpectedReturnNULL "pango_attr_background_alpha_new" result+    result' <- (wrapPtr Attribute) result+    return result'   

@@ -36,9 +36,9 @@ import GI.Pango.Objects.Layout import GI.Pango.Objects.Renderer -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -130,9 +130,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -226,7 +226,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Pango" "Context"+-- returnType : Just (TInterface "Pango" "Context") -- throws : False -- Skip return : False @@ -247,7 +247,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -274,7 +274,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Direction"+-- returnType : Just (TInterface "Pango" "Direction") -- throws : False -- Skip return : False @@ -302,7 +302,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Gravity"+-- returnType : Just (TInterface "Pango" "Gravity") -- throws : False -- Skip return : False @@ -330,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontDescription"+-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -359,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontMap"+-- returnType : Just (TInterface "Pango" "FontMap") -- throws : False -- Skip return : False @@ -388,7 +388,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Gravity"+-- returnType : Just (TInterface "Pango" "Gravity") -- throws : False -- Skip return : False @@ -416,7 +416,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "GravityHint"+-- returnType : Just (TInterface "Pango" "GravityHint") -- throws : False -- Skip return : False @@ -444,7 +444,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Language"+-- returnType : Just (TInterface "Pango" "Language") -- throws : False -- Skip return : False @@ -473,7 +473,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Matrix"+-- returnType : Just (TInterface "Pango" "Matrix") -- throws : False -- Skip return : False @@ -485,24 +485,25 @@ contextGetMatrix ::     (MonadIO m, ContextK a) =>     a                                       -- _obj-    -> m Matrix                             -- result+    -> m (Maybe Matrix)                     -- result contextGetMatrix _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_context_get_matrix _obj'-    checkUnexpectedReturnNULL "pango_context_get_matrix" result-    result' <- (newBoxed Matrix) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed Matrix) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data ContextGetMatrixMethodInfo-instance (signature ~ (m Matrix), MonadIO m, ContextK a) => MethodInfo ContextGetMatrixMethodInfo a signature where+instance (signature ~ (m (Maybe Matrix)), MonadIO m, ContextK a) => MethodInfo ContextGetMatrixMethodInfo a signature where     overloadedMethod _ = contextGetMatrix  -- method Context::get_metrics -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Pango" "FontMetrics"+-- returnType : Just (TInterface "Pango" "FontMetrics") -- throws : False -- Skip return : False @@ -547,7 +548,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -572,16 +573,16 @@  -- method Context::list_families -- method type : OrdinaryMethod--- 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+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_context_list_families" pango_context_list_families ::      Ptr Context ->                          -- _obj : TInterface "Pango" "Context"     Ptr (Ptr (Ptr FontFamily)) ->           -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")-    Ptr Int32 ->                            -- n_families : TBasicType TInt32+    Ptr Int32 ->                            -- n_families : TBasicType TInt     IO ()  @@ -612,7 +613,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Pango" "Font"+-- returnType : Just (TInterface "Pango" "Font") -- throws : False -- Skip return : False @@ -626,26 +627,27 @@     (MonadIO m, ContextK a) =>     a                                       -- _obj     -> FontDescription                      -- desc-    -> m Font                               -- result+    -> m (Maybe Font)                       -- result contextLoadFont _obj desc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let desc' = unsafeManagedPtrGetPtr desc     result <- pango_context_load_font _obj' desc'-    checkUnexpectedReturnNULL "pango_context_load_font" result-    result' <- (wrapObject Font) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Font) result'+        return result''     touchManagedPtr _obj     touchManagedPtr desc-    return result'+    return maybeResult  data ContextLoadFontMethodInfo-instance (signature ~ (FontDescription -> m Font), MonadIO m, ContextK a) => MethodInfo ContextLoadFontMethodInfo a signature where+instance (signature ~ (FontDescription -> m (Maybe Font)), MonadIO m, ContextK a) => MethodInfo ContextLoadFontMethodInfo a signature where     overloadedMethod _ = contextLoadFont  -- method Context::load_fontset -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Pango" "Fontset"+-- returnType : Just (TInterface "Pango" "Fontset") -- throws : False -- Skip return : False @@ -661,28 +663,29 @@     a                                       -- _obj     -> FontDescription                      -- desc     -> Language                             -- language-    -> m Fontset                            -- result+    -> m (Maybe Fontset)                    -- result contextLoadFontset _obj desc language = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let desc' = unsafeManagedPtrGetPtr desc     let language' = unsafeManagedPtrGetPtr language     result <- pango_context_load_fontset _obj' desc' language'-    checkUnexpectedReturnNULL "pango_context_load_fontset" result-    result' <- (wrapObject Fontset) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Fontset) result'+        return result''     touchManagedPtr _obj     touchManagedPtr desc     touchManagedPtr language-    return result'+    return maybeResult  data ContextLoadFontsetMethodInfo-instance (signature ~ (FontDescription -> Language -> m Fontset), MonadIO m, ContextK a) => MethodInfo ContextLoadFontsetMethodInfo a signature where+instance (signature ~ (FontDescription -> Language -> m (Maybe Fontset)), MonadIO m, ContextK a) => MethodInfo ContextLoadFontsetMethodInfo a signature where     overloadedMethod _ = contextLoadFontset  -- method Context::set_base_dir -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -712,7 +715,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -742,7 +745,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -773,7 +776,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -804,7 +807,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -834,7 +837,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -865,7 +868,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Pango.Objects.Context where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Pango.Objects.Engine where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Pango.Objects.EngineLang where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,9 +18,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -1,8 +1,8 @@ module GI.Pango.Objects.EngineShape where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -50,9 +50,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -130,7 +130,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontDescription"+-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -159,7 +159,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontDescription"+-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -188,7 +188,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontMap"+-- returnType : Just (TInterface "Pango" "FontMap") -- throws : False -- Skip return : False @@ -200,24 +200,25 @@ fontGetFontMap ::     (MonadIO m, FontK a) =>     a                                       -- _obj-    -> m FontMap                            -- result+    -> m (Maybe FontMap)                    -- result fontGetFontMap _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_font_get_font_map _obj'-    checkUnexpectedReturnNULL "pango_font_get_font_map" result-    result' <- (newObject FontMap) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject FontMap) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data FontGetFontMapMethodInfo-instance (signature ~ (m FontMap), MonadIO m, FontK a) => MethodInfo FontGetFontMapMethodInfo a signature where+instance (signature ~ (m (Maybe FontMap)), MonadIO m, FontK a) => MethodInfo FontGetFontMapMethodInfo a signature where     overloadedMethod _ = fontGetFontMap  -- method Font::get_glyph_extents -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -252,7 +253,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Pango" "FontMetrics"+-- returnType : Just (TInterface "Pango" "FontMetrics") -- throws : False -- Skip return : False @@ -287,15 +288,15 @@  -- method Font::descriptions_free -- method type : MemberFunction--- 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+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_descs", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_font_descriptions_free" pango_font_descriptions_free ::      Ptr (Ptr FontDescription) ->            -- descs : TCArray False (-1) 1 (TInterface "Pango" "FontDescription")-    Int32 ->                                -- n_descs : TBasicType TInt32+    Int32 ->                                -- n_descs : TBasicType TInt     IO ()  

@@ -1,8 +1,8 @@ module GI.Pango.Objects.Font where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -41,9 +41,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -120,7 +120,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontDescription"+-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -149,7 +149,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -178,7 +178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -204,16 +204,16 @@  -- method FontFace::list_sizes -- method type : OrdinaryMethod--- 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+-- 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 TInt), direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_sizes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_sizes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_font_face_list_sizes" pango_font_face_list_sizes ::      Ptr FontFace ->                         -- _obj : TInterface "Pango" "FontFace"-    Ptr (Ptr Int32) ->                      -- sizes : TCArray False (-1) 2 (TBasicType TInt32)-    Ptr Int32 ->                            -- n_sizes : TBasicType TInt32+    Ptr (Ptr Int32) ->                      -- sizes : TCArray False (-1) 2 (TBasicType TInt)+    Ptr Int32 ->                            -- n_sizes : TBasicType TInt     IO ()  

@@ -1,8 +1,8 @@ module GI.Pango.Objects.FontFace where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -36,9 +36,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -114,7 +114,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -143,7 +143,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -169,16 +169,16 @@  -- method FontFamily::list_faces -- method type : OrdinaryMethod--- 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+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_faces", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_font_family_list_faces" pango_font_family_list_faces ::      Ptr FontFamily ->                       -- _obj : TInterface "Pango" "FontFamily"     Ptr (Ptr (Ptr FontFace)) ->             -- faces : TCArray False (-1) 2 (TInterface "Pango" "FontFace")-    Ptr Int32 ->                            -- n_faces : TBasicType TInt32+    Ptr Int32 ->                            -- n_faces : TBasicType TInt     IO ()  

@@ -1,8 +1,8 @@ module GI.Pango.Objects.FontFamily where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -56,9 +56,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -138,7 +138,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -165,7 +165,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Context"+-- returnType : Just (TInterface "Pango" "Context") -- throws : False -- Skip return : False @@ -194,7 +194,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -221,7 +221,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -248,16 +248,16 @@  -- method FontMap::list_families -- method type : OrdinaryMethod--- 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+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_font_map_list_families" pango_font_map_list_families ::      Ptr FontMap ->                          -- _obj : TInterface "Pango" "FontMap"     Ptr (Ptr (Ptr FontFamily)) ->           -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")-    Ptr Int32 ->                            -- n_families : TBasicType TInt32+    Ptr Int32 ->                            -- n_families : TBasicType TInt     IO ()  @@ -288,7 +288,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Pango" "Font"+-- returnType : Just (TInterface "Pango" "Font") -- throws : False -- Skip return : False @@ -304,28 +304,29 @@     a                                       -- _obj     -> b                                    -- context     -> FontDescription                      -- desc-    -> m Font                               -- result+    -> m (Maybe Font)                       -- result fontMapLoadFont _obj context desc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let context' = unsafeManagedPtrCastPtr context     let desc' = unsafeManagedPtrGetPtr desc     result <- pango_font_map_load_font _obj' context' desc'-    checkUnexpectedReturnNULL "pango_font_map_load_font" result-    result' <- (wrapObject Font) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Font) result'+        return result''     touchManagedPtr _obj     touchManagedPtr context     touchManagedPtr desc-    return result'+    return maybeResult  data FontMapLoadFontMethodInfo-instance (signature ~ (b -> FontDescription -> m Font), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontMethodInfo a signature where+instance (signature ~ (b -> FontDescription -> m (Maybe Font)), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontMethodInfo a signature where     overloadedMethod _ = fontMapLoadFont  -- method FontMap::load_fontset -- method type : OrdinaryMethod -- 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 : []--- returnType : TInterface "Pango" "Fontset"+-- returnType : Just (TInterface "Pango" "Fontset") -- throws : False -- Skip return : False @@ -343,23 +344,24 @@     -> b                                    -- context     -> FontDescription                      -- desc     -> Language                             -- language-    -> m Fontset                            -- result+    -> m (Maybe Fontset)                    -- result fontMapLoadFontset _obj context desc language = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let context' = unsafeManagedPtrCastPtr context     let desc' = unsafeManagedPtrGetPtr desc     let language' = unsafeManagedPtrGetPtr language     result <- pango_font_map_load_fontset _obj' context' desc' language'-    checkUnexpectedReturnNULL "pango_font_map_load_fontset" result-    result' <- (wrapObject Fontset) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Fontset) result'+        return result''     touchManagedPtr _obj     touchManagedPtr context     touchManagedPtr desc     touchManagedPtr language-    return result'+    return maybeResult  data FontMapLoadFontsetMethodInfo-instance (signature ~ (b -> FontDescription -> Language -> m Fontset), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontsetMethodInfo a signature where+instance (signature ~ (b -> FontDescription -> Language -> m (Maybe Fontset)), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontsetMethodInfo a signature where     overloadedMethod _ = fontMapLoadFontset  

@@ -1,8 +1,8 @@ module GI.Pango.Objects.FontMap where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -36,9 +36,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -112,16 +112,16 @@  -- method Fontset::foreach -- method type : OrdinaryMethod--- 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}]+-- 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_fontset_foreach" pango_fontset_foreach ::      Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"     FunPtr FontsetForeachFuncC ->           -- func : TInterface "Pango" "FontsetForeachFunc"-    Ptr () ->                               -- data : TBasicType TVoid+    Ptr () ->                               -- data : TBasicType TPtr     IO ()  @@ -145,15 +145,15 @@  -- method Fontset::get_font -- method type : OrdinaryMethod--- 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}]+-- 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 TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Font"+-- returnType : Just (TInterface "Pango" "Font") -- throws : False -- Skip return : False  foreign import ccall "pango_fontset_get_font" pango_fontset_get_font ::      Ptr Fontset ->                          -- _obj : TInterface "Pango" "Fontset"-    Word32 ->                               -- wc : TBasicType TUInt32+    Word32 ->                               -- wc : TBasicType TUInt     IO (Ptr Font)  @@ -178,7 +178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontMetrics"+-- returnType : Just (TInterface "Pango" "FontMetrics") -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Pango.Objects.Fontset where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -35,9 +35,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -115,7 +115,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontsetSimple"+-- returnType : Just (TInterface "Pango" "FontsetSimple") -- throws : False -- Skip return : False @@ -140,7 +140,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -171,7 +171,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Pango.Objects.FontsetSimple where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -305,9 +305,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -436,7 +436,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Layout"+-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -461,7 +461,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -488,7 +488,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Layout"+-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -517,7 +517,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Alignment"+-- returnType : Just (TInterface "Pango" "Alignment") -- throws : False -- Skip return : False @@ -545,7 +545,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "AttrList"+-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -574,7 +574,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -602,7 +602,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -629,7 +629,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -656,7 +656,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Context"+-- returnType : Just (TInterface "Pango" "Context") -- throws : False -- Skip return : False @@ -683,15 +683,15 @@  -- method Layout::get_cursor_pos -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_get_cursor_pos" pango_layout_get_cursor_pos ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- index_ : TBasicType TInt32+    Int32 ->                                -- index_ : TBasicType TInt     Ptr Rectangle ->                        -- strong_pos : TInterface "Pango" "Rectangle"     Ptr Rectangle ->                        -- weak_pos : TInterface "Pango" "Rectangle"     IO ()@@ -700,13 +700,13 @@ layoutGetCursorPos ::     (MonadIO m, LayoutK a) =>     a                                       -- _obj-    -> Int32                                -- index+    -> Int32                                -- index_     -> m (Rectangle,Rectangle)              -- result-layoutGetCursorPos _obj index = liftIO $ do+layoutGetCursorPos _obj index_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     strongPos <- callocBytes 16 :: IO (Ptr Rectangle)     weakPos <- callocBytes 16 :: IO (Ptr Rectangle)-    pango_layout_get_cursor_pos _obj' index strongPos weakPos+    pango_layout_get_cursor_pos _obj' index_ strongPos weakPos     strongPos' <- (wrapPtr Rectangle) strongPos     weakPos' <- (wrapPtr Rectangle) weakPos     touchManagedPtr _obj@@ -720,7 +720,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "EllipsizeMode"+-- returnType : Just (TInterface "Pango" "EllipsizeMode") -- throws : False -- Skip return : False @@ -748,7 +748,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -781,7 +781,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "FontDescription"+-- returnType : Just (TInterface "Pango" "FontDescription") -- throws : False -- Skip return : False @@ -793,24 +793,25 @@ layoutGetFontDescription ::     (MonadIO m, LayoutK a) =>     a                                       -- _obj-    -> m FontDescription                    -- result+    -> m (Maybe FontDescription)            -- result layoutGetFontDescription _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_font_description _obj'-    checkUnexpectedReturnNULL "pango_layout_get_font_description" result-    result' <- (newBoxed FontDescription) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed FontDescription) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data LayoutGetFontDescriptionMethodInfo-instance (signature ~ (m FontDescription), MonadIO m, LayoutK a) => MethodInfo LayoutGetFontDescriptionMethodInfo a signature where+instance (signature ~ (m (Maybe FontDescription)), MonadIO m, LayoutK a) => MethodInfo LayoutGetFontDescriptionMethodInfo a signature where     overloadedMethod _ = layoutGetFontDescription  -- method Layout::get_height -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -837,7 +838,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -864,7 +865,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "LayoutIter"+-- returnType : Just (TInterface "Pango" "LayoutIter") -- throws : False -- Skip return : False @@ -893,7 +894,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -919,15 +920,15 @@  -- method Layout::get_line -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "LayoutLine"+-- returnType : Just (TInterface "Pango" "LayoutLine") -- throws : False -- Skip return : False  foreign import ccall "pango_layout_get_line" pango_layout_get_line ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- line : TBasicType TInt32+    Int32 ->                                -- line : TBasicType TInt     IO (Ptr LayoutLine)  @@ -935,24 +936,25 @@     (MonadIO m, LayoutK a) =>     a                                       -- _obj     -> Int32                                -- line-    -> m LayoutLine                         -- result+    -> m (Maybe LayoutLine)                 -- result layoutGetLine _obj line = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_line _obj' line-    checkUnexpectedReturnNULL "pango_layout_get_line" result-    result' <- (newBoxed LayoutLine) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed LayoutLine) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data LayoutGetLineMethodInfo-instance (signature ~ (Int32 -> m LayoutLine), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineMethodInfo a signature where+instance (signature ~ (Int32 -> m (Maybe LayoutLine)), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineMethodInfo a signature where     overloadedMethod _ = layoutGetLine  -- method Layout::get_line_count -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -977,15 +979,15 @@  -- method Layout::get_line_readonly -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "LayoutLine"+-- returnType : Just (TInterface "Pango" "LayoutLine") -- throws : False -- Skip return : False  foreign import ccall "pango_layout_get_line_readonly" pango_layout_get_line_readonly ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- line : TBasicType TInt32+    Int32 ->                                -- line : TBasicType TInt     IO (Ptr LayoutLine)  @@ -993,24 +995,25 @@     (MonadIO m, LayoutK a) =>     a                                       -- _obj     -> Int32                                -- line-    -> m LayoutLine                         -- result+    -> m (Maybe LayoutLine)                 -- result layoutGetLineReadonly _obj line = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_line_readonly _obj' line-    checkUnexpectedReturnNULL "pango_layout_get_line_readonly" result-    result' <- (newBoxed LayoutLine) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed LayoutLine) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data LayoutGetLineReadonlyMethodInfo-instance (signature ~ (Int32 -> m LayoutLine), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineReadonlyMethodInfo a signature where+instance (signature ~ (Int32 -> m (Maybe LayoutLine)), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineReadonlyMethodInfo a signature where     overloadedMethod _ = layoutGetLineReadonly  -- method Layout::get_lines -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Pango" "LayoutLine")+-- returnType : Just (TGSList (TInterface "Pango" "LayoutLine")) -- throws : False -- Skip return : False @@ -1026,7 +1029,6 @@ layoutGetLines _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_lines _obj'-    checkUnexpectedReturnNULL "pango_layout_get_lines" result     result' <- unpackGSList result     result'' <- mapM (newBoxed LayoutLine) result'     touchManagedPtr _obj@@ -1040,7 +1042,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Pango" "LayoutLine")+-- returnType : Just (TGSList (TInterface "Pango" "LayoutLine")) -- throws : False -- Skip return : False @@ -1056,7 +1058,6 @@ layoutGetLinesReadonly _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_lines_readonly _obj'-    checkUnexpectedReturnNULL "pango_layout_get_lines_readonly" result     result' <- unpackGSList result     result'' <- mapM (newBoxed LayoutLine) result'     touchManagedPtr _obj@@ -1068,16 +1069,16 @@  -- method Layout::get_log_attrs -- method type : OrdinaryMethod--- 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+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_attrs", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_get_log_attrs" pango_layout_get_log_attrs ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"     Ptr (Ptr LogAttr) ->                    -- attrs : TCArray False (-1) 2 (TInterface "Pango" "LogAttr")-    Ptr Int32 ->                            -- n_attrs : TBasicType TInt32+    Ptr Int32 ->                            -- n_attrs : TBasicType TInt     IO ()  @@ -1106,15 +1107,15 @@  -- method Layout::get_log_attrs_readonly -- method type : OrdinaryMethod--- 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")+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "n_attrs", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TCArray False (-1) 1 (TInterface "Pango" "LogAttr")) -- throws : False -- Skip return : False  foreign import ccall "pango_layout_get_log_attrs_readonly" pango_layout_get_log_attrs_readonly ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Int32 ->                            -- n_attrs : TBasicType TInt32+    Ptr Int32 ->                            -- n_attrs : TBasicType TInt     IO (Ptr LogAttr)  @@ -1142,7 +1143,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1173,16 +1174,16 @@  -- method Layout::get_pixel_size -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_get_pixel_size" pango_layout_get_pixel_size ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Int32 ->                            -- width : TBasicType TInt32-    Ptr Int32 ->                            -- height : TBasicType TInt32+    Ptr Int32 ->                            -- width : TBasicType TInt+    Ptr Int32 ->                            -- height : TBasicType TInt     IO ()  @@ -1210,7 +1211,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1237,7 +1238,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1263,16 +1264,16 @@  -- method Layout::get_size -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_get_size" pango_layout_get_size ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Ptr Int32 ->                            -- width : TBasicType TInt32-    Ptr Int32 ->                            -- height : TBasicType TInt32+    Ptr Int32 ->                            -- width : TBasicType TInt+    Ptr Int32 ->                            -- height : TBasicType TInt     IO ()  @@ -1300,7 +1301,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1327,7 +1328,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "TabArray"+-- returnType : Just (TInterface "Pango" "TabArray") -- throws : False -- Skip return : False @@ -1339,24 +1340,25 @@ layoutGetTabs ::     (MonadIO m, LayoutK a) =>     a                                       -- _obj-    -> m TabArray                           -- result+    -> m (Maybe TabArray)                   -- result layoutGetTabs _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_layout_get_tabs _obj'-    checkUnexpectedReturnNULL "pango_layout_get_tabs" result-    result' <- (wrapBoxed TabArray) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapBoxed TabArray) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data LayoutGetTabsMethodInfo-instance (signature ~ (m TabArray), MonadIO m, LayoutK a) => MethodInfo LayoutGetTabsMethodInfo a signature where+instance (signature ~ (m (Maybe TabArray)), MonadIO m, LayoutK a) => MethodInfo LayoutGetTabsMethodInfo a signature where     overloadedMethod _ = layoutGetTabs  -- method Layout::get_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1385,7 +1387,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1412,7 +1414,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -1439,7 +1441,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "WrapMode"+-- returnType : Just (TInterface "Pango" "WrapMode") -- throws : False -- Skip return : False @@ -1465,33 +1467,33 @@  -- method Layout::index_to_line_x -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, 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 TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "x_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_index_to_line_x" pango_layout_index_to_line_x ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- index_ : TBasicType TInt32+    Int32 ->                                -- index_ : TBasicType TInt     CInt ->                                 -- trailing : TBasicType TBoolean-    Ptr Int32 ->                            -- line : TBasicType TInt32-    Ptr Int32 ->                            -- x_pos : TBasicType TInt32+    Ptr Int32 ->                            -- line : TBasicType TInt+    Ptr Int32 ->                            -- x_pos : TBasicType TInt     IO ()   layoutIndexToLineX ::     (MonadIO m, LayoutK a) =>     a                                       -- _obj-    -> Int32                                -- index+    -> Int32                                -- index_     -> Bool                                 -- trailing     -> m (Int32,Int32)                      -- result-layoutIndexToLineX _obj index trailing = liftIO $ do+layoutIndexToLineX _obj index_ trailing = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let trailing' = (fromIntegral . fromEnum) trailing     line <- allocMem :: IO (Ptr Int32)     xPos <- allocMem :: IO (Ptr Int32)-    pango_layout_index_to_line_x _obj' index trailing' line xPos+    pango_layout_index_to_line_x _obj' index_ trailing' line xPos     line' <- peek line     xPos' <- peek xPos     touchManagedPtr _obj@@ -1505,15 +1507,15 @@  -- method Layout::index_to_pos -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_index_to_pos" pango_layout_index_to_pos ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- index_ : TBasicType TInt32+    Int32 ->                                -- index_ : TBasicType TInt     Ptr Rectangle ->                        -- pos : TInterface "Pango" "Rectangle"     IO () @@ -1521,12 +1523,12 @@ layoutIndexToPos ::     (MonadIO m, LayoutK a) =>     a                                       -- _obj-    -> Int32                                -- index+    -> Int32                                -- index_     -> m (Rectangle)                        -- result-layoutIndexToPos _obj index = liftIO $ do+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'@@ -1539,7 +1541,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1567,7 +1569,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1593,20 +1595,20 @@  -- method Layout::move_cursor_visually -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_trailing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_index", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "new_trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_move_cursor_visually" pango_layout_move_cursor_visually ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"     CInt ->                                 -- strong : TBasicType TBoolean-    Int32 ->                                -- old_index : TBasicType TInt32-    Int32 ->                                -- old_trailing : TBasicType TInt32-    Int32 ->                                -- direction : TBasicType TInt32-    Ptr Int32 ->                            -- new_index : TBasicType TInt32-    Ptr Int32 ->                            -- new_trailing : TBasicType TInt32+    Int32 ->                                -- old_index : TBasicType TInt+    Int32 ->                                -- old_trailing : TBasicType TInt+    Int32 ->                                -- direction : TBasicType TInt+    Ptr Int32 ->                            -- new_index : TBasicType TInt+    Ptr Int32 ->                            -- new_trailing : TBasicType TInt     IO ()  @@ -1639,7 +1641,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1669,7 +1671,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1704,7 +1706,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1734,7 +1736,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1764,7 +1766,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1797,15 +1799,15 @@  -- method Layout::set_height -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_set_height" pango_layout_set_height ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- height : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt     IO ()  @@ -1826,15 +1828,15 @@  -- method Layout::set_indent -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_set_indent" pango_layout_set_indent ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- indent : TBasicType TInt32+    Int32 ->                                -- indent : TBasicType TInt     IO ()  @@ -1857,7 +1859,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1885,16 +1887,16 @@  -- method Layout::set_markup -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_set_markup" pango_layout_set_markup ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"     CString ->                              -- markup : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     IO ()  @@ -1918,16 +1920,16 @@  -- method Layout::set_markup_with_accel -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_set_markup_with_accel" pango_layout_set_markup_with_accel ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"     CString ->                              -- markup : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     CInt ->                                 -- accel_marker : TBasicType TUniChar     Ptr CInt ->                             -- accel_char : TBasicType TUniChar     IO ()@@ -1961,7 +1963,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1989,15 +1991,15 @@  -- method Layout::set_spacing -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_set_spacing" pango_layout_set_spacing ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- spacing : TBasicType TInt32+    Int32 ->                                -- spacing : TBasicType TInt     IO ()  @@ -2020,7 +2022,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2053,16 +2055,16 @@  -- method Layout::set_text -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_set_text" pango_layout_set_text ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"     CString ->                              -- text : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     IO ()  @@ -2086,15 +2088,15 @@  -- method Layout::set_width -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_layout_set_width" pango_layout_set_width ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt     IO ()  @@ -2117,7 +2119,7 @@ -- method type : OrdinaryMethod -- 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2145,18 +2147,18 @@  -- method Layout::xy_to_index -- method type : OrdinaryMethod--- 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}]+-- 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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "pango_layout_xy_to_index" pango_layout_xy_to_index ::      Ptr Layout ->                           -- _obj : TInterface "Pango" "Layout"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Ptr Int32 ->                            -- index_ : TBasicType TInt32-    Ptr Int32 ->                            -- trailing : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt+    Ptr Int32 ->                            -- index_ : TBasicType TInt+    Ptr Int32 ->                            -- trailing : TBasicType TInt     IO CInt  @@ -2168,16 +2170,16 @@     -> 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

@@ -1,8 +1,8 @@ module GI.Pango.Objects.Layout where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -116,9 +116,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -210,7 +210,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -237,7 +237,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -262,18 +262,18 @@  -- method Renderer::draw_error_underline -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", 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 = "width", argType = TBasicType TInt32, 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_renderer_draw_error_underline" pango_renderer_draw_error_underline ::      Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt+    Int32 ->                                -- width : TBasicType TInt+    Int32 ->                                -- height : TBasicType TInt     IO ()  @@ -299,7 +299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", 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},Arg {argCName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -336,9 +336,9 @@  -- method Renderer::draw_glyph_item -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_item", argType = TInterface "Pango" "GlyphItem", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -346,8 +346,8 @@     Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"     CString ->                              -- text : TBasicType TUTF8     Ptr GlyphItem ->                        -- glyph_item : TInterface "Pango" "GlyphItem"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt     IO ()  @@ -379,9 +379,9 @@  -- method Renderer::draw_glyphs -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", 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},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", 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},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -389,8 +389,8 @@     Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"     Ptr Font ->                             -- font : TInterface "Pango" "Font"     Ptr GlyphString ->                      -- glyphs : TInterface "Pango" "GlyphString"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt     IO ()  @@ -418,17 +418,17 @@  -- method Renderer::draw_layout -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_renderer_draw_layout" pango_renderer_draw_layout ::      Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"     Ptr Layout ->                           -- layout : TInterface "Pango" "Layout"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt     IO ()  @@ -453,17 +453,17 @@  -- method Renderer::draw_layout_line -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TInterface "Pango" "LayoutLine", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_renderer_draw_layout_line" pango_renderer_draw_layout_line ::      Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"     Ptr LayoutLine ->                       -- line : TInterface "Pango" "LayoutLine"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt     IO ()  @@ -488,19 +488,19 @@  -- method Renderer::draw_rectangle -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", 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 = "width", argType = TBasicType TInt32, 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_renderer_draw_rectangle" pango_renderer_draw_rectangle ::      Ptr Renderer ->                         -- _obj : TInterface "Pango" "Renderer"     CUInt ->                                -- part : TInterface "Pango" "RenderPart"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt+    Int32 ->                                -- width : TBasicType TInt+    Int32 ->                                -- height : TBasicType TInt     IO ()  @@ -528,7 +528,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x11", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x21", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x12", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x22", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -548,23 +548,23 @@     (MonadIO m, RendererK a) =>     a                                       -- _obj     -> RenderPart                           -- part-    -> Double                               -- y1+    -> Double                               -- y1_     -> Double                               -- x11     -> Double                               -- x21     -> Double                               -- y2     -> Double                               -- x12     -> Double                               -- x22     -> m ()                                 -- result-rendererDrawTrapezoid _obj part y1 x11 x21 y2 x12 x22 = liftIO $ do+rendererDrawTrapezoid _obj part y1_ x11 x21 y2 x12 x22 = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let part' = (fromIntegral . fromEnum) part-    let y1' = realToFrac y1+    let y1_' = realToFrac y1_     let x11' = realToFrac x11     let x21' = realToFrac x21     let y2' = realToFrac y2     let x12' = realToFrac x12     let x22' = realToFrac x22-    pango_renderer_draw_trapezoid _obj' part' y1' x11' x21' y2' x12' x22'+    pango_renderer_draw_trapezoid _obj' part' y1_' x11' x21' y2' x12' x22'     touchManagedPtr _obj     return () @@ -576,7 +576,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt16+-- returnType : Just (TBasicType TUInt16) -- throws : False -- Skip return : False @@ -606,7 +606,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Color"+-- returnType : Just (TInterface "Pango" "Color") -- throws : False -- Skip return : False @@ -620,25 +620,26 @@     (MonadIO m, RendererK a) =>     a                                       -- _obj     -> RenderPart                           -- part-    -> m Color                              -- result+    -> m (Maybe Color)                      -- result rendererGetColor _obj part = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let part' = (fromIntegral . fromEnum) part     result <- pango_renderer_get_color _obj' part'-    checkUnexpectedReturnNULL "pango_renderer_get_color" result-    result' <- (newBoxed Color) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed Color) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data RendererGetColorMethodInfo-instance (signature ~ (RenderPart -> m Color), MonadIO m, RendererK a) => MethodInfo RendererGetColorMethodInfo a signature where+instance (signature ~ (RenderPart -> m (Maybe Color)), MonadIO m, RendererK a) => MethodInfo RendererGetColorMethodInfo a signature where     overloadedMethod _ = rendererGetColor  -- method Renderer::get_layout -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Layout"+-- returnType : Just (TInterface "Pango" "Layout") -- throws : False -- Skip return : False @@ -650,24 +651,25 @@ rendererGetLayout ::     (MonadIO m, RendererK a) =>     a                                       -- _obj-    -> m Layout                             -- result+    -> m (Maybe Layout)                     -- result rendererGetLayout _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_renderer_get_layout _obj'-    checkUnexpectedReturnNULL "pango_renderer_get_layout" result-    result' <- (newObject Layout) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Layout) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data RendererGetLayoutMethodInfo-instance (signature ~ (m Layout), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutMethodInfo a signature where+instance (signature ~ (m (Maybe Layout)), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutMethodInfo a signature where     overloadedMethod _ = rendererGetLayout  -- method Renderer::get_layout_line -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "LayoutLine"+-- returnType : Just (TInterface "Pango" "LayoutLine") -- throws : False -- Skip return : False @@ -679,24 +681,25 @@ rendererGetLayoutLine ::     (MonadIO m, RendererK a) =>     a                                       -- _obj-    -> m LayoutLine                         -- result+    -> m (Maybe LayoutLine)                 -- result rendererGetLayoutLine _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_renderer_get_layout_line _obj'-    checkUnexpectedReturnNULL "pango_renderer_get_layout_line" result-    result' <- (newBoxed LayoutLine) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed LayoutLine) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data RendererGetLayoutLineMethodInfo-instance (signature ~ (m LayoutLine), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutLineMethodInfo a signature where+instance (signature ~ (m (Maybe LayoutLine)), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutLineMethodInfo a signature where     overloadedMethod _ = rendererGetLayoutLine  -- method Renderer::get_matrix -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "Matrix"+-- returnType : Just (TInterface "Pango" "Matrix") -- throws : False -- Skip return : False @@ -708,24 +711,25 @@ rendererGetMatrix ::     (MonadIO m, RendererK a) =>     a                                       -- _obj-    -> m Matrix                             -- result+    -> m (Maybe Matrix)                     -- result rendererGetMatrix _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- pango_renderer_get_matrix _obj'-    checkUnexpectedReturnNULL "pango_renderer_get_matrix" result-    result' <- (newBoxed Matrix) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed Matrix) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data RendererGetMatrixMethodInfo-instance (signature ~ (m Matrix), MonadIO m, RendererK a) => MethodInfo RendererGetMatrixMethodInfo a signature where+instance (signature ~ (m (Maybe Matrix)), MonadIO m, RendererK a) => MethodInfo RendererGetMatrixMethodInfo a signature where     overloadedMethod _ = rendererGetMatrix  -- method Renderer::part_changed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -755,7 +759,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -787,7 +791,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -825,7 +829,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", 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 : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Pango.Objects.Renderer where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -90,9 +90,9 @@ import GI.Pango.Structs.ScriptIter import GI.Pango.Structs.TabArray -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -20,48 +20,71 @@   -- * Properties -- ** ExtraAttrs+    analysisClearExtraAttrs                 ,+    analysisExtraAttrs                      ,     analysisReadExtraAttrs                  ,+    analysisWriteExtraAttrs                 ,   -- ** Flags+    analysisFlags                           ,     analysisReadFlags                       ,+    analysisWriteFlags                      ,   -- ** Font+    analysisClearFont                       ,+    analysisFont                            ,     analysisReadFont                        ,+    analysisWriteFont                       ,   -- ** Gravity+    analysisGravity                         ,     analysisReadGravity                     ,+    analysisWriteGravity                    ,   -- ** LangEngine+    analysisClearLangEngine                 ,+    analysisLangEngine                      ,     analysisReadLangEngine                  ,+    analysisWriteLangEngine                 ,   -- ** Language+    analysisClearLanguage                   ,+    analysisLanguage                        ,     analysisReadLanguage                    ,+    analysisWriteLanguage                   ,   -- ** Level+    analysisLevel                           ,     analysisReadLevel                       ,+    analysisWriteLevel                      ,   -- ** Script     analysisReadScript                      ,+    analysisScript                          ,+    analysisWriteScript                     ,   -- ** ShapeEngine+    analysisClearShapeEngine                ,     analysisReadShapeEngine                 ,+    analysisShapeEngine                     ,+    analysisWriteShapeEngine                ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -74,58 +97,277 @@ newZeroAnalysis :: MonadIO m => m Analysis newZeroAnalysis = liftIO $ callocBytes 48 >>= wrapPtr Analysis +instance tag ~ 'AttrSet => Constructible Analysis tag where+    new _ attrs = do+        o <- newZeroAnalysis+        GI.Attributes.set o attrs+        return o++ noAnalysis :: Maybe Analysis noAnalysis = Nothing -analysisReadShapeEngine :: Analysis -> IO EngineShape-analysisReadShapeEngine s = withManagedPtr s $ \ptr -> do+analysisReadShapeEngine :: MonadIO m => Analysis -> m (Maybe EngineShape)+analysisReadShapeEngine s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr EngineShape)-    val' <- (newObject EngineShape) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newObject EngineShape) val'+        return val''+    return result -analysisReadLangEngine :: Analysis -> IO EngineLang-analysisReadLangEngine s = withManagedPtr s $ \ptr -> do+analysisWriteShapeEngine :: MonadIO m => Analysis -> Ptr EngineShape -> m ()+analysisWriteShapeEngine s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr EngineShape)++analysisClearShapeEngine :: MonadIO m => Analysis -> m ()+analysisClearShapeEngine s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EngineShape)++data AnalysisShapeEngineFieldInfo+instance AttrInfo AnalysisShapeEngineFieldInfo where+    type AttrAllowedOps AnalysisShapeEngineFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AnalysisShapeEngineFieldInfo = (~) (Ptr EngineShape)+    type AttrBaseTypeConstraint AnalysisShapeEngineFieldInfo = (~) Analysis+    type AttrGetType AnalysisShapeEngineFieldInfo = Maybe EngineShape+    type AttrLabel AnalysisShapeEngineFieldInfo = "shape_engine"+    attrGet _ = analysisReadShapeEngine+    attrSet _ = analysisWriteShapeEngine+    attrConstruct = undefined+    attrClear _ = analysisClearShapeEngine++analysisShapeEngine :: AttrLabelProxy "shapeEngine"+analysisShapeEngine = AttrLabelProxy+++analysisReadLangEngine :: MonadIO m => Analysis -> m (Maybe EngineLang)+analysisReadLangEngine s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 8) :: IO (Ptr EngineLang)-    val' <- (newObject EngineLang) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newObject EngineLang) val'+        return val''+    return result -analysisReadFont :: Analysis -> IO Font-analysisReadFont s = withManagedPtr s $ \ptr -> do+analysisWriteLangEngine :: MonadIO m => Analysis -> Ptr EngineLang -> m ()+analysisWriteLangEngine s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (val :: Ptr EngineLang)++analysisClearLangEngine :: MonadIO m => Analysis -> m ()+analysisClearLangEngine s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 8) (nullPtr :: Ptr EngineLang)++data AnalysisLangEngineFieldInfo+instance AttrInfo AnalysisLangEngineFieldInfo where+    type AttrAllowedOps AnalysisLangEngineFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AnalysisLangEngineFieldInfo = (~) (Ptr EngineLang)+    type AttrBaseTypeConstraint AnalysisLangEngineFieldInfo = (~) Analysis+    type AttrGetType AnalysisLangEngineFieldInfo = Maybe EngineLang+    type AttrLabel AnalysisLangEngineFieldInfo = "lang_engine"+    attrGet _ = analysisReadLangEngine+    attrSet _ = analysisWriteLangEngine+    attrConstruct = undefined+    attrClear _ = analysisClearLangEngine++analysisLangEngine :: AttrLabelProxy "langEngine"+analysisLangEngine = AttrLabelProxy+++analysisReadFont :: MonadIO m => Analysis -> m (Maybe Font)+analysisReadFont s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO (Ptr Font)-    val' <- (newObject Font) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newObject Font) val'+        return val''+    return result -analysisReadLevel :: Analysis -> IO Word8-analysisReadLevel s = withManagedPtr s $ \ptr -> do+analysisWriteFont :: MonadIO m => Analysis -> Ptr Font -> m ()+analysisWriteFont s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Ptr Font)++analysisClearFont :: MonadIO m => Analysis -> m ()+analysisClearFont s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: Ptr Font)++data AnalysisFontFieldInfo+instance AttrInfo AnalysisFontFieldInfo where+    type AttrAllowedOps AnalysisFontFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AnalysisFontFieldInfo = (~) (Ptr Font)+    type AttrBaseTypeConstraint AnalysisFontFieldInfo = (~) Analysis+    type AttrGetType AnalysisFontFieldInfo = Maybe Font+    type AttrLabel AnalysisFontFieldInfo = "font"+    attrGet _ = analysisReadFont+    attrSet _ = analysisWriteFont+    attrConstruct = undefined+    attrClear _ = analysisClearFont++analysisFont :: AttrLabelProxy "font"+analysisFont = AttrLabelProxy+++analysisReadLevel :: MonadIO m => Analysis -> m Word8+analysisReadLevel s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 24) :: IO Word8     return val -analysisReadGravity :: Analysis -> IO Word8-analysisReadGravity s = withManagedPtr s $ \ptr -> do+analysisWriteLevel :: MonadIO m => Analysis -> Word8 -> m ()+analysisWriteLevel s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 24) (val :: Word8)++data AnalysisLevelFieldInfo+instance AttrInfo AnalysisLevelFieldInfo where+    type AttrAllowedOps AnalysisLevelFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint AnalysisLevelFieldInfo = (~) Word8+    type AttrBaseTypeConstraint AnalysisLevelFieldInfo = (~) Analysis+    type AttrGetType AnalysisLevelFieldInfo = Word8+    type AttrLabel AnalysisLevelFieldInfo = "level"+    attrGet _ = analysisReadLevel+    attrSet _ = analysisWriteLevel+    attrConstruct = undefined+    attrClear _ = undefined++analysisLevel :: AttrLabelProxy "level"+analysisLevel = AttrLabelProxy+++analysisReadGravity :: MonadIO m => Analysis -> m Word8+analysisReadGravity s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 25) :: IO Word8     return val -analysisReadFlags :: Analysis -> IO Word8-analysisReadFlags s = withManagedPtr s $ \ptr -> do+analysisWriteGravity :: MonadIO m => Analysis -> Word8 -> m ()+analysisWriteGravity s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 25) (val :: Word8)++data AnalysisGravityFieldInfo+instance AttrInfo AnalysisGravityFieldInfo where+    type AttrAllowedOps AnalysisGravityFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint AnalysisGravityFieldInfo = (~) Word8+    type AttrBaseTypeConstraint AnalysisGravityFieldInfo = (~) Analysis+    type AttrGetType AnalysisGravityFieldInfo = Word8+    type AttrLabel AnalysisGravityFieldInfo = "gravity"+    attrGet _ = analysisReadGravity+    attrSet _ = analysisWriteGravity+    attrConstruct = undefined+    attrClear _ = undefined++analysisGravity :: AttrLabelProxy "gravity"+analysisGravity = AttrLabelProxy+++analysisReadFlags :: MonadIO m => Analysis -> m Word8+analysisReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 26) :: IO Word8     return val -analysisReadScript :: Analysis -> IO Word8-analysisReadScript s = withManagedPtr s $ \ptr -> do+analysisWriteFlags :: MonadIO m => Analysis -> Word8 -> m ()+analysisWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 26) (val :: Word8)++data AnalysisFlagsFieldInfo+instance AttrInfo AnalysisFlagsFieldInfo where+    type AttrAllowedOps AnalysisFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint AnalysisFlagsFieldInfo = (~) Word8+    type AttrBaseTypeConstraint AnalysisFlagsFieldInfo = (~) Analysis+    type AttrGetType AnalysisFlagsFieldInfo = Word8+    type AttrLabel AnalysisFlagsFieldInfo = "flags"+    attrGet _ = analysisReadFlags+    attrSet _ = analysisWriteFlags+    attrConstruct = undefined+    attrClear _ = undefined++analysisFlags :: AttrLabelProxy "flags"+analysisFlags = AttrLabelProxy+++analysisReadScript :: MonadIO m => Analysis -> m Word8+analysisReadScript s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 27) :: IO Word8     return val -analysisReadLanguage :: Analysis -> IO Language-analysisReadLanguage s = withManagedPtr s $ \ptr -> do+analysisWriteScript :: MonadIO m => Analysis -> Word8 -> m ()+analysisWriteScript s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 27) (val :: Word8)++data AnalysisScriptFieldInfo+instance AttrInfo AnalysisScriptFieldInfo where+    type AttrAllowedOps AnalysisScriptFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint AnalysisScriptFieldInfo = (~) Word8+    type AttrBaseTypeConstraint AnalysisScriptFieldInfo = (~) Analysis+    type AttrGetType AnalysisScriptFieldInfo = Word8+    type AttrLabel AnalysisScriptFieldInfo = "script"+    attrGet _ = analysisReadScript+    attrSet _ = analysisWriteScript+    attrConstruct = undefined+    attrClear _ = undefined++analysisScript :: AttrLabelProxy "script"+analysisScript = AttrLabelProxy+++analysisReadLanguage :: MonadIO m => Analysis -> m (Maybe Language)+analysisReadLanguage s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 32) :: IO (Ptr Language)-    val' <- (newBoxed Language) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newBoxed Language) val'+        return val''+    return result -analysisReadExtraAttrs :: Analysis -> IO ([Ptr ()])-analysisReadExtraAttrs s = withManagedPtr s $ \ptr -> do+analysisWriteLanguage :: MonadIO m => Analysis -> Ptr Language -> m ()+analysisWriteLanguage s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 32) (val :: Ptr Language)++analysisClearLanguage :: MonadIO m => Analysis -> m ()+analysisClearLanguage s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Language)++data AnalysisLanguageFieldInfo+instance AttrInfo AnalysisLanguageFieldInfo where+    type AttrAllowedOps AnalysisLanguageFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AnalysisLanguageFieldInfo = (~) (Ptr Language)+    type AttrBaseTypeConstraint AnalysisLanguageFieldInfo = (~) Analysis+    type AttrGetType AnalysisLanguageFieldInfo = Maybe Language+    type AttrLabel AnalysisLanguageFieldInfo = "language"+    attrGet _ = analysisReadLanguage+    attrSet _ = analysisWriteLanguage+    attrConstruct = undefined+    attrClear _ = analysisClearLanguage++analysisLanguage :: AttrLabelProxy "language"+analysisLanguage = AttrLabelProxy+++analysisReadExtraAttrs :: MonadIO m => Analysis -> m ([Ptr ()])+analysisReadExtraAttrs s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 40) :: IO (Ptr (GSList (Ptr ())))     val' <- unpackGSList val     return val'++analysisWriteExtraAttrs :: MonadIO m => Analysis -> Ptr (GSList (Ptr ())) -> m ()+analysisWriteExtraAttrs s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 40) (val :: Ptr (GSList (Ptr ())))++analysisClearExtraAttrs :: MonadIO m => Analysis -> m ()+analysisClearExtraAttrs s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 40) (nullPtr :: Ptr (GSList (Ptr ())))++data AnalysisExtraAttrsFieldInfo+instance AttrInfo AnalysisExtraAttrsFieldInfo where+    type AttrAllowedOps AnalysisExtraAttrsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AnalysisExtraAttrsFieldInfo = (~) (Ptr (GSList (Ptr ())))+    type AttrBaseTypeConstraint AnalysisExtraAttrsFieldInfo = (~) Analysis+    type AttrGetType AnalysisExtraAttrsFieldInfo = [Ptr ()]+    type AttrLabel AnalysisExtraAttrsFieldInfo = "extra_attrs"+    attrGet _ = analysisReadExtraAttrs+    attrSet _ = analysisWriteExtraAttrs+    attrConstruct = undefined+    attrClear _ = analysisClearExtraAttrs++analysisExtraAttrs :: AttrLabelProxy "extraAttrs"+analysisExtraAttrs = AttrLabelProxy++++type instance AttributeList Analysis = AnalysisAttributeList+type AnalysisAttributeList = ('[ '("shapeEngine", AnalysisShapeEngineFieldInfo), '("langEngine", AnalysisLangEngineFieldInfo), '("font", AnalysisFontFieldInfo), '("level", AnalysisLevelFieldInfo), '("gravity", AnalysisGravityFieldInfo), '("flags", AnalysisFlagsFieldInfo), '("script", AnalysisScriptFieldInfo), '("language", AnalysisLanguageFieldInfo), '("extraAttrs", AnalysisExtraAttrsFieldInfo)] :: [(Symbol, *)])  type family ResolveAnalysisMethod (t :: Symbol) (o :: *) :: * where     ResolveAnalysisMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.Analysis where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -23,15 +23,17 @@  -- * Properties -- ** Type     attrClassReadType                       ,+    attrClassType                           ,+    attrClassWriteType                      ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -44,18 +46,48 @@ newZeroAttrClass :: MonadIO m => m AttrClass newZeroAttrClass = liftIO $ callocBytes 32 >>= wrapPtr AttrClass +instance tag ~ 'AttrSet => Constructible AttrClass tag where+    new _ attrs = do+        o <- newZeroAttrClass+        GI.Attributes.set o attrs+        return o++ noAttrClass :: Maybe AttrClass noAttrClass = Nothing -attrClassReadType :: AttrClass -> IO AttrType-attrClassReadType s = withManagedPtr s $ \ptr -> do+attrClassReadType :: MonadIO m => AttrClass -> m AttrType+attrClassReadType s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO CUInt     let val' = (toEnum . fromIntegral) val     return val' --- XXX Skipped getter for "AttrClass:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet"+attrClassWriteType :: MonadIO m => AttrClass -> AttrType -> m ()+attrClassWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = (fromIntegral . fromEnum) val+    poke (ptr `plusPtr` 0) (val' :: CUInt) --- XXX Skipped getter for "AttrClass:equal" :: Not implemented: "Wrapping foreign callbacks is not supported yet"+data AttrClassTypeFieldInfo+instance AttrInfo AttrClassTypeFieldInfo where+    type AttrAllowedOps AttrClassTypeFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint AttrClassTypeFieldInfo = (~) AttrType+    type AttrBaseTypeConstraint AttrClassTypeFieldInfo = (~) AttrClass+    type AttrGetType AttrClassTypeFieldInfo = AttrType+    type AttrLabel AttrClassTypeFieldInfo = "type"+    attrGet _ = attrClassReadType+    attrSet _ = attrClassWriteType+    attrConstruct = undefined+    attrClear _ = undefined++attrClassType :: AttrLabelProxy "type"+attrClassType = AttrLabelProxy+++-- XXX Skipped attribute for "AttrClass:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet"+-- XXX Skipped attribute for "AttrClass:equal" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++type instance AttributeList AttrClass = AttrClassAttributeList+type AttrClassAttributeList = ('[ '("type", AttrClassTypeFieldInfo)] :: [(Symbol, *)])  type family ResolveAttrClassMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrClassMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrClass where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -20,20 +20,26 @@   -- * Properties -- ** Attr+    attrColorAttr                           ,+    attrColorClearAttr                      ,     attrColorReadAttr                       ,+    attrColorWriteAttr                      ,   -- ** Color+    attrColorClearColor                     ,+    attrColorColor                          ,     attrColorReadColor                      ,+    attrColorWriteColor                     ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -46,20 +52,83 @@ newZeroAttrColor :: MonadIO m => m AttrColor newZeroAttrColor = liftIO $ callocBytes 24 >>= wrapPtr AttrColor +instance tag ~ 'AttrSet => Constructible AttrColor tag where+    new _ attrs = do+        o <- newZeroAttrColor+        GI.Attributes.set o attrs+        return o++ noAttrColor :: Maybe AttrColor noAttrColor = Nothing -attrColorReadAttr :: AttrColor -> IO Attribute-attrColorReadAttr s = withManagedPtr s $ \ptr -> do+attrColorReadAttr :: MonadIO m => AttrColor -> m (Maybe Attribute)+attrColorReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Attribute) val'+        return val''+    return result -attrColorReadColor :: AttrColor -> IO Color-attrColorReadColor s = withManagedPtr s $ \ptr -> do+attrColorWriteAttr :: MonadIO m => AttrColor -> Ptr Attribute -> m ()+attrColorWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr Attribute)++attrColorClearAttr :: MonadIO m => AttrColor -> m ()+attrColorClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)++data AttrColorAttrFieldInfo+instance AttrInfo AttrColorAttrFieldInfo where+    type AttrAllowedOps AttrColorAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrColorAttrFieldInfo = (~) (Ptr Attribute)+    type AttrBaseTypeConstraint AttrColorAttrFieldInfo = (~) AttrColor+    type AttrGetType AttrColorAttrFieldInfo = Maybe Attribute+    type AttrLabel AttrColorAttrFieldInfo = "attr"+    attrGet _ = attrColorReadAttr+    attrSet _ = attrColorWriteAttr+    attrConstruct = undefined+    attrClear _ = attrColorClearAttr++attrColorAttr :: AttrLabelProxy "attr"+attrColorAttr = AttrLabelProxy+++attrColorReadColor :: MonadIO m => AttrColor -> m (Maybe Color)+attrColorReadColor s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO (Ptr Color)-    val' <- (newBoxed Color) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newBoxed Color) val'+        return val''+    return result++attrColorWriteColor :: MonadIO m => AttrColor -> Ptr Color -> m ()+attrColorWriteColor s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Ptr Color)++attrColorClearColor :: MonadIO m => AttrColor -> m ()+attrColorClearColor s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: Ptr Color)++data AttrColorColorFieldInfo+instance AttrInfo AttrColorColorFieldInfo where+    type AttrAllowedOps AttrColorColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrColorColorFieldInfo = (~) (Ptr Color)+    type AttrBaseTypeConstraint AttrColorColorFieldInfo = (~) AttrColor+    type AttrGetType AttrColorColorFieldInfo = Maybe Color+    type AttrLabel AttrColorColorFieldInfo = "color"+    attrGet _ = attrColorReadColor+    attrSet _ = attrColorWriteColor+    attrConstruct = undefined+    attrClear _ = attrColorClearColor++attrColorColor :: AttrLabelProxy "color"+attrColorColor = AttrLabelProxy++++type instance AttributeList AttrColor = AttrColorAttributeList+type AttrColorAttributeList = ('[ '("attr", AttrColorAttrFieldInfo), '("color", AttrColorColorFieldInfo)] :: [(Symbol, *)])  type family ResolveAttrColorMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrColorMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrColor where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -20,20 +20,25 @@   -- * Properties -- ** Attr+    attrFloatAttr                           ,+    attrFloatClearAttr                      ,     attrFloatReadAttr                       ,+    attrFloatWriteAttr                      ,   -- ** Value     attrFloatReadValue                      ,+    attrFloatValue                          ,+    attrFloatWriteValue                     ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -46,20 +51,78 @@ newZeroAttrFloat :: MonadIO m => m AttrFloat newZeroAttrFloat = liftIO $ callocBytes 24 >>= wrapPtr AttrFloat +instance tag ~ 'AttrSet => Constructible AttrFloat tag where+    new _ attrs = do+        o <- newZeroAttrFloat+        GI.Attributes.set o attrs+        return o++ noAttrFloat :: Maybe AttrFloat noAttrFloat = Nothing -attrFloatReadAttr :: AttrFloat -> IO Attribute-attrFloatReadAttr s = withManagedPtr s $ \ptr -> do+attrFloatReadAttr :: MonadIO m => AttrFloat -> m (Maybe Attribute)+attrFloatReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Attribute) val'+        return val''+    return result -attrFloatReadValue :: AttrFloat -> IO Double-attrFloatReadValue s = withManagedPtr s $ \ptr -> do+attrFloatWriteAttr :: MonadIO m => AttrFloat -> Ptr Attribute -> m ()+attrFloatWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr Attribute)++attrFloatClearAttr :: MonadIO m => AttrFloat -> m ()+attrFloatClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)++data AttrFloatAttrFieldInfo+instance AttrInfo AttrFloatAttrFieldInfo where+    type AttrAllowedOps AttrFloatAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrFloatAttrFieldInfo = (~) (Ptr Attribute)+    type AttrBaseTypeConstraint AttrFloatAttrFieldInfo = (~) AttrFloat+    type AttrGetType AttrFloatAttrFieldInfo = Maybe Attribute+    type AttrLabel AttrFloatAttrFieldInfo = "attr"+    attrGet _ = attrFloatReadAttr+    attrSet _ = attrFloatWriteAttr+    attrConstruct = undefined+    attrClear _ = attrFloatClearAttr++attrFloatAttr :: AttrLabelProxy "attr"+attrFloatAttr = AttrLabelProxy+++attrFloatReadValue :: MonadIO m => AttrFloat -> m Double+attrFloatReadValue s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO CDouble     let val' = realToFrac val     return val'++attrFloatWriteValue :: MonadIO m => AttrFloat -> Double -> m ()+attrFloatWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do+    let val' = realToFrac val+    poke (ptr `plusPtr` 16) (val' :: CDouble)++data AttrFloatValueFieldInfo+instance AttrInfo AttrFloatValueFieldInfo where+    type AttrAllowedOps AttrFloatValueFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint AttrFloatValueFieldInfo = (~) Double+    type AttrBaseTypeConstraint AttrFloatValueFieldInfo = (~) AttrFloat+    type AttrGetType AttrFloatValueFieldInfo = Double+    type AttrLabel AttrFloatValueFieldInfo = "value"+    attrGet _ = attrFloatReadValue+    attrSet _ = attrFloatWriteValue+    attrConstruct = undefined+    attrClear _ = undefined++attrFloatValue :: AttrLabelProxy "value"+attrFloatValue = AttrLabelProxy++++type instance AttributeList AttrFloat = AttrFloatAttributeList+type AttrFloatAttributeList = ('[ '("attr", AttrFloatAttrFieldInfo), '("value", AttrFloatValueFieldInfo)] :: [(Symbol, *)])  type family ResolveAttrFloatMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrFloatMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrFloat where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,22 +18,35 @@     noAttrFontDesc                          ,  + -- * Methods+-- ** attrFontDescNew+    attrFontDescNew                         ,++++  -- * Properties -- ** Attr+    attrFontDescAttr                        ,+    attrFontDescClearAttr                   ,     attrFontDescReadAttr                    ,+    attrFontDescWriteAttr                   ,   -- ** Desc+    attrFontDescClearDesc                   ,+    attrFontDescDesc                        ,     attrFontDescReadDesc                    ,+    attrFontDescWriteDesc                   ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -46,20 +59,108 @@ newZeroAttrFontDesc :: MonadIO m => m AttrFontDesc newZeroAttrFontDesc = liftIO $ callocBytes 24 >>= wrapPtr AttrFontDesc +instance tag ~ 'AttrSet => Constructible AttrFontDesc tag where+    new _ attrs = do+        o <- newZeroAttrFontDesc+        GI.Attributes.set o attrs+        return o++ noAttrFontDesc :: Maybe AttrFontDesc noAttrFontDesc = Nothing -attrFontDescReadAttr :: AttrFontDesc -> IO Attribute-attrFontDescReadAttr s = withManagedPtr s $ \ptr -> do+attrFontDescReadAttr :: MonadIO m => AttrFontDesc -> m (Maybe Attribute)+attrFontDescReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Attribute) val'+        return val''+    return result -attrFontDescReadDesc :: AttrFontDesc -> IO FontDescription-attrFontDescReadDesc s = withManagedPtr s $ \ptr -> do+attrFontDescWriteAttr :: MonadIO m => AttrFontDesc -> Ptr Attribute -> m ()+attrFontDescWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr Attribute)++attrFontDescClearAttr :: MonadIO m => AttrFontDesc -> m ()+attrFontDescClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)++data AttrFontDescAttrFieldInfo+instance AttrInfo AttrFontDescAttrFieldInfo where+    type AttrAllowedOps AttrFontDescAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrFontDescAttrFieldInfo = (~) (Ptr Attribute)+    type AttrBaseTypeConstraint AttrFontDescAttrFieldInfo = (~) AttrFontDesc+    type AttrGetType AttrFontDescAttrFieldInfo = Maybe Attribute+    type AttrLabel AttrFontDescAttrFieldInfo = "attr"+    attrGet _ = attrFontDescReadAttr+    attrSet _ = attrFontDescWriteAttr+    attrConstruct = undefined+    attrClear _ = attrFontDescClearAttr++attrFontDescAttr :: AttrLabelProxy "attr"+attrFontDescAttr = AttrLabelProxy+++attrFontDescReadDesc :: MonadIO m => AttrFontDesc -> m (Maybe FontDescription)+attrFontDescReadDesc s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO (Ptr FontDescription)-    val' <- (newBoxed FontDescription) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newBoxed FontDescription) val'+        return val''+    return result++attrFontDescWriteDesc :: MonadIO m => AttrFontDesc -> Ptr FontDescription -> m ()+attrFontDescWriteDesc s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Ptr FontDescription)++attrFontDescClearDesc :: MonadIO m => AttrFontDesc -> m ()+attrFontDescClearDesc s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: Ptr FontDescription)++data AttrFontDescDescFieldInfo+instance AttrInfo AttrFontDescDescFieldInfo where+    type AttrAllowedOps AttrFontDescDescFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrFontDescDescFieldInfo = (~) (Ptr FontDescription)+    type AttrBaseTypeConstraint AttrFontDescDescFieldInfo = (~) AttrFontDesc+    type AttrGetType AttrFontDescDescFieldInfo = Maybe FontDescription+    type AttrLabel AttrFontDescDescFieldInfo = "desc"+    attrGet _ = attrFontDescReadDesc+    attrSet _ = attrFontDescWriteDesc+    attrConstruct = undefined+    attrClear _ = attrFontDescClearDesc++attrFontDescDesc :: AttrLabelProxy "desc"+attrFontDescDesc = AttrLabelProxy++++type instance AttributeList AttrFontDesc = AttrFontDescAttributeList+type AttrFontDescAttributeList = ('[ '("attr", AttrFontDescAttrFieldInfo), '("desc", AttrFontDescDescFieldInfo)] :: [(Symbol, *)])++-- method AttrFontDesc::new+-- method type : MemberFunction+-- Args : [Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_font_desc_new" pango_attr_font_desc_new :: +    Ptr FontDescription ->                  -- desc : TInterface "Pango" "FontDescription"+    IO (Ptr Attribute)+++attrFontDescNew ::+    (MonadIO m) =>+    FontDescription                         -- desc+    -> m Attribute                          -- result+attrFontDescNew desc = liftIO $ do+    let desc' = unsafeManagedPtrGetPtr desc+    result <- pango_attr_font_desc_new desc'+    checkUnexpectedReturnNULL "pango_attr_font_desc_new" result+    result' <- (wrapPtr Attribute) result+    touchManagedPtr desc+    return result'  type family ResolveAttrFontDescMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrFontDescMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrFontDesc where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,22 +18,35 @@     noAttrFontFeatures                      ,  + -- * Methods+-- ** attrFontFeaturesNew+    attrFontFeaturesNew                     ,++++  -- * Properties -- ** Attr+    attrFontFeaturesAttr                    ,+    attrFontFeaturesClearAttr               ,     attrFontFeaturesReadAttr                ,+    attrFontFeaturesWriteAttr               ,   -- ** Features+    attrFontFeaturesClearFeatures           ,+    attrFontFeaturesFeatures                ,     attrFontFeaturesReadFeatures            ,+    attrFontFeaturesWriteFeatures           ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -46,20 +59,108 @@ newZeroAttrFontFeatures :: MonadIO m => m AttrFontFeatures newZeroAttrFontFeatures = liftIO $ callocBytes 24 >>= wrapPtr AttrFontFeatures +instance tag ~ 'AttrSet => Constructible AttrFontFeatures tag where+    new _ attrs = do+        o <- newZeroAttrFontFeatures+        GI.Attributes.set o attrs+        return o++ noAttrFontFeatures :: Maybe AttrFontFeatures noAttrFontFeatures = Nothing -attrFontFeaturesReadAttr :: AttrFontFeatures -> IO Attribute-attrFontFeaturesReadAttr s = withManagedPtr s $ \ptr -> do+attrFontFeaturesReadAttr :: MonadIO m => AttrFontFeatures -> m (Maybe Attribute)+attrFontFeaturesReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Attribute) val'+        return val''+    return result -attrFontFeaturesReadFeatures :: AttrFontFeatures -> IO T.Text-attrFontFeaturesReadFeatures s = withManagedPtr s $ \ptr -> do+attrFontFeaturesWriteAttr :: MonadIO m => AttrFontFeatures -> Ptr Attribute -> m ()+attrFontFeaturesWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr Attribute)++attrFontFeaturesClearAttr :: MonadIO m => AttrFontFeatures -> m ()+attrFontFeaturesClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)++data AttrFontFeaturesAttrFieldInfo+instance AttrInfo AttrFontFeaturesAttrFieldInfo where+    type AttrAllowedOps AttrFontFeaturesAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrFontFeaturesAttrFieldInfo = (~) (Ptr Attribute)+    type AttrBaseTypeConstraint AttrFontFeaturesAttrFieldInfo = (~) AttrFontFeatures+    type AttrGetType AttrFontFeaturesAttrFieldInfo = Maybe Attribute+    type AttrLabel AttrFontFeaturesAttrFieldInfo = "attr"+    attrGet _ = attrFontFeaturesReadAttr+    attrSet _ = attrFontFeaturesWriteAttr+    attrConstruct = undefined+    attrClear _ = attrFontFeaturesClearAttr++attrFontFeaturesAttr :: AttrLabelProxy "attr"+attrFontFeaturesAttr = AttrLabelProxy+++attrFontFeaturesReadFeatures :: MonadIO m => AttrFontFeatures -> m (Maybe T.Text)+attrFontFeaturesReadFeatures s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO CString-    val' <- cstringToText val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- cstringToText val'+        return val''+    return result++attrFontFeaturesWriteFeatures :: MonadIO m => AttrFontFeatures -> CString -> m ()+attrFontFeaturesWriteFeatures s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: CString)++attrFontFeaturesClearFeatures :: MonadIO m => AttrFontFeatures -> m ()+attrFontFeaturesClearFeatures s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: CString)++data AttrFontFeaturesFeaturesFieldInfo+instance AttrInfo AttrFontFeaturesFeaturesFieldInfo where+    type AttrAllowedOps AttrFontFeaturesFeaturesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrFontFeaturesFeaturesFieldInfo = (~) CString+    type AttrBaseTypeConstraint AttrFontFeaturesFeaturesFieldInfo = (~) AttrFontFeatures+    type AttrGetType AttrFontFeaturesFeaturesFieldInfo = Maybe T.Text+    type AttrLabel AttrFontFeaturesFeaturesFieldInfo = "features"+    attrGet _ = attrFontFeaturesReadFeatures+    attrSet _ = attrFontFeaturesWriteFeatures+    attrConstruct = undefined+    attrClear _ = attrFontFeaturesClearFeatures++attrFontFeaturesFeatures :: AttrLabelProxy "features"+attrFontFeaturesFeatures = AttrLabelProxy++++type instance AttributeList AttrFontFeatures = AttrFontFeaturesAttributeList+type AttrFontFeaturesAttributeList = ('[ '("attr", AttrFontFeaturesAttrFieldInfo), '("features", AttrFontFeaturesFeaturesFieldInfo)] :: [(Symbol, *)])++-- method AttrFontFeatures::new+-- method type : MemberFunction+-- Args : [Arg {argCName = "features", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_font_features_new" pango_attr_font_features_new :: +    CString ->                              -- features : TBasicType TUTF8+    IO (Ptr Attribute)+++attrFontFeaturesNew ::+    (MonadIO m) =>+    T.Text                                  -- features+    -> m Attribute                          -- result+attrFontFeaturesNew features = liftIO $ do+    features' <- textToCString features+    result <- pango_attr_font_features_new features'+    checkUnexpectedReturnNULL "pango_attr_font_features_new" result+    result' <- (wrapPtr Attribute) result+    freeMem features'+    return result'  type family ResolveAttrFontFeaturesMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrFontFeaturesMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrFontFeatures where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -20,20 +20,25 @@   -- * Properties -- ** Attr+    attrIntAttr                             ,+    attrIntClearAttr                        ,     attrIntReadAttr                         ,+    attrIntWriteAttr                        ,   -- ** Value     attrIntReadValue                        ,+    attrIntValue                            ,+    attrIntWriteValue                       ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -46,19 +51,76 @@ newZeroAttrInt :: MonadIO m => m AttrInt newZeroAttrInt = liftIO $ callocBytes 24 >>= wrapPtr AttrInt +instance tag ~ 'AttrSet => Constructible AttrInt tag where+    new _ attrs = do+        o <- newZeroAttrInt+        GI.Attributes.set o attrs+        return o++ noAttrInt :: Maybe AttrInt noAttrInt = Nothing -attrIntReadAttr :: AttrInt -> IO Attribute-attrIntReadAttr s = withManagedPtr s $ \ptr -> do+attrIntReadAttr :: MonadIO m => AttrInt -> m (Maybe Attribute)+attrIntReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Attribute) val'+        return val''+    return result -attrIntReadValue :: AttrInt -> IO Int32-attrIntReadValue s = withManagedPtr s $ \ptr -> do+attrIntWriteAttr :: MonadIO m => AttrInt -> Ptr Attribute -> m ()+attrIntWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr Attribute)++attrIntClearAttr :: MonadIO m => AttrInt -> m ()+attrIntClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)++data AttrIntAttrFieldInfo+instance AttrInfo AttrIntAttrFieldInfo where+    type AttrAllowedOps AttrIntAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrIntAttrFieldInfo = (~) (Ptr Attribute)+    type AttrBaseTypeConstraint AttrIntAttrFieldInfo = (~) AttrInt+    type AttrGetType AttrIntAttrFieldInfo = Maybe Attribute+    type AttrLabel AttrIntAttrFieldInfo = "attr"+    attrGet _ = attrIntReadAttr+    attrSet _ = attrIntWriteAttr+    attrConstruct = undefined+    attrClear _ = attrIntClearAttr++attrIntAttr :: AttrLabelProxy "attr"+attrIntAttr = AttrLabelProxy+++attrIntReadValue :: MonadIO m => AttrInt -> m Int32+attrIntReadValue s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO Int32     return val++attrIntWriteValue :: MonadIO m => AttrInt -> Int32 -> m ()+attrIntWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Int32)++data AttrIntValueFieldInfo+instance AttrInfo AttrIntValueFieldInfo where+    type AttrAllowedOps AttrIntValueFieldInfo = '[ 'AttrSet, 'AttrGet]+    type AttrSetTypeConstraint AttrIntValueFieldInfo = (~) Int32+    type AttrBaseTypeConstraint AttrIntValueFieldInfo = (~) AttrInt+    type AttrGetType AttrIntValueFieldInfo = Int32+    type AttrLabel AttrIntValueFieldInfo = "value"+    attrGet _ = attrIntReadValue+    attrSet _ = attrIntWriteValue+    attrConstruct = undefined+    attrClear _ = undefined++attrIntValue :: AttrLabelProxy "value"+attrIntValue = AttrLabelProxy++++type instance AttributeList AttrInt = AttrIntAttributeList+type AttrIntAttributeList = ('[ '("attr", AttrIntAttrFieldInfo), '("value", AttrIntValueFieldInfo)] :: [(Symbol, *)])  type family ResolveAttrIntMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrIntMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrInt where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -52,9 +52,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -66,11 +66,15 @@ noAttrIterator :: Maybe AttrIterator noAttrIterator = Nothing ++type instance AttributeList AttrIterator = AttrIteratorAttributeList+type AttrIteratorAttributeList = ('[ ] :: [(Symbol, *)])+ -- method AttrIterator::destroy -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -97,7 +101,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Pango" "Attribute")+-- returnType : Just (TGSList (TInterface "Pango" "Attribute")) -- throws : False -- Skip return : False @@ -113,7 +117,6 @@ attrIteratorGetAttrs _obj = liftIO $ do     let _obj' = unsafeManagedPtrGetPtr _obj     result <- pango_attr_iterator_get_attrs _obj'-    checkUnexpectedReturnNULL "pango_attr_iterator_get_attrs" result     result' <- unpackGSList result     result'' <- mapM (wrapPtr Attribute) result'     g_slist_free result@@ -128,7 +131,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extra_attrs", argType = TGSList (TInterface "Pango" "Attribute"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -172,7 +175,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -198,16 +201,16 @@  -- method AttrIterator::range -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_attr_iterator_range" pango_attr_iterator_range ::      Ptr AttrIterator ->                     -- _obj : TInterface "Pango" "AttrIterator"-    Ptr Int32 ->                            -- start : TBasicType TInt32-    Ptr Int32 ->                            -- end : TBasicType TInt32+    Ptr Int32 ->                            -- start : TBasicType TInt+    Ptr Int32 ->                            -- end : TBasicType TInt     IO ()  

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrIterator where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,22 +18,35 @@     noAttrLanguage                          ,  + -- * Methods+-- ** attrLanguageNew+    attrLanguageNew                         ,++++  -- * Properties -- ** Attr+    attrLanguageAttr                        ,+    attrLanguageClearAttr                   ,     attrLanguageReadAttr                    ,+    attrLanguageWriteAttr                   ,   -- ** Value+    attrLanguageClearValue                  ,     attrLanguageReadValue                   ,+    attrLanguageValue                       ,+    attrLanguageWriteValue                  ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -46,20 +59,108 @@ newZeroAttrLanguage :: MonadIO m => m AttrLanguage newZeroAttrLanguage = liftIO $ callocBytes 24 >>= wrapPtr AttrLanguage +instance tag ~ 'AttrSet => Constructible AttrLanguage tag where+    new _ attrs = do+        o <- newZeroAttrLanguage+        GI.Attributes.set o attrs+        return o++ noAttrLanguage :: Maybe AttrLanguage noAttrLanguage = Nothing -attrLanguageReadAttr :: AttrLanguage -> IO Attribute-attrLanguageReadAttr s = withManagedPtr s $ \ptr -> do+attrLanguageReadAttr :: MonadIO m => AttrLanguage -> m (Maybe Attribute)+attrLanguageReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Attribute) val'+        return val''+    return result -attrLanguageReadValue :: AttrLanguage -> IO Language-attrLanguageReadValue s = withManagedPtr s $ \ptr -> do+attrLanguageWriteAttr :: MonadIO m => AttrLanguage -> Ptr Attribute -> m ()+attrLanguageWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr Attribute)++attrLanguageClearAttr :: MonadIO m => AttrLanguage -> m ()+attrLanguageClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)++data AttrLanguageAttrFieldInfo+instance AttrInfo AttrLanguageAttrFieldInfo where+    type AttrAllowedOps AttrLanguageAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrLanguageAttrFieldInfo = (~) (Ptr Attribute)+    type AttrBaseTypeConstraint AttrLanguageAttrFieldInfo = (~) AttrLanguage+    type AttrGetType AttrLanguageAttrFieldInfo = Maybe Attribute+    type AttrLabel AttrLanguageAttrFieldInfo = "attr"+    attrGet _ = attrLanguageReadAttr+    attrSet _ = attrLanguageWriteAttr+    attrConstruct = undefined+    attrClear _ = attrLanguageClearAttr++attrLanguageAttr :: AttrLabelProxy "attr"+attrLanguageAttr = AttrLabelProxy+++attrLanguageReadValue :: MonadIO m => AttrLanguage -> m (Maybe Language)+attrLanguageReadValue s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO (Ptr Language)-    val' <- (newBoxed Language) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newBoxed Language) val'+        return val''+    return result++attrLanguageWriteValue :: MonadIO m => AttrLanguage -> Ptr Language -> m ()+attrLanguageWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Ptr Language)++attrLanguageClearValue :: MonadIO m => AttrLanguage -> m ()+attrLanguageClearValue s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: Ptr Language)++data AttrLanguageValueFieldInfo+instance AttrInfo AttrLanguageValueFieldInfo where+    type AttrAllowedOps AttrLanguageValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrLanguageValueFieldInfo = (~) (Ptr Language)+    type AttrBaseTypeConstraint AttrLanguageValueFieldInfo = (~) AttrLanguage+    type AttrGetType AttrLanguageValueFieldInfo = Maybe Language+    type AttrLabel AttrLanguageValueFieldInfo = "value"+    attrGet _ = attrLanguageReadValue+    attrSet _ = attrLanguageWriteValue+    attrConstruct = undefined+    attrClear _ = attrLanguageClearValue++attrLanguageValue :: AttrLabelProxy "value"+attrLanguageValue = AttrLabelProxy++++type instance AttributeList AttrLanguage = AttrLanguageAttributeList+type AttrLanguageAttributeList = ('[ '("attr", AttrLanguageAttrFieldInfo), '("value", AttrLanguageValueFieldInfo)] :: [(Symbol, *)])++-- method AttrLanguage::new+-- method type : MemberFunction+-- Args : [Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_language_new" pango_attr_language_new :: +    Ptr Language ->                         -- language : TInterface "Pango" "Language"+    IO (Ptr Attribute)+++attrLanguageNew ::+    (MonadIO m) =>+    Language                                -- language+    -> m Attribute                          -- result+attrLanguageNew language = liftIO $ do+    let language' = unsafeManagedPtrGetPtr language+    result <- pango_attr_language_new language'+    checkUnexpectedReturnNULL "pango_attr_language_new" result+    result' <- (wrapPtr Attribute) result+    touchManagedPtr language+    return result'  type family ResolveAttrLanguageMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrLanguageMethod l o = MethodResolutionFailed l o

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrLanguage where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -74,9 +74,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -94,11 +94,15 @@ noAttrList :: Maybe AttrList noAttrList = Nothing ++type instance AttributeList AttrList = AttrListAttributeList+type AttrListAttributeList = ('[ ] :: [(Symbol, *)])+ -- method AttrList::new -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Pango" "AttrList"+-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -119,7 +123,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -150,7 +154,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "AttrList"+-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -162,31 +166,32 @@ attrListCopy ::     (MonadIO m) =>     AttrList                                -- _obj-    -> m AttrList                           -- result+    -> m (Maybe AttrList)                   -- result attrListCopy _obj = liftIO $ do     let _obj' = unsafeManagedPtrGetPtr _obj     result <- pango_attr_list_copy _obj'-    checkUnexpectedReturnNULL "pango_attr_list_copy" result-    result' <- (wrapBoxed AttrList) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapBoxed AttrList) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data AttrListCopyMethodInfo-instance (signature ~ (m AttrList), MonadIO m) => MethodInfo AttrListCopyMethodInfo AttrList signature where+instance (signature ~ (m (Maybe AttrList)), MonadIO m) => MethodInfo AttrListCopyMethodInfo AttrList signature where     overloadedMethod _ = attrListCopy  -- method AttrList::filter -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Pango" "AttrFilterFunc", 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Pango" "AttrFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "AttrList"+-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False  foreign import ccall "pango_attr_list_filter" pango_attr_list_filter ::      Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"     FunPtr AttrFilterFuncC ->               -- func : TInterface "Pango" "AttrFilterFunc"-    Ptr () ->                               -- data : TBasicType TVoid+    Ptr () ->                               -- data : TBasicType TPtr     IO (Ptr AttrList)  @@ -194,27 +199,28 @@     (MonadIO m) =>     AttrList                                -- _obj     -> AttrFilterFunc                       -- func-    -> m AttrList                           -- result+    -> m (Maybe AttrList)                   -- result attrListFilter _obj func = liftIO $ do     let _obj' = unsafeManagedPtrGetPtr _obj     func' <- mkAttrFilterFunc (attrFilterFuncWrapper Nothing func)     let data_ = nullPtr     result <- pango_attr_list_filter _obj' func' data_-    checkUnexpectedReturnNULL "pango_attr_list_filter" result-    result' <- (wrapBoxed AttrList) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapBoxed AttrList) result'+        return result''     safeFreeFunPtr $ castFunPtrToPtr func'     touchManagedPtr _obj-    return result'+    return maybeResult  data AttrListFilterMethodInfo-instance (signature ~ (AttrFilterFunc -> m AttrList), MonadIO m) => MethodInfo AttrListFilterMethodInfo AttrList signature where+instance (signature ~ (AttrFilterFunc -> m (Maybe AttrList)), MonadIO m) => MethodInfo AttrListFilterMethodInfo AttrList signature where     overloadedMethod _ = attrListFilter  -- method AttrList::insert -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -245,7 +251,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -276,7 +282,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Pango" "AttrList"+-- returnType : Just (TInterface "Pango" "AttrList") -- throws : False -- Skip return : False @@ -303,17 +309,17 @@  -- method AttrList::splice -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "pango_attr_list_splice" pango_attr_list_splice ::      Ptr AttrList ->                         -- _obj : TInterface "Pango" "AttrList"     Ptr AttrList ->                         -- other : TInterface "Pango" "AttrList"-    Int32 ->                                -- pos : TBasicType TInt32-    Int32 ->                                -- len : TBasicType TInt32+    Int32 ->                                -- pos : TBasicType TInt+    Int32 ->                                -- len : TBasicType TInt     IO ()  @@ -340,7 +346,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Pango.Structs.AttrList where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -18,30 +18,49 @@     noAttrShape                             ,  + -- * Methods+-- ** attrShapeNew+    attrShapeNew                            ,++++  -- * Properties -- ** Attr+    attrShapeAttr                           ,+    attrShapeClearAttr                      ,     attrShapeReadAttr                       ,+    attrShapeWriteAttr                      ,   -- ** Data+    attrShapeClearData                      ,+    attrShapeData                           ,     attrShapeReadData                       ,+    attrShapeWriteData                      ,   -- ** InkRect+    attrShapeClearInkRect                   ,+    attrShapeInkRect                        ,     attrShapeReadInkRect                    ,+    attrShapeWriteInkRect                   ,   -- ** LogicalRect+    attrShapeClearLogicalRect               ,+    attrShapeLogicalRect                    ,     attrShapeReadLogicalRect                ,+    attrShapeWriteLogicalRect               ,         ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -54,33 +73,174 @@ newZeroAttrShape :: MonadIO m => m AttrShape newZeroAttrShape = liftIO $ callocBytes 72 >>= wrapPtr AttrShape +instance tag ~ 'AttrSet => Constructible AttrShape tag where+    new _ attrs = do+        o <- newZeroAttrShape+        GI.Attributes.set o attrs+        return o++ noAttrShape :: Maybe AttrShape noAttrShape = Nothing -attrShapeReadAttr :: AttrShape -> IO Attribute-attrShapeReadAttr s = withManagedPtr s $ \ptr -> do+attrShapeReadAttr :: MonadIO m => AttrShape -> m (Maybe Attribute)+attrShapeReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)-    val' <- (newPtr 16 Attribute) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Attribute) val'+        return val''+    return result -attrShapeReadInkRect :: AttrShape -> IO Rectangle-attrShapeReadInkRect s = withManagedPtr s $ \ptr -> do+attrShapeWriteAttr :: MonadIO m => AttrShape -> Ptr Attribute -> m ()+attrShapeWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (val :: Ptr Attribute)++attrShapeClearAttr :: MonadIO m => AttrShape -> m ()+attrShapeClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)++data AttrShapeAttrFieldInfo+instance AttrInfo AttrShapeAttrFieldInfo where+    type AttrAllowedOps AttrShapeAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrShapeAttrFieldInfo = (~) (Ptr Attribute)+    type AttrBaseTypeConstraint AttrShapeAttrFieldInfo = (~) AttrShape+    type AttrGetType AttrShapeAttrFieldInfo = Maybe Attribute+    type AttrLabel AttrShapeAttrFieldInfo = "attr"+    attrGet _ = attrShapeReadAttr+    attrSet _ = attrShapeWriteAttr+    attrConstruct = undefined+    attrClear _ = attrShapeClearAttr++attrShapeAttr :: AttrLabelProxy "attr"+attrShapeAttr = AttrLabelProxy+++attrShapeReadInkRect :: MonadIO m => AttrShape -> m (Maybe Rectangle)+attrShapeReadInkRect s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 16) :: IO (Ptr Rectangle)-    val' <- (newPtr 16 Rectangle) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Rectangle) val'+        return val''+    return result -attrShapeReadLogicalRect :: AttrShape -> IO Rectangle-attrShapeReadLogicalRect s = withManagedPtr s $ \ptr -> do+attrShapeWriteInkRect :: MonadIO m => AttrShape -> Ptr Rectangle -> m ()+attrShapeWriteInkRect s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (val :: Ptr Rectangle)++attrShapeClearInkRect :: MonadIO m => AttrShape -> m ()+attrShapeClearInkRect s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 16) (nullPtr :: Ptr Rectangle)++data AttrShapeInkRectFieldInfo+instance AttrInfo AttrShapeInkRectFieldInfo where+    type AttrAllowedOps AttrShapeInkRectFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrShapeInkRectFieldInfo = (~) (Ptr Rectangle)+    type AttrBaseTypeConstraint AttrShapeInkRectFieldInfo = (~) AttrShape+    type AttrGetType AttrShapeInkRectFieldInfo = Maybe Rectangle+    type AttrLabel AttrShapeInkRectFieldInfo = "ink_rect"+    attrGet _ = attrShapeReadInkRect+    attrSet _ = attrShapeWriteInkRect+    attrConstruct = undefined+    attrClear _ = attrShapeClearInkRect++attrShapeInkRect :: AttrLabelProxy "inkRect"+attrShapeInkRect = AttrLabelProxy+++attrShapeReadLogicalRect :: MonadIO m => AttrShape -> m (Maybe Rectangle)+attrShapeReadLogicalRect s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 32) :: IO (Ptr Rectangle)-    val' <- (newPtr 16 Rectangle) val-    return val'+    result <- convertIfNonNull val $ \val' -> do+        val'' <- (newPtr 16 Rectangle) val'+        return val''+    return result -attrShapeReadData :: AttrShape -> IO (Ptr ())-attrShapeReadData s = withManagedPtr s $ \ptr -> do+attrShapeWriteLogicalRect :: MonadIO m => AttrShape -> Ptr Rectangle -> m ()+attrShapeWriteLogicalRect s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 32) (val :: Ptr Rectangle)++attrShapeClearLogicalRect :: MonadIO m => AttrShape -> m ()+attrShapeClearLogicalRect s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Rectangle)++data AttrShapeLogicalRectFieldInfo+instance AttrInfo AttrShapeLogicalRectFieldInfo where+    type AttrAllowedOps AttrShapeLogicalRectFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrShapeLogicalRectFieldInfo = (~) (Ptr Rectangle)+    type AttrBaseTypeConstraint AttrShapeLogicalRectFieldInfo = (~) AttrShape+    type AttrGetType AttrShapeLogicalRectFieldInfo = Maybe Rectangle+    type AttrLabel AttrShapeLogicalRectFieldInfo = "logical_rect"+    attrGet _ = attrShapeReadLogicalRect+    attrSet _ = attrShapeWriteLogicalRect+    attrConstruct = undefined+    attrClear _ = attrShapeClearLogicalRect++attrShapeLogicalRect :: AttrLabelProxy "logicalRect"+attrShapeLogicalRect = AttrLabelProxy+++attrShapeReadData :: MonadIO m => AttrShape -> m (Ptr ())+attrShapeReadData s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 48) :: IO (Ptr ())     return val --- XXX Skipped getter for "AttrShape:destroy_func" :: Not implemented: "Wrapping foreign callbacks is not supported yet"+attrShapeWriteData :: MonadIO m => AttrShape -> Ptr () -> m ()+attrShapeWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 48) (val :: Ptr ())++attrShapeClearData :: MonadIO m => AttrShape -> m ()+attrShapeClearData s = liftIO $ withManagedPtr s $ \ptr -> do+    poke (ptr `plusPtr` 48) (nullPtr :: Ptr ())++data AttrShapeDataFieldInfo+instance AttrInfo AttrShapeDataFieldInfo where+    type AttrAllowedOps AttrShapeDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]+    type AttrSetTypeConstraint AttrShapeDataFieldInfo = (~) (Ptr ())+    type AttrBaseTypeConstraint AttrShapeDataFieldInfo = (~) AttrShape+    type AttrGetType AttrShapeDataFieldInfo = Ptr ()+    type AttrLabel AttrShapeDataFieldInfo = "data"+    attrGet _ = attrShapeReadData+    attrSet _ = attrShapeWriteData+    attrConstruct = undefined+    attrClear _ = attrShapeClearData++attrShapeData :: AttrLabelProxy "data"+attrShapeData = AttrLabelProxy+++-- XXX Skipped attribute for "AttrShape:destroy_func" :: Not implemented: "Wrapping foreign callbacks is not supported yet"++type instance AttributeList AttrShape = AttrShapeAttributeList+type AttrShapeAttributeList = ('[ '("attr", AttrShapeAttrFieldInfo), '("inkRect", AttrShapeInkRectFieldInfo), '("logicalRect", AttrShapeLogicalRectFieldInfo), '("data", AttrShapeDataFieldInfo)] :: [(Symbol, *)])++-- method AttrShape::new+-- method type : MemberFunction+-- Args : [Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : Just (TInterface "Pango" "Attribute")+-- throws : False+-- Skip return : False++foreign import ccall "pango_attr_shape_new" pango_attr_shape_new :: +    Ptr Rectangle ->                        -- ink_rect : TInterface "Pango" "Rectangle"+    Ptr Rectangle ->                        -- logical_rect : TInterface "Pango" "Rectangle"+    IO (Ptr Attribute)+++attrShapeNew ::+    (MonadIO m) =>+    Rectangle                               -- inkRect+    -> Rectangle                            -- logicalRect+    -> m Attribute                          -- result+attrShapeNew inkRect logicalRect = liftIO $ do+    let inkRect' = unsafeManagedPtrGetPtr inkRect+    let logicalRect' = unsafeManagedPtrGetPtr logicalRect+    result <- pango_attr_shape_new inkRect' logicalRect'+    checkUnexpectedReturnNULL "pango_attr_shape_new" result+    result' <- (wrapPtr Attribute) result+    touchManagedPtr inkRect+    touchManagedPtr logicalRect+    return result'  type family ResolveAttrShapeMethod (t :: Symbol) (o :: *) :: * where     ResolveAttrShapeMethod l o = MethodResolutionFailed l o