gi-poppler 0.0.34.12 → 0.0.34.13

raw patch · 99 files changed

+4530/−1545 lines, 99 filesdep ~gi-cairodep ~gi-giodep ~gi-glibPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• GI/Poppler.hs +6/−0
• GI/Poppler/Callbacks.hs +1/−0
• GI/Poppler/Constants.hs +1/−0
• GI/Poppler/Enums.hs +1/−0
• GI/Poppler/Flags.hs +1/−0
• GI/Poppler/Functions.hs +7/−33
• GI/Poppler/Objects.hs +1/−0
• GI/Poppler/Objects/Annot.hs +162/−68
• GI/Poppler/Objects/Annot.hs-boot +12/−0
• GI/Poppler/Objects/AnnotCircle.hs +91/−22
• GI/Poppler/Objects/AnnotCircle.hs-boot +2/−0
• GI/Poppler/Objects/AnnotFileAttachment.hs +77/−9
• GI/Poppler/Objects/AnnotFileAttachment.hs-boot +2/−0
• GI/Poppler/Objects/AnnotFreeText.hs +79/−9
• GI/Poppler/Objects/AnnotFreeText.hs-boot +2/−0
• GI/Poppler/Objects/AnnotLine.hs +78/−14
• GI/Poppler/Objects/AnnotLine.hs-boot +1/−0
• GI/Poppler/Objects/AnnotMarkup.hs +193/−77
• GI/Poppler/Objects/AnnotMarkup.hs-boot +14/−0
• GI/Poppler/Objects/AnnotMovie.hs +65/−9
• GI/Poppler/Objects/AnnotMovie.hs-boot +2/−0
• GI/Poppler/Objects/AnnotScreen.hs +56/−5
• GI/Poppler/Objects/AnnotScreen.hs-boot +1/−0
• GI/Poppler/Objects/AnnotSquare.hs +91/−22
• GI/Poppler/Objects/AnnotSquare.hs-boot +2/−0
• GI/Poppler/Objects/AnnotText.hs +115/−31
• GI/Poppler/Objects/AnnotText.hs-boot +5/−0
• GI/Poppler/Objects/AnnotTextMarkup.hs +100/−34
• GI/Poppler/Objects/AnnotTextMarkup.hs-boot +2/−0
• GI/Poppler/Objects/Attachment.hs +61/−17
• GI/Poppler/Objects/Attachment.hs-boot +2/−0
• GI/Poppler/Objects/Document.hs +337/−177
• GI/Poppler/Objects/Document.hs-boot +26/−0
• GI/Poppler/Objects/FontInfo.hs +59/−16
• GI/Poppler/Objects/FontInfo.hs-boot +2/−0
• GI/Poppler/Objects/FormField.hs +330/−136
• GI/Poppler/Objects/FormField.hs-boot +32/−0
• GI/Poppler/Objects/Layer.hs +89/−25
• GI/Poppler/Objects/Layer.hs-boot +6/−0
• GI/Poppler/Objects/Media.hs +88/−29
• GI/Poppler/Objects/Media.hs-boot +5/−0
• GI/Poppler/Objects/Movie.hs +62/−13
• GI/Poppler/Objects/Movie.hs-boot +3/−0
• GI/Poppler/Objects/PSFile.hs +73/−25
• GI/Poppler/Objects/PSFile.hs-boot +3/−0
• GI/Poppler/Objects/Page.hs +387/−204
• GI/Poppler/Objects/Page.hs-boot +31/−0
• GI/Poppler/Objects/StructureElement.hs +587/−276
• GI/Poppler/Objects/StructureElement.hs-boot +55/−0
• GI/Poppler/Structs.hs +1/−0
• GI/Poppler/Structs/ActionAny.hs +17/−0
• GI/Poppler/Structs/ActionGotoDest.hs +17/−0
• GI/Poppler/Structs/ActionGotoRemote.hs +17/−0
• GI/Poppler/Structs/ActionJavascript.hs +17/−0
• GI/Poppler/Structs/ActionLaunch.hs +17/−0
• GI/Poppler/Structs/ActionLayer.hs +17/−0
• GI/Poppler/Structs/ActionMovie.hs +17/−0
• GI/Poppler/Structs/ActionNamed.hs +17/−0
• GI/Poppler/Structs/ActionOCGState.hs +17/−0
• GI/Poppler/Structs/ActionRendition.hs +17/−0
• GI/Poppler/Structs/ActionUri.hs +17/−0
• GI/Poppler/Structs/AnnotCalloutLine.hs +36/−10
• GI/Poppler/Structs/AnnotCalloutLine.hs-boot +2/−0
• GI/Poppler/Structs/AnnotMapping.hs +36/−10
• GI/Poppler/Structs/AnnotMapping.hs-boot +2/−0
• GI/Poppler/Structs/Color.hs +36/−10
• GI/Poppler/Structs/Color.hs-boot +2/−0
• GI/Poppler/Structs/Dest.hs +35/−8
• GI/Poppler/Structs/Dest.hs-boot +2/−0
• GI/Poppler/Structs/FontsIter.hs +111/−44
• GI/Poppler/Structs/FontsIter.hs-boot +11/−0
• GI/Poppler/Structs/FormFieldMapping.hs +36/−10
• GI/Poppler/Structs/FormFieldMapping.hs-boot +2/−0
• GI/Poppler/Structs/ImageMapping.hs +36/−10
• GI/Poppler/Structs/ImageMapping.hs-boot +2/−0
• GI/Poppler/Structs/IndexIter.hs +69/−28
• GI/Poppler/Structs/IndexIter.hs-boot +6/−0
• GI/Poppler/Structs/LayersIter.hs +69/−28
• GI/Poppler/Structs/LayersIter.hs-boot +6/−0
• GI/Poppler/Structs/LinkMapping.hs +36/−10
• GI/Poppler/Structs/LinkMapping.hs-boot +2/−0
• GI/Poppler/Structs/PageTransition.hs +36/−10
• GI/Poppler/Structs/PageTransition.hs-boot +2/−0
• GI/Poppler/Structs/Point.hs +36/−10
• GI/Poppler/Structs/Point.hs-boot +2/−0
• GI/Poppler/Structs/Quadrilateral.hs +36/−10
• GI/Poppler/Structs/Quadrilateral.hs-boot +2/−0
• GI/Poppler/Structs/Rectangle.hs +36/−10
• GI/Poppler/Structs/Rectangle.hs-boot +2/−0
• GI/Poppler/Structs/StructureElementIter.hs +64/−28
• GI/Poppler/Structs/StructureElementIter.hs-boot +5/−0
• GI/Poppler/Structs/TextAttributes.hs +36/−10
• GI/Poppler/Structs/TextAttributes.hs-boot +2/−0
• GI/Poppler/Structs/TextSpan.hs +84/−32
• GI/Poppler/Structs/TextSpan.hs-boot +8/−0
• GI/Poppler/Unions.hs +1/−0
• GI/Poppler/Unions/Action.hs +35/−8
• GI/Poppler/Unions/Action.hs-boot +2/−0
• gi-poppler.cabal +8/−8

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,6 +17,10 @@     module GI.Poppler.Unions                ,  ++    module Data.GI.Base                     ,++     ) where  import GI.Poppler.Callbacks@@ -37,4 +42,5 @@ import GI.Poppler.Types import GI.Poppler.Callbacks +import Data.GI.Base 

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

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

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

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

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -13,10 +14,6 @@     dateParse                               ,  --- ** errorQuark-    errorQuark                              ,-- -- ** getBackend     getBackend                              , @@ -42,7 +39,6 @@ -- function poppler_get_version -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -53,7 +49,7 @@  getVersion ::     (MonadIO m) =>-    m T.Text+    m T.Text                                -- result getVersion  = liftIO $ do     result <- poppler_get_version     checkUnexpectedReturnNULL "poppler_get_version" result@@ -64,7 +60,6 @@ -- function poppler_get_backend -- Args : [] -- Lengths : []--- hInArgs : [] -- returnType : TInterface "Poppler" "Backend" -- throws : False -- Skip return : False@@ -75,37 +70,16 @@  getBackend ::     (MonadIO m) =>-    m Backend+    m Backend                               -- result getBackend  = liftIO $ do     result <- poppler_get_backend     let result' = (toEnum . fromIntegral) result     return result'  --- function poppler_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "poppler_error_quark" poppler_error_quark :: -    IO Word32---errorQuark ::-    (MonadIO m) =>-    m Word32-errorQuark  = liftIO $ do-    result <- poppler_error_quark-    return result-- -- function poppler_date_parse--- Args : [Arg {argName = "date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -118,9 +92,9 @@  dateParse ::     (MonadIO m) =>-    T.Text ->                               -- date-    Int64 ->                                -- timet-    m Bool+    T.Text                                  -- date+    -> Int64                                -- timet+    -> m Bool                               -- result dateParse date timet = liftIO $ do     date' <- textToCString date     result <- poppler_date_parse date' timet

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

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,50 +18,62 @@   -- * Methods -- ** annotGetAnnotType+    AnnotGetAnnotTypeMethodInfo             ,     annotGetAnnotType                       ,   -- ** annotGetColor+    AnnotGetColorMethodInfo                 ,     annotGetColor                           ,   -- ** annotGetContents+    AnnotGetContentsMethodInfo              ,     annotGetContents                        ,   -- ** annotGetFlags+    AnnotGetFlagsMethodInfo                 ,     annotGetFlags                           ,   -- ** annotGetModified+    AnnotGetModifiedMethodInfo              ,     annotGetModified                        ,   -- ** annotGetName+    AnnotGetNameMethodInfo                  ,     annotGetName                            ,   -- ** annotGetPageIndex+    AnnotGetPageIndexMethodInfo             ,     annotGetPageIndex                       ,   -- ** annotGetRectangle+    AnnotGetRectangleMethodInfo             ,     annotGetRectangle                       ,   -- ** annotSetColor+    AnnotSetColorMethodInfo                 ,     annotSetColor                           ,   -- ** annotSetContents+    AnnotSetContentsMethodInfo              ,     annotSetContents                        ,   -- ** annotSetFlags+    AnnotSetFlagsMethodInfo                 ,     annotSetFlags                           ,   -- ** annotSetRectangle+    AnnotSetRectangleMethodInfo             ,     annotSetRectangle                       ,  @@ -100,17 +113,61 @@ noAnnot :: Maybe Annot noAnnot = Nothing +type family ResolveAnnotMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotMethod t Annot, MethodInfo info Annot p) => IsLabelProxy t (Annot -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotMethod t Annot, MethodInfo info Annot p) => IsLabel t (Annot -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Annot = AnnotAttributeList type AnnotAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Annot = AnnotSignalList-type AnnotSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Annot::get_annot_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotType" -- throws : False -- Skip return : False@@ -122,8 +179,8 @@  annotGetAnnotType ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m AnnotType+    a                                       -- _obj+    -> m AnnotType                          -- result annotGetAnnotType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_get_annot_type _obj'@@ -131,11 +188,14 @@     touchManagedPtr _obj     return result' +data AnnotGetAnnotTypeMethodInfo+instance (signature ~ (m AnnotType), MonadIO m, AnnotK a) => MethodInfo AnnotGetAnnotTypeMethodInfo a signature where+    overloadedMethod _ = annotGetAnnotType+ -- method Annot::get_color -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Color" -- throws : False -- Skip return : False@@ -147,8 +207,8 @@  annotGetColor ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m Color+    a                                       -- _obj+    -> m Color                              -- result annotGetColor _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_get_color _obj'@@ -157,11 +217,14 @@     touchManagedPtr _obj     return result' +data AnnotGetColorMethodInfo+instance (signature ~ (m Color), MonadIO m, AnnotK a) => MethodInfo AnnotGetColorMethodInfo a signature where+    overloadedMethod _ = annotGetColor+ -- method Annot::get_contents -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -173,8 +236,8 @@  annotGetContents ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotGetContents _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_get_contents _obj'@@ -184,11 +247,14 @@     touchManagedPtr _obj     return result' +data AnnotGetContentsMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetContentsMethodInfo a signature where+    overloadedMethod _ = annotGetContents+ -- method Annot::get_flags -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotFlag" -- throws : False -- Skip return : False@@ -200,8 +266,8 @@  annotGetFlags ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m [AnnotFlag]+    a                                       -- _obj+    -> m [AnnotFlag]                        -- result annotGetFlags _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_get_flags _obj'@@ -209,11 +275,14 @@     touchManagedPtr _obj     return result' +data AnnotGetFlagsMethodInfo+instance (signature ~ (m [AnnotFlag]), MonadIO m, AnnotK a) => MethodInfo AnnotGetFlagsMethodInfo a signature where+    overloadedMethod _ = annotGetFlags+ -- method Annot::get_modified -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -225,8 +294,8 @@  annotGetModified ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotGetModified _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_get_modified _obj'@@ -236,11 +305,14 @@     touchManagedPtr _obj     return result' +data AnnotGetModifiedMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetModifiedMethodInfo a signature where+    overloadedMethod _ = annotGetModified+ -- method Annot::get_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -252,8 +324,8 @@  annotGetName ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotGetName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_get_name _obj'@@ -263,11 +335,14 @@     touchManagedPtr _obj     return result' +data AnnotGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetNameMethodInfo a signature where+    overloadedMethod _ = annotGetName+ -- method Annot::get_page_index -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -279,19 +354,22 @@  annotGetPageIndex ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result annotGetPageIndex _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_get_page_index _obj'     touchManagedPtr _obj     return result +data AnnotGetPageIndexMethodInfo+instance (signature ~ (m Int32), MonadIO m, AnnotK a) => MethodInfo AnnotGetPageIndexMethodInfo a signature where+    overloadedMethod _ = annotGetPageIndex+ -- method Annot::get_rectangle -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -304,21 +382,24 @@  annotGetRectangle ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    m (Rectangle)+    a                                       -- _obj+    -> m (Rectangle)                        -- result annotGetRectangle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_rect <- callocBoxedBytes 32 :: IO (Ptr Rectangle)-    poppler_annot_get_rectangle _obj' poppler_rect-    poppler_rect' <- (wrapBoxed Rectangle) poppler_rect+    popplerRect <- callocBoxedBytes 32 :: IO (Ptr Rectangle)+    poppler_annot_get_rectangle _obj' popplerRect+    popplerRect' <- (wrapBoxed Rectangle) popplerRect     touchManagedPtr _obj-    return poppler_rect'+    return popplerRect' +data AnnotGetRectangleMethodInfo+instance (signature ~ (m (Rectangle)), MonadIO m, AnnotK a) => MethodInfo AnnotGetRectangleMethodInfo a signature where+    overloadedMethod _ = annotGetRectangle+ -- method Annot::set_color -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -331,26 +412,29 @@  annotSetColor ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    Maybe (Color) ->                        -- poppler_color-    m ()-annotSetColor _obj poppler_color = liftIO $ do+    a                                       -- _obj+    -> Maybe (Color)                        -- popplerColor+    -> m ()                                 -- result+annotSetColor _obj popplerColor = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    maybePoppler_color <- case poppler_color of+    maybePopplerColor <- case popplerColor of         Nothing -> return nullPtr-        Just jPoppler_color -> do-            let jPoppler_color' = unsafeManagedPtrGetPtr jPoppler_color-            return jPoppler_color'-    poppler_annot_set_color _obj' maybePoppler_color+        Just jPopplerColor -> do+            let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor+            return jPopplerColor'+    poppler_annot_set_color _obj' maybePopplerColor     touchManagedPtr _obj-    whenJust poppler_color touchManagedPtr+    whenJust popplerColor touchManagedPtr     return () +data AnnotSetColorMethodInfo+instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetColorMethodInfo a signature where+    overloadedMethod _ = annotSetColor+ -- method Annot::set_contents -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -363,9 +447,9 @@  annotSetContents ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- contents-    m ()+    a                                       -- _obj+    -> T.Text                               -- contents+    -> m ()                                 -- result annotSetContents _obj contents = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     contents' <- textToCString contents@@ -374,11 +458,14 @@     freeMem contents'     return () +data AnnotSetContentsMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetContentsMethodInfo a signature where+    overloadedMethod _ = annotSetContents+ -- method Annot::set_flags -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Poppler" "AnnotFlag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Poppler" "AnnotFlag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Poppler" "AnnotFlag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -391,9 +478,9 @@  annotSetFlags ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    [AnnotFlag] ->                          -- flags-    m ()+    a                                       -- _obj+    -> [AnnotFlag]                          -- flags+    -> m ()                                 -- result annotSetFlags _obj flags = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let flags' = gflagsToWord flags@@ -401,11 +488,14 @@     touchManagedPtr _obj     return () +data AnnotSetFlagsMethodInfo+instance (signature ~ ([AnnotFlag] -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetFlagsMethodInfo a signature where+    overloadedMethod _ = annotSetFlags+ -- method Annot::set_rectangle -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -418,15 +508,19 @@  annotSetRectangle ::     (MonadIO m, AnnotK a) =>-    a ->                                    -- _obj-    Rectangle ->                            -- poppler_rect-    m ()-annotSetRectangle _obj poppler_rect = liftIO $ do+    a                                       -- _obj+    -> Rectangle                            -- popplerRect+    -> m ()                                 -- result+annotSetRectangle _obj popplerRect = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let poppler_rect' = unsafeManagedPtrGetPtr poppler_rect-    poppler_annot_set_rectangle _obj' poppler_rect'+    let popplerRect' = unsafeManagedPtrGetPtr popplerRect+    poppler_annot_set_rectangle _obj' popplerRect'     touchManagedPtr _obj-    touchManagedPtr poppler_rect+    touchManagedPtr popplerRect     return ()++data AnnotSetRectangleMethodInfo+instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetRectangleMethodInfo a signature where+    overloadedMethod _ = annotSetRectangle  

@@ -11,3 +11,15 @@ instance GObject Annot where class GObject o => AnnotK o instance (GObject o, IsDescendantOf Annot o) => AnnotK o+data AnnotGetAnnotTypeMethodInfo+data AnnotGetColorMethodInfo+data AnnotGetContentsMethodInfo+data AnnotGetFlagsMethodInfo+data AnnotGetModifiedMethodInfo+data AnnotGetNameMethodInfo+data AnnotGetPageIndexMethodInfo+data AnnotGetRectangleMethodInfo+data AnnotSetColorMethodInfo+data AnnotSetContentsMethodInfo+data AnnotSetFlagsMethodInfo+data AnnotSetRectangleMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** annotCircleGetInteriorColor+    AnnotCircleGetInteriorColorMethodInfo   ,     annotCircleGetInteriorColor             ,  @@ -25,6 +27,7 @@   -- ** annotCircleSetInteriorColor+    AnnotCircleSetInteriorColorMethodInfo   ,     annotCircleSetInteriorColor             ,  @@ -64,17 +67,77 @@ noAnnotCircle :: Maybe AnnotCircle noAnnotCircle = Nothing +type family ResolveAnnotCircleMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotCircleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotCircleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotCircleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotCircleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotCircleMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotCircleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotCircleMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotCircleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotCircleMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotCircleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotCircleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotCircleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotCircleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotCircleMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotCircleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotCircleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotCircleMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotCircleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotCircleMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotCircleMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotCircleMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotCircleMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotCircleMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotCircleMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotCircleMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotCircleMethod "getInteriorColor" o = AnnotCircleGetInteriorColorMethodInfo+    ResolveAnnotCircleMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotCircleMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotCircleMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotCircleMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotCircleMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotCircleMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotCircleMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotCircleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotCircleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotCircleMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotCircleMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotCircleMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotCircleMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotCircleMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotCircleMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotCircleMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotCircleMethod "setInteriorColor" o = AnnotCircleSetInteriorColorMethodInfo+    ResolveAnnotCircleMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotCircleMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotCircleMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotCircleMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotCircleMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotCircleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotCircleMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotCircleMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotCircleMethod t AnnotCircle, MethodInfo info AnnotCircle p) => IsLabelProxy t (AnnotCircle -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotCircleMethod t AnnotCircle, MethodInfo info AnnotCircle p) => IsLabel t (AnnotCircle -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotCircle = AnnotCircleAttributeList type AnnotCircleAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotCircle = AnnotCircleSignalList-type AnnotCircleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotCircleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotCircle::new -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotCircle" -- throws : False -- Skip return : False@@ -87,9 +150,9 @@  annotCircleNew ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    m AnnotCircle+    a                                       -- doc+    -> Rectangle                            -- rect+    -> m AnnotCircle                        -- result annotCircleNew doc rect = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -102,9 +165,8 @@  -- method AnnotCircle::get_interior_color -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Color" -- throws : False -- Skip return : False@@ -116,8 +178,8 @@  annotCircleGetInteriorColor ::     (MonadIO m, AnnotCircleK a) =>-    a ->                                    -- _obj-    m Color+    a                                       -- _obj+    -> m Color                              -- result annotCircleGetInteriorColor _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_circle_get_interior_color _obj'@@ -126,11 +188,14 @@     touchManagedPtr _obj     return result' +data AnnotCircleGetInteriorColorMethodInfo+instance (signature ~ (m Color), MonadIO m, AnnotCircleK a) => MethodInfo AnnotCircleGetInteriorColorMethodInfo a signature where+    overloadedMethod _ = annotCircleGetInteriorColor+ -- method AnnotCircle::set_interior_color -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -143,19 +208,23 @@  annotCircleSetInteriorColor ::     (MonadIO m, AnnotCircleK a) =>-    a ->                                    -- _obj-    Maybe (Color) ->                        -- poppler_color-    m ()-annotCircleSetInteriorColor _obj poppler_color = liftIO $ do+    a                                       -- _obj+    -> Maybe (Color)                        -- popplerColor+    -> m ()                                 -- result+annotCircleSetInteriorColor _obj popplerColor = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    maybePoppler_color <- case poppler_color of+    maybePopplerColor <- case popplerColor of         Nothing -> return nullPtr-        Just jPoppler_color -> do-            let jPoppler_color' = unsafeManagedPtrGetPtr jPoppler_color-            return jPoppler_color'-    poppler_annot_circle_set_interior_color _obj' maybePoppler_color+        Just jPopplerColor -> do+            let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor+            return jPopplerColor'+    poppler_annot_circle_set_interior_color _obj' maybePopplerColor     touchManagedPtr _obj-    whenJust poppler_color touchManagedPtr+    whenJust popplerColor touchManagedPtr     return ()++data AnnotCircleSetInteriorColorMethodInfo+instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotCircleK a) => MethodInfo AnnotCircleSetInteriorColorMethodInfo a signature where+    overloadedMethod _ = annotCircleSetInteriorColor  

@@ -11,3 +11,5 @@ instance GObject AnnotCircle where class GObject o => AnnotCircleK o instance (GObject o, IsDescendantOf AnnotCircle o) => AnnotCircleK o+data AnnotCircleGetInteriorColorMethodInfo+data AnnotCircleSetInteriorColorMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,10 +18,12 @@   -- * Methods -- ** annotFileAttachmentGetAttachment+    AnnotFileAttachmentGetAttachmentMethodInfo,     annotFileAttachmentGetAttachment        ,   -- ** annotFileAttachmentGetName+    AnnotFileAttachmentGetNameMethodInfo    ,     annotFileAttachmentGetName              ,  @@ -60,17 +63,75 @@ noAnnotFileAttachment :: Maybe AnnotFileAttachment noAnnotFileAttachment = Nothing +type family ResolveAnnotFileAttachmentMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotFileAttachmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotFileAttachmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotFileAttachmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotFileAttachmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotFileAttachmentMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotFileAttachmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotFileAttachmentMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotFileAttachmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotFileAttachmentMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotFileAttachmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotFileAttachmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotFileAttachmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotFileAttachmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotFileAttachmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotFileAttachmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotFileAttachmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotFileAttachmentMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotFileAttachmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotFileAttachmentMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotFileAttachmentMethod "getAttachment" o = AnnotFileAttachmentGetAttachmentMethodInfo+    ResolveAnnotFileAttachmentMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotFileAttachmentMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotFileAttachmentMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotFileAttachmentMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotFileAttachmentMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotFileAttachmentMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotFileAttachmentMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotFileAttachmentMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotFileAttachmentMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotFileAttachmentMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotFileAttachmentMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotFileAttachmentMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotFileAttachmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotFileAttachmentMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotFileAttachmentMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotFileAttachmentMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotFileAttachmentMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotFileAttachmentMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotFileAttachmentMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotFileAttachmentMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotFileAttachmentMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotFileAttachmentMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotFileAttachmentMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotFileAttachmentMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotFileAttachmentMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotFileAttachmentMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, MethodInfo info AnnotFileAttachment p) => IsLabelProxy t (AnnotFileAttachment -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, MethodInfo info AnnotFileAttachment p) => IsLabel t (AnnotFileAttachment -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotFileAttachment = AnnotFileAttachmentAttributeList type AnnotFileAttachmentAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotFileAttachment = AnnotFileAttachmentSignalList-type AnnotFileAttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotFileAttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotFileAttachment::get_attachment -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Attachment" -- throws : False -- Skip return : False@@ -82,8 +143,8 @@  annotFileAttachmentGetAttachment ::     (MonadIO m, AnnotFileAttachmentK a) =>-    a ->                                    -- _obj-    m Attachment+    a                                       -- _obj+    -> m Attachment                         -- result annotFileAttachmentGetAttachment _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_file_attachment_get_attachment _obj'@@ -92,11 +153,14 @@     touchManagedPtr _obj     return result' +data AnnotFileAttachmentGetAttachmentMethodInfo+instance (signature ~ (m Attachment), MonadIO m, AnnotFileAttachmentK a) => MethodInfo AnnotFileAttachmentGetAttachmentMethodInfo a signature where+    overloadedMethod _ = annotFileAttachmentGetAttachment+ -- method AnnotFileAttachment::get_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -108,8 +172,8 @@  annotFileAttachmentGetName ::     (MonadIO m, AnnotFileAttachmentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotFileAttachmentGetName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_file_attachment_get_name _obj'@@ -118,5 +182,9 @@     freeMem result     touchManagedPtr _obj     return result'++data AnnotFileAttachmentGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotFileAttachmentK a) => MethodInfo AnnotFileAttachmentGetNameMethodInfo a signature where+    overloadedMethod _ = annotFileAttachmentGetName  

@@ -11,3 +11,5 @@ instance GObject AnnotFileAttachment where class GObject o => AnnotFileAttachmentK o instance (GObject o, IsDescendantOf AnnotFileAttachment o) => AnnotFileAttachmentK o+data AnnotFileAttachmentGetAttachmentMethodInfo+data AnnotFileAttachmentGetNameMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,10 +18,12 @@   -- * Methods -- ** annotFreeTextGetCalloutLine+    AnnotFreeTextGetCalloutLineMethodInfo   ,     annotFreeTextGetCalloutLine             ,   -- ** annotFreeTextGetQuadding+    AnnotFreeTextGetQuaddingMethodInfo      ,     annotFreeTextGetQuadding                ,  @@ -60,17 +63,77 @@ noAnnotFreeText :: Maybe AnnotFreeText noAnnotFreeText = Nothing +type family ResolveAnnotFreeTextMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotFreeTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotFreeTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotFreeTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotFreeTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotFreeTextMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotFreeTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotFreeTextMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotFreeTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotFreeTextMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotFreeTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotFreeTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotFreeTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotFreeTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotFreeTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotFreeTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotFreeTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotFreeTextMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotFreeTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotFreeTextMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotFreeTextMethod "getCalloutLine" o = AnnotFreeTextGetCalloutLineMethodInfo+    ResolveAnnotFreeTextMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotFreeTextMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotFreeTextMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotFreeTextMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotFreeTextMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotFreeTextMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotFreeTextMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotFreeTextMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotFreeTextMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotFreeTextMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotFreeTextMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotFreeTextMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotFreeTextMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotFreeTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotFreeTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotFreeTextMethod "getQuadding" o = AnnotFreeTextGetQuaddingMethodInfo+    ResolveAnnotFreeTextMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotFreeTextMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotFreeTextMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotFreeTextMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotFreeTextMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotFreeTextMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotFreeTextMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotFreeTextMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotFreeTextMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotFreeTextMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotFreeTextMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotFreeTextMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotFreeTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotFreeTextMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotFreeTextMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotFreeTextMethod t AnnotFreeText, MethodInfo info AnnotFreeText p) => IsLabelProxy t (AnnotFreeText -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotFreeTextMethod t AnnotFreeText, MethodInfo info AnnotFreeText p) => IsLabel t (AnnotFreeText -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotFreeText = AnnotFreeTextAttributeList type AnnotFreeTextAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotFreeText = AnnotFreeTextSignalList-type AnnotFreeTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotFreeTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotFreeText::get_callout_line -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotCalloutLine" -- throws : False -- Skip return : False@@ -82,8 +145,8 @@  annotFreeTextGetCalloutLine ::     (MonadIO m, AnnotFreeTextK a) =>-    a ->                                    -- _obj-    m AnnotCalloutLine+    a                                       -- _obj+    -> m AnnotCalloutLine                   -- result annotFreeTextGetCalloutLine _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_free_text_get_callout_line _obj'@@ -92,11 +155,14 @@     touchManagedPtr _obj     return result' +data AnnotFreeTextGetCalloutLineMethodInfo+instance (signature ~ (m AnnotCalloutLine), MonadIO m, AnnotFreeTextK a) => MethodInfo AnnotFreeTextGetCalloutLineMethodInfo a signature where+    overloadedMethod _ = annotFreeTextGetCalloutLine+ -- method AnnotFreeText::get_quadding -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotFreeTextQuadding" -- throws : False -- Skip return : False@@ -108,13 +174,17 @@  annotFreeTextGetQuadding ::     (MonadIO m, AnnotFreeTextK a) =>-    a ->                                    -- _obj-    m AnnotFreeTextQuadding+    a                                       -- _obj+    -> m AnnotFreeTextQuadding              -- result annotFreeTextGetQuadding _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_free_text_get_quadding _obj'     let result' = (toEnum . fromIntegral) result     touchManagedPtr _obj     return result'++data AnnotFreeTextGetQuaddingMethodInfo+instance (signature ~ (m AnnotFreeTextQuadding), MonadIO m, AnnotFreeTextK a) => MethodInfo AnnotFreeTextGetQuaddingMethodInfo a signature where+    overloadedMethod _ = annotFreeTextGetQuadding  

@@ -11,3 +11,5 @@ instance GObject AnnotFreeText where class GObject o => AnnotFreeTextK o instance (GObject o, IsDescendantOf AnnotFreeText o) => AnnotFreeTextK o+data AnnotFreeTextGetCalloutLineMethodInfo+data AnnotFreeTextGetQuaddingMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -21,6 +22,7 @@   -- ** annotLineSetVertices+    AnnotLineSetVerticesMethodInfo          ,     annotLineSetVertices                    ,  @@ -60,17 +62,76 @@ noAnnotLine :: Maybe AnnotLine noAnnotLine = Nothing +type family ResolveAnnotLineMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotLineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotLineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotLineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotLineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotLineMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotLineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotLineMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotLineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotLineMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotLineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotLineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotLineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotLineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotLineMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotLineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotLineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotLineMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotLineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotLineMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotLineMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotLineMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotLineMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotLineMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotLineMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotLineMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotLineMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotLineMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotLineMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotLineMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotLineMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotLineMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotLineMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotLineMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotLineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotLineMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotLineMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotLineMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotLineMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotLineMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotLineMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotLineMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotLineMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotLineMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotLineMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotLineMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotLineMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotLineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotLineMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotLineMethod "setVertices" o = AnnotLineSetVerticesMethodInfo+    ResolveAnnotLineMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotLineMethod t AnnotLine, MethodInfo info AnnotLine p) => IsLabelProxy t (AnnotLine -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotLineMethod t AnnotLine, MethodInfo info AnnotLine p) => IsLabel t (AnnotLine -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotLine = AnnotLineAttributeList type AnnotLineAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotLine = AnnotLineSignalList-type AnnotLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotLine::new -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotLine" -- throws : False -- Skip return : False@@ -85,11 +146,11 @@  annotLineNew ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    Point ->                                -- start-    Point ->                                -- end-    m AnnotLine+    a                                       -- doc+    -> Rectangle                            -- rect+    -> Point                                -- start+    -> Point                                -- end+    -> m AnnotLine                          -- result annotLineNew doc rect start end = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -106,9 +167,8 @@  -- method AnnotLine::set_vertices -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -122,10 +182,10 @@  annotLineSetVertices ::     (MonadIO m, AnnotLineK a) =>-    a ->                                    -- _obj-    Point ->                                -- start-    Point ->                                -- end-    m ()+    a                                       -- _obj+    -> Point                                -- start+    -> Point                                -- end+    -> m ()                                 -- result annotLineSetVertices _obj start end = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let start' = unsafeManagedPtrGetPtr start@@ -135,5 +195,9 @@     touchManagedPtr start     touchManagedPtr end     return ()++data AnnotLineSetVerticesMethodInfo+instance (signature ~ (Point -> Point -> m ()), MonadIO m, AnnotLineK a) => MethodInfo AnnotLineSetVerticesMethodInfo a signature where+    overloadedMethod _ = annotLineSetVertices  

@@ -11,3 +11,4 @@ instance GObject AnnotLine where class GObject o => AnnotLineK o instance (GObject o, IsDescendantOf AnnotLine o) => AnnotLineK o+data AnnotLineSetVerticesMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,58 +18,72 @@   -- * Methods -- ** annotMarkupGetDate+    AnnotMarkupGetDateMethodInfo            ,     annotMarkupGetDate                      ,   -- ** annotMarkupGetExternalData+    AnnotMarkupGetExternalDataMethodInfo    ,     annotMarkupGetExternalData              ,   -- ** annotMarkupGetLabel+    AnnotMarkupGetLabelMethodInfo           ,     annotMarkupGetLabel                     ,   -- ** annotMarkupGetOpacity+    AnnotMarkupGetOpacityMethodInfo         ,     annotMarkupGetOpacity                   ,   -- ** annotMarkupGetPopupIsOpen+    AnnotMarkupGetPopupIsOpenMethodInfo     ,     annotMarkupGetPopupIsOpen               ,   -- ** annotMarkupGetPopupRectangle+    AnnotMarkupGetPopupRectangleMethodInfo  ,     annotMarkupGetPopupRectangle            ,   -- ** annotMarkupGetReplyTo+    AnnotMarkupGetReplyToMethodInfo         ,     annotMarkupGetReplyTo                   ,   -- ** annotMarkupGetSubject+    AnnotMarkupGetSubjectMethodInfo         ,     annotMarkupGetSubject                   ,   -- ** annotMarkupHasPopup+    AnnotMarkupHasPopupMethodInfo           ,     annotMarkupHasPopup                     ,   -- ** annotMarkupSetLabel+    AnnotMarkupSetLabelMethodInfo           ,     annotMarkupSetLabel                     ,   -- ** annotMarkupSetOpacity+    AnnotMarkupSetOpacityMethodInfo         ,     annotMarkupSetOpacity                   ,   -- ** annotMarkupSetPopup+    AnnotMarkupSetPopupMethodInfo           ,     annotMarkupSetPopup                     ,   -- ** annotMarkupSetPopupIsOpen+    AnnotMarkupSetPopupIsOpenMethodInfo     ,     annotMarkupSetPopupIsOpen               ,   -- ** annotMarkupSetPopupRectangle+    AnnotMarkupSetPopupRectangleMethodInfo  ,     annotMarkupSetPopupRectangle            ,  @@ -109,17 +124,75 @@ noAnnotMarkup :: Maybe AnnotMarkup noAnnotMarkup = Nothing +type family ResolveAnnotMarkupMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotMarkupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotMarkupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotMarkupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotMarkupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotMarkupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotMarkupMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotMarkupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotMarkupMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotMarkupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotMarkupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotMarkupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotMarkupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotMarkupMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotMarkupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotMarkupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotMarkupMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotMarkupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotMarkupMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotMarkupMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotMarkupMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotMarkupMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotMarkupMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotMarkupMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotMarkupMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotMarkupMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotMarkupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotMarkupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotMarkupMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotMarkupMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotMarkupMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotMarkupMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotMarkupMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotMarkupMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotMarkupMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotMarkupMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotMarkupMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotMarkupMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotMarkupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotMarkupMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotMarkupMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, MethodInfo info AnnotMarkup p) => IsLabelProxy t (AnnotMarkup -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, MethodInfo info AnnotMarkup p) => IsLabel t (AnnotMarkup -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotMarkup = AnnotMarkupAttributeList type AnnotMarkupAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotMarkup = AnnotMarkupSignalList-type AnnotMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotMarkup::get_date -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "GLib" "Date" -- throws : False -- Skip return : False@@ -131,8 +204,8 @@  annotMarkupGetDate ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m GLib.Date+    a                                       -- _obj+    -> m GLib.Date                          -- result annotMarkupGetDate _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_get_date _obj'@@ -141,11 +214,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupGetDateMethodInfo+instance (signature ~ (m GLib.Date), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetDateMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetDate+ -- method AnnotMarkup::get_external_data -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotExternalDataType" -- throws : False -- Skip return : False@@ -157,8 +233,8 @@  annotMarkupGetExternalData ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m AnnotExternalDataType+    a                                       -- _obj+    -> m AnnotExternalDataType              -- result annotMarkupGetExternalData _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_get_external_data _obj'@@ -166,11 +242,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupGetExternalDataMethodInfo+instance (signature ~ (m AnnotExternalDataType), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetExternalDataMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetExternalData+ -- method AnnotMarkup::get_label -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -182,8 +261,8 @@  annotMarkupGetLabel ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotMarkupGetLabel _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_get_label _obj'@@ -193,11 +272,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupGetLabelMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetLabelMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetLabel+ -- method AnnotMarkup::get_opacity -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False@@ -209,8 +291,8 @@  annotMarkupGetOpacity ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m Double+    a                                       -- _obj+    -> m Double                             -- result annotMarkupGetOpacity _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_get_opacity _obj'@@ -218,11 +300,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupGetOpacityMethodInfo+instance (signature ~ (m Double), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetOpacityMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetOpacity+ -- method AnnotMarkup::get_popup_is_open -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -234,8 +319,8 @@  annotMarkupGetPopupIsOpen ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result annotMarkupGetPopupIsOpen _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_get_popup_is_open _obj'@@ -243,11 +328,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupGetPopupIsOpenMethodInfo+instance (signature ~ (m Bool), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetPopupIsOpenMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetPopupIsOpen+ -- method AnnotMarkup::get_popup_rectangle -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -260,22 +348,25 @@  annotMarkupGetPopupRectangle ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m (Bool,Rectangle)+    a                                       -- _obj+    -> m (Bool,Rectangle)                   -- result annotMarkupGetPopupRectangle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    poppler_rect <- callocBoxedBytes 32 :: IO (Ptr Rectangle)-    result <- poppler_annot_markup_get_popup_rectangle _obj' poppler_rect+    popplerRect <- callocBoxedBytes 32 :: IO (Ptr Rectangle)+    result <- poppler_annot_markup_get_popup_rectangle _obj' popplerRect     let result' = (/= 0) result-    poppler_rect' <- (wrapBoxed Rectangle) poppler_rect+    popplerRect' <- (wrapBoxed Rectangle) popplerRect     touchManagedPtr _obj-    return (result', poppler_rect')+    return (result', popplerRect') +data AnnotMarkupGetPopupRectangleMethodInfo+instance (signature ~ (m (Bool,Rectangle)), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetPopupRectangleMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetPopupRectangle+ -- method AnnotMarkup::get_reply_to -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotMarkupReplyType" -- throws : False -- Skip return : False@@ -287,8 +378,8 @@  annotMarkupGetReplyTo ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m AnnotMarkupReplyType+    a                                       -- _obj+    -> m AnnotMarkupReplyType               -- result annotMarkupGetReplyTo _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_get_reply_to _obj'@@ -296,11 +387,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupGetReplyToMethodInfo+instance (signature ~ (m AnnotMarkupReplyType), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetReplyToMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetReplyTo+ -- method AnnotMarkup::get_subject -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -312,8 +406,8 @@  annotMarkupGetSubject ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotMarkupGetSubject _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_get_subject _obj'@@ -323,11 +417,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupGetSubjectMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetSubjectMethodInfo a signature where+    overloadedMethod _ = annotMarkupGetSubject+ -- method AnnotMarkup::has_popup -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -339,8 +436,8 @@  annotMarkupHasPopup ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result annotMarkupHasPopup _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_markup_has_popup _obj'@@ -348,11 +445,14 @@     touchManagedPtr _obj     return result' +data AnnotMarkupHasPopupMethodInfo+instance (signature ~ (m Bool), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupHasPopupMethodInfo a signature where+    overloadedMethod _ = annotMarkupHasPopup+ -- method AnnotMarkup::set_label -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -365,9 +465,9 @@  annotMarkupSetLabel ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    Maybe (T.Text) ->                       -- label-    m ()+    a                                       -- _obj+    -> Maybe (T.Text)                       -- label+    -> m ()                                 -- result annotMarkupSetLabel _obj label = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     maybeLabel <- case label of@@ -380,11 +480,14 @@     freeMem maybeLabel     return () +data AnnotMarkupSetLabelMethodInfo+instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetLabelMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetLabel+ -- method AnnotMarkup::set_opacity -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -397,9 +500,9 @@  annotMarkupSetOpacity ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    Double ->                               -- opacity-    m ()+    a                                       -- _obj+    -> Double                               -- opacity+    -> m ()                                 -- result annotMarkupSetOpacity _obj opacity = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let opacity' = realToFrac opacity@@ -407,11 +510,14 @@     touchManagedPtr _obj     return () +data AnnotMarkupSetOpacityMethodInfo+instance (signature ~ (Double -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetOpacityMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetOpacity+ -- method AnnotMarkup::set_popup -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "popup_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -424,22 +530,25 @@  annotMarkupSetPopup ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    Rectangle ->                            -- popup_rect-    m ()-annotMarkupSetPopup _obj popup_rect = liftIO $ do+    a                                       -- _obj+    -> Rectangle                            -- popupRect+    -> m ()                                 -- result+annotMarkupSetPopup _obj popupRect = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let popup_rect' = unsafeManagedPtrGetPtr popup_rect-    poppler_annot_markup_set_popup _obj' popup_rect'+    let popupRect' = unsafeManagedPtrGetPtr popupRect+    poppler_annot_markup_set_popup _obj' popupRect'     touchManagedPtr _obj-    touchManagedPtr popup_rect+    touchManagedPtr popupRect     return () +data AnnotMarkupSetPopupMethodInfo+instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetPopup+ -- method AnnotMarkup::set_popup_is_open -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -452,21 +561,24 @@  annotMarkupSetPopupIsOpen ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- is_open-    m ()-annotMarkupSetPopupIsOpen _obj is_open = liftIO $ do+    a                                       -- _obj+    -> Bool                                 -- isOpen+    -> m ()                                 -- result+annotMarkupSetPopupIsOpen _obj isOpen = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let is_open' = (fromIntegral . fromEnum) is_open-    poppler_annot_markup_set_popup_is_open _obj' is_open'+    let isOpen' = (fromIntegral . fromEnum) isOpen+    poppler_annot_markup_set_popup_is_open _obj' isOpen'     touchManagedPtr _obj     return () +data AnnotMarkupSetPopupIsOpenMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupIsOpenMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetPopupIsOpen+ -- method AnnotMarkup::set_popup_rectangle -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -479,15 +591,19 @@  annotMarkupSetPopupRectangle ::     (MonadIO m, AnnotMarkupK a) =>-    a ->                                    -- _obj-    Rectangle ->                            -- poppler_rect-    m ()-annotMarkupSetPopupRectangle _obj poppler_rect = liftIO $ do+    a                                       -- _obj+    -> Rectangle                            -- popplerRect+    -> m ()                                 -- result+annotMarkupSetPopupRectangle _obj popplerRect = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let poppler_rect' = unsafeManagedPtrGetPtr poppler_rect-    poppler_annot_markup_set_popup_rectangle _obj' poppler_rect'+    let popplerRect' = unsafeManagedPtrGetPtr popplerRect+    poppler_annot_markup_set_popup_rectangle _obj' popplerRect'     touchManagedPtr _obj-    touchManagedPtr poppler_rect+    touchManagedPtr popplerRect     return ()++data AnnotMarkupSetPopupRectangleMethodInfo+instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupRectangleMethodInfo a signature where+    overloadedMethod _ = annotMarkupSetPopupRectangle  

@@ -11,3 +11,17 @@ instance GObject AnnotMarkup where class GObject o => AnnotMarkupK o instance (GObject o, IsDescendantOf AnnotMarkup o) => AnnotMarkupK o+data AnnotMarkupGetDateMethodInfo+data AnnotMarkupGetExternalDataMethodInfo+data AnnotMarkupGetLabelMethodInfo+data AnnotMarkupGetOpacityMethodInfo+data AnnotMarkupGetPopupIsOpenMethodInfo+data AnnotMarkupGetPopupRectangleMethodInfo+data AnnotMarkupGetReplyToMethodInfo+data AnnotMarkupGetSubjectMethodInfo+data AnnotMarkupHasPopupMethodInfo+data AnnotMarkupSetLabelMethodInfo+data AnnotMarkupSetOpacityMethodInfo+data AnnotMarkupSetPopupMethodInfo+data AnnotMarkupSetPopupIsOpenMethodInfo+data AnnotMarkupSetPopupRectangleMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,10 +18,12 @@   -- * Methods -- ** annotMovieGetMovie+    AnnotMovieGetMovieMethodInfo            ,     annotMovieGetMovie                      ,   -- ** annotMovieGetTitle+    AnnotMovieGetTitleMethodInfo            ,     annotMovieGetTitle                      ,  @@ -60,17 +63,63 @@ noAnnotMovie :: Maybe AnnotMovie noAnnotMovie = Nothing +type family ResolveAnnotMovieMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotMovieMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotMovieMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotMovieMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotMovieMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotMovieMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotMovieMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotMovieMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotMovieMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotMovieMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotMovieMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotMovieMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotMovieMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotMovieMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotMovieMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotMovieMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotMovieMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotMovieMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotMovieMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotMovieMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotMovieMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotMovieMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotMovieMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotMovieMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotMovieMethod "getMovie" o = AnnotMovieGetMovieMethodInfo+    ResolveAnnotMovieMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotMovieMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotMovieMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotMovieMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotMovieMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotMovieMethod "getTitle" o = AnnotMovieGetTitleMethodInfo+    ResolveAnnotMovieMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotMovieMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotMovieMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotMovieMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotMovieMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotMovieMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotMovieMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotMovieMethod t AnnotMovie, MethodInfo info AnnotMovie p) => IsLabelProxy t (AnnotMovie -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotMovieMethod t AnnotMovie, MethodInfo info AnnotMovie p) => IsLabel t (AnnotMovie -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotMovie = AnnotMovieAttributeList type AnnotMovieAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotMovie = AnnotMovieSignalList-type AnnotMovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotMovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotMovie::get_movie -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Movie" -- throws : False -- Skip return : False@@ -82,8 +131,8 @@  annotMovieGetMovie ::     (MonadIO m, AnnotMovieK a) =>-    a ->                                    -- _obj-    m Movie+    a                                       -- _obj+    -> m Movie                              -- result annotMovieGetMovie _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_movie_get_movie _obj'@@ -92,11 +141,14 @@     touchManagedPtr _obj     return result' +data AnnotMovieGetMovieMethodInfo+instance (signature ~ (m Movie), MonadIO m, AnnotMovieK a) => MethodInfo AnnotMovieGetMovieMethodInfo a signature where+    overloadedMethod _ = annotMovieGetMovie+ -- method AnnotMovie::get_title -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -108,8 +160,8 @@  annotMovieGetTitle ::     (MonadIO m, AnnotMovieK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotMovieGetTitle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_movie_get_title _obj'@@ -118,5 +170,9 @@     freeMem result     touchManagedPtr _obj     return result'++data AnnotMovieGetTitleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotMovieK a) => MethodInfo AnnotMovieGetTitleMethodInfo a signature where+    overloadedMethod _ = annotMovieGetTitle  

@@ -11,3 +11,5 @@ instance GObject AnnotMovie where class GObject o => AnnotMovieK o instance (GObject o, IsDescendantOf AnnotMovie o) => AnnotMovieK o+data AnnotMovieGetMovieMethodInfo+data AnnotMovieGetTitleMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** annotScreenGetAction+    AnnotScreenGetActionMethodInfo          ,     annotScreenGetAction                    ,  @@ -56,17 +58,62 @@ noAnnotScreen :: Maybe AnnotScreen noAnnotScreen = Nothing +type family ResolveAnnotScreenMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotScreenMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotScreenMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotScreenMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotScreenMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotScreenMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotScreenMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotScreenMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotScreenMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotScreenMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotScreenMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotScreenMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotScreenMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotScreenMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotScreenMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotScreenMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotScreenMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotScreenMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotScreenMethod "getAction" o = AnnotScreenGetActionMethodInfo+    ResolveAnnotScreenMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotScreenMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotScreenMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotScreenMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotScreenMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotScreenMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotScreenMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotScreenMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotScreenMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotScreenMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotScreenMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotScreenMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotScreenMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotScreenMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotScreenMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotScreenMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotScreenMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotScreenMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotScreenMethod t AnnotScreen, MethodInfo info AnnotScreen p) => IsLabelProxy t (AnnotScreen -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotScreenMethod t AnnotScreen, MethodInfo info AnnotScreen p) => IsLabel t (AnnotScreen -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotScreen = AnnotScreenAttributeList type AnnotScreenAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotScreen = AnnotScreenSignalList-type AnnotScreenSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotScreenSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotScreen::get_action -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Action" -- throws : False -- Skip return : False@@ -78,8 +125,8 @@  annotScreenGetAction ::     (MonadIO m, AnnotScreenK a) =>-    a ->                                    -- _obj-    m Action+    a                                       -- _obj+    -> m Action                             -- result annotScreenGetAction _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_screen_get_action _obj'@@ -87,5 +134,9 @@     result' <- (newBoxed Action) result     touchManagedPtr _obj     return result'++data AnnotScreenGetActionMethodInfo+instance (signature ~ (m Action), MonadIO m, AnnotScreenK a) => MethodInfo AnnotScreenGetActionMethodInfo a signature where+    overloadedMethod _ = annotScreenGetAction  

@@ -11,3 +11,4 @@ instance GObject AnnotScreen where class GObject o => AnnotScreenK o instance (GObject o, IsDescendantOf AnnotScreen o) => AnnotScreenK o+data AnnotScreenGetActionMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** annotSquareGetInteriorColor+    AnnotSquareGetInteriorColorMethodInfo   ,     annotSquareGetInteriorColor             ,  @@ -25,6 +27,7 @@   -- ** annotSquareSetInteriorColor+    AnnotSquareSetInteriorColorMethodInfo   ,     annotSquareSetInteriorColor             ,  @@ -64,17 +67,77 @@ noAnnotSquare :: Maybe AnnotSquare noAnnotSquare = Nothing +type family ResolveAnnotSquareMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotSquareMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotSquareMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotSquareMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotSquareMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotSquareMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotSquareMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotSquareMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotSquareMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotSquareMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotSquareMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotSquareMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotSquareMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotSquareMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotSquareMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotSquareMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotSquareMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotSquareMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotSquareMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotSquareMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotSquareMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotSquareMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotSquareMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotSquareMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotSquareMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotSquareMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotSquareMethod "getInteriorColor" o = AnnotSquareGetInteriorColorMethodInfo+    ResolveAnnotSquareMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotSquareMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotSquareMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotSquareMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotSquareMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotSquareMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotSquareMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotSquareMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotSquareMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotSquareMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotSquareMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotSquareMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotSquareMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotSquareMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotSquareMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotSquareMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotSquareMethod "setInteriorColor" o = AnnotSquareSetInteriorColorMethodInfo+    ResolveAnnotSquareMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotSquareMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotSquareMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotSquareMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotSquareMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotSquareMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotSquareMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotSquareMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabelProxy t (AnnotSquare -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabel t (AnnotSquare -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotSquare = AnnotSquareAttributeList type AnnotSquareAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotSquare = AnnotSquareSignalList-type AnnotSquareSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotSquareSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotSquare::new -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotSquare" -- throws : False -- Skip return : False@@ -87,9 +150,9 @@  annotSquareNew ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    m AnnotSquare+    a                                       -- doc+    -> Rectangle                            -- rect+    -> m AnnotSquare                        -- result annotSquareNew doc rect = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -102,9 +165,8 @@  -- method AnnotSquare::get_interior_color -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Color" -- throws : False -- Skip return : False@@ -116,8 +178,8 @@  annotSquareGetInteriorColor ::     (MonadIO m, AnnotSquareK a) =>-    a ->                                    -- _obj-    m Color+    a                                       -- _obj+    -> m Color                              -- result annotSquareGetInteriorColor _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_square_get_interior_color _obj'@@ -126,11 +188,14 @@     touchManagedPtr _obj     return result' +data AnnotSquareGetInteriorColorMethodInfo+instance (signature ~ (m Color), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareGetInteriorColorMethodInfo a signature where+    overloadedMethod _ = annotSquareGetInteriorColor+ -- method AnnotSquare::set_interior_color -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -143,19 +208,23 @@  annotSquareSetInteriorColor ::     (MonadIO m, AnnotSquareK a) =>-    a ->                                    -- _obj-    Maybe (Color) ->                        -- poppler_color-    m ()-annotSquareSetInteriorColor _obj poppler_color = liftIO $ do+    a                                       -- _obj+    -> Maybe (Color)                        -- popplerColor+    -> m ()                                 -- result+annotSquareSetInteriorColor _obj popplerColor = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    maybePoppler_color <- case poppler_color of+    maybePopplerColor <- case popplerColor of         Nothing -> return nullPtr-        Just jPoppler_color -> do-            let jPoppler_color' = unsafeManagedPtrGetPtr jPoppler_color-            return jPoppler_color'-    poppler_annot_square_set_interior_color _obj' maybePoppler_color+        Just jPopplerColor -> do+            let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor+            return jPopplerColor'+    poppler_annot_square_set_interior_color _obj' maybePopplerColor     touchManagedPtr _obj-    whenJust poppler_color touchManagedPtr+    whenJust popplerColor touchManagedPtr     return ()++data AnnotSquareSetInteriorColorMethodInfo+instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareSetInteriorColorMethodInfo a signature where+    overloadedMethod _ = annotSquareSetInteriorColor  

@@ -11,3 +11,5 @@ instance GObject AnnotSquare where class GObject o => AnnotSquareK o instance (GObject o, IsDescendantOf AnnotSquare o) => AnnotSquareK o+data AnnotSquareGetInteriorColorMethodInfo+data AnnotSquareSetInteriorColorMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,14 +18,17 @@   -- * Methods -- ** annotTextGetIcon+    AnnotTextGetIconMethodInfo              ,     annotTextGetIcon                        ,   -- ** annotTextGetIsOpen+    AnnotTextGetIsOpenMethodInfo            ,     annotTextGetIsOpen                      ,   -- ** annotTextGetState+    AnnotTextGetStateMethodInfo             ,     annotTextGetState                       ,  @@ -33,10 +37,12 @@   -- ** annotTextSetIcon+    AnnotTextSetIconMethodInfo              ,     annotTextSetIcon                        ,   -- ** annotTextSetIsOpen+    AnnotTextSetIsOpenMethodInfo            ,     annotTextSetIsOpen                      ,  @@ -76,17 +82,80 @@ noAnnotText :: Maybe AnnotText noAnnotText = Nothing +type family ResolveAnnotTextMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotTextMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotTextMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotTextMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotTextMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotTextMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotTextMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotTextMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotTextMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotTextMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotTextMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotTextMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotTextMethod "getIcon" o = AnnotTextGetIconMethodInfo+    ResolveAnnotTextMethod "getIsOpen" o = AnnotTextGetIsOpenMethodInfo+    ResolveAnnotTextMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotTextMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotTextMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotTextMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotTextMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotTextMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotTextMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotTextMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotTextMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotTextMethod "getState" o = AnnotTextGetStateMethodInfo+    ResolveAnnotTextMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotTextMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotTextMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotTextMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotTextMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotTextMethod "setIcon" o = AnnotTextSetIconMethodInfo+    ResolveAnnotTextMethod "setIsOpen" o = AnnotTextSetIsOpenMethodInfo+    ResolveAnnotTextMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotTextMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotTextMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotTextMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotTextMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotTextMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotTextMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotTextMethod t AnnotText, MethodInfo info AnnotText p) => IsLabelProxy t (AnnotText -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotTextMethod t AnnotText, MethodInfo info AnnotText p) => IsLabel t (AnnotText -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotText = AnnotTextAttributeList type AnnotTextAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotText = AnnotTextSignalList-type AnnotTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotText::new -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotText" -- throws : False -- Skip return : False@@ -99,9 +168,9 @@  annotTextNew ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    m AnnotText+    a                                       -- doc+    -> Rectangle                            -- rect+    -> m AnnotText                          -- result annotTextNew doc rect = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -114,9 +183,8 @@  -- method AnnotText::get_icon -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -128,8 +196,8 @@  annotTextGetIcon ::     (MonadIO m, AnnotTextK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result annotTextGetIcon _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_text_get_icon _obj'@@ -139,11 +207,14 @@     touchManagedPtr _obj     return result' +data AnnotTextGetIconMethodInfo+instance (signature ~ (m T.Text), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetIconMethodInfo a signature where+    overloadedMethod _ = annotTextGetIcon+ -- method AnnotText::get_is_open -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -155,8 +226,8 @@  annotTextGetIsOpen ::     (MonadIO m, AnnotTextK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result annotTextGetIsOpen _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_text_get_is_open _obj'@@ -164,11 +235,14 @@     touchManagedPtr _obj     return result' +data AnnotTextGetIsOpenMethodInfo+instance (signature ~ (m Bool), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetIsOpenMethodInfo a signature where+    overloadedMethod _ = annotTextGetIsOpen+ -- method AnnotText::get_state -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotTextState" -- throws : False -- Skip return : False@@ -180,8 +254,8 @@  annotTextGetState ::     (MonadIO m, AnnotTextK a) =>-    a ->                                    -- _obj-    m AnnotTextState+    a                                       -- _obj+    -> m AnnotTextState                     -- result annotTextGetState _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_text_get_state _obj'@@ -189,11 +263,14 @@     touchManagedPtr _obj     return result' +data AnnotTextGetStateMethodInfo+instance (signature ~ (m AnnotTextState), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetStateMethodInfo a signature where+    overloadedMethod _ = annotTextGetState+ -- method AnnotText::set_icon -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -206,9 +283,9 @@  annotTextSetIcon ::     (MonadIO m, AnnotTextK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- icon-    m ()+    a                                       -- _obj+    -> T.Text                               -- icon+    -> m ()                                 -- result annotTextSetIcon _obj icon = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     icon' <- textToCString icon@@ -217,11 +294,14 @@     freeMem icon'     return () +data AnnotTextSetIconMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextSetIconMethodInfo a signature where+    overloadedMethod _ = annotTextSetIcon+ -- method AnnotText::set_is_open -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -234,14 +314,18 @@  annotTextSetIsOpen ::     (MonadIO m, AnnotTextK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- is_open-    m ()-annotTextSetIsOpen _obj is_open = liftIO $ do+    a                                       -- _obj+    -> Bool                                 -- isOpen+    -> m ()                                 -- result+annotTextSetIsOpen _obj isOpen = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    let is_open' = (fromIntegral . fromEnum) is_open-    poppler_annot_text_set_is_open _obj' is_open'+    let isOpen' = (fromIntegral . fromEnum) isOpen+    poppler_annot_text_set_is_open _obj' isOpen'     touchManagedPtr _obj     return ()++data AnnotTextSetIsOpenMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextSetIsOpenMethodInfo a signature where+    overloadedMethod _ = annotTextSetIsOpen  

@@ -11,3 +11,8 @@ instance GObject AnnotText where class GObject o => AnnotTextK o instance (GObject o, IsDescendantOf AnnotText o) => AnnotTextK o+data AnnotTextGetIconMethodInfo+data AnnotTextGetIsOpenMethodInfo+data AnnotTextGetStateMethodInfo+data AnnotTextSetIconMethodInfo+data AnnotTextSetIsOpenMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** annotTextMarkupGetQuadrilaterals+    AnnotTextMarkupGetQuadrilateralsMethodInfo,     annotTextMarkupGetQuadrilaterals        ,  @@ -37,6 +39,7 @@   -- ** annotTextMarkupSetQuadrilaterals+    AnnotTextMarkupSetQuadrilateralsMethodInfo,     annotTextMarkupSetQuadrilaterals        ,  @@ -76,17 +79,77 @@ noAnnotTextMarkup :: Maybe AnnotTextMarkup noAnnotTextMarkup = Nothing +type family ResolveAnnotTextMarkupMethod (t :: Symbol) (o :: *) :: * where+    ResolveAnnotTextMarkupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAnnotTextMarkupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAnnotTextMarkupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAnnotTextMarkupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAnnotTextMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo+    ResolveAnnotTextMarkupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAnnotTextMarkupMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAnnotTextMarkupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAnnotTextMarkupMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAnnotTextMarkupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAnnotTextMarkupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAnnotTextMarkupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAnnotTextMarkupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAnnotTextMarkupMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAnnotTextMarkupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAnnotTextMarkupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAnnotTextMarkupMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAnnotTextMarkupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAnnotTextMarkupMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo+    ResolveAnnotTextMarkupMethod "getColor" o = AnnotGetColorMethodInfo+    ResolveAnnotTextMarkupMethod "getContents" o = AnnotGetContentsMethodInfo+    ResolveAnnotTextMarkupMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAnnotTextMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo+    ResolveAnnotTextMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo+    ResolveAnnotTextMarkupMethod "getFlags" o = AnnotGetFlagsMethodInfo+    ResolveAnnotTextMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo+    ResolveAnnotTextMarkupMethod "getModified" o = AnnotGetModifiedMethodInfo+    ResolveAnnotTextMarkupMethod "getName" o = AnnotGetNameMethodInfo+    ResolveAnnotTextMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo+    ResolveAnnotTextMarkupMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo+    ResolveAnnotTextMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo+    ResolveAnnotTextMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo+    ResolveAnnotTextMarkupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAnnotTextMarkupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAnnotTextMarkupMethod "getQuadrilaterals" o = AnnotTextMarkupGetQuadrilateralsMethodInfo+    ResolveAnnotTextMarkupMethod "getRectangle" o = AnnotGetRectangleMethodInfo+    ResolveAnnotTextMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo+    ResolveAnnotTextMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo+    ResolveAnnotTextMarkupMethod "setColor" o = AnnotSetColorMethodInfo+    ResolveAnnotTextMarkupMethod "setContents" o = AnnotSetContentsMethodInfo+    ResolveAnnotTextMarkupMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAnnotTextMarkupMethod "setFlags" o = AnnotSetFlagsMethodInfo+    ResolveAnnotTextMarkupMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo+    ResolveAnnotTextMarkupMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo+    ResolveAnnotTextMarkupMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo+    ResolveAnnotTextMarkupMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo+    ResolveAnnotTextMarkupMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo+    ResolveAnnotTextMarkupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAnnotTextMarkupMethod "setQuadrilaterals" o = AnnotTextMarkupSetQuadrilateralsMethodInfo+    ResolveAnnotTextMarkupMethod "setRectangle" o = AnnotSetRectangleMethodInfo+    ResolveAnnotTextMarkupMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, MethodInfo info AnnotTextMarkup p) => IsLabelProxy t (AnnotTextMarkup -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, MethodInfo info AnnotTextMarkup p) => IsLabel t (AnnotTextMarkup -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList AnnotTextMarkup = AnnotTextMarkupAttributeList type AnnotTextMarkupAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList AnnotTextMarkup = AnnotTextMarkupSignalList-type AnnotTextMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AnnotTextMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method AnnotTextMarkup::new_highlight -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotTextMarkup" -- throws : False -- Skip return : False@@ -100,10 +163,10 @@  annotTextMarkupNewHighlight ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    [Quadrilateral] ->                      -- quadrilaterals-    m AnnotTextMarkup+    a                                       -- doc+    -> Rectangle                            -- rect+    -> [Quadrilateral]                      -- quadrilaterals+    -> m AnnotTextMarkup                    -- result annotTextMarkupNewHighlight doc rect quadrilaterals = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -120,9 +183,8 @@  -- method AnnotTextMarkup::new_squiggly -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotTextMarkup" -- throws : False -- Skip return : False@@ -136,10 +198,10 @@  annotTextMarkupNewSquiggly ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    [Quadrilateral] ->                      -- quadrilaterals-    m AnnotTextMarkup+    a                                       -- doc+    -> Rectangle                            -- rect+    -> [Quadrilateral]                      -- quadrilaterals+    -> m AnnotTextMarkup                    -- result annotTextMarkupNewSquiggly doc rect quadrilaterals = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -156,9 +218,8 @@  -- method AnnotTextMarkup::new_strikeout -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotTextMarkup" -- throws : False -- Skip return : False@@ -172,10 +233,10 @@  annotTextMarkupNewStrikeout ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    [Quadrilateral] ->                      -- quadrilaterals-    m AnnotTextMarkup+    a                                       -- doc+    -> Rectangle                            -- rect+    -> [Quadrilateral]                      -- quadrilaterals+    -> m AnnotTextMarkup                    -- result annotTextMarkupNewStrikeout doc rect quadrilaterals = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -192,9 +253,8 @@  -- method AnnotTextMarkup::new_underline -- method type : Constructor--- Args : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "AnnotTextMarkup" -- throws : False -- Skip return : False@@ -208,10 +268,10 @@  annotTextMarkupNewUnderline ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- doc-    Rectangle ->                            -- rect-    [Quadrilateral] ->                      -- quadrilaterals-    m AnnotTextMarkup+    a                                       -- doc+    -> Rectangle                            -- rect+    -> [Quadrilateral]                      -- quadrilaterals+    -> m AnnotTextMarkup                    -- result annotTextMarkupNewUnderline doc rect quadrilaterals = liftIO $ do     let doc' = unsafeManagedPtrCastPtr doc     let rect' = unsafeManagedPtrGetPtr rect@@ -228,9 +288,8 @@  -- method AnnotTextMarkup::get_quadrilaterals -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGArray (TInterface "Poppler" "Quadrilateral") -- throws : False -- Skip return : False@@ -242,8 +301,8 @@  annotTextMarkupGetQuadrilaterals ::     (MonadIO m, AnnotTextMarkupK a) =>-    a ->                                    -- _obj-    m [Quadrilateral]+    a                                       -- _obj+    -> m [Quadrilateral]                    -- result annotTextMarkupGetQuadrilaterals _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_annot_text_markup_get_quadrilaterals _obj'@@ -254,11 +313,14 @@     touchManagedPtr _obj     return result'' +data AnnotTextMarkupGetQuadrilateralsMethodInfo+instance (signature ~ (m [Quadrilateral]), MonadIO m, AnnotTextMarkupK a) => MethodInfo AnnotTextMarkupGetQuadrilateralsMethodInfo a signature where+    overloadedMethod _ = annotTextMarkupGetQuadrilaterals+ -- method AnnotTextMarkup::set_quadrilaterals -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -271,9 +333,9 @@  annotTextMarkupSetQuadrilaterals ::     (MonadIO m, AnnotTextMarkupK a) =>-    a ->                                    -- _obj-    [Quadrilateral] ->                      -- quadrilaterals-    m ()+    a                                       -- _obj+    -> [Quadrilateral]                      -- quadrilaterals+    -> m ()                                 -- result annotTextMarkupSetQuadrilaterals _obj quadrilaterals = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals@@ -283,5 +345,9 @@     mapM_ touchManagedPtr quadrilaterals     unrefGArray quadrilaterals''     return ()++data AnnotTextMarkupSetQuadrilateralsMethodInfo+instance (signature ~ ([Quadrilateral] -> m ()), MonadIO m, AnnotTextMarkupK a) => MethodInfo AnnotTextMarkupSetQuadrilateralsMethodInfo a signature where+    overloadedMethod _ = annotTextMarkupSetQuadrilaterals  

@@ -11,3 +11,5 @@ instance GObject AnnotTextMarkup where class GObject o => AnnotTextMarkupK o instance (GObject o, IsDescendantOf AnnotTextMarkup o) => AnnotTextMarkupK o+data AnnotTextMarkupGetQuadrilateralsMethodInfo+data AnnotTextMarkupSetQuadrilateralsMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,10 +18,12 @@   -- * Methods -- ** attachmentSave+    AttachmentSaveMethodInfo                ,     attachmentSave                          ,   -- ** attachmentSaveToCallback+    AttachmentSaveToCallbackMethodInfo      ,     attachmentSaveToCallback                ,  @@ -60,17 +63,51 @@ noAttachment :: Maybe Attachment noAttachment = Nothing +type family ResolveAttachmentMethod (t :: Symbol) (o :: *) :: * where+    ResolveAttachmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveAttachmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveAttachmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveAttachmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveAttachmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveAttachmentMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveAttachmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveAttachmentMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveAttachmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveAttachmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveAttachmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveAttachmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveAttachmentMethod "save" o = AttachmentSaveMethodInfo+    ResolveAttachmentMethod "saveToCallback" o = AttachmentSaveToCallbackMethodInfo+    ResolveAttachmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveAttachmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveAttachmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveAttachmentMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveAttachmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveAttachmentMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveAttachmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveAttachmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveAttachmentMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveAttachmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveAttachmentMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveAttachmentMethod t Attachment, MethodInfo info Attachment p) => IsLabelProxy t (Attachment -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveAttachmentMethod t Attachment, MethodInfo info Attachment p) => IsLabel t (Attachment -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Attachment = AttachmentAttributeList type AttachmentAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Attachment = AttachmentSignalList-type AttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type AttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Attachment::save -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False@@ -84,9 +121,9 @@  attachmentSave ::     (MonadIO m, AttachmentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- filename-    m ()+    a                                       -- _obj+    -> T.Text                               -- filename+    -> m ()                                 -- result attachmentSave _obj filename = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     filename' <- textToCString filename@@ -99,11 +136,14 @@         freeMem filename'      ) +data AttachmentSaveMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, AttachmentK a) => MethodInfo AttachmentSaveMethodInfo a signature where+    overloadedMethod _ = attachmentSave+ -- method Attachment::save_to_callback -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "Poppler" "AttachmentSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "Poppler" "AttachmentSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "Poppler" "AttachmentSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False@@ -118,21 +158,25 @@  attachmentSaveToCallback ::     (MonadIO m, AttachmentK a) =>-    a ->                                    -- _obj-    AttachmentSaveFunc ->                   -- save_func-    m ()-attachmentSaveToCallback _obj save_func = liftIO $ do+    a                                       -- _obj+    -> AttachmentSaveFunc                   -- saveFunc+    -> m ()                                 -- result+attachmentSaveToCallback _obj saveFunc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    save_func' <- mkAttachmentSaveFunc (attachmentSaveFuncWrapper Nothing save_func)-    let user_data = nullPtr+    saveFunc' <- mkAttachmentSaveFunc (attachmentSaveFuncWrapper Nothing saveFunc)+    let userData = nullPtr     onException (do-        _ <- propagateGError $ poppler_attachment_save_to_callback _obj' save_func' user_data-        safeFreeFunPtr $ castFunPtrToPtr save_func'+        _ <- propagateGError $ poppler_attachment_save_to_callback _obj' saveFunc' userData+        safeFreeFunPtr $ castFunPtrToPtr saveFunc'         touchManagedPtr _obj         return ()      ) (do-        safeFreeFunPtr $ castFunPtrToPtr save_func'+        safeFreeFunPtr $ castFunPtrToPtr saveFunc'         return ()      )++data AttachmentSaveToCallbackMethodInfo+instance (signature ~ (AttachmentSaveFunc -> m ()), MonadIO m, AttachmentK a) => MethodInfo AttachmentSaveToCallbackMethodInfo a signature where+    overloadedMethod _ = attachmentSaveToCallback  

@@ -11,3 +11,5 @@ instance GObject Attachment where class GObject o => AttachmentK o instance (GObject o, IsDescendantOf Attachment o) => AttachmentK o+data AttachmentSaveMethodInfo+data AttachmentSaveToCallbackMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,98 +18,122 @@   -- * Methods -- ** documentFindDest+    DocumentFindDestMethodInfo              ,     documentFindDest                        ,   -- ** documentGetAttachments+    DocumentGetAttachmentsMethodInfo        ,     documentGetAttachments                  ,   -- ** documentGetAuthor+    DocumentGetAuthorMethodInfo             ,     documentGetAuthor                       ,   -- ** documentGetCreationDate+    DocumentGetCreationDateMethodInfo       ,     documentGetCreationDate                 ,   -- ** documentGetCreator+    DocumentGetCreatorMethodInfo            ,     documentGetCreator                      ,   -- ** documentGetFormField+    DocumentGetFormFieldMethodInfo          ,     documentGetFormField                    ,   -- ** documentGetId+    DocumentGetIdMethodInfo                 ,     documentGetId                           ,   -- ** documentGetKeywords+    DocumentGetKeywordsMethodInfo           ,     documentGetKeywords                     ,   -- ** documentGetMetadata+    DocumentGetMetadataMethodInfo           ,     documentGetMetadata                     ,   -- ** documentGetModificationDate+    DocumentGetModificationDateMethodInfo   ,     documentGetModificationDate             ,   -- ** documentGetNAttachments+    DocumentGetNAttachmentsMethodInfo       ,     documentGetNAttachments                 ,   -- ** documentGetNPages+    DocumentGetNPagesMethodInfo             ,     documentGetNPages                       ,   -- ** documentGetPage+    DocumentGetPageMethodInfo               ,     documentGetPage                         ,   -- ** documentGetPageByLabel+    DocumentGetPageByLabelMethodInfo        ,     documentGetPageByLabel                  ,   -- ** documentGetPageLayout+    DocumentGetPageLayoutMethodInfo         ,     documentGetPageLayout                   ,   -- ** documentGetPageMode+    DocumentGetPageModeMethodInfo           ,     documentGetPageMode                     ,   -- ** documentGetPdfVersion+    DocumentGetPdfVersionMethodInfo         ,     documentGetPdfVersion                   ,   -- ** documentGetPdfVersionString+    DocumentGetPdfVersionStringMethodInfo   ,     documentGetPdfVersionString             ,   -- ** documentGetPermissions+    DocumentGetPermissionsMethodInfo        ,     documentGetPermissions                  ,   -- ** documentGetProducer+    DocumentGetProducerMethodInfo           ,     documentGetProducer                     ,   -- ** documentGetSubject+    DocumentGetSubjectMethodInfo            ,     documentGetSubject                      ,   -- ** documentGetTitle+    DocumentGetTitleMethodInfo              ,     documentGetTitle                        ,   -- ** documentHasAttachments+    DocumentHasAttachmentsMethodInfo        ,     documentHasAttachments                  ,   -- ** documentIsLinearized+    DocumentIsLinearizedMethodInfo          ,     documentIsLinearized                    ,  @@ -129,10 +154,12 @@   -- ** documentSave+    DocumentSaveMethodInfo                  ,     documentSave                            ,   -- ** documentSaveACopy+    DocumentSaveACopyMethodInfo             ,     documentSaveACopy                       ,  @@ -261,6 +288,65 @@ noDocument :: Maybe Document noDocument = Nothing +type family ResolveDocumentMethod (t :: Symbol) (o :: *) :: * where+    ResolveDocumentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveDocumentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveDocumentMethod "findDest" o = DocumentFindDestMethodInfo+    ResolveDocumentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveDocumentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveDocumentMethod "hasAttachments" o = DocumentHasAttachmentsMethodInfo+    ResolveDocumentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveDocumentMethod "isLinearized" o = DocumentIsLinearizedMethodInfo+    ResolveDocumentMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveDocumentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveDocumentMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveDocumentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveDocumentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveDocumentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveDocumentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveDocumentMethod "save" o = DocumentSaveMethodInfo+    ResolveDocumentMethod "saveACopy" o = DocumentSaveACopyMethodInfo+    ResolveDocumentMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveDocumentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveDocumentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveDocumentMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveDocumentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveDocumentMethod "getAttachments" o = DocumentGetAttachmentsMethodInfo+    ResolveDocumentMethod "getAuthor" o = DocumentGetAuthorMethodInfo+    ResolveDocumentMethod "getCreationDate" o = DocumentGetCreationDateMethodInfo+    ResolveDocumentMethod "getCreator" o = DocumentGetCreatorMethodInfo+    ResolveDocumentMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveDocumentMethod "getFormField" o = DocumentGetFormFieldMethodInfo+    ResolveDocumentMethod "getId" o = DocumentGetIdMethodInfo+    ResolveDocumentMethod "getKeywords" o = DocumentGetKeywordsMethodInfo+    ResolveDocumentMethod "getMetadata" o = DocumentGetMetadataMethodInfo+    ResolveDocumentMethod "getModificationDate" o = DocumentGetModificationDateMethodInfo+    ResolveDocumentMethod "getNAttachments" o = DocumentGetNAttachmentsMethodInfo+    ResolveDocumentMethod "getNPages" o = DocumentGetNPagesMethodInfo+    ResolveDocumentMethod "getPage" o = DocumentGetPageMethodInfo+    ResolveDocumentMethod "getPageByLabel" o = DocumentGetPageByLabelMethodInfo+    ResolveDocumentMethod "getPageLayout" o = DocumentGetPageLayoutMethodInfo+    ResolveDocumentMethod "getPageMode" o = DocumentGetPageModeMethodInfo+    ResolveDocumentMethod "getPdfVersion" o = DocumentGetPdfVersionMethodInfo+    ResolveDocumentMethod "getPdfVersionString" o = DocumentGetPdfVersionStringMethodInfo+    ResolveDocumentMethod "getPermissions" o = DocumentGetPermissionsMethodInfo+    ResolveDocumentMethod "getProducer" o = DocumentGetProducerMethodInfo+    ResolveDocumentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveDocumentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveDocumentMethod "getSubject" o = DocumentGetSubjectMethodInfo+    ResolveDocumentMethod "getTitle" o = DocumentGetTitleMethodInfo+    ResolveDocumentMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveDocumentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveDocumentMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabelProxy t (Document -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabel t (Document -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ -- VVV Prop "author"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable]@@ -274,7 +360,7 @@     type AttrSetTypeConstraint DocumentAuthorPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentAuthorPropertyInfo = DocumentK     type AttrGetType DocumentAuthorPropertyInfo = T.Text-    type AttrLabel DocumentAuthorPropertyInfo = "Document::author"+    type AttrLabel DocumentAuthorPropertyInfo = "author"     attrGet _ = getDocumentAuthor     attrSet _ = undefined     attrConstruct _ = undefined@@ -292,7 +378,7 @@     type AttrSetTypeConstraint DocumentCreationDatePropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentCreationDatePropertyInfo = DocumentK     type AttrGetType DocumentCreationDatePropertyInfo = Int32-    type AttrLabel DocumentCreationDatePropertyInfo = "Document::creation-date"+    type AttrLabel DocumentCreationDatePropertyInfo = "creation-date"     attrGet _ = getDocumentCreationDate     attrSet _ = undefined     attrConstruct _ = undefined@@ -310,7 +396,7 @@     type AttrSetTypeConstraint DocumentCreatorPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentCreatorPropertyInfo = DocumentK     type AttrGetType DocumentCreatorPropertyInfo = T.Text-    type AttrLabel DocumentCreatorPropertyInfo = "Document::creator"+    type AttrLabel DocumentCreatorPropertyInfo = "creator"     attrGet _ = getDocumentCreator     attrSet _ = undefined     attrConstruct _ = undefined@@ -328,7 +414,7 @@     type AttrSetTypeConstraint DocumentFormatPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentFormatPropertyInfo = DocumentK     type AttrGetType DocumentFormatPropertyInfo = T.Text-    type AttrLabel DocumentFormatPropertyInfo = "Document::format"+    type AttrLabel DocumentFormatPropertyInfo = "format"     attrGet _ = getDocumentFormat     attrSet _ = undefined     attrConstruct _ = undefined@@ -346,7 +432,7 @@     type AttrSetTypeConstraint DocumentFormatMajorPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentFormatMajorPropertyInfo = DocumentK     type AttrGetType DocumentFormatMajorPropertyInfo = Word32-    type AttrLabel DocumentFormatMajorPropertyInfo = "Document::format-major"+    type AttrLabel DocumentFormatMajorPropertyInfo = "format-major"     attrGet _ = getDocumentFormatMajor     attrSet _ = undefined     attrConstruct _ = undefined@@ -364,7 +450,7 @@     type AttrSetTypeConstraint DocumentFormatMinorPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentFormatMinorPropertyInfo = DocumentK     type AttrGetType DocumentFormatMinorPropertyInfo = Word32-    type AttrLabel DocumentFormatMinorPropertyInfo = "Document::format-minor"+    type AttrLabel DocumentFormatMinorPropertyInfo = "format-minor"     attrGet _ = getDocumentFormatMinor     attrSet _ = undefined     attrConstruct _ = undefined@@ -382,7 +468,7 @@     type AttrSetTypeConstraint DocumentKeywordsPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentKeywordsPropertyInfo = DocumentK     type AttrGetType DocumentKeywordsPropertyInfo = T.Text-    type AttrLabel DocumentKeywordsPropertyInfo = "Document::keywords"+    type AttrLabel DocumentKeywordsPropertyInfo = "keywords"     attrGet _ = getDocumentKeywords     attrSet _ = undefined     attrConstruct _ = undefined@@ -400,7 +486,7 @@     type AttrSetTypeConstraint DocumentLinearizedPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentLinearizedPropertyInfo = DocumentK     type AttrGetType DocumentLinearizedPropertyInfo = Bool-    type AttrLabel DocumentLinearizedPropertyInfo = "Document::linearized"+    type AttrLabel DocumentLinearizedPropertyInfo = "linearized"     attrGet _ = getDocumentLinearized     attrSet _ = undefined     attrConstruct _ = undefined@@ -418,7 +504,7 @@     type AttrSetTypeConstraint DocumentMetadataPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentMetadataPropertyInfo = DocumentK     type AttrGetType DocumentMetadataPropertyInfo = T.Text-    type AttrLabel DocumentMetadataPropertyInfo = "Document::metadata"+    type AttrLabel DocumentMetadataPropertyInfo = "metadata"     attrGet _ = getDocumentMetadata     attrSet _ = undefined     attrConstruct _ = undefined@@ -436,7 +522,7 @@     type AttrSetTypeConstraint DocumentModDatePropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentModDatePropertyInfo = DocumentK     type AttrGetType DocumentModDatePropertyInfo = Int32-    type AttrLabel DocumentModDatePropertyInfo = "Document::mod-date"+    type AttrLabel DocumentModDatePropertyInfo = "mod-date"     attrGet _ = getDocumentModDate     attrSet _ = undefined     attrConstruct _ = undefined@@ -454,7 +540,7 @@     type AttrSetTypeConstraint DocumentPageLayoutPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentPageLayoutPropertyInfo = DocumentK     type AttrGetType DocumentPageLayoutPropertyInfo = PageLayout-    type AttrLabel DocumentPageLayoutPropertyInfo = "Document::page-layout"+    type AttrLabel DocumentPageLayoutPropertyInfo = "page-layout"     attrGet _ = getDocumentPageLayout     attrSet _ = undefined     attrConstruct _ = undefined@@ -472,7 +558,7 @@     type AttrSetTypeConstraint DocumentPageModePropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentPageModePropertyInfo = DocumentK     type AttrGetType DocumentPageModePropertyInfo = PageMode-    type AttrLabel DocumentPageModePropertyInfo = "Document::page-mode"+    type AttrLabel DocumentPageModePropertyInfo = "page-mode"     attrGet _ = getDocumentPageMode     attrSet _ = undefined     attrConstruct _ = undefined@@ -490,7 +576,7 @@     type AttrSetTypeConstraint DocumentPermissionsPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentPermissionsPropertyInfo = DocumentK     type AttrGetType DocumentPermissionsPropertyInfo = [Permissions]-    type AttrLabel DocumentPermissionsPropertyInfo = "Document::permissions"+    type AttrLabel DocumentPermissionsPropertyInfo = "permissions"     attrGet _ = getDocumentPermissions     attrSet _ = undefined     attrConstruct _ = undefined@@ -508,7 +594,7 @@     type AttrSetTypeConstraint DocumentProducerPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentProducerPropertyInfo = DocumentK     type AttrGetType DocumentProducerPropertyInfo = T.Text-    type AttrLabel DocumentProducerPropertyInfo = "Document::producer"+    type AttrLabel DocumentProducerPropertyInfo = "producer"     attrGet _ = getDocumentProducer     attrSet _ = undefined     attrConstruct _ = undefined@@ -526,7 +612,7 @@     type AttrSetTypeConstraint DocumentSubjectPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentSubjectPropertyInfo = DocumentK     type AttrGetType DocumentSubjectPropertyInfo = T.Text-    type AttrLabel DocumentSubjectPropertyInfo = "Document::subject"+    type AttrLabel DocumentSubjectPropertyInfo = "subject"     attrGet _ = getDocumentSubject     attrSet _ = undefined     attrConstruct _ = undefined@@ -544,7 +630,7 @@     type AttrSetTypeConstraint DocumentTitlePropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentTitlePropertyInfo = DocumentK     type AttrGetType DocumentTitlePropertyInfo = T.Text-    type AttrLabel DocumentTitlePropertyInfo = "Document::title"+    type AttrLabel DocumentTitlePropertyInfo = "title"     attrGet _ = getDocumentTitle     attrSet _ = undefined     attrConstruct _ = undefined@@ -562,22 +648,21 @@     type AttrSetTypeConstraint DocumentViewerPreferencesPropertyInfo = (~) ()     type AttrBaseTypeConstraint DocumentViewerPreferencesPropertyInfo = DocumentK     type AttrGetType DocumentViewerPreferencesPropertyInfo = [ViewerPreferences]-    type AttrLabel DocumentViewerPreferencesPropertyInfo = "Document::viewer-preferences"+    type AttrLabel DocumentViewerPreferencesPropertyInfo = "viewer-preferences"     attrGet _ = getDocumentViewerPreferences     attrSet _ = undefined     attrConstruct _ = undefined  type instance AttributeList Document = DocumentAttributeList-type DocumentAttributeList = ('[ '("author", DocumentAuthorPropertyInfo), '("creation-date", DocumentCreationDatePropertyInfo), '("creator", DocumentCreatorPropertyInfo), '("format", DocumentFormatPropertyInfo), '("format-major", DocumentFormatMajorPropertyInfo), '("format-minor", DocumentFormatMinorPropertyInfo), '("keywords", DocumentKeywordsPropertyInfo), '("linearized", DocumentLinearizedPropertyInfo), '("metadata", DocumentMetadataPropertyInfo), '("mod-date", DocumentModDatePropertyInfo), '("page-layout", DocumentPageLayoutPropertyInfo), '("page-mode", DocumentPageModePropertyInfo), '("permissions", DocumentPermissionsPropertyInfo), '("producer", DocumentProducerPropertyInfo), '("subject", DocumentSubjectPropertyInfo), '("title", DocumentTitlePropertyInfo), '("viewer-preferences", DocumentViewerPreferencesPropertyInfo)] :: [(Symbol, *)])+type DocumentAttributeList = ('[ '("author", DocumentAuthorPropertyInfo), '("creationDate", DocumentCreationDatePropertyInfo), '("creator", DocumentCreatorPropertyInfo), '("format", DocumentFormatPropertyInfo), '("formatMajor", DocumentFormatMajorPropertyInfo), '("formatMinor", DocumentFormatMinorPropertyInfo), '("keywords", DocumentKeywordsPropertyInfo), '("linearized", DocumentLinearizedPropertyInfo), '("metadata", DocumentMetadataPropertyInfo), '("modDate", DocumentModDatePropertyInfo), '("pageLayout", DocumentPageLayoutPropertyInfo), '("pageMode", DocumentPageModePropertyInfo), '("permissions", DocumentPermissionsPropertyInfo), '("producer", DocumentProducerPropertyInfo), '("subject", DocumentSubjectPropertyInfo), '("title", DocumentTitlePropertyInfo), '("viewerPreferences", DocumentViewerPreferencesPropertyInfo)] :: [(Symbol, *)])  type instance SignalList Document = DocumentSignalList-type DocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type DocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Document::new_from_data -- method type : Constructor--- Args : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "data", 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 = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Document" -- throws : True -- Skip return : False@@ -592,10 +677,10 @@  documentNewFromData ::     (MonadIO m) =>-    T.Text ->                               -- data-    Int32 ->                                -- length-    Maybe (T.Text) ->                       -- password-    m Document+    T.Text                                  -- data_+    -> Int32                                -- length_+    -> Maybe (T.Text)                       -- password+    -> m Document                           -- result documentNewFromData data_ length_ password = liftIO $ do     data_' <- textToCString data_     maybePassword <- case password of@@ -617,9 +702,8 @@  -- method Document::new_from_file -- method type : Constructor--- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Document" -- throws : True -- Skip return : False@@ -633,9 +717,9 @@  documentNewFromFile ::     (MonadIO m) =>-    T.Text ->                               -- uri-    Maybe (T.Text) ->                       -- password-    m Document+    T.Text                                  -- uri+    -> Maybe (T.Text)                       -- password+    -> m Document                           -- result documentNewFromFile uri password = liftIO $ do     uri' <- textToCString uri     maybePassword <- case password of@@ -657,9 +741,8 @@  -- method Document::new_from_gfile -- method type : Constructor--- Args : [Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Document" -- throws : True -- Skip return : False@@ -674,10 +757,10 @@  documentNewFromGfile ::     (MonadIO m, Gio.FileK a, Gio.CancellableK b) =>-    a ->                                    -- file-    Maybe (T.Text) ->                       -- password-    Maybe (b) ->                            -- cancellable-    m Document+    a                                       -- file+    -> Maybe (T.Text)                       -- password+    -> Maybe (b)                            -- cancellable+    -> m Document                           -- result documentNewFromGfile file password cancellable = liftIO $ do     let file' = unsafeManagedPtrCastPtr file     maybePassword <- case password of@@ -704,9 +787,8 @@  -- method Document::new_from_stream -- method type : Constructor--- Args : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Document" -- throws : True -- Skip return : False@@ -722,11 +804,11 @@  documentNewFromStream ::     (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) =>-    a ->                                    -- stream-    Int64 ->                                -- length-    Maybe (T.Text) ->                       -- password-    Maybe (b) ->                            -- cancellable-    m Document+    a                                       -- stream+    -> Int64                                -- length_+    -> Maybe (T.Text)                       -- password+    -> Maybe (b)                            -- cancellable+    -> m Document                           -- result documentNewFromStream stream length_ password cancellable = liftIO $ do     let stream' = unsafeManagedPtrCastPtr stream     maybePassword <- case password of@@ -753,9 +835,8 @@  -- method Document::find_dest -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "link_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Dest" -- throws : False -- Skip return : False@@ -768,24 +849,27 @@  documentFindDest ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- link_name-    m Dest-documentFindDest _obj link_name = liftIO $ do+    a                                       -- _obj+    -> T.Text                               -- linkName+    -> m Dest                               -- result+documentFindDest _obj linkName = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    link_name' <- textToCString link_name-    result <- poppler_document_find_dest _obj' link_name'+    linkName' <- textToCString linkName+    result <- poppler_document_find_dest _obj' linkName'     checkUnexpectedReturnNULL "poppler_document_find_dest" result     result' <- (wrapBoxed Dest) result     touchManagedPtr _obj-    freeMem link_name'+    freeMem linkName'     return result' +data DocumentFindDestMethodInfo+instance (signature ~ (T.Text -> m Dest), MonadIO m, DocumentK a) => MethodInfo DocumentFindDestMethodInfo a signature where+    overloadedMethod _ = documentFindDest+ -- method Document::get_attachments -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TGList (TInterface "Poppler" "Attachment") -- throws : False -- Skip return : False@@ -797,8 +881,8 @@  documentGetAttachments ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m [Attachment]+    a                                       -- _obj+    -> m [Attachment]                       -- result documentGetAttachments _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_attachments _obj'@@ -809,11 +893,14 @@     touchManagedPtr _obj     return result'' +data DocumentGetAttachmentsMethodInfo+instance (signature ~ (m [Attachment]), MonadIO m, DocumentK a) => MethodInfo DocumentGetAttachmentsMethodInfo a signature where+    overloadedMethod _ = documentGetAttachments+ -- method Document::get_author -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -825,8 +912,8 @@  documentGetAuthor ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetAuthor _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_author _obj'@@ -836,11 +923,14 @@     touchManagedPtr _obj     return result' +data DocumentGetAuthorMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetAuthorMethodInfo a signature where+    overloadedMethod _ = documentGetAuthor+ -- method Document::get_creation_date -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False@@ -852,19 +942,22 @@  documentGetCreationDate ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Int64+    a                                       -- _obj+    -> m Int64                              -- result documentGetCreationDate _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_creation_date _obj'     touchManagedPtr _obj     return result +data DocumentGetCreationDateMethodInfo+instance (signature ~ (m Int64), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreationDateMethodInfo a signature where+    overloadedMethod _ = documentGetCreationDate+ -- method Document::get_creator -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -876,8 +969,8 @@  documentGetCreator ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetCreator _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_creator _obj'@@ -887,11 +980,14 @@     touchManagedPtr _obj     return result' +data DocumentGetCreatorMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreatorMethodInfo a signature where+    overloadedMethod _ = documentGetCreator+ -- method Document::get_form_field -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "FormField" -- throws : False -- Skip return : False@@ -904,9 +1000,9 @@  documentGetFormField ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- id-    m FormField+    a                                       -- _obj+    -> Int32                                -- id+    -> m FormField                          -- result documentGetFormField _obj id = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_form_field _obj' id@@ -915,11 +1011,14 @@     touchManagedPtr _obj     return result' +data DocumentGetFormFieldMethodInfo+instance (signature ~ (Int32 -> m FormField), MonadIO m, DocumentK a) => MethodInfo DocumentGetFormFieldMethodInfo a signature where+    overloadedMethod _ = documentGetFormField+ -- method Document::get_id -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "permanent_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "update_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permanent_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "update_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -933,30 +1032,33 @@  documentGetId ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m (Bool,T.Text,T.Text)+    a                                       -- _obj+    -> m (Bool,T.Text,T.Text)               -- result documentGetId _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    permanent_id <- allocMem :: IO (Ptr CString)-    update_id <- allocMem :: IO (Ptr CString)-    result <- poppler_document_get_id _obj' permanent_id update_id+    permanentId <- allocMem :: IO (Ptr CString)+    updateId <- allocMem :: IO (Ptr CString)+    result <- poppler_document_get_id _obj' permanentId updateId     let result' = (/= 0) result-    permanent_id' <- peek permanent_id-    permanent_id'' <- cstringToText permanent_id'-    freeMem permanent_id'-    update_id' <- peek update_id-    update_id'' <- cstringToText update_id'-    freeMem update_id'+    permanentId' <- peek permanentId+    permanentId'' <- cstringToText permanentId'+    freeMem permanentId'+    updateId' <- peek updateId+    updateId'' <- cstringToText updateId'+    freeMem updateId'     touchManagedPtr _obj-    freeMem permanent_id-    freeMem update_id-    return (result', permanent_id'', update_id'')+    freeMem permanentId+    freeMem updateId+    return (result', permanentId'', updateId'') +data DocumentGetIdMethodInfo+instance (signature ~ (m (Bool,T.Text,T.Text)), MonadIO m, DocumentK a) => MethodInfo DocumentGetIdMethodInfo a signature where+    overloadedMethod _ = documentGetId+ -- method Document::get_keywords -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -968,8 +1070,8 @@  documentGetKeywords ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetKeywords _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_keywords _obj'@@ -979,11 +1081,14 @@     touchManagedPtr _obj     return result' +data DocumentGetKeywordsMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetKeywordsMethodInfo a signature where+    overloadedMethod _ = documentGetKeywords+ -- method Document::get_metadata -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -995,8 +1100,8 @@  documentGetMetadata ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetMetadata _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_metadata _obj'@@ -1006,11 +1111,14 @@     touchManagedPtr _obj     return result' +data DocumentGetMetadataMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetMetadataMethodInfo a signature where+    overloadedMethod _ = documentGetMetadata+ -- method Document::get_modification_date -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt64 -- throws : False -- Skip return : False@@ -1022,19 +1130,22 @@  documentGetModificationDate ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Int64+    a                                       -- _obj+    -> m Int64                              -- result documentGetModificationDate _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_modification_date _obj'     touchManagedPtr _obj     return result +data DocumentGetModificationDateMethodInfo+instance (signature ~ (m Int64), MonadIO m, DocumentK a) => MethodInfo DocumentGetModificationDateMethodInfo a signature where+    overloadedMethod _ = documentGetModificationDate+ -- method Document::get_n_attachments -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUInt32 -- throws : False -- Skip return : False@@ -1046,19 +1157,22 @@  documentGetNAttachments ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Word32+    a                                       -- _obj+    -> m Word32                             -- result documentGetNAttachments _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_n_attachments _obj'     touchManagedPtr _obj     return result +data DocumentGetNAttachmentsMethodInfo+instance (signature ~ (m Word32), MonadIO m, DocumentK a) => MethodInfo DocumentGetNAttachmentsMethodInfo a signature where+    overloadedMethod _ = documentGetNAttachments+ -- method Document::get_n_pages -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -1070,19 +1184,22 @@  documentGetNPages ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result documentGetNPages _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_n_pages _obj'     touchManagedPtr _obj     return result +data DocumentGetNPagesMethodInfo+instance (signature ~ (m Int32), MonadIO m, DocumentK a) => MethodInfo DocumentGetNPagesMethodInfo a signature where+    overloadedMethod _ = documentGetNPages+ -- method Document::get_page -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", 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}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Page" -- throws : False -- Skip return : False@@ -1095,9 +1212,9 @@  documentGetPage ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index-    m Page+    a                                       -- _obj+    -> Int32                                -- index+    -> m Page                               -- result documentGetPage _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_page _obj' index@@ -1106,11 +1223,14 @@     touchManagedPtr _obj     return result' +data DocumentGetPageMethodInfo+instance (signature ~ (Int32 -> m Page), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageMethodInfo a signature where+    overloadedMethod _ = documentGetPage+ -- method Document::get_page_by_label -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Page" -- throws : False -- Skip return : False@@ -1123,9 +1243,9 @@  documentGetPageByLabel ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- label-    m Page+    a                                       -- _obj+    -> T.Text                               -- label+    -> m Page                               -- result documentGetPageByLabel _obj label = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     label' <- textToCString label@@ -1136,11 +1256,14 @@     freeMem label'     return result' +data DocumentGetPageByLabelMethodInfo+instance (signature ~ (T.Text -> m Page), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageByLabelMethodInfo a signature where+    overloadedMethod _ = documentGetPageByLabel+ -- method Document::get_page_layout -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "PageLayout" -- throws : False -- Skip return : False@@ -1152,8 +1275,8 @@  documentGetPageLayout ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m PageLayout+    a                                       -- _obj+    -> m PageLayout                         -- result documentGetPageLayout _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_page_layout _obj'@@ -1161,11 +1284,14 @@     touchManagedPtr _obj     return result' +data DocumentGetPageLayoutMethodInfo+instance (signature ~ (m PageLayout), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageLayoutMethodInfo a signature where+    overloadedMethod _ = documentGetPageLayout+ -- method Document::get_page_mode -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "PageMode" -- throws : False -- Skip return : False@@ -1177,8 +1303,8 @@  documentGetPageMode ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m PageMode+    a                                       -- _obj+    -> m PageMode                           -- result documentGetPageMode _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_page_mode _obj'@@ -1186,11 +1312,14 @@     touchManagedPtr _obj     return result' +data DocumentGetPageModeMethodInfo+instance (signature ~ (m PageMode), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageModeMethodInfo a signature where+    overloadedMethod _ = documentGetPageMode+ -- method Document::get_pdf_version -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major_version", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minor_version", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major_version", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor_version", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -1204,25 +1333,28 @@  documentGetPdfVersion ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m (Word32,Word32)+    a                                       -- _obj+    -> m (Word32,Word32)                    -- result documentGetPdfVersion _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    major_version <- allocMem :: IO (Ptr Word32)-    minor_version <- allocMem :: IO (Ptr Word32)-    poppler_document_get_pdf_version _obj' major_version minor_version-    major_version' <- peek major_version-    minor_version' <- peek minor_version+    majorVersion <- allocMem :: IO (Ptr Word32)+    minorVersion <- allocMem :: IO (Ptr Word32)+    poppler_document_get_pdf_version _obj' majorVersion minorVersion+    majorVersion' <- peek majorVersion+    minorVersion' <- peek minorVersion     touchManagedPtr _obj-    freeMem major_version-    freeMem minor_version-    return (major_version', minor_version')+    freeMem majorVersion+    freeMem minorVersion+    return (majorVersion', minorVersion') +data DocumentGetPdfVersionMethodInfo+instance (signature ~ (m (Word32,Word32)), MonadIO m, DocumentK a) => MethodInfo DocumentGetPdfVersionMethodInfo a signature where+    overloadedMethod _ = documentGetPdfVersion+ -- method Document::get_pdf_version_string -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -1234,8 +1366,8 @@  documentGetPdfVersionString ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetPdfVersionString _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_pdf_version_string _obj'@@ -1245,11 +1377,14 @@     touchManagedPtr _obj     return result' +data DocumentGetPdfVersionStringMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetPdfVersionStringMethodInfo a signature where+    overloadedMethod _ = documentGetPdfVersionString+ -- method Document::get_permissions -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Permissions" -- throws : False -- Skip return : False@@ -1261,8 +1396,8 @@  documentGetPermissions ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m [Permissions]+    a                                       -- _obj+    -> m [Permissions]                      -- result documentGetPermissions _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_permissions _obj'@@ -1270,11 +1405,14 @@     touchManagedPtr _obj     return result' +data DocumentGetPermissionsMethodInfo+instance (signature ~ (m [Permissions]), MonadIO m, DocumentK a) => MethodInfo DocumentGetPermissionsMethodInfo a signature where+    overloadedMethod _ = documentGetPermissions+ -- method Document::get_producer -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -1286,8 +1424,8 @@  documentGetProducer ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetProducer _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_producer _obj'@@ -1297,11 +1435,14 @@     touchManagedPtr _obj     return result' +data DocumentGetProducerMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetProducerMethodInfo a signature where+    overloadedMethod _ = documentGetProducer+ -- method Document::get_subject -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -1313,8 +1454,8 @@  documentGetSubject ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetSubject _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_subject _obj'@@ -1324,11 +1465,14 @@     touchManagedPtr _obj     return result' +data DocumentGetSubjectMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetSubjectMethodInfo a signature where+    overloadedMethod _ = documentGetSubject+ -- method Document::get_title -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -1340,8 +1484,8 @@  documentGetTitle ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result documentGetTitle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_get_title _obj'@@ -1351,11 +1495,14 @@     touchManagedPtr _obj     return result' +data DocumentGetTitleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetTitleMethodInfo a signature where+    overloadedMethod _ = documentGetTitle+ -- method Document::has_attachments -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1367,8 +1514,8 @@  documentHasAttachments ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result documentHasAttachments _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_has_attachments _obj'@@ -1376,11 +1523,14 @@     touchManagedPtr _obj     return result' +data DocumentHasAttachmentsMethodInfo+instance (signature ~ (m Bool), MonadIO m, DocumentK a) => MethodInfo DocumentHasAttachmentsMethodInfo a signature where+    overloadedMethod _ = documentHasAttachments+ -- method Document::is_linearized -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -1392,8 +1542,8 @@  documentIsLinearized ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result documentIsLinearized _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_document_is_linearized _obj'@@ -1401,11 +1551,14 @@     touchManagedPtr _obj     return result' +data DocumentIsLinearizedMethodInfo+instance (signature ~ (m Bool), MonadIO m, DocumentK a) => MethodInfo DocumentIsLinearizedMethodInfo a signature where+    overloadedMethod _ = documentIsLinearized+ -- method Document::save -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False@@ -1419,9 +1572,9 @@  documentSave ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri-    m ()+    a                                       -- _obj+    -> T.Text                               -- uri+    -> m ()                                 -- result documentSave _obj uri = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     uri' <- textToCString uri@@ -1434,11 +1587,14 @@         freeMem uri'      ) +data DocumentSaveMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, DocumentK a) => MethodInfo DocumentSaveMethodInfo a signature where+    overloadedMethod _ = documentSave+ -- method Document::save_a_copy -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False@@ -1452,9 +1608,9 @@  documentSaveACopy ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- uri-    m ()+    a                                       -- _obj+    -> T.Text                               -- uri+    -> m ()                                 -- result documentSaveACopy _obj uri = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     uri' <- textToCString uri@@ -1466,5 +1622,9 @@      ) (do         freeMem uri'      )++data DocumentSaveACopyMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, DocumentK a) => MethodInfo DocumentSaveACopyMethodInfo a signature where+    overloadedMethod _ = documentSaveACopy  

@@ -28,3 +28,29 @@ data DocumentSubjectPropertyInfo data DocumentTitlePropertyInfo data DocumentViewerPreferencesPropertyInfo+data DocumentFindDestMethodInfo+data DocumentGetAttachmentsMethodInfo+data DocumentGetAuthorMethodInfo+data DocumentGetCreationDateMethodInfo+data DocumentGetCreatorMethodInfo+data DocumentGetFormFieldMethodInfo+data DocumentGetIdMethodInfo+data DocumentGetKeywordsMethodInfo+data DocumentGetMetadataMethodInfo+data DocumentGetModificationDateMethodInfo+data DocumentGetNAttachmentsMethodInfo+data DocumentGetNPagesMethodInfo+data DocumentGetPageMethodInfo+data DocumentGetPageByLabelMethodInfo+data DocumentGetPageLayoutMethodInfo+data DocumentGetPageModeMethodInfo+data DocumentGetPdfVersionMethodInfo+data DocumentGetPdfVersionStringMethodInfo+data DocumentGetPermissionsMethodInfo+data DocumentGetProducerMethodInfo+data DocumentGetSubjectMethodInfo+data DocumentGetTitleMethodInfo+data DocumentHasAttachmentsMethodInfo+data DocumentIsLinearizedMethodInfo+data DocumentSaveMethodInfo+data DocumentSaveACopyMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,6 +18,7 @@   -- * Methods -- ** fontInfoFree+    FontInfoFreeMethodInfo                  ,     fontInfoFree                            ,  @@ -25,6 +27,7 @@   -- ** fontInfoScan+    FontInfoScanMethodInfo                  ,     fontInfoScan                            ,  @@ -64,17 +67,51 @@ noFontInfo :: Maybe FontInfo noFontInfo = Nothing +type family ResolveFontInfoMethod (t :: Symbol) (o :: *) :: * where+    ResolveFontInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFontInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFontInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFontInfoMethod "free" o = FontInfoFreeMethodInfo+    ResolveFontInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFontInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFontInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFontInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFontInfoMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFontInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFontInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFontInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFontInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFontInfoMethod "scan" o = FontInfoScanMethodInfo+    ResolveFontInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFontInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFontInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFontInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFontInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFontInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFontInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFontInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFontInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFontInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFontInfoMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFontInfoMethod t FontInfo, MethodInfo info FontInfo p) => IsLabelProxy t (FontInfo -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFontInfoMethod t FontInfo, MethodInfo info FontInfo p) => IsLabel t (FontInfo -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList FontInfo = FontInfoAttributeList type FontInfoAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList FontInfo = FontInfoSignalList-type FontInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FontInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method FontInfo::new -- method type : Constructor--- Args : [Arg {argName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "FontInfo" -- throws : False -- Skip return : False@@ -86,8 +123,8 @@  fontInfoNew ::     (MonadIO m, DocumentK a) =>-    a ->                                    -- document-    m FontInfo+    a                                       -- document+    -> m FontInfo                           -- result fontInfoNew document = liftIO $ do     let document' = unsafeManagedPtrCastPtr document     result <- poppler_font_info_new document'@@ -98,9 +135,8 @@  -- method FontInfo::free -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -112,19 +148,22 @@  fontInfoFree ::     (MonadIO m, FontInfoK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result fontInfoFree _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     poppler_font_info_free _obj'     touchManagedPtr _obj     return () +data FontInfoFreeMethodInfo+instance (signature ~ (m ()), MonadIO m, FontInfoK a) => MethodInfo FontInfoFreeMethodInfo a signature where+    overloadedMethod _ = fontInfoFree+ -- method FontInfo::scan -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Poppler" "FontsIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Poppler" "FontsIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_pages", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -138,18 +177,22 @@  fontInfoScan ::     (MonadIO m, FontInfoK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- n_pages-    m (Bool,FontsIter)-fontInfoScan _obj n_pages = liftIO $ do+    a                                       -- _obj+    -> Int32                                -- nPages+    -> m (Bool,FontsIter)                   -- result+fontInfoScan _obj nPages = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     iter <- allocMem :: IO (Ptr (Ptr FontsIter))-    result <- poppler_font_info_scan _obj' n_pages iter+    result <- poppler_font_info_scan _obj' nPages iter     let result' = (/= 0) result     iter' <- peek iter     iter'' <- (wrapBoxed FontsIter) iter'     touchManagedPtr _obj     freeMem iter     return (result', iter'')++data FontInfoScanMethodInfo+instance (signature ~ (Int32 -> m (Bool,FontsIter)), MonadIO m, FontInfoK a) => MethodInfo FontInfoScanMethodInfo a signature where+    overloadedMethod _ = fontInfoScan  

@@ -11,3 +11,5 @@ instance GObject FontInfo where class GObject o => FontInfoK o instance (GObject o, IsDescendantOf FontInfo o) => FontInfoK o+data FontInfoFreeMethodInfo+data FontInfoScanMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,130 +18,162 @@   -- * Methods -- ** formFieldButtonGetButtonType+    FormFieldButtonGetButtonTypeMethodInfo  ,     formFieldButtonGetButtonType            ,   -- ** formFieldButtonGetState+    FormFieldButtonGetStateMethodInfo       ,     formFieldButtonGetState                 ,   -- ** formFieldButtonSetState+    FormFieldButtonSetStateMethodInfo       ,     formFieldButtonSetState                 ,   -- ** formFieldChoiceCanSelectMultiple+    FormFieldChoiceCanSelectMultipleMethodInfo,     formFieldChoiceCanSelectMultiple        ,   -- ** formFieldChoiceCommitOnChange+    FormFieldChoiceCommitOnChangeMethodInfo ,     formFieldChoiceCommitOnChange           ,   -- ** formFieldChoiceDoSpellCheck+    FormFieldChoiceDoSpellCheckMethodInfo   ,     formFieldChoiceDoSpellCheck             ,   -- ** formFieldChoiceGetChoiceType+    FormFieldChoiceGetChoiceTypeMethodInfo  ,     formFieldChoiceGetChoiceType            ,   -- ** formFieldChoiceGetItem+    FormFieldChoiceGetItemMethodInfo        ,     formFieldChoiceGetItem                  ,   -- ** formFieldChoiceGetNItems+    FormFieldChoiceGetNItemsMethodInfo      ,     formFieldChoiceGetNItems                ,   -- ** formFieldChoiceGetText+    FormFieldChoiceGetTextMethodInfo        ,     formFieldChoiceGetText                  ,   -- ** formFieldChoiceIsEditable+    FormFieldChoiceIsEditableMethodInfo     ,     formFieldChoiceIsEditable               ,   -- ** formFieldChoiceIsItemSelected+    FormFieldChoiceIsItemSelectedMethodInfo ,     formFieldChoiceIsItemSelected           ,   -- ** formFieldChoiceSelectItem+    FormFieldChoiceSelectItemMethodInfo     ,     formFieldChoiceSelectItem               ,   -- ** formFieldChoiceSetText+    FormFieldChoiceSetTextMethodInfo        ,     formFieldChoiceSetText                  ,   -- ** formFieldChoiceToggleItem+    FormFieldChoiceToggleItemMethodInfo     ,     formFieldChoiceToggleItem               ,   -- ** formFieldChoiceUnselectAll+    FormFieldChoiceUnselectAllMethodInfo    ,     formFieldChoiceUnselectAll              ,   -- ** formFieldGetAction+    FormFieldGetActionMethodInfo            ,     formFieldGetAction                      ,   -- ** formFieldGetFieldType+    FormFieldGetFieldTypeMethodInfo         ,     formFieldGetFieldType                   ,   -- ** formFieldGetFontSize+    FormFieldGetFontSizeMethodInfo          ,     formFieldGetFontSize                    ,   -- ** formFieldGetId+    FormFieldGetIdMethodInfo                ,     formFieldGetId                          ,   -- ** formFieldGetMappingName+    FormFieldGetMappingNameMethodInfo       ,     formFieldGetMappingName                 ,   -- ** formFieldGetName+    FormFieldGetNameMethodInfo              ,     formFieldGetName                        ,   -- ** formFieldGetPartialName+    FormFieldGetPartialNameMethodInfo       ,     formFieldGetPartialName                 ,   -- ** formFieldIsReadOnly+    FormFieldIsReadOnlyMethodInfo           ,     formFieldIsReadOnly                     ,   -- ** formFieldTextDoScroll+    FormFieldTextDoScrollMethodInfo         ,     formFieldTextDoScroll                   ,   -- ** formFieldTextDoSpellCheck+    FormFieldTextDoSpellCheckMethodInfo     ,     formFieldTextDoSpellCheck               ,   -- ** formFieldTextGetMaxLen+    FormFieldTextGetMaxLenMethodInfo        ,     formFieldTextGetMaxLen                  ,   -- ** formFieldTextGetText+    FormFieldTextGetTextMethodInfo          ,     formFieldTextGetText                    ,   -- ** formFieldTextGetTextType+    FormFieldTextGetTextTypeMethodInfo      ,     formFieldTextGetTextType                ,   -- ** formFieldTextIsPassword+    FormFieldTextIsPasswordMethodInfo       ,     formFieldTextIsPassword                 ,   -- ** formFieldTextIsRichText+    FormFieldTextIsRichTextMethodInfo       ,     formFieldTextIsRichText                 ,   -- ** formFieldTextSetText+    FormFieldTextSetTextMethodInfo          ,     formFieldTextSetText                    ,  @@ -180,17 +213,81 @@ noFormField :: Maybe FormField noFormField = Nothing +type family ResolveFormFieldMethod (t :: Symbol) (o :: *) :: * where+    ResolveFormFieldMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveFormFieldMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveFormFieldMethod "buttonGetButtonType" o = FormFieldButtonGetButtonTypeMethodInfo+    ResolveFormFieldMethod "buttonGetState" o = FormFieldButtonGetStateMethodInfo+    ResolveFormFieldMethod "buttonSetState" o = FormFieldButtonSetStateMethodInfo+    ResolveFormFieldMethod "choiceCanSelectMultiple" o = FormFieldChoiceCanSelectMultipleMethodInfo+    ResolveFormFieldMethod "choiceCommitOnChange" o = FormFieldChoiceCommitOnChangeMethodInfo+    ResolveFormFieldMethod "choiceDoSpellCheck" o = FormFieldChoiceDoSpellCheckMethodInfo+    ResolveFormFieldMethod "choiceGetChoiceType" o = FormFieldChoiceGetChoiceTypeMethodInfo+    ResolveFormFieldMethod "choiceGetItem" o = FormFieldChoiceGetItemMethodInfo+    ResolveFormFieldMethod "choiceGetNItems" o = FormFieldChoiceGetNItemsMethodInfo+    ResolveFormFieldMethod "choiceGetText" o = FormFieldChoiceGetTextMethodInfo+    ResolveFormFieldMethod "choiceIsEditable" o = FormFieldChoiceIsEditableMethodInfo+    ResolveFormFieldMethod "choiceIsItemSelected" o = FormFieldChoiceIsItemSelectedMethodInfo+    ResolveFormFieldMethod "choiceSelectItem" o = FormFieldChoiceSelectItemMethodInfo+    ResolveFormFieldMethod "choiceSetText" o = FormFieldChoiceSetTextMethodInfo+    ResolveFormFieldMethod "choiceToggleItem" o = FormFieldChoiceToggleItemMethodInfo+    ResolveFormFieldMethod "choiceUnselectAll" o = FormFieldChoiceUnselectAllMethodInfo+    ResolveFormFieldMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveFormFieldMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveFormFieldMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveFormFieldMethod "isReadOnly" o = FormFieldIsReadOnlyMethodInfo+    ResolveFormFieldMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveFormFieldMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveFormFieldMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveFormFieldMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveFormFieldMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveFormFieldMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveFormFieldMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveFormFieldMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveFormFieldMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveFormFieldMethod "textDoScroll" o = FormFieldTextDoScrollMethodInfo+    ResolveFormFieldMethod "textDoSpellCheck" o = FormFieldTextDoSpellCheckMethodInfo+    ResolveFormFieldMethod "textGetMaxLen" o = FormFieldTextGetMaxLenMethodInfo+    ResolveFormFieldMethod "textGetText" o = FormFieldTextGetTextMethodInfo+    ResolveFormFieldMethod "textGetTextType" o = FormFieldTextGetTextTypeMethodInfo+    ResolveFormFieldMethod "textIsPassword" o = FormFieldTextIsPasswordMethodInfo+    ResolveFormFieldMethod "textIsRichText" o = FormFieldTextIsRichTextMethodInfo+    ResolveFormFieldMethod "textSetText" o = FormFieldTextSetTextMethodInfo+    ResolveFormFieldMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveFormFieldMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveFormFieldMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveFormFieldMethod "getAction" o = FormFieldGetActionMethodInfo+    ResolveFormFieldMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveFormFieldMethod "getFieldType" o = FormFieldGetFieldTypeMethodInfo+    ResolveFormFieldMethod "getFontSize" o = FormFieldGetFontSizeMethodInfo+    ResolveFormFieldMethod "getId" o = FormFieldGetIdMethodInfo+    ResolveFormFieldMethod "getMappingName" o = FormFieldGetMappingNameMethodInfo+    ResolveFormFieldMethod "getName" o = FormFieldGetNameMethodInfo+    ResolveFormFieldMethod "getPartialName" o = FormFieldGetPartialNameMethodInfo+    ResolveFormFieldMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveFormFieldMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveFormFieldMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveFormFieldMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveFormFieldMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveFormFieldMethod t FormField, MethodInfo info FormField p) => IsLabelProxy t (FormField -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveFormFieldMethod t FormField, MethodInfo info FormField p) => IsLabel t (FormField -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList FormField = FormFieldAttributeList type FormFieldAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList FormField = FormFieldSignalList-type FormFieldSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type FormFieldSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method FormField::button_get_button_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "FormButtonType" -- throws : False -- Skip return : False@@ -202,8 +299,8 @@  formFieldButtonGetButtonType ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m FormButtonType+    a                                       -- _obj+    -> m FormButtonType                     -- result formFieldButtonGetButtonType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_button_get_button_type _obj'@@ -211,11 +308,14 @@     touchManagedPtr _obj     return result' +data FormFieldButtonGetButtonTypeMethodInfo+instance (signature ~ (m FormButtonType), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonGetButtonTypeMethodInfo a signature where+    overloadedMethod _ = formFieldButtonGetButtonType+ -- method FormField::button_get_state -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -227,8 +327,8 @@  formFieldButtonGetState ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldButtonGetState _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_button_get_state _obj'@@ -236,11 +336,14 @@     touchManagedPtr _obj     return result' +data FormFieldButtonGetStateMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonGetStateMethodInfo a signature where+    overloadedMethod _ = formFieldButtonGetState+ -- method FormField::button_set_state -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -253,9 +356,9 @@  formFieldButtonSetState ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    Bool ->                                 -- state-    m ()+    a                                       -- _obj+    -> Bool                                 -- state+    -> m ()                                 -- result formFieldButtonSetState _obj state = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let state' = (fromIntegral . fromEnum) state@@ -263,11 +366,14 @@     touchManagedPtr _obj     return () +data FormFieldButtonSetStateMethodInfo+instance (signature ~ (Bool -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonSetStateMethodInfo a signature where+    overloadedMethod _ = formFieldButtonSetState+ -- method FormField::choice_can_select_multiple -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -279,8 +385,8 @@  formFieldChoiceCanSelectMultiple ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldChoiceCanSelectMultiple _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_can_select_multiple _obj'@@ -288,11 +394,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceCanSelectMultipleMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceCanSelectMultipleMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceCanSelectMultiple+ -- method FormField::choice_commit_on_change -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -304,8 +413,8 @@  formFieldChoiceCommitOnChange ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldChoiceCommitOnChange _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_commit_on_change _obj'@@ -313,11 +422,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceCommitOnChangeMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceCommitOnChangeMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceCommitOnChange+ -- method FormField::choice_do_spell_check -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -329,8 +441,8 @@  formFieldChoiceDoSpellCheck ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldChoiceDoSpellCheck _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_do_spell_check _obj'@@ -338,11 +450,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceDoSpellCheckMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceDoSpellCheckMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceDoSpellCheck+ -- method FormField::choice_get_choice_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "FormChoiceType" -- throws : False -- Skip return : False@@ -354,8 +469,8 @@  formFieldChoiceGetChoiceType ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m FormChoiceType+    a                                       -- _obj+    -> m FormChoiceType                     -- result formFieldChoiceGetChoiceType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_get_choice_type _obj'@@ -363,11 +478,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceGetChoiceTypeMethodInfo+instance (signature ~ (m FormChoiceType), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetChoiceTypeMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceGetChoiceType+ -- method FormField::choice_get_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", 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}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -380,9 +498,9 @@  formFieldChoiceGetItem ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index-    m T.Text+    a                                       -- _obj+    -> Int32                                -- index+    -> m T.Text                             -- result formFieldChoiceGetItem _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_get_item _obj' index@@ -392,11 +510,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceGetItemMethodInfo+instance (signature ~ (Int32 -> m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetItemMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceGetItem+ -- method FormField::choice_get_n_items -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -408,19 +529,22 @@  formFieldChoiceGetNItems ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result formFieldChoiceGetNItems _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_get_n_items _obj'     touchManagedPtr _obj     return result +data FormFieldChoiceGetNItemsMethodInfo+instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetNItemsMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceGetNItems+ -- method FormField::choice_get_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -432,8 +556,8 @@  formFieldChoiceGetText ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result formFieldChoiceGetText _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_get_text _obj'@@ -443,11 +567,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceGetTextMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetTextMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceGetText+ -- method FormField::choice_is_editable -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -459,8 +586,8 @@  formFieldChoiceIsEditable ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldChoiceIsEditable _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_is_editable _obj'@@ -468,11 +595,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceIsEditableMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceIsEditableMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceIsEditable+ -- method FormField::choice_is_item_selected -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", 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}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -485,9 +615,9 @@  formFieldChoiceIsItemSelected ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index-    m Bool+    a                                       -- _obj+    -> Int32                                -- index+    -> m Bool                               -- result formFieldChoiceIsItemSelected _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_choice_is_item_selected _obj' index@@ -495,11 +625,14 @@     touchManagedPtr _obj     return result' +data FormFieldChoiceIsItemSelectedMethodInfo+instance (signature ~ (Int32 -> m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceIsItemSelectedMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceIsItemSelected+ -- method FormField::choice_select_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", 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}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -512,20 +645,23 @@  formFieldChoiceSelectItem ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index-    m ()+    a                                       -- _obj+    -> Int32                                -- index+    -> m ()                                 -- result formFieldChoiceSelectItem _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     poppler_form_field_choice_select_item _obj' index     touchManagedPtr _obj     return () +data FormFieldChoiceSelectItemMethodInfo+instance (signature ~ (Int32 -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceSelectItemMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceSelectItem+ -- method FormField::choice_set_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", 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}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -538,9 +674,9 @@  formFieldChoiceSetText ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- text-    m ()+    a                                       -- _obj+    -> T.Text                               -- text+    -> m ()                                 -- result formFieldChoiceSetText _obj text = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     text' <- textToCString text@@ -549,11 +685,14 @@     freeMem text'     return () +data FormFieldChoiceSetTextMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceSetTextMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceSetText+ -- method FormField::choice_toggle_item -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", 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}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -566,20 +705,23 @@  formFieldChoiceToggleItem ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- index-    m ()+    a                                       -- _obj+    -> Int32                                -- index+    -> m ()                                 -- result formFieldChoiceToggleItem _obj index = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     poppler_form_field_choice_toggle_item _obj' index     touchManagedPtr _obj     return () +data FormFieldChoiceToggleItemMethodInfo+instance (signature ~ (Int32 -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceToggleItemMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceToggleItem+ -- method FormField::choice_unselect_all -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -591,19 +733,22 @@  formFieldChoiceUnselectAll ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result formFieldChoiceUnselectAll _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     poppler_form_field_choice_unselect_all _obj'     touchManagedPtr _obj     return () +data FormFieldChoiceUnselectAllMethodInfo+instance (signature ~ (m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceUnselectAllMethodInfo a signature where+    overloadedMethod _ = formFieldChoiceUnselectAll+ -- method FormField::get_action -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "Action" -- throws : False -- Skip return : False@@ -615,8 +760,8 @@  formFieldGetAction ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Action+    a                                       -- _obj+    -> m Action                             -- result formFieldGetAction _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_get_action _obj'@@ -625,11 +770,14 @@     touchManagedPtr _obj     return result' +data FormFieldGetActionMethodInfo+instance (signature ~ (m Action), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetActionMethodInfo a signature where+    overloadedMethod _ = formFieldGetAction+ -- method FormField::get_field_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "FormFieldType" -- throws : False -- Skip return : False@@ -641,8 +789,8 @@  formFieldGetFieldType ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m FormFieldType+    a                                       -- _obj+    -> m FormFieldType                      -- result formFieldGetFieldType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_get_field_type _obj'@@ -650,11 +798,14 @@     touchManagedPtr _obj     return result' +data FormFieldGetFieldTypeMethodInfo+instance (signature ~ (m FormFieldType), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetFieldTypeMethodInfo a signature where+    overloadedMethod _ = formFieldGetFieldType+ -- method FormField::get_font_size -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TDouble -- throws : False -- Skip return : False@@ -666,8 +817,8 @@  formFieldGetFontSize ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Double+    a                                       -- _obj+    -> m Double                             -- result formFieldGetFontSize _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_get_font_size _obj'@@ -675,11 +826,14 @@     touchManagedPtr _obj     return result' +data FormFieldGetFontSizeMethodInfo+instance (signature ~ (m Double), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetFontSizeMethodInfo a signature where+    overloadedMethod _ = formFieldGetFontSize+ -- method FormField::get_id -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -691,19 +845,22 @@  formFieldGetId ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result formFieldGetId _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_get_id _obj'     touchManagedPtr _obj     return result +data FormFieldGetIdMethodInfo+instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetIdMethodInfo a signature where+    overloadedMethod _ = formFieldGetId+ -- method FormField::get_mapping_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -715,8 +872,8 @@  formFieldGetMappingName ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result formFieldGetMappingName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_get_mapping_name _obj'@@ -726,11 +883,14 @@     touchManagedPtr _obj     return result' +data FormFieldGetMappingNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetMappingNameMethodInfo a signature where+    overloadedMethod _ = formFieldGetMappingName+ -- method FormField::get_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -742,8 +902,8 @@  formFieldGetName ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result formFieldGetName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_get_name _obj'@@ -753,11 +913,14 @@     touchManagedPtr _obj     return result' +data FormFieldGetNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetNameMethodInfo a signature where+    overloadedMethod _ = formFieldGetName+ -- method FormField::get_partial_name -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -769,8 +932,8 @@  formFieldGetPartialName ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result formFieldGetPartialName _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_get_partial_name _obj'@@ -780,11 +943,14 @@     touchManagedPtr _obj     return result' +data FormFieldGetPartialNameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetPartialNameMethodInfo a signature where+    overloadedMethod _ = formFieldGetPartialName+ -- method FormField::is_read_only -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -796,8 +962,8 @@  formFieldIsReadOnly ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldIsReadOnly _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_is_read_only _obj'@@ -805,11 +971,14 @@     touchManagedPtr _obj     return result' +data FormFieldIsReadOnlyMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldIsReadOnlyMethodInfo a signature where+    overloadedMethod _ = formFieldIsReadOnly+ -- method FormField::text_do_scroll -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -821,8 +990,8 @@  formFieldTextDoScroll ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldTextDoScroll _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_text_do_scroll _obj'@@ -830,11 +999,14 @@     touchManagedPtr _obj     return result' +data FormFieldTextDoScrollMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextDoScrollMethodInfo a signature where+    overloadedMethod _ = formFieldTextDoScroll+ -- method FormField::text_do_spell_check -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -846,8 +1018,8 @@  formFieldTextDoSpellCheck ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldTextDoSpellCheck _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_text_do_spell_check _obj'@@ -855,11 +1027,14 @@     touchManagedPtr _obj     return result' +data FormFieldTextDoSpellCheckMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextDoSpellCheckMethodInfo a signature where+    overloadedMethod _ = formFieldTextDoSpellCheck+ -- method FormField::text_get_max_len -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -871,19 +1046,22 @@  formFieldTextGetMaxLen ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result formFieldTextGetMaxLen _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_text_get_max_len _obj'     touchManagedPtr _obj     return result +data FormFieldTextGetMaxLenMethodInfo+instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetMaxLenMethodInfo a signature where+    overloadedMethod _ = formFieldTextGetMaxLen+ -- method FormField::text_get_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -895,8 +1073,8 @@  formFieldTextGetText ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result formFieldTextGetText _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_text_get_text _obj'@@ -906,11 +1084,14 @@     touchManagedPtr _obj     return result' +data FormFieldTextGetTextMethodInfo+instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetTextMethodInfo a signature where+    overloadedMethod _ = formFieldTextGetText+ -- method FormField::text_get_text_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TInterface "Poppler" "FormTextType" -- throws : False -- Skip return : False@@ -922,8 +1103,8 @@  formFieldTextGetTextType ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m FormTextType+    a                                       -- _obj+    -> m FormTextType                       -- result formFieldTextGetTextType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_text_get_text_type _obj'@@ -931,11 +1112,14 @@     touchManagedPtr _obj     return result' +data FormFieldTextGetTextTypeMethodInfo+instance (signature ~ (m FormTextType), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetTextTypeMethodInfo a signature where+    overloadedMethod _ = formFieldTextGetTextType+ -- method FormField::text_is_password -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -947,8 +1131,8 @@  formFieldTextIsPassword ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldTextIsPassword _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_text_is_password _obj'@@ -956,11 +1140,14 @@     touchManagedPtr _obj     return result' +data FormFieldTextIsPasswordMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextIsPasswordMethodInfo a signature where+    overloadedMethod _ = formFieldTextIsPassword+ -- method FormField::text_is_rich_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -972,8 +1159,8 @@  formFieldTextIsRichText ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result formFieldTextIsRichText _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_form_field_text_is_rich_text _obj'@@ -981,11 +1168,14 @@     touchManagedPtr _obj     return result' +data FormFieldTextIsRichTextMethodInfo+instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextIsRichTextMethodInfo a signature where+    overloadedMethod _ = formFieldTextIsRichText+ -- method FormField::text_set_text -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", 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}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -998,9 +1188,9 @@  formFieldTextSetText ::     (MonadIO m, FormFieldK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- text-    m ()+    a                                       -- _obj+    -> T.Text                               -- text+    -> m ()                                 -- result formFieldTextSetText _obj text = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     text' <- textToCString text@@ -1008,5 +1198,9 @@     touchManagedPtr _obj     freeMem text'     return ()++data FormFieldTextSetTextMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextSetTextMethodInfo a signature where+    overloadedMethod _ = formFieldTextSetText  

@@ -11,3 +11,35 @@ instance GObject FormField where class GObject o => FormFieldK o instance (GObject o, IsDescendantOf FormField o) => FormFieldK o+data FormFieldButtonGetButtonTypeMethodInfo+data FormFieldButtonGetStateMethodInfo+data FormFieldButtonSetStateMethodInfo+data FormFieldChoiceCanSelectMultipleMethodInfo+data FormFieldChoiceCommitOnChangeMethodInfo+data FormFieldChoiceDoSpellCheckMethodInfo+data FormFieldChoiceGetChoiceTypeMethodInfo+data FormFieldChoiceGetItemMethodInfo+data FormFieldChoiceGetNItemsMethodInfo+data FormFieldChoiceGetTextMethodInfo+data FormFieldChoiceIsEditableMethodInfo+data FormFieldChoiceIsItemSelectedMethodInfo+data FormFieldChoiceSelectItemMethodInfo+data FormFieldChoiceSetTextMethodInfo+data FormFieldChoiceToggleItemMethodInfo+data FormFieldChoiceUnselectAllMethodInfo+data FormFieldGetActionMethodInfo+data FormFieldGetFieldTypeMethodInfo+data FormFieldGetFontSizeMethodInfo+data FormFieldGetIdMethodInfo+data FormFieldGetMappingNameMethodInfo+data FormFieldGetNameMethodInfo+data FormFieldGetPartialNameMethodInfo+data FormFieldIsReadOnlyMethodInfo+data FormFieldTextDoScrollMethodInfo+data FormFieldTextDoSpellCheckMethodInfo+data FormFieldTextGetMaxLenMethodInfo+data FormFieldTextGetTextMethodInfo+data FormFieldTextGetTextTypeMethodInfo+data FormFieldTextIsPasswordMethodInfo+data FormFieldTextIsRichTextMethodInfo+data FormFieldTextSetTextMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,26 +18,32 @@   -- * Methods -- ** layerGetRadioButtonGroupId+    LayerGetRadioButtonGroupIdMethodInfo    ,     layerGetRadioButtonGroupId              ,   -- ** layerGetTitle+    LayerGetTitleMethodInfo                 ,     layerGetTitle                           ,   -- ** layerHide+    LayerHideMethodInfo                     ,     layerHide                               ,   -- ** layerIsParent+    LayerIsParentMethodInfo                 ,     layerIsParent                           ,   -- ** layerIsVisible+    LayerIsVisibleMethodInfo                ,     layerIsVisible                          ,   -- ** layerShow+    LayerShowMethodInfo                     ,     layerShow                               ,  @@ -76,17 +83,55 @@ noLayer :: Maybe Layer noLayer = Nothing +type family ResolveLayerMethod (t :: Symbol) (o :: *) :: * where+    ResolveLayerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveLayerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveLayerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveLayerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveLayerMethod "hide" o = LayerHideMethodInfo+    ResolveLayerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveLayerMethod "isParent" o = LayerIsParentMethodInfo+    ResolveLayerMethod "isVisible" o = LayerIsVisibleMethodInfo+    ResolveLayerMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveLayerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveLayerMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveLayerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveLayerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveLayerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveLayerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveLayerMethod "show" o = LayerShowMethodInfo+    ResolveLayerMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveLayerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveLayerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveLayerMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveLayerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveLayerMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveLayerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveLayerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveLayerMethod "getRadioButtonGroupId" o = LayerGetRadioButtonGroupIdMethodInfo+    ResolveLayerMethod "getTitle" o = LayerGetTitleMethodInfo+    ResolveLayerMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveLayerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveLayerMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveLayerMethod t Layer, MethodInfo info Layer p) => IsLabelProxy t (Layer -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveLayerMethod t Layer, MethodInfo info Layer p) => IsLabel t (Layer -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Layer = LayerAttributeList type LayerAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Layer = LayerSignalList-type LayerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type LayerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Layer::get_radio_button_group_id -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TInt32 -- throws : False -- Skip return : False@@ -98,19 +143,22 @@  layerGetRadioButtonGroupId ::     (MonadIO m, LayerK a) =>-    a ->                                    -- _obj-    m Int32+    a                                       -- _obj+    -> m Int32                              -- result layerGetRadioButtonGroupId _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_layer_get_radio_button_group_id _obj'     touchManagedPtr _obj     return result +data LayerGetRadioButtonGroupIdMethodInfo+instance (signature ~ (m Int32), MonadIO m, LayerK a) => MethodInfo LayerGetRadioButtonGroupIdMethodInfo a signature where+    overloadedMethod _ = layerGetRadioButtonGroupId+ -- method Layer::get_title -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -122,8 +170,8 @@  layerGetTitle ::     (MonadIO m, LayerK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result layerGetTitle _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_layer_get_title _obj'@@ -132,11 +180,14 @@     touchManagedPtr _obj     return result' +data LayerGetTitleMethodInfo+instance (signature ~ (m T.Text), MonadIO m, LayerK a) => MethodInfo LayerGetTitleMethodInfo a signature where+    overloadedMethod _ = layerGetTitle+ -- method Layer::hide -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -148,19 +199,22 @@  layerHide ::     (MonadIO m, LayerK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result layerHide _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     poppler_layer_hide _obj'     touchManagedPtr _obj     return () +data LayerHideMethodInfo+instance (signature ~ (m ()), MonadIO m, LayerK a) => MethodInfo LayerHideMethodInfo a signature where+    overloadedMethod _ = layerHide+ -- method Layer::is_parent -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -172,8 +226,8 @@  layerIsParent ::     (MonadIO m, LayerK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result layerIsParent _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_layer_is_parent _obj'@@ -181,11 +235,14 @@     touchManagedPtr _obj     return result' +data LayerIsParentMethodInfo+instance (signature ~ (m Bool), MonadIO m, LayerK a) => MethodInfo LayerIsParentMethodInfo a signature where+    overloadedMethod _ = layerIsParent+ -- method Layer::is_visible -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -197,8 +254,8 @@  layerIsVisible ::     (MonadIO m, LayerK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result layerIsVisible _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_layer_is_visible _obj'@@ -206,11 +263,14 @@     touchManagedPtr _obj     return result' +data LayerIsVisibleMethodInfo+instance (signature ~ (m Bool), MonadIO m, LayerK a) => MethodInfo LayerIsVisibleMethodInfo a signature where+    overloadedMethod _ = layerIsVisible+ -- method Layer::show -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TVoid -- throws : False -- Skip return : False@@ -222,12 +282,16 @@  layerShow ::     (MonadIO m, LayerK a) =>-    a ->                                    -- _obj-    m ()+    a                                       -- _obj+    -> m ()                                 -- result layerShow _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     poppler_layer_show _obj'     touchManagedPtr _obj     return ()++data LayerShowMethodInfo+instance (signature ~ (m ()), MonadIO m, LayerK a) => MethodInfo LayerShowMethodInfo a signature where+    overloadedMethod _ = layerShow  

@@ -11,3 +11,9 @@ instance GObject Layer where class GObject o => LayerK o instance (GObject o, IsDescendantOf Layer o) => LayerK o+data LayerGetRadioButtonGroupIdMethodInfo+data LayerGetTitleMethodInfo+data LayerHideMethodInfo+data LayerIsParentMethodInfo+data LayerIsVisibleMethodInfo+data LayerShowMethodInfo

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -17,22 +18,27 @@   -- * Methods -- ** mediaGetFilename+    MediaGetFilenameMethodInfo              ,     mediaGetFilename                        ,   -- ** mediaGetMimeType+    MediaGetMimeTypeMethodInfo              ,     mediaGetMimeType                        ,   -- ** mediaIsEmbedded+    MediaIsEmbeddedMethodInfo               ,     mediaIsEmbedded                         ,   -- ** mediaSave+    MediaSaveMethodInfo                     ,     mediaSave                               ,   -- ** mediaSaveToCallback+    MediaSaveToCallbackMethodInfo           ,     mediaSaveToCallback                     ,  @@ -72,17 +78,54 @@ noMedia :: Maybe Media noMedia = Nothing +type family ResolveMediaMethod (t :: Symbol) (o :: *) :: * where+    ResolveMediaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo+    ResolveMediaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo+    ResolveMediaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo+    ResolveMediaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo+    ResolveMediaMethod "isEmbedded" o = MediaIsEmbeddedMethodInfo+    ResolveMediaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo+    ResolveMediaMethod "notify" o = GObject.ObjectNotifyMethodInfo+    ResolveMediaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo+    ResolveMediaMethod "ref" o = GObject.ObjectRefMethodInfo+    ResolveMediaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo+    ResolveMediaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo+    ResolveMediaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo+    ResolveMediaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo+    ResolveMediaMethod "save" o = MediaSaveMethodInfo+    ResolveMediaMethod "saveToCallback" o = MediaSaveToCallbackMethodInfo+    ResolveMediaMethod "stealData" o = GObject.ObjectStealDataMethodInfo+    ResolveMediaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo+    ResolveMediaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo+    ResolveMediaMethod "unref" o = GObject.ObjectUnrefMethodInfo+    ResolveMediaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo+    ResolveMediaMethod "getData" o = GObject.ObjectGetDataMethodInfo+    ResolveMediaMethod "getFilename" o = MediaGetFilenameMethodInfo+    ResolveMediaMethod "getMimeType" o = MediaGetMimeTypeMethodInfo+    ResolveMediaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo+    ResolveMediaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo+    ResolveMediaMethod "setData" o = GObject.ObjectSetDataMethodInfo+    ResolveMediaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo+    ResolveMediaMethod l o = MethodResolutionFailed l o++instance (info ~ ResolveMediaMethod t Media, MethodInfo info Media p) => IsLabelProxy t (Media -> p) where+    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)++#if MIN_VERSION_base(4,9,0)+instance (info ~ ResolveMediaMethod t Media, MethodInfo info Media p) => IsLabel t (Media -> p) where+    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)+#endif+ type instance AttributeList Media = MediaAttributeList type MediaAttributeList = ('[ ] :: [(Symbol, *)])  type instance SignalList Media = MediaSignalList-type MediaSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])+type MediaSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])  -- method Media::get_filename -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -94,8 +137,8 @@  mediaGetFilename ::     (MonadIO m, MediaK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result mediaGetFilename _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_media_get_filename _obj'@@ -104,11 +147,14 @@     touchManagedPtr _obj     return result' +data MediaGetFilenameMethodInfo+instance (signature ~ (m T.Text), MonadIO m, MediaK a) => MethodInfo MediaGetFilenameMethodInfo a signature where+    overloadedMethod _ = mediaGetFilename+ -- method Media::get_mime_type -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TUTF8 -- throws : False -- Skip return : False@@ -120,8 +166,8 @@  mediaGetMimeType ::     (MonadIO m, MediaK a) =>-    a ->                                    -- _obj-    m T.Text+    a                                       -- _obj+    -> m T.Text                             -- result mediaGetMimeType _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_media_get_mime_type _obj'@@ -130,11 +176,14 @@     touchManagedPtr _obj     return result' +data MediaGetMimeTypeMethodInfo+instance (signature ~ (m T.Text), MonadIO m, MediaK a) => MethodInfo MediaGetMimeTypeMethodInfo a signature where+    overloadedMethod _ = mediaGetMimeType+ -- method Media::is_embedded -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : False -- Skip return : False@@ -146,8 +195,8 @@  mediaIsEmbedded ::     (MonadIO m, MediaK a) =>-    a ->                                    -- _obj-    m Bool+    a                                       -- _obj+    -> m Bool                               -- result mediaIsEmbedded _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- poppler_media_is_embedded _obj'@@ -155,11 +204,14 @@     touchManagedPtr _obj     return result' +data MediaIsEmbeddedMethodInfo+instance (signature ~ (m Bool), MonadIO m, MediaK a) => MethodInfo MediaIsEmbeddedMethodInfo a signature where+    overloadedMethod _ = mediaIsEmbedded+ -- method Media::save -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False@@ -173,9 +225,9 @@  mediaSave ::     (MonadIO m, MediaK a) =>-    a ->                                    -- _obj-    T.Text ->                               -- filename-    m ()+    a                                       -- _obj+    -> T.Text                               -- filename+    -> m ()                                 -- result mediaSave _obj filename = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     filename' <- textToCString filename@@ -188,11 +240,14 @@         freeMem filename'      ) +data MediaSaveMethodInfo+instance (signature ~ (T.Text -> m ()), MonadIO m, MediaK a) => MethodInfo MediaSaveMethodInfo a signature where+    overloadedMethod _ = mediaSave+ -- method Media::save_to_callback -- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "Poppler" "MediaSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "Poppler" "MediaSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "save_func", argType = TInterface "Poppler" "MediaSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}] -- returnType : TBasicType TBoolean -- throws : True -- Skip return : False@@ -207,21 +262,25 @@  mediaSaveToCallback ::     (MonadIO m, MediaK a) =>-    a ->                                    -- _obj-    MediaSaveFunc ->                        -- save_func-    m ()-mediaSaveToCallback _obj save_func = liftIO $ do+    a                                       -- _obj+    -> MediaSaveFunc                        -- saveFunc+    -> m ()                                 -- result+mediaSaveToCallback _obj saveFunc = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    save_func' <- mkMediaSaveFunc (mediaSaveFuncWrapper Nothing save_func)-    let user_data = nullPtr+    saveFunc' <- mkMediaSaveFunc (mediaSaveFuncWrapper Nothing saveFunc)+    let userData = nullPtr     onException (do-        _ <- propagateGError $ poppler_media_save_to_callback _obj' save_func' user_data-        safeFreeFunPtr $ castFunPtrToPtr save_func'+        _ <- propagateGError $ poppler_media_save_to_callback _obj' saveFunc' userData+        safeFreeFunPtr $ castFunPtrToPtr saveFunc'         touchManagedPtr _obj         return ()      ) (do-        safeFreeFunPtr $ castFunPtrToPtr save_func'+        safeFreeFunPtr $ castFunPtrToPtr saveFunc'         return ()      )++data MediaSaveToCallbackMethodInfo+instance (signature ~ (MediaSaveFunc -> m ()), MonadIO m, MediaK a) => MethodInfo MediaSaveToCallbackMethodInfo a signature where+    overloadedMethod _ = mediaSaveToCallback